zOs/JCL/BINPASND

//YBINPASN JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*********************************************************************
//*
//*  synchronize bind_parameters from RZ1 to RZ8
//*
//*  unload data from rz1 dboc tables
//*             OA1P.BIND_PARAMETERS
//*             OA1P.BIND_EXCEPTIONS
//*  to unload Files DSN.DBOC.BIND.* in RZ8
//*  and submit in RZ8 the job BINPARCV (from RZ1)
//*      which load replace these files into the tables in DP8G
//*
//*  Attention   BIND_##INFO##       is NOT loaded
//*              BIND_ENVIRONMENTS   is NOT loaded
//*       Job BINPARCV must be updated (in RZ1) after structure changes
//*
//*********************************************************************
//S2       EXEC  PGM=IEFBR14
//EXCUNL     DD DISP=(MOD,DELETE,DELETE),DSN=DSN.DBOC.BIND.EXC.UNL,
//             SUBSYS=(CSM,'SYSTEM=RZ8')
//PARUNL     DD DISP=(MOD,DELETE,DELETE),DSN=DSN.DBOC.BIND.PAR.UNL,
//             SUBSYS=(CSM,'SYSTEM=RZ8')
//S3       EXEC PGM=DSNUTILB,PARM=(DBOC,'YBINPASN.UNLOA')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//PARPUN   DD SYSOUT=*
//PARUNL   DD DISP=(NEW,CATLG,CATLG),DSN=DSN.DBOC.BIND.PAR.UNL,
//             MGMTCLAS=BAT#AT,
//             SUBSYS=(CSM,'SYSTEM=RZ8')
//EXCPUN   DD SYSOUT=*
//EXCUNL   DD DISP=(NEW,CATLG,CATLG),DSN=DSN.DBOC.BIND.EXC.UNL,
//             MGMTCLAS=BAT#AT,
//             SUBSYS=(CSM,'SYSTEM=RZ8')
//SYSIN DD *
     UNLOAD DATA FROM TABLE OA1P.BIND_PARAMETERS
       PUNCHDDN PARPUN UNLDDN PARUNL
         SHRLEVEL CHANGE
     UNLOAD DATA FROM TABLE OA1P.BIND_EXCEPTIONS
       PUNCHDDN EXCPUN UNLDDN EXCUNL
         SHRLEVEL CHANGE
//S4       EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DISP=SHR,DSN=A540769.WK.JCL(BINPARCV)
//SYSUT2   DD SUBSYS=(CSM,'SYSTEM=RZ8,SYSOUT=(A,INTRDR)')