//A540769L JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//*MAIN CLASS=LOG 00040003
//S1 EXEC PGM=DSNUTILB,PARM='DP4G,A540769L.LOAD' 00020001
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE P0
DSN(A540769.CMD.RZZ.REC)
DISP(OLD,KEEP,KEEP)
LOAD DATA LOG NO RESUME YES INDDN(P0)
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE OA1P.TQZ050CMD
(
RZ POSITION( 1 )
VARCHAR ,
DBSYS POSITION( 6 )
VARCHAR ,
DBMBR POSITION( 9 )
CHAR( 4) ,
SYSTEM POSITION( 13 )
CHAR( 4) ,
TST POSITION( 17 )
TIMESTAMP EXTERNAL( 26) ,
VERB POSITION( 43 )
CHAR( 8) ,
CMD POSITION( 51 )
VARCHAR ,
CORR POSITION( 125 )
CHAR( 8) ,
AUTH POSITION( 133 )
CHAR( 8) ,
OPERATOR POSITION( 141 )
CHAR( 8) ,
LOAD POSITION( 149 )
DATE EXTERNAL( 10)
)
COPY TABLESPACE QZ01A1P.A050A FULL YES COPYDDN(TCOPYD)