PowerExchange for CDC and Mainframe
- PowerExchange for CDC and Mainframe 10.4.1
- All Products
//START EXEC PGM=DTLNTS,PARM='"%STRTJOB"' //STEPLIB DD DSN=&HLQ..LOADLIB,DISP=SHR
//STEP1 EXEC PGM=DTLREXE, // PARM=('CS=DD:INCMD'), // REGION=0M,TIME=NOLIMIT //INCMD DD * LOC=NODE1 PROG=SUBMIT FN="DTLUSR.JCL(MYJOB)" MODE=(JOB,WAIT) OUTPUT=DTLUSR.DB2LOAD.SYSPRINT RESULT="DTLUSR.JCLRESTXT)"
// IF ((RC > 4) | (ABEND=TRUE)) THEN //* //ENDERR EXEC PGM=DTLNTS, // PARM='"%ENDJOB" C 16' //STEPLIB DD DSN=&HLQ..LOADLIB,DISP=SHR //SYSPRINT DD SYSOUT=* //* // ELSE //* //ENDOK EXEC PGM=DTLNTS, // PARM='"%ENDJOB"' //STEPLIB DD DSN=&HLQ..LOADLIB,DISP=SHR //SYSPRINT DD SYSOUT=* // ENDIF