zOs/JCL/DB2UNLOC

//A540769V JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//*  UNLOAD COPY mit Konstante
//*                  Name muss eigenen Namen haben|
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBAF,'A540769V.UNLOAC'),
//   REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
     UNLOAD TABLESPACE DA540769.A953A
       FROM TABLE
     "A540769"."TWK953A1"
     ( "CONE"
      POSITION(  00003      ) CHAR(00011)
     , "CTWO"
      POSITION(  00014      ) CHAR(00002)
     , "CTHREE"
      POSITION(  00016      ) CHAR(00033)
     , CONE    CONSTANT 'abcDe'
     )
       PUNCHDDN TPUNCH UNLDDN TSRECD
         SHRLEVEL REFERENCE