Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 000100 //HOG0009A JOB ,NOTIFY=&SYSUID
- 000200 //RUN EXEC PGM=IKJEFT01
- 000210 //STEPLIB DD DISP=SHR,DSN=DB2.V9R1.DSNS.SDSNEXIT
- 000220 // DD DISP=SHR,DSN=DB2.V9R1.SDSNLOAD
- 000221 //RECSIN DD DISP=SHR,DSN=HOG0009.TRANS.FILES(FEED1)
- 000230 //SYSTSPRT DD SYSOUT=*
- 000240 //SYSOUT DD SYSOUT=*
- 000290 //SYSTSIN DD *
- 000300 DSN SYSTEM(DB1S)
- 000400 RUN PROG(SEQINS)-
- 000500 LIB('HOG0009.TRANS.LOAD')-
- 000600 PLAN(HOG9FE)
- 000700 END
- 000800 /*
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement