zOs/TX/QBLOBUNL

//A540769W JOB (CP00,KE50),'DB2 ADMIN',                                 00010002
//         TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,                  00020004
//         MSGCLASS=T,NOTIFY=&SYSUID                                    00021002
//*
//***************************************************
//*  unload trg 2
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DP4G,'A540769V.UNLOAC'),
//   REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TREC     -- UNLDDN FUER UNLOAD
    DSN('DSN.TST.QLOBUNL.&SN..P&PART..REC')
    DATACLAS(ENN35) MGMTCLAS(COM#A041)
    SPACE TRK MAXPRIME 600
TEMPLATE TPUN      -- PUNCHDDN FUER REORG UNLOAD
    DSN('DSN.TST.QLOBUNL.&SN..PUN')
    DATACLAS(NULL8) MGMTCLAS(COM#A041)
    SPACE(1,10) TRK
  UNLOAD FROM TABLE QZ92CRT.TQZ91QBLOGORI
    ( NAME CHAR
    , TEXT CHAR
    , IX INTEGER
    , FEND CHAR
    , DB2_GENERATED_ROWID_FOR_LOBS ROWID
    , LOB1 CLOB
    )
    PUNCHDDN TPUN   UNLDDN TREC
    MAXERR 20
    SPANNED YES
    SHRLEVEL CHANGE