Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 000100 //HOG0009B JOB ,NOTIFY=&SYSUID
- 000200 //BIND EXEC PGM=IKJEFT01
- 000300 //STEPLIB DD DSN=DB2.V9R1.SDSNLOAD,DISP=SHR
- 000400 //DBRMLIB DD DSN=HOG0009.TRANS.DBRMLIB,DISP=SHR
- 000500 //SYSTSPRT DD SYSOUT=*
- 000600 //SYSTSIN DD *
- 000700 DSN SYSTEM(DB1S)
- 000800 BIND PLAN(HOG9FE) MEMBER(SEQINS) ACTION(REPLACE) -
- 000900 VALIDATE(BIND) ISOLATION(CS)
- 001000 END
- 001100 /*
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement