zOs/TX/QBLOBLOA

//A540769W JOB (CP00,KE50),'DB2 ADMIN',                                 00010002
//         TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,                  00020004
//         MSGCLASS=T,NOTIFY=&SYSUID                                    00021002
//*
//***************************************************
//*  load trg=2: TS mit LOBs
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DP4G,'A540769V.UNLOAC'),
//   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 FLBUQVBQ
     DSN('DSN.TST.QLOBUNL.ABLOBORI.P00000.REC')
     DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN FLBUQVBQ LOG NO  RESUME NO REPLACE
    STATISTICS INDEX(ALL)
    SORTDEVT DISK
    WORKDDN(TSYUTD,TSOUTD)
 EBCDIC  CCSID(00500,00000,00000)
 FORMAT SPANNED YES
 INTO TABLE
 "QZ92CRT".
 "TQZ91QBLOGORI"
 NUMRECS                   21
 IGNOREFIELDS YES
 ( "NAME"
  POSITION(  00003:00018) CHAR(00016)
 , "TEXT"
  POSITION(  00019:00048) CHAR(00030)
 , "IX"
  POSITION(  00050:00053) INTEGER
                          NULLIF(00049)=X'FF'
 , "FEND"
  POSITION(  00054:00062) CHAR(00009)
 , "DSN_ROWID"
  POSITION(  00063)       ROWID
 , "DSN_NULL_IND_00006" POSITION(  *)           CHAR(1)
 , "LOB1"
  POSITION(  *)           CLOB
                          NULLIF(DSN_NULL_IND_00006)=X'FF'
 )
LISTDEF LST
    INCLUDE TABLESPACE QZ92A1T.ABLOBORI PARTLEVEL ALL
COPY LIST LST COPYDDN(TCOPYD)
    PARALLEL
    SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST LST
    INDEX ALL KEYCARD