zOs/SQL/EXLOBLOA

//A540769L JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//*  UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DP4G,'A540769L.LOAD'),
//   REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE INP
     DSN('DP4G.DA540769.EXLOBNTR.P00000.D140203.REC')
     DISP(OLD,KEEP,KEEP)
LISTDEF LST
    INCLUDE TABLESPACE DA540769.EXLOBNTR PARTLEVEL ALL
LOAD DATA LOG NO RESUME NO REPLACE
    SORTKEYS
    -- ENFORCE NO
    SORTDEVT DISK
    WORKDDN(TSYUTD,TSOUTD)
    INDDN INP
    EBCDIC  CCSID(00500,00000,00000)
    FORMAT SPANNED YES
    INTO TABLE
    "A540769".
    "EXLOBNTRIES"
    WHEN(00001:00002) = X'0027'
    NUMRECS                   11
    IGNOREFIELDS YES
    ( "BROKERUUID"
     POSITION(  00003:00018) CHAR(00016)
    , "ACCESSID"
     POSITION(  00019:00078) CHAR(00060)
    , "QOPLEVEL"
     POSITION(  00080:00081) CHAR(00002)
                             NULLIF(00079)=X'FF'
    , "PERMISSIONS"
     POSITION(  00083:00086) INTEGER
                             NULLIF(00082)=X'FF'
    , "PRINCIPAL"
     POSITION(  00087)       VARCHAR
    , "DSN_NULL_IND_00006" POSITION(  *)           CHAR(1)
    , "TOPIC"
     POSITION(  *)           BLOB
                             NULLIF(DSN_NULL_IND_00006)=X'FF'
    )
COPY LIST LST COPYDDN(TCOPYD)
    PARALLEL
    SHRLEVEL CHANGE
//*