zOs/JCL/CSQUNLLO

//A540769V JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=LOG0
//*
//***************************************************
//*  UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DP2G,'A540769.UNLOAC'),
//   REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DP2G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
UNLOAD DATA
  PUNCHDDN TPUNCH UNLDDN TSRECD SPANNED YES
    SHRLEVEL CHANGE
  FROM TABLE CSQ.ADMIN_B_MESSAGES
(
  LEID CHAR
, QSGNAME CHAR
, SEGMENTNUM SMALLINT
, MROWID ROWID
, STRUCNUM SMALLINT
, LHNUMBER SMALLINT
, MVERSION INTEGER
, BASEPART CHAR
, DELCOMMIT CHAR
, RECON_STAMP CHAR
, PERSISTENT CHAR
, MSG_STAMP CHAR
, MESSAGE BLOB
)