You can use two jobs attached bellow: //S1 EXEC PGM=GIMSMP,REGION=0M,TIME=NOLIMIT //SMPCSI DD DISP=SHR,DSN=ZOS17.GLOBAL.CSI //SMPLOG DD DUMMY //SMPLOGA DD DUMMY //SMPPUNCH DD DSN=SYSPROG.SMPPUNCH,DISP=SHR //SMPOUT DD SYSOUT=* //SMPRPT DD SYSOUT=* //SMPLIST DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SMPCNTL DD * SET BDY(MVST100) . BUILDMCS FORFMID( XXXXXXX ) . /*
and //S1 EXEC PGM=GIMSMP,REGION=0M,TIME=NOLIMIT //SMPCSI DD DISP=SHR,DSN=ZOS18.GLOBAL.CSI //SMPLOG DD DUMMY //SMPLOGA DD DUMMY //SMPLIST DD SYSOUT=X //SMPRPT DD SYSOUT=X //SMPOUT DD SYSOUT=X //SYSPRINT DD SYSOUT=X //SMPCNTL DD * SET BOUNDARY (GLOBAL) . RECEIVE SYSMODS . //SMPPTFIN DD DISP=SHR, // DSN=SYSPROG.SMPPUNCH //* Best regards, Miran ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html