zOs/JCL/BINPARCV

//A540769V JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//*********************************************************************
//*
//*  synchronize bind_parameters from RZ1 to RZ8
//*  this job is submitted by job BINPASND from RZ1 to RZ8
//*
//*  load data from unload Files DSN.DBOC.BIND.* in RZ8
//*      to RZ8 DP8G, tables
//*             OA1P.BIND_PARAMETERS
//*             OA1P.BIND_EXCEPTIONS
//*  Attention   BIND_##INFO##       is NOT loaded
//*              BIND_ENVIRONMENTS   is NOT loaded
//*        Job BINPARCV must be updated (in RZ1) after structure changes
//*
//*********************************************************************
//*  UNLOAD COPY
//***************************************************
//S3       EXEC PGM=DSNUTILB,PARM=(DP8G,'A540769V.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//PARUNL   DD DISP=SHR,DSN=DSN.DBOC.BIND.PAR.UNL
//EXCUNL   DD DISP=SHR,DSN=DSN.DBOC.BIND.EXC.UNL
//SYSTEMPL DD DISP=SHR,DSN=DP8G.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
LOAD DATA INDDN PARUNL LOG NO REPLACE COPYDDN(TCOPYD)
       STATISTICS INDEX(ALL) UPDATE ALL
       WORKDDN(TSYUTD,TSOUTD)
 EBCDIC  CCSID(00500,00000,00000)
 SORTKEYS                2475
 INTO TABLE "OA1P"."BIND_PARAMETERS"
 WHEN(00001:00002) = X'0011'
 ( "APPL"
  POSITION(  00003:00010) CHAR(00008)
 , "PGM"
  POSITION(  00011:00018) CHAR(00008)
 , "COLLID"
  POSITION(  00019:00036) CHAR(00018)
 , "INSTALLDATE"
  POSITION(  00037:00046) DATE EXTERNAL
 , "OWNER"
  POSITION(  00047:00054) CHAR(00008)
 , "QUALIFIER"
  POSITION(  00055:00062) CHAR(00008)
 , "ISOLATION"
  POSITION(  00063:00064) CHAR(00002)
 , "EXPLAIN"
  POSITION(  00065:00068) CHAR(00004)
 , "CURRENTDATA"
  POSITION(  00069:00072) CHAR(00004)
 , "RELEASE"
  POSITION(  00073:00084) CHAR(00012)
 , "DBPROTOCOL"
  POSITION(  00085:00092) CHAR(00008)
 , "DEGREE"
  POSITION(  00093:00096) CHAR(00004)
 , "DYNAMICRULES"
  POSITION(  00097:00108) CHAR(00012)
 , "KEEPDYNAMIC"
  POSITION(  00109:00112) CHAR(00004)
 , "REOPT"
  POSITION(  00113:00120) CHAR(00008)
 , "OPTHINT"
  POSITION(  00121:00128) CHAR(00008)
 , "IMMEDWRITE"
  POSITION(  00129:00132) CHAR(00004)
 , "FLAG"
  POSITION(  00133:00133) CHAR(00001)
 , "PATH"
  POSITION(  00134:00389) VARCHAR
 , "VALIDATE"
  POSITION(  00390:00393) CHAR(00004)
 , "SQLERROR"
  POSITION(  00394:00405) CHAR(00012)
 , "SQLRULES"
  POSITION(  00406:00417) CHAR(00012)
 , "DEFER"
  POSITION(  00418:00425) CHAR(00008)
 , "ENCODING"
  POSITION(  00426:00433) CHAR(00008)
 , "ROUNDING"
  POSITION(  00434:00445) CHAR(00012)
 , "CREATEDTS"
  POSITION(  00446:00471) TIMESTAMP EXTERNAL
 , "ALTEREDTS"
  POSITION(  00472:00497) TIMESTAMP EXTERNAL
 , "ALTEREDBY"
  POSITION(  00498:00505) CHAR(00008)
 )

 LOAD DATA INDDN EXCUNL LOG NO REPLACE COPYDDN(TCOPYD)
       STATISTICS INDEX(ALL) UPDATE ALL
       WORKDDN(TSYUTD,TSOUTD)
  EBCDIC  CCSID(00500,00000,00000)
  SORTKEYS                 192
  INTO TABLE "OA1P"."BIND_EXCEPTIONS"
  WHEN(00001:00002) = X'0024'
  ( "APPL"
   POSITION(  00003:00010) CHAR(00008)
  , "PGM"
   POSITION(  00011:00018) CHAR(00008)
  , "COLLID"
   POSITION(  00019:00036) CHAR(00018)
  , "INSTALLDATE"
   POSITION(  00037:00046) DATE EXTERNAL
  , "LOCATION"
   POSITION(  00047:00062) CHAR(00016)
  , "SSID"
   POSITION(  00063:00070) CHAR(00008)
  , "QUALIFIER"
   POSITION(  00071:00078) CHAR(00008)
  , "CREATEDTS"
   POSITION(  00079:00104) TIMESTAMP EXTERNAL
  , "ALTEREDTS"
   POSITION(  00105:00130) TIMESTAMP EXTERNAL
  , "ALTEREDBY"
   POSITION(  00131:00138) CHAR(00008)
  )