Type in response: /FOR CTEO000M
Press the ENTER key. You should get the following screen display. See the MFS format statements that follow to understand why.
***************************
* THIS IS A TEST FORMAT *
* FOR THE IMS ONLINE *
* COURSE. *
* *
* PRESS PF1 FOR EXAMPLE *
* OF ATTRIBUTES *
* *
* PRESS PF3 TO EXIT *
* FROM IMS *
*************************** |
CTE000 FMT
DEV TYPE=3270-A02,FEAT=IGNORE,PFK=(PFKEYSOO, X
1=’/FOR CTE0001M.’, X
2=’/RCL. ‘)
DIV TYPE=INOUT
DPAGE CURSOR=((20,40))
DFLD ‘***************************’,POS=(08,29)
DFLD ‘* THIS IS A TEST FORMAT *’,POS=(09,29)
DFLD ‘* FOR THE IMS ONLINE *’,POS=(10,29)
DFLD ‘* COURSE. *’,POS=(11,29)
DFLD ‘* *’,POS=(12,29)
DFLD ‘* PRESS PF1 FOR EXAMPLE *’,POS=(13,29)
DFLD ‘* OF ATTRIBUTES *’,POS=(14,29)
DFLD ‘* *’,POS=(15,29)
DFLD ‘* PRESS PF3 TO EXIT *’,POS=(16,29)
DFLD ‘* FROM IMS *’,POS=(17,29)
DFLD ‘***************************’,POS=(18,29)
FMTEND
CTEI000M MSG TYPE=INPUT,SOR=(CTE000,IGNORE),OPT=1,NXT=CTEO000M
SEG
MFLD (PFKEYSOO,’/FOR CTEO000M.’),LTH=14,JUST=L,FILL=X’40’
MSGEND
CTEO000M MSG TYPE=OUTPUT,SOR=(CTE000,IGNORE),OPT=1,NXT=CTEI000M, X
PAGE=NO
SEG
MFLD LTH=1
MSGEND
END |
From here, press PF1 for the following screen display:
************************************** * THIS IS AN EXAMPLE OF THE VARIOUS * * ATTRIBUTES AVAILABLE TO A FORMAT. * ************************************** ALPHABETIC,NONPROTECTED,NORMAL INTENS:_____ ALPHABETIC,PROTECTED ,NORMAL INTENS:AAAAA ALPHABETIC,NONPROTECTED,HIGH INTENS:_____ ALPHABETIC,PROTECTED ,HIGH INTENS:AAAAA ALPHABETIC,NONPROTECTED,NONDISPLAY :_____ ALPHABETIC,PROTECTED ,NONDISPLAY :::::: NUMERIC ,NONPROTECTED,NORMAL INTENS:_____ NUMERIC ,PROTECTED ,NORMAL INTENS:11111 NUMERIC ,NONPROTECTED,HIGH INTENS:_____ NUMERIC ,PROTECTED ,HIGH INTENS:11111 NUMERIC ,NONPROTECTED,NONDISPLAY :_____ NUMERIC ,PROTECTED ,NONDISPLAY :::::: PRESS PF1 TO RETURN TO PREVIOUS FORMAT |
CTEDV1 FMT
DEV TYPE=3270-A02,FEAT=IGNORE,PFK=(PFKEYS00), X
1=’\FOR CTEO000M.’)
DIV TYPE=INOUT
DPAGE CURSOR=((06,58))
DFLD ‘**************************************’,POS=(01,18)
DFLD ‘* THIS IS AN EXAMPLE OF THE VARIOUS *’,POS=(02,18)
DFLD ‘* ATTRIBUTES AVAILABLE TO A FORMAT. *’,POS=(03,18)
DFLD ‘**************************************’,POS=(04,18)
DFLD ‘ALPHABETIC,NONPROTECTED,NORMAL INTENS:’,POS=(05,18)
DFLD ‘ALPHABETIC,PROTECTED ,NORMAL INTENS:’,POS=(06,18)
DFLD ‘ALPHABETIC,NONPROTECTED,HIGH INTENS:’,POS=(07,18)
DFLD ‘ALPHABETIC,PROTECTED ,HIGH INTENS:’,POS=(08,18)
DFLD ‘ALPHABETIC,NONPROTECTED,NONDISPLAY :’,POS=(09,18)
DFLD ‘ALPHABETIC,PROTECTED ,NONDISPLAY :’,POS=(10,18)
DFLD ‘NUMERIC ,NONPROTECTED,NORMAL INTENS:’,POS=(11,18)
DFLD ‘NUMERIC ,PROTECTED ,NORMAL INTENS:’,POS=(12,18)
DFLD ‘NUMERIC ,NONPROTECTED,HIGH INTENS:’,POS=(13,18)
DFLD ‘NUMERIC ,PROTECTED ,HIGH INTENS:’,POS=(14,18)
DFLD ‘NUMERIC ,NONPROTECTED,NONDISPLAY :’,POS=(15,18)
DFLD ‘NUMERIC ,PROTECTED ,NONDISPLAY :’,POS=(16,18)
DFLD ‘PRESS PF1 TO RETURN TO PREVIOUS FORMAT’,POS=(20,18)
FLD0658 DFLD POS=(06,58),ATTR=(ALPHA,NOPROT,NORM),LTH=05
DFLD ‘AAAAA’,POS=(07,58),ATTR=(ALPHA,NORM),LTH=05
FLD0858 DFLD POS=(08,58),ATTR=(ALPHA,NOPROT,HI),LTH=05
DFLD ‘AAAAA’,POS=(09,58),ATTR=(ALPHA,HI),LTH=05
FLD1058 DFLD POS=(10,58),ATTR=(ALPHA,NOPROT,NODISP),LTH=05
FLD1158 DFLD POS=(11,58),ATTR=(ALPHA,PROT,NODISP),LTH=05
FLD1258 DFLD POS=(12,58),ATTR=(NUM,NOPROT,NORM),LTH=05
DFLD ‘11111’,POS=(13,58),ATTR=(NUM,PROT,NORM),LTH=05
FLD1458 DFLD POS=(14,58),ATTR=(NUM,NOPROT,HI),LTH=05
DFLD ‘11111’,POS=(15,58),ATTR=(NUM,PROT,HI),LTH=05
FLD1658 DFLD POS=(16,58),ATTR=(NUM,NOPROT,NODISP),LTH=05
FLD1758 DFLD POS=(17,58),ATTR=(NUM,PROT,NODISP),LTH=05
FMTEND
CTEI001M MSG TYPE=INPUT,SOR=(CTEDV1,IGNORE),OPT=1,NXT=CTEO001M
SEG
MFLD (PFKEYS00,’/FOR CTEO001M.’),LTH=14,JUST=L,FILL=X’40’
MSGEND
CTEO001M MSG TYPE=OUTPUT,SOR=(CTEDV1,IGNORE),OPT=1,NXT=CTEI001M, X
PAGE=NO
MFLD LTH=1
MSGEND
END |
Above are some of the attributes available. At this point, you can enter data into the various fields to see how they react to the listed specifications. When you finish testing, press PF1 to return to the first format, then press PF3 to exit IMS.
If you have any doubts or queries related to this chapter, get them clarified from our Mainframe experts on IBMMainframer Community!