| 1 | //INTRDRJ1 JOB (COBOL),'KSSOMAS',CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), |
| 2 | // REGION=5M,NOTIFY=&SYSUID |
| 3 | //********************************************************************* |
| 4 | //*** THIS INTRDR JOB WILL TRIGGER ANOTHER JCL |
| 5 | //********************************************************************* |
| 6 | //IDCAMS EXEC PGM=IDCAMS,DYNAMNBR=200 |
| 7 | //SYSPRINT DD SYSOUT=* |
| 8 | //IN DD DSN=AWS.M2.CARDEMO.FTP.TEST,DISP=SHR |
| 9 | //OUT DD DSN=AWS.M2.CARDEMO.FTP.TEST.BKUP,DISP=SHR |
| 10 | //SYSIN DD * |
| 11 | REPRO IFILE(IN) OFILE(OUT) |
| 12 | /* |
| 13 | //********************************************************************* |
| 14 | //STEP01 EXEC PGM=IEBGENER |
| 15 | //SYSPRINT DD SYSOUT=* |
| 16 | //SYSIN DD DUMMY |
| 17 | //SYSUT1 DD DSN=AWS.M2.CARDDEMO.JCL(INTRDRJ2),DISP=SHR |
| 18 | //SYSUT2 DD SYSOUT=(A,INTRDR),DCB=(LRECL=80,BLKSIZE=80) |
| 19 | //* |