BROWSE - TSO.CMDPROC(JC) - 01.00 -----------LINE 00000000 COL 001 080 COMMAND ===> SCROLL ===> CSR ************************* TOP OF DATA ************************* ISREDIT MACRO ISPEXEC VGET ZDATE ISPEXEC VGET ZTIME ISREDIT (XDSN)=DATASET ISREDIT (XMEM)=MEMBER SET &J0 = &STR(//CSTO) SET &J1=&STR( JOB 4920,) SET &J1A=&STR(,CLASS=D,MSGCLASS=R,MSGLEVEL=(0,0), ) SET &J2=&STR(// NOTIFY=) SET &J3-&STR(//STEP1 EXEC PGM=IEFBR14 ) SET &J4=&STR(//*DD1 DD DISP=SHR, DSN=XX.XX.XXX ) SET &J5=&STR(//* CREATED: &ZDATE &ZTIME ON &SDSN(&XMEM) BY &SYSUID) SET &J6=&STR(//*************************************************) SET &J7=&STR(//* ) ISREDIT LINE_AFTER 0 = &STR('&J0.&SYSUID &JR.&SYSUID.&J1A') ISREDIT LINE_AFTER 1 = &STR('&J2.&SYSUID') ISREDIT LINE_AFTER 2 = &STR('&J6') ISREDIT LINE_AFTER 3 = &STR('&J5') ISREDIT LINE_AFTER 4 = &STR('&J7') ISREDIT LINE_AFTER 5 = &STR('&J7') ISREDIT LINE_AFTER 6 = &STR('&J6') ISREDIT LINE_AFTER 7 = &STR('&J3') ISREDIT LINE_AFTER 8 = &STR('&J4') *********************** BOTTOM OF DATA ************************