| 1 | //INTRDRJ2 JOB (COBOL),'KSSOMAS',CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), |
| 2 | // REGION=5M,NOTIFY=&SYSUID |
| 3 | //********************************************************************* |
| 4 | //**** THIS JOB IS TO CREATE PHYSICAL VSAM FILE FOR IMS DEMODB **** |
| 5 | //**** AND INDEX DEMODX **** |
| 6 | //********************************************************************* |
| 7 | //IDCAMS EXEC PGM=IDCAMS,DYNAMNBR=200 |
| 8 | //SYSPRINT DD SYSOUT=* |
| 9 | //IN DD DSN=AWS.M2.CARDEMO.FTP.TEST.BKUP,DISP=SHR |
| 10 | //OUT DD DSN=AWS.M2.CARDEMO.FTP.TEST.BKUP.INTRDR,DISP=SHR |
| 11 | //SYSIN DD * |
| 12 | REPRO IFILE(IN) OFILE(OUT) |
| 13 | /* |
| 14 | //* |