zOs/JCL/KDLOADBL

//A540769L  JOB (CP00,KE50),
//         MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
//         NOTIFY=A540769
//*MAIN CLASS=LOG
//S1       EXEC PGM=DSNUTILB,PARM='DP2G,A540769L.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DP2G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
TEMPLATE INP
     DSN('TSS.SKA.KD03A1P.&SN..P00000.REC')
     DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN INP LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
            STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
 EBCDIC  CCSID(00500,00000,00000)
    SORTKEYS
    ENFORCE NO
    SORTDEVT DISK
    WORKDDN(TSYUTD,TSOUTD)
    MAPDDN TMAPD ERRDDN  TERRD
    IDENTITYOVERRIDE
 FORMAT SPANNED YES
 INTO TABLE
 "OA1$$$".
 "TKD305A1"
 WHEN(00001:00002) = X'0027'
 ( ID
  POSITION(  00003:00006) INTEGER
 , "RULESET_ID"
  POSITION(  00007:00010) INTEGER
 , "ARCHIVE"
  POSITION(  *)           BLOB
 )
---
LOAD DATA INDDN INP LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
            STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
 EBCDIC  CCSID(00500,00000,00000)
    SORTKEYS
    ENFORCE NO
    SORTDEVT DISK
    WORKDDN(TSYUTD,TSOUTD)
    MAPDDN TMAPD ERRDDN  TERRD
    IDENTITYOVERRIDE
 FORMAT SPANNED YES
 INTO TABLE
 OA1$$$.
 "TKD315A1"
 WHEN(00001:00002) = X'0030'
 ( ID
  POSITION(  00003:00006) INTEGER
 , "RULESET_ID"
  POSITION(  00007:00010) INTEGER
 , "ARCHIVE"
  POSITION(  *)           BLOB
 )
---
LOAD DATA INDDN INP LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
            STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
 EBCDIC  CCSID(00500,00000,00000)
    SORTKEYS
    ENFORCE NO
    SORTDEVT DISK
    WORKDDN(TSYUTD,TSOUTD)
    MAPDDN TMAPD ERRDDN  TERRD
    IDENTITYOVERRIDE
 FORMAT SPANNED YES
 INTO TABLE
 "OA1$$$".
 "TKD337A1"
 WHEN(00001:00002) = X'0088'
 ( ID
  POSITION(  00003:00006) INTEGER
 , "COMMAND_TYPE"
  POSITION(  00008)       VARCHAR
                          NULLIF(00007)=X'FF'
 , "DSN_NULL_IND_00003" POSITION(  *)           CHAR(1)
 , "SENDER_ID"
  POSITION(  *)           VARCHAR
                          NULLIF(DSN_NULL_IND_00003)=X'FF'
 , "DSN_NULL_IND_00004" POSITION(  *)           CHAR(1)
 , "CLIENT_ID"
  POSITION(  *)           VARCHAR
                          NULLIF(DSN_NULL_IND_00004)=X'FF'
 , "DSN_NULL_IND_00005" POSITION(  *)           CHAR(1)
 , "TARGET"
  POSITION(  *)           VARCHAR
                          NULLIF(DSN_NULL_IND_00005)=X'FF'
 , "PAYLOAD"
  POSITION(  *)           CLOB
 )
 --
 LISTDEF LST INCLUDE TABLESPACE KD03$$$.* PARTLEVEL
 COPY LIST LST COPYDDN TCOPYD SCOPE PENDING
     PARALLEL SHRLEVEL CHANGE FULL YES