16.11.
2016

[◀ JCL Batch Jobs]
see „EXPORT statement“
http://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieab600/expost.htm
see „Using symbols in JES2 in-stream data“
http://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieab600/jclsymstr.htm

Example [▲ Top]

//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//      EXPORT SYMLIST=(DSOLD,DSNEW)
//         SET DSOLD=DSNB100
//         SET DSNEW=DSNB101
//*
//ALLOC   EXEC PGM=IDCAMS,DYNAMNBR=1
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *,SYMBOLS=EXECSYS
  DELETE ('hlq.&DSNEW..abc') NONVSAM PURGE
  IF MAXCC LE 8 THEN DO
     SET MAXCC = 0
  END

  ALLOC                                                    -
     DSNAME('hlq.&DSNEW..abc')                             -
     NEW REUSE CATALOG                                     -
     LIKE('hlq.&DSOLD..abc')
/*
//*
//DBRM1   EXEC PGM=IEBCOPY,COND=(4000,LT)
//SYSPRINT DD  SYSOUT=*
//SYSUT3   DD  UNIT=SYSALLDA,SPACE=(TRK,(30,5))
//SYSUT4   DD  UNIT=SYSALLDA,SPACE=(TRK,(30,5))
//IN0001   DD  DISP=SHR,DSN=hlq.&DSOLD..abc
//OUT0001  DD  DISP=SHR,DSN=hlq.&DSNEW..abc
//SYSIN    DD  *
  COPY INDD=IN0001,OUTDD=OUT0001
       EXCLUDE MEMBER=(MEMBER1,MEMBER9)
/*

Kein Kommentar

Kommentieren

Dein Kommentar

Wir benutzen Cookies um die Nutzerfreundlichkeit der Webseite zu verbessen. Durch Deinen Besuch stimmst Du dem zu.