//* ** CBLUPD01 *** ---------------------------------------------------
//*
//* * CBL.DIST.JCL(CBLUPD01) ***   L=003 --- 2008/05/12 11:57:28  (NBJ)
//*
//*
//*
//*
//*   L=003 2008/05/12 -nbj- IEC217I B14-04 warning.
//*   L=002 2008/04/21 -nbj- Unterse SDE sample data (VAR) library.
//*   L=001 2008/04/18 -nbj- Written for CBLi software update.
//*
//*
//*   1. UNTERSE the SDE Sample Data bundle.
//*   2. UNTERSE the CBLi update bundle.
//*   3. LOAD new/updated members to existing target install libraries.
//*
//*   This job allocates the following SDE sample data libraries:
//*
//*    &PREFIX..CBLI.SDE.SAMP.F80 - Sample COBOL Copy Books
//*                                        (RECFM=FB LRECL=80)
//*    &PREFIX..CBLI.SDE.SAMP.VAR - Sample Data Library
//*                                  (RECFM=VB  LRECL=16388)
//*
//*
//*   You must customise this job before running it:
//*
//*   -   Include the JOBCARD member and modify the job name.
//*
//*   -   Replace %rel% with the new CBLi release (e.g. 150) in
//*       INFILE and OUTFILE data sets in the UNTERSE3 job step,
//*       and SEQIN data set and @REP%rel%, ULCMX%rel%, ULEDT%rel%
//*       and ULHLP%rel% in the LOAD job step.
//*<           change all %rel%    150 .ZCSR .ZLAST
//*
//* -------------------------------------------------------------------
//*
//*
//UPDLIB    PROC
//*
//** UNTERSE1 - Executed for CBL software full install. See CBLINS01 **
//*
//** UNTERSE2 ***
//*  TRSMAIN 'UNPACK' to expand the SDE Sample data set
//*  to the &PREFIX..CBLI.SDE.SAMP.VAR library.
//*
//UNTERSE2  EXEC PGM=TRSMAIN,PARM='UNPACK'
//SYSPRINT  DD DISP=SHR,
//             DSN=&LSTLIB(UNTERSE2)
//INFILE    DD DISP=SHR,
//             DSN=&PACKED..SDEDATA
//OUTFILE   DD DISP=(NEW,CATLG,DELETE),
//             DSN=&PREFIX..CBLI.SDE.SAMP.VAR,
//             SPACE=(23476,(30,16,10),RLSE),
//             UNIT=&PERMDA,VOL=SER=&SMPVOL,
//             DCB=(DSORG=PO,RECFM=VB,LRECL=16388,BLKSIZE=23476)
//*
//*
//** UNTERSE3 ***
//*  TRSMAIN 'UNPACK' to expand the update bundle data set
//*  to the installation (IEBCOPY unload) data set.
//*
//UNTERSE3   EXEC PGM=TRSMAIN,PARM='UNPACK'
//SYSPRINT  DD DISP=SHR,
//             DSN=&LSTLIB(UNTERSE3)
//INFILE    DD DISP=SHR,
//             DSN=&PREFIX..PACK.CBLI%rel%     ** Change this **
//OUTFILE   DD DISP=(NEW,CATLG,DELETE),
//             DSN=&PREFIX..UNPK.CBLI%rel%,    ** Change this **
//             SPACE=(3620,(3510,200),RLSE),
//             UNIT=&PERMDA,VOL=SER=&SMPVOL,
//             DCB=(DSORG=PS,RECFM=VS,LRECL=32736,BLKSIZE=32740)
//*
//*
//** LOAD ***
//*  IEBCOPY to load members from the installation data set
//*  into installation libraries.
//*
//LOAD      EXEC PGM=IEBCOPY,REGION=0M
//*  DISP=MOD used for SYSPRINT because PDSMAN front-end to IEBCOPY
//*  re-opens SYSPRINT for each copy!
//*
//*  If this is not the first time this job is executed, then member
//*  &LSTLIB(LOAD2) may already exist and error IEC217I B14-04 occurs.
//*  If this is the case, either delete member LOAD2 or, if PDSMAN is
//*  not in use, change SYSPRINT disposition to DISP=SHR before
//*  re-running the job.
//*
//SYSPRINT  DD DISP=MOD,DSN=&LSTLIB(LOAD2)
//SEQIN     DD DISP=SHR,
//             DSN=&PREFIX..UNPK.CBLI%rel%     ** Change this **
//PDSTXT    DD DISP=SHR,DSN=&TXTLIB
//PDSJCL    DD DISP=SHR,DSN=&JCLLIB
//PDSSRC    DD DISP=SHR,DSN=&SRCLIB
//PDSOBJ    DD DISP=SHR,DSN=&OBJLIB
//PDSSAMPF  DD DISP=(NEW,CATLG,DELETE),
//             DSN=&PREFIX..CBLI.SDE.SAMP.F80,
//             DSNTYPE=&DSNTYPE,
//             SPACE=(3120,(15,10,1),RLSE),
//             UNIT=&PERMDA,VOL=SER=&SMPVOL,
//             DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=3120)
//            PEND
//*
//*
//*
//** EXEC UPDLIB PROC ***
//*
//STEP1  EXEC UPDLIB
//*
//LOAD.SYSIN     DD *
      COPY   OUTDD=PDSTXT,INDD=SEQIN,LIST=YES
      SELECT MEMBER=(@REP%rel%)

      COPY   OUTDD=PDSJCL,INDD=SEQIN,LIST=YES
      SELECT MEMBER=(CBLUPD02,                                         X
               CBLUPD03,                                               X
               CBLUPD04)

      COPY   OUTDD=PDSSRC,INDD=SEQIN,LIST=YES
      SELECT MEMBER=(ULCMX%rel%,                                       X
               ULEDT%rel%,                                             X
               ULHLP%rel%)

      COPY   OUTDD=PDSSAMPF,INDD=SEQIN,LIST=YES
      SELECT MEMBER=(COBSALES,                                         X
               COBTYPES)

      COPY   OUTDD=PDSOBJ,INDD=SEQIN,LIST=YES
      SELECT MEMBER=((APEEINIT,,R),                                    X
              (APEETERM,,R),                                           X
              (CBLAVARL,,R),                                           X
              (CBLAVCII,,R),                                           X
              (CBLDLL,,R),                                             X
              (CBLI,,R),                                               X
              (SDELIB,,R),                                             X
              (CBLVDUMP,,R),                                           X
              (CBLVIMSS,,R),                                           X
              (CBLVIMST,,R),                                           X
              (CBLVSQL0,,R),                                           X
              (CBLVSVC,,R),                                            X
              (CBLXREXX,,R))
/*
