1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
//X67JOB JOB (DB2LD),'LOAD REPLACE TEST',CLASS=S,MSGCLASS=T,
// REGION=4M,NOTIFY=&SYSUID,RESTART=*
//*--------------------------------------------------------------------*
//DB2LOAD EXEC PGM=DSNUTILB,REGION=0M,PARM='DB2T,LOADX67'
//STEPLIB DD DISP=SHR,DSN=SYSR.DB2RECT.SDSNLOAD
//CEEDUMP DD SYSOUT=*
//DSNTRACE DD SYSOUT=*
//STPRIN01 DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD DUMMY
//UTPRINT DD SYSOUT=*
//SORTWK01 DD UNIT=(WORKDA,P),SPACE=(CYL,(15,50))
//SORTWK02 DD UNIT=(WORKDA,P),SPACE=(CYL,(15,50))
//SORTWK03 DD UNIT=(WORKDA,P),SPACE=(CYL,(15,50))
//SORTWK04 DD UNIT=(WORKDA,P),SPACE=(CYL,(15,50))
//SORTWK05 DD UNIT=(WORKDA,P),SPACE=(CYL,(15,50))
//SORTOUT DD UNIT=(WORKDA,P),SPACE=(CYL,(50,50))
//SYSUT1 DD UNIT=(WORKDA,P),SPACE=(CYL,(50,50))
//SYSERR DD UNIT=(WORKDA,P),SPACE=(CYL,(50,50))
//SYSDISC DD SYSOUT=*
//SYSREC00 DD DUMMY
//SYSIN DD *
LOAD DATA REPLACE INDDN SYSREC00 LOG NO
INTO TABLE TST2.TCIS012
// DD DISP=SHR,DSN=TEST.TCIS012.SYSPCH
// |
Partager