zOs/JCL/DB2LOAD4

//A540769L JOB (CAS25071,0000,,0000),'UNLOAD',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=A540769
//*MAIN CLASS=LOG
//S1       EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD'                  00020001
//SYSMAP   DD SYSOUT=*
//SYSUT1   DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT  DD DISP=(,PASS),UNIT=SYSDA
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
TEMPLATE BK70ZLRB
     DSN('A540769.TMPUL.SRCP5.D2007271.P&PA..UNLO')
     DISP(OLD,KEEP,KEEP)
LOAD DATA SHRLEVEL CHANGE RESUME(YES)
          -- LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
 EBCDIC  CCSID(00500,00000,00000)
 INTO TABLE "GDB9998"."TWK077A"
 PART 00001 INDDN BK70ZLRB
 WHEN(00001:00002) = X'00A5'
 ( "WK077PART"
        POSITION(  00003:00004) SMALLINT
 , "WK077KEY"
        POSITION(  00005:00008) INTEGER
 , "WK077TXT"
        POSITION(  00009:00028) CHAR(00020)
 )
 INTO TABLE "GDB9998"."TWK077A"
 PART 00002 INDDN BK70ZLRB
 WHEN(00001:00002) = X'00A5'
 ( "WK077PART"
        POSITION(  00003:00004) SMALLINT
 , "WK077KEY"
        POSITION(  00005:00008) INTEGER
 , "WK077TXT"
        POSITION(  00009:00028) CHAR(00020)
 )
 INTO TABLE "GDB9998"."TWK077A"
 PART 00003 INDDN BK70ZLRB
 WHEN(00001:00002) = X'00A5'
 ( "WK077PART"
        POSITION(  00003:00004) SMALLINT
 , "WK077KEY"
        POSITION(  00005:00008) INTEGER
 , "WK077TXT"
        POSITION(  00009:00028) CHAR(00020)
 )