*********************************************************************** 00070000 * * 00080000 * MODULE NAME = DFH0STM * 00090000 * * 00100000 * DESCRIPTIVE NAME = Statistics Sample Mapset * 00110000 * * 00120000 * 5655-018 * 00126600 * COPYRIGHT = NONE * 00133200 * * 00140000 * STATUS = 3.3.0 * 00160000 * * 00180000 *---------------------------------------------------------------------* 00200000 * * 00220000 * CHANGE ACTIVITY : * 00240000 * $SEG(DFH0STM),COMP(SAMPLES),PROD(CICS/ESA): * 00250000 * * 00260000 * PN= REASON REL YYMMDD HDXIII : REMARKS * 00280000 * $P0= . 320 900612 : Created. * 00300000 * $P1= M90474 330 910807 HDBWSH : Prologue fixed. * 00310000 * * 00320000 *********************************************************************** 00340000 DFH0STM DFHMSD TYPE=DSECT,MODE=INOUT,CTRL=FREEKB,LANG=COBOL, C00360000 TIOAPFX=YES,TERM=3270-2,MAPATTS=(COLOR,HILIGHT), C00420000 DSATTS=(COLOR,HILIGHT) 00480000 DFH0STM DFHMDI SIZE=(24,80) 00540000 DFHMDF POS=(01,18),LENGTH=42,ATTRB=(ASKIP,NORM), C00600000 COLOR=BLUE, C00660000 INITIAL='Sample Program - CICS/ESA Statistics Print' 00720000 PDATE DFHMDF POS=(02,61),LENGTH=8,ATTRB=(ASKIP,NORM), C00780000 COLOR=TURQUOISE 00840000 PTIME DFHMDF POS=(02,71),LENGTH=8,ATTRB=(ASKIP,NORM), C00900000 COLOR=TURQUOISE 00960000 DFHMDF POS=(04,01),LENGTH=60,ATTRB=(ASKIP,NORM), C01020000 COLOR=GREEN, C01080000 INITIAL='Type in destination fields if required. Press EC01140000 nter to print' 01200000 DFHMDF POS=(07,05),LENGTH=14,ATTRB=(ASKIP,NORM), C01270000 COLOR=GREEN, C01340000 INITIAL='Jobname . . :' 01410000 PJOBNM DFHMDF POS=(07,20),LENGTH=8,ATTRB=(ASKIP,NORM), C01480000 COLOR=TURQUOISE 01550000 DFHMDF POS=(08,05),LENGTH=14,ATTRB=(ASKIP,NORM), C01620000 COLOR=GREEN, C01690000 INITIAL='Applid . . . :' 01760000 PAPPLID DFHMDF POS=(08,20),LENGTH=8,ATTRB=(ASKIP,NORM), C01830000 COLOR=TURQUOISE 01900000 DFHMDF POS=(09,05),LENGTH=14,ATTRB=(ASKIP,NORM), C01970000 COLOR=GREEN, C02040000 INITIAL='Sysid . . . :' 02110000 PSYSID DFHMDF POS=(09,20),LENGTH=4,ATTRB=(ASKIP,NORM), C02180000 COLOR=TURQUOISE 02250000 DFHMDF POS=(11,05),LENGTH=14,ATTRB=(ASKIP,NORM), C02320000 COLOR=GREEN, C02390000 INITIAL='Node . . . . .' 02460000 PNODE DFHMDF POS=(11,20),LENGTH=8,ATTRB=(UNPROT,FSET,IC), C02530000 COLOR=TURQUOISE,HILIGHT=UNDERLINE 02600000 DFHMDF POS=(11,29),LENGTH=1,ATTRB=(ASKIP,NORM) 02670000 DFHMDF POS=(11,32),LENGTH=34,ATTRB=(ASKIP,NORM), C02740000 COLOR=GREEN, C02810000 INITIAL='Type in a valid Node. * is default' 02880000 DFHMDF POS=(12,05),LENGTH=14,ATTRB=(ASKIP,NORM), C02950000 COLOR=GREEN, C03020000 INITIAL='Userid . . . .' 03090000 PUSERID DFHMDF POS=(12,20),LENGTH=8,ATTRB=(UNPROT,FSET), C03160000 COLOR=TURQUOISE,HILIGHT=UNDERLINE 03230000 DFHMDF POS=(12,29),LENGTH=1,ATTRB=(ASKIP,NORM) 03300000 DFHMDF POS=(12,32),LENGTH=36,ATTRB=(ASKIP,NORM), C03370000 COLOR=GREEN, C03440000 INITIAL='Type in a valid Userid. * is default' 03510000 DFHMDF POS=(13,05),LENGTH=14,ATTRB=(ASKIP,NORM), C03580000 COLOR=GREEN, C03650000 INITIAL='Class . . . .' 03720000 PCLASS DFHMDF POS=(13,20),LENGTH=1,ATTRB=(UNPROT,FSET), C03790000 COLOR=TURQUOISE,HILIGHT=UNDERLINE 03860000 DFHMDF POS=(13,22),LENGTH=1,ATTRB=(ASKIP,NORM) 03930000 DFHMDF POS=(13,32),LENGTH=35,ATTRB=(ASKIP,NORM), C04000000 COLOR=GREEN, C07000000 INITIAL='Type in a valid Class. A is default' 10000000 PMSG1 DFHMDF POS=(22,01),LENGTH=79,ATTRB=(ASKIP,BRT), C13000000 COLOR=NEUTRAL,CASE=MIXED 16000000 PMSG2 DFHMDF POS=(23,01),LENGTH=79,ATTRB=(ASKIP,BRT), C20000000 COLOR=NEUTRAL,CASE=MIXED 30000000 DFHMDF POS=(24,01),LENGTH=79,ATTRB=(ASKIP,NORM), C40000000 COLOR=BLUE, C50000000 INITIAL='F3=Exit to CICS C60000000 ' 70000000 DFHMSD TYPE=FINAL 80000000 END 90000000