zOs/JCL/DB2LOADP

//A540769U JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,REGION=0M,
//   PARM=(DBAF,'A540769U.LOAD'),
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE DDIN
     DSN('DBAF.DA540769.APER09.P&PA..D110222.REC')
LOAD DATA        LOG NO
    STATISTICS INDEX(ALL KEYCARD) REP3RT NO UPDATE ALL
    EBCDIC  CCSID(00500,00000,00000)
    SORTKEYS
    SORTDEVT DISK
    -- SORTNUM 160
    WORKDDN(TSYUTD,TSOUTD)
 INTO TABLE
 "A540769".
 "TPER09"
 PART 00001 RESUME NO REPLACE COPYDDN(TCOPYD) INDDN DDIN
 WHEN(00001:00002) = X'0304'
 NUMRECS                  351
 ( "PART"
  POSITION(  00003:00006) INTEGER
 , "TST"
  POSITION(  00007:00032) TIMESTAMP EXTERNAL
 , "TEXT"
  POSITION(  00033:02034) VARCHAR
 )
 INTO TABLE
 "A540769".
 "TPER09"
 PART 00002 RESUME NO REPLACE COPYDDN(TCOPYD) INDDN DDIN
 WHEN(00001:00002) = X'0304'
 NUMRECS                  351
 ( "PART"
  POSITION(  00003:00006) INTEGER
 , "TST"
  POSITION(  00007:00032) TIMESTAMP EXTERNAL
 , "TEXT"
  POSITION(  00033:02034) VARCHAR
 )