DB2 z/OS   DB2 LUW
z/OS CICS VTAM

z/OS Info

 Home


Diese Seite ist in Bearbeitung


//*--------------------------------------------------------------------
//*  ACCEPT ALL INSTALLABLE PTFS
//*  FOR THE SMP-ACCEPT RUN PLEASE REMOVE THE 'CHECK' PARAMETER
//*---------------------------------------------------------------------
//ALLPTFS  EXEC PGM=GIMSMP,TIME=1440,
//         COND=(0,NE),REGION=0M
//SMPCSI   DD DISP=SHR,DSN=DSN1.SMPE.GLOBAL.CSI
//SMPCNTL  DD *
  SET BDY(DSN1DZ) .
  ACCEPT
  CHECK
  GROUPEXTEND
  BYPASS(HOLDSYS)
  COMPRESS(ALL)
  .
/*

//*********************************************************************
//*
//* FILE TAILORING MEMBER NAMES = GIMISCGA, GIMISCGB, GIMISCGE,
//*                     GIMISCGG, GIMISCGM, GIMISCGS, GIMISCGZ
//* JCL TAILORED BY FUNCTION = GIMISCG
//* JCL DESCRIPTION = PERFORM APPLY CHECK, APPLY, ACCEPT CHECK OR
//*                     ACCEPT PROCESSING
//*
//*********************************************************************
//S1       EXEC PGM=GIMSMP,
//         PARM='PROCESS=WAIT',
//         DYNAMNBR=120
//*
//* NOTE:      SMP ZONE-RELATED FILES ARE DYNAMICALLY ALLOCATED,
//*            THIS INCLUDES THE SMPPTS, SMPLOG, AND SMPTLIB DATA SETS.
//*
//* SMP FILES
//*
//* SMPCSI   DD DISP=SHR,DSN='DSN1.SMPE.GLOBAL.CSI'
//SMPCSI   DD DISP=SHR,DSN='DSN4.SMPE.CSI'
//*
//*
//* SMPWRK3  DD DSN=<YourUserID>.SMPWRK3.T0909011.D03356.OBJ,
//*            UNIT=SYSDA,
//*            SPACE=(3120,(0364,0380,500)),
//*            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPCNTL  DD *
  SET     BOUNDARY ( DSN4TZ )
          .
  APPLY   CHECK
          GROUP
          SELECT   ( UQ75322
                     UQ77920
                     )
   /*     BYPASS   (
                     HOLDSYSTEM (
                                  ACTION
                                  DB2BIND
                                  DEP
                                  DOC
                                  IPL
                                  AO
                                  DELETE
                                  )
                     )                          */
          NOJCLINREPORT
          .
/*

//*********************************************************************
//*
//* FILE TAILORING MEMBER NAMES = GIMISCGA, GIMISCGB, GIMISCGE,
//*                     GIMISCGG, GIMISCGM, GIMISCGS, GIMISCGZ
//* JCL TAILORED BY FUNCTION = GIMISCG
//* JCL DESCRIPTION = PERFORM APPLY CHECK, APPLY, ACCEPT CHECK OR
//*                     ACCEPT PROCESSING
//*
//*********************************************************************
//S1       EXEC PGM=GIMSMP,
//         PARM='PROCESS=WAIT',
//         DYNAMNBR=120
//*
//* NOTE:      SMP ZONE-RELATED FILES ARE DYNAMICALLY ALLOCATED,
//*            THIS INCLUDES THE SMPPTS, SMPLOG, AND SMPTLIB DATA SETS.
//*
//* SMP FILES
//*
//* SMPCSI   DD DISP=SHR,DSN='DSN1.SMPE.GLOBAL.CSI'
//SMPCSI   DD DISP=SHR,DSN='DSN3.SMPE.CSI'
//*
//*
//* SMPWRK3  DD DSN=<YourUserID>.SMPWRK3.T0909011.D03356.OBJ,
//*            UNIT=SYSDA,
//*            SPACE=(3120,(0364,0380,500)),
//*            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPCNTL  DD *
  SET     BOUNDARY ( DSN3TZ )
          .
  APPLY   CHECK
          GROUP
          SELECT   (
                     UQ75322
                     )
   /*     BYPASS   (
                     HOLDSYSTEM (
                                  ACTION
                                  DB2BIND
                                  DEP
                                  DOC
                                  IPL
                                  AO
                                  DELETE
                                  )
                     )                          */
          NOJCLINREPORT
          .

/*

//*STEP1   EXEC PGM=IEHINITT
//*SYSPRINT  DD SYSOUT=*
//*LABEL     DD UNIT=(TAPE,1,DEFER)
//*SYSIN     DD *
/* LABEL    INITT SER=DB2CSI,NUMBTAPE=1,DISP=UNLOAD
/*
//STEP2   EXEC PGM=IEBGENER
//SYSPRINT  DD SYSOUT=*
//SYSUT2    DD DSN=SSMC.FUTURE.DATA,LABEL=(1,SL,EXPDT=98000),
//             UNIT=TAPE,DISP=SHR,VOL=(,RETAIN,,,SER=DB2CSI),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=7200)
//SYSIN     DD DUMMY
//SYSUT1    DD *
THIS FILE IS RESERVED FOR FUTURE USE
/*
//STEP3   EXEC PGM=GIMSMP,REGION=0M,COND=((4,LT,STEP2))
//*
//*
//SMPCSI    DD DISP=SHR,DSN=DSN1.SMPE.GLOBAL.CSI
//*
//SYSPRINT  DD SYSOUT=A
//*
//EXPORT1   DD DSN=DSN1.SMPE.CSI,LABEL=(2,SL,EXPDT=98000),
//             UNIT=TAPE,DISP=NEW,VOL=(,RETAIN,,,SER=DB2CSI),
//             DCB=(RECFM=VB,LRECL=19000,BLKSIZE=32500)
//EXPORT2   DD DSN=DSN1.SMPE.CSI,LABEL=(3,SL,EXPDT=98000),
//             UNIT=TAPE,DISP=NEW,VOL=(,RETAIN,,,SER=DB2CSI),
//             DCB=(RECFM=VB,LRECL=19000,BLKSIZE=32500)
//EXPORT3   DD DSN=DSN1.SMPE.CSI,LABEL=(4,SL,EXPDT=98000),
//             UNIT=TAPE,DISP=NEW,VOL=(,RETAIN,,,SER=DB2CSI),
//             DCB=(RECFM=VB,LRECL=19000,BLKSIZE=32500)
//SMPCNTL   DD *
  SET BDY(GLOBAL) .
  ZONEEXPORT(GLOBAL) OUTFILE(EXPORT1) .
  RESETRC .
  SET BDY(DSN1TZ).
  ZONEEXPORT(DSN1TZ) OUTFILE(EXPORT2) .
  RESETRC .
  SET BDY(DSN1DZ).
  ZONEEXPORT(DSN1DZ) OUTFILE(EXPORT3) .
/*


//LIST     EXEC PGM=GIMSMP,TIME=1440
//SMPCSI   DD DISP=SHR,DSN=DSN4.SMPE.CSI
//*        DD DISP=SHR,DSN=DSN3.SMPE.CSI
//SMPCNTL  DD  *
SET      BDY(DSN4TZ)     .  /* SET TO TARGET ZONE TGT1. */
LIST     SYSMODS            /* LIST THE SYSMODS         */
                            /* IN ZONE TGT1             */
         NOAPPLY(DSN3TZ) .  /* THAT HAVE NOT BEEN       */
                            /* APPLIED TO TGT2.         */
SET      BDY(DSN3TZ)     .  /* SET TO TARGET ZONE TGT2. */
LIST     SYSMODS            /* LIST THE SYSMODS         */
                            /* IN ZONE TGT2             */
         NOAPPLY(DSN4TZ) .  /* THAT HAVE NOT BEEN       */
                            /* APPLIED TO TGT1.         */
                            /*                          */
/*


//*
//*--------------------------------------------------------------------
//*  DOC: JOB TO ACCEPT ALL SYSMODS USING MEMBER ALLPTFS
//*       FROM THE DSN2.DF019556.SMPCNTL DATA SET
//*
//*       REMOVE THE CHECK PARAMETER AFTER SUCCESSFUL RUN OF THE ACCEPT
//*       CHECK
//*---------------------------------------------------------------------
//ALLPTFS  EXEC PGM=GIMSMP,TIME=1440,
//         COND=(0,NE),REGION=0M
//SMPCSI   DD DSN=DSN2.SMP.GLOBAL.CSI,
//         DISP=SHR
//SYSUT1   DD UNIT=3380,SPACE=(3120,(0580,0760))
//SYSUT2   DD UNIT=3380,SPACE=(3120,(0580,0760))
//SYSUT3   DD UNIT=3380,SPACE=(3120,(0580,0760))
//SYSUT4   DD UNIT=3380,SPACE=(3120,(0100,0100)),
//            DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//SMPWRK1  DD UNIT=3380,
//            SPACE=(CYL,(25,15,1000)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPWRK2  DD UNIT=3380,
//            SPACE=(CYL,(15,15,1000)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPWRK3  DD UNIT=3380,
//            SPACE=(CYL,(50,15,2000)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPWRK4  DD UNIT=3380,
//            SPACE=(CYL,(15,15,1000)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPWRK5  DD UNIT=3380,
//            SPACE=(CYL,(15,15,1000)),
//            DCB=(RECFM=U,BLKSIZE=6144)
//SMPWRK6  DD UNIT=3380,
//            SPACE=(CYL,(15,15,1000)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPOUT   DD SYSOUT=*
//SMPLOG   DD SYSOUT=*
//SMPLOGA  DD SYSOUT=*
//SMPRPT   DD SYSOUT=*
//SMPLIST  DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SMPCNTL  DD *
   SET BDY(DSN2DL1).
     ACCEPT BYPASS(HOLDSYS,APPLYCHECK) COMPRESS(ALL) GROUPEXTEND
//        DD DSN=DSN2.DF019556.SMPCNTL(RECPTFS),
//        DISP=SHR
/*



//*
//*--------------------------------------------------------------------
//*  DOC: JOB TO APPLY ALL SYSMODS USING MEMBER RECPTFS FROM THE
//*       CUSTNAME.DF019556.SMPCNTL DATA SET.
//*---------------------------------------------------------------------
//APPLY    EXEC PGM=GIMSMP,TIME=1440,
//         COND=(0,NE),REGION=0M
//SMPCSI   DD DSN=DSN2.SMP.GLOBAL.CSI,
//         DISP=SHR
//SYSUT1   DD UNIT=3380,SPACE=(3120,(0580,0760))
//SYSUT2   DD UNIT=3380,SPACE=(3120,(0580,0760))
//SYSUT3   DD UNIT=3380,SPACE=(3120,(0580,0760))
//SYSUT4   DD UNIT=3380,SPACE=(3120,(0100,0100)),
//            DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//SMPWRK1  DD UNIT=3380,
//            SPACE=(3120,(2000,0380,500)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPWRK2  DD UNIT=3380,
//            SPACE=(3120,(0564,0380,500)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPWRK3  DD UNIT=3380,
//            SPACE=(3120,(4000,4000,2000)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPWRK4  DD UNIT=3380,
//            SPACE=(3120,(0564,0380,500)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPWRK5  DD UNIT=3380,
//            SPACE=(6144,(0383,0380,500)),
//            DCB=(RECFM=U,BLKSIZE=6144)
//SMPWRK6  DD UNIT=3380,
//            SPACE=(3120,(0364,0380,111)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPOUT   DD SYSOUT=*
//SMPLOG   DD SYSOUT=*
//SMPLOGA  DD SYSOUT=*
//SMPRPT   DD SYSOUT=*
//SMPLIST  DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SMPCNTL  DD *
   SET BDY(DSN2TZ1).
     APPLY BYPASS(HOLDSYS) REDO
//         DD DSN=DSN2.DF019556.CRMO2.SMPCNTL(RECPTFS),
//            DISP=SHR
/*



//*
//*
//* IN CASE THIS RECEIVE JOB SHOULD ABEND WITH RETURN CODE OF 08
//* AND A DADSM RETURN CODE OF 4714, IT MIGHT BE POSSIBLE THAT
//* YOU DO NOT HAVE ENOUGH SPACE ON THE VOLUME WHICH IS TO CONTAIN
//* THE FUNCTIONS IN RELFILE-FORMAT.
//*
//* IN SUCH A CASE, YOU HAVE TO ADD AN ADDITIONAL VOLSER IN THE
//* SMPTLIB DDDEF STATEMENT IN THE APPROPRIATE GLOBAL CSI
//*
//*
//*---------------------------------------------------------------------
//*  DOC: THIS JOB RECEIVES THE HOLD AND INSTALLABLE PTFS
//*       FROM THE SERVICE TAPE
//*---------------------------------------------------------------------
//RECPTFS  EXEC PGM=GIMSMP,COND=(0,NE),REGION=0M
//SMPLOG   DD SYSOUT=*
//SMPLOGA  DD SYSOUT=*
//SMPCSI   DD DSN=DSN2.SMP.GLOBAL.CSI,
//            DISP=SHR
//SYSUT1   DD SPACE=(CYL,(5,1,8)),UNIT=VIO
//SYSUT2   DD SPACE=(CYL,(5,1,8)),UNIT=VIO
//SYSUT3   DD SPACE=(CYL,(5,1,8)),UNIT=VIO
//SYSUT4   DD SPACE=(CYL,(5,1,8)),UNIT=VIO
//SMPWRK1  DD SPACE=(CYL,(5,1,8)),UNIT=VIO
//SMPWRK2  DD SPACE=(CYL,(5,1,8)),UNIT=VIO
//SMPWRK3  DD SPACE=(CYL,(5,1,8)),UNIT=VIO
//SMPWRK4  DD SPACE=(CYL,(5,1,8)),UNIT=VIO
//SMPWRK5  DD SPACE=(CYL,(5,1,8)),UNIT=VIO
//SMPWRK6  DD SPACE=(CYL,(5,1,8)),UNIT=VIO
//SMPOUT   DD SYSOUT=*
//SMPRPT   DD SYSOUT=*
//SMPLIST  DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SMPHOLD  DD DSN=SYS1.DF019556.HOLDATA,
//            DISP=SHR,
//            VOL=(,RETAIN,,,SER=R9556A),
//            LABEL=(4,SL),UNIT=CART
//SMPPTFIN DD DSN=SYS1.DF019556.PTF,DISP=SHR,
//       VOL=(,RETAIN,,,SER=R9556A),
//       LABEL=(10,SL),UNIT=CART
//SMPCNTL  DD  *
 SET BDY (GLOBAL).
 RECEIVE HOLDDATA.
 RECEIVE BYPASS(FMID) SYSMODS
//         DD DSN=DSN2.DF019556.CRMO2.SMPCNTL(RECPTFS),
//            DISP=SHR
/*



//*--------------------------------------------------------------------
//*  DOC: REJECT ALL PRODUCTS AND SYSMODS TO DELETE ALL TEMPORARY
//*       DATASETS AND GLOBALZONE ENTRIES CREATED DURING PACKAGE
//*       INSTALLATION.
//*---------------------------------------------------------------------
//REJECT   EXEC PGM=GIMSMP,COND=(0,NE),REGION=0M
//SMPCSI   DD DSN=DSN2.SMP.GLOBAL.CSI,DISP=SHR
//SYSUT1   DD UNIT=3380,SPACE=(3120,(0380,0760))
//SYSUT2   DD UNIT=3380,SPACE=(3120,(0380,0760))
//SYSUT3   DD UNIT=3380,SPACE=(3120,(0380,0760))
//SYSUT4   DD UNIT=3380,SPACE=(3120,(0038,0100)),
//            DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//SMPWRK1  DD UNIT=3380,
//            SPACE=(3120,(0364,0380,500)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPWRK2  DD UNIT=3380,
//            SPACE=(3120,(0364,0380,500)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPWRK3  DD UNIT=3380,
//            SPACE=(3120,(0364,0380,500)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPWRK4  DD UNIT=3380,
//            SPACE=(3120,(0364,0380,500)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPWRK5  DD UNIT=3380,
//            SPACE=(6144,(0183,0380,500)),
//            DCB=(RECFM=U,BLKSIZE=6144)
//SMPWRK6  DD UNIT=3380,
//            SPACE=(3120,(0364,0380,111)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPOUT   DD SYSOUT=*
//SMPRPT   DD SYSOUT=*
//SMPLIST  DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SMPCNTL  DD *
   SET BDY(DSN2TZ1).
   CLEANUP C(ALL).
   RESETRC.
   SET BDY(GLOBAL).
     REJECT BYPASS(APPLYCHECK,ACCEPTCHECK) COMPRESS(ALL)
//         DD DISP=SHR,
//            DSN=DSN2.DF019556.SMPCNTL(DSN2TZ1)
/*


//*--------------------------------------------------------------------
//*  ACCEPT ALL INSTALLABLE PTFS
//*
//*  FOR THE SMP-ACCEPT RUN PLEASE REMOVE THE 'CHECK' PARAMETER
//*---------------------------------------------------------------------
//ALLPTFS  EXEC PGM=GIMSMP,TIME=1440,
//         COND=(0,NE),REGION=0M
//* SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//SMPCSI   DD DISP=SHR,DSN=DSN1.SMPE.CLOBAL.CSI
//SMPCNTL  DD *
  SET BDY(DSN1DZ) .
  ACCEPT CHECK
  BYPASS(HOLDSYS)
  COMPRESS(ALL)
  .
/*



//*--------------------------------------------------------------------
//*  ACCEPT ALL INSTALLABLE PTFS
//*
//*  FOR THE SMP-ACCEPT RUN PLEASE REMOVE THE 'CHECK' PARAMETER
//*---------------------------------------------------------------------
//ALLPTFS  EXEC PGM=GIMSMP,TIME=1440,
//         COND=(0,NE),REGION=6500K
//SMPCSI   DD DISP=SHR,DSN=DSN1.SMPE.GLOBAL.CSI
//SMPCNTL  DD *
  SET BDY(DSN1DZ) .
  ACCEPT CHECK
  BYPASS(HOLDSYS)
  COMPRESS(ALL)
  .
/*


//*--------------------------------------------------------------------
//*  APPLY CHECK OF INSTALLABLE PTFS
//*
//*  FOR THE SMP APPLY RUN PLEASE REMOVE THE 'CHECK' PARAMETER
//*---------------------------------------------------------------------
//APPLY    EXEC PGM=GIMSMP,TIME=1440,REGION=0M
//SMPCSI   DD DISP=SHR,DSN=DSN1.SMPE.GLOBAL.CSI
//SMPCNTL  DD *
  SET BDY(DSN1TZ) .
  APPLY CHECK
  GROUPEXTEND
  BYPASS(HOLDSYSTEM)
  COMPRESS(ALL)
  .
/*


//* LIST PTF APP AND NOT ACC
//LIST     EXEC PGM=GIMSMP,REGION=6000K
//SMPCSI   DD  DISP=SHR,DSN=SMPE.GLOBAL.CSI
//*
//SMPLOG   DD  DUMMY
//SMPCNTL  DD  *
 SET BDY (GLOBAL).
 LIST SYSMODS NOACCEPT(MVSD100)   .
/*


//LIST     EXEC PGM=GIMSMP,REGION=6000K
//SMPCSI   DD  DISP=SHR,DSN=DSN1.SMPE.GLOBAL.CSI
//*
//SMPLOG   DD  DUMMY
//SMPCNTL  DD  *
 SET BDY (GLOBAL).
 LIST SYSMODS NOAPPLY(DSN1TZ)   .
/*


//LIST     EXEC PGM=GIMSMP,REGION=6000K
//SMPCSI   DD  DISP=SHR,DSN=DSN4.SMPE.CSI
//*
//SMPLOG   DD  DUMMY
//SMPCNTL  DD  *
 SET BDY (GLOBAL) .
 LIST DDDEF .
 SET BDY (DSN4TZ) .
 LIST DDDEF .
 SET BDY (DSN4DZ) .
 LIST DDDEF .
/*



//RECEIVE  EXEC PGM=GIMSMP,REGION=6000K
//SMPCSI   DD  DISP=SHR,DSN=DSN1.SMPE.GLOBAL.CSI
//SMPPTFIN DD  DSN=<YourUserID>.USER.CNTL(AQ41416),DISP=SHR
//SMPLOG   DD  DUMMY
//SMPHOLD  DD  DUMMY
//SMPCNTL  DD  *
 SET BDY (GLOBAL) .
 RECEIVE .
/*


//*--------------------------------------------------------------------
//*  DOC: REJECT ALLE DIE RECEIVED UND NICHT ACCEPTET SIND
//*---------------------------------------------------------------------
//REJECT EXEC PGM=GIMSMP,TIME=1440,
//         COND=(0,NE),REGION=6500K
//SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//SMPCNTL  DD *
   SET BDY(DSN2TZ) .
   CLEANUP C(ALL).
   RESETRC.
   SET BDY(GLOBAL).
   REJECT
   COMPRESS(ALL) .
/*




//*--------------------------------------------------------------------
//*  DOC: REJECT ALL ACCEPTET PTF
//*---------------------------------------------------------------------
//REJECT EXEC PGM=GIMSMP,TIME=1440,
//         COND=(0,NE),REGION=6500K
//SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//SMPCNTL  DD *
   SET BDY(DSN2TZ) .
   CLEANUP C(ALL).
   RESETRC.
   SET BDY(GLOBAL).
   REJECT PURGE(DSN2DZ)
   COMPRESS(ALL)
   .
/*



//*--------------------------------------------------------------------
//*  DOC: REJECT ALL PRODUCTS AND SYSMODS TO DELETE ALL TEMPORARY
//*       DATASETS AND GLOBALZONE ENTRIES CREATED DURING PACKAGE
//*       INSTALLATION.
//*---------------------------------------------------------------------
//REJECT EXEC PGM=GIMSMP,TIME=1440,
//         COND=(0,NE),REGION=6500K
//SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//SMPCNTL  DD *
   SET BDY(DSN2TZ) .
   CLEANUP C(ALL).
   RESETRC.
   SET BDY(GLOBAL).
//      DD  *
   REJECT
   BYPASS(APPLYCHECK,ACCEPTCHECK)
   COMPRESS(ALL)
//      DD DISP=SHR,DSN=INSTALL.T3051045.SMPCNTL(ZZR10001)
/*


//ALLPTFS  EXEC PGM=GIMSMP,TIME=1440,COND=(0,NE),REGION=8M
//SMPCSI   DD DISP=SHR,DSN=DSN1.SMPE.GLOBAL.CSI
//SMPOUT   DD SYSOUT=*
//SMPLOG   DD SYSOUT=*
//SMPLOGA  DD SYSOUT=*
//SMPRPT   DD SYSOUT=*
//SMPLIST  DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SMPCNTL  DD *
//         DD *
  SET BDY(DSN1DZ) .
//         DD *
  ACCEPT CHECK BYPASS(HOLDSYS) COMPRESS(ALL)
//    DD DISP=SHR,
//       DSN=INSTALL.T4052780.SMPCNTL(ZZN30001)
/*


//APPLY    EXEC PGM=GIMSMP,TIME=1440,COND=(0,NE),REGION=8M
//SMPCSI   DD DISP=SHR,DSN=DSN1.SMPE.GLOBAL.CSI
//SMPOUT   DD SYSOUT=*
//SMPLOG   DD SYSOUT=*
//SMPLOGA  DD SYSOUT=*
//SMPRPT   DD SYSOUT=*
//SMPLIST  DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SMPCNTL  DD *
//         DD *
  SET BDY(DSN1TZ) .
  APPLY
  SELECT(
 UQ43229 UQ43667 UQ43986 UQ44271 UQ44934 UQ45556 UQ45656 UQ45723 UQ45740
 UQ45790 UQ45863 UQ45865 UQ45885 UQ45891 UQ45899 UQ45929 UQ45942 UQ45993
 UQ46015 UQ46052 UQ46072 UQ46189 UQ46268 UQ46299 UQ46302 UQ46501 UQ46633
 UQ46913
       )
  BYPASS(HOLDSYS)
  COMPRESS(ALL)
  GROUPEXTEND
 .

/*


//*---------------------------------------------------------------------
//*  DOC: THIS JOB RECEIVES THE INSTALLABLE PTFS FROM THE SERVICE TAPE
//*---------------------------------------------------------------------
//RECPTFS  EXEC PGM=GIMSMP,COND=(0,NE),REGION=8M
//SMPLOG   DD SYSOUT=*
//SMPLOGA  DD SYSOUT=*
//SMPCSI   DD DISP=SHR,DSN=DSN1.SMPE.GLOBAL.CSI
//SMPHOLD  DD DSN=SYS1.DF052780.HOLDATA,
//            DISP=SHR,
//            VOL=(,RETAIN,,,SER=R2780C),
//            LABEL=(9,SL),UNIT=TAPE
//SMPPTFIN DD DSN=SYS1.DF052780.PTF,
//            DISP=SHR,
//            VOL=(,RETAIN,,,SER=(R2780C)),
//            LABEL=(35,SL),UNIT=TAPE
//SMPCNTL  DD *
 SET BDY (GLOBAL).
 RECEIVE HOLDDATA.
//      DD  *
   RECEIVE BYPASS(FMID) SYSMODS SOURCEID(DF2780T)
//      DD DISP=SHR,
//      DSN=INSTALL.T4052780.SMPCNTL(ZZR30001)
/*



//ALLPTFS  EXEC PGM=GIMSMP,TIME=1440,
//         COND=(0,NE),REGION=8M
//SMPCSI   DD DISP=SHR,DSN=DSN1.SMPE.GLOBAL.CSI
//*SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//*SMPCSI   DD DISP=SHR,DSN=DSN3.SMPE.CSI
//*SMPCSI   DD DISP=SHR,DSN=DSN4.SMPE.CSI
//SMPOUT   DD SYSOUT=*
//SMPLOG   DD SYSOUT=*
//SMPLOGA  DD SYSOUT=*
//SMPRPT   DD SYSOUT=*
//SMPLIST  DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SMPCNTL  DD *
//         DD *
  SET BDY(DSN1DZ) .
//         DD *
  ACCEPT CHECK BYPASS(HOLDSYS) COMPRESS(ALL)
//    DD DISP=SHR,
//       DSN=INSTALL.T2052780.SMPCNTL(ZZN30001)
/*



//APPLY    EXEC PGM=GIMSMP,TIME=1440,
//         COND=(0,NE),REGION=8M
//SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI,
//SMPCNTL  DD *
//         DD *
  SET BDY(DSN2TZ) .
//         DD *
  APPLY CHECK BYPASS(HOLDSYS) COMPRESS(ALL)
//    DD DISP=SHR,
//       DSN=INSTALL.T2052780.SMPCNTL(ZZN30001)
/*



//*---------------------------------------------------------------------
//*  DOC: THIS JOB RECEIVES THE INSTALLABLE PTFS FROM THE SERVICE TAPE
//*---------------------------------------------------------------------
//RECPTFS  EXEC PGM=GIMSMP,REGION=8M
//SMPLOG   DD SYSOUT=*
//SMPLOGA  DD SYSOUT=*
//SMPCSI   DD DSN=DSN2.SMPE.CSI,
//            DISP=SHR
//SMPHOLD  DD DSN=SYS1.DF052780.HOLDATA,
//            DISP=SHR,
//            VOL=(,RETAIN,,,SER=R2780B),
//            LABEL=(9,SL),UNIT=TAPE
//SMPPTFIN DD DSN=SYS1.DF052780.PTF,
//            DISP=SHR,
//            VOL=(,RETAIN,,,SER=(R2780B)),
//            LABEL=(35,SL),UNIT=TAPE
//SMPCNTL  DD *
 SET BDY (GLOBAL).
 RECEIVE HOLDDATA.
//      DD  *
   RECEIVE BYPASS(FMID) SYSMODS SOURCEID(DF2780T)
//      DD DISP=SHR,
//      DSN=INSTALL.T2052780.SMPCNTL(ZZR30001)
/*



//*
//STEP03   EXEC PGM=GIMSMP
//*
//SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//*
//SMPLOG   DD  SYSOUT=*
//SMPCNTL  DD  *
   SET BDY(DSN2TZ) .
     UCLIN .
       REP DDDEF(SDSNEXIT)
           DA(DSN2.SDSNEXIT)
           SHR .
       REP DDDEF(SDSNLINK)
           DA(DSN2.SDSNLINK)
           SHR .
 ADESDB2I  DATASET         = DSN2.DSN710.ADESDB2I
           SHR
 ADESHFS1  DATASET         = DSN2.DSN710.ADESHFS1
           SHR
 ADESMOD1  DATASET         = DSN2.DSN710.ADESMOD1
           SHR
 ADMBDBRM  DATASET         = DSN2.DSN710.ADMBDBRM
           SHR
 ADMBEXP   DATASET         = DSN2.DSN710.ADMBEXP
           SHR
 ADMBEXP2  DATASET         = DSN2.DSN710.ADMBEXP2
           SHR
 ADMBLOAD  DATASET         = DSN2.DSN710.ADMBLOAD
           SHR
 ADMBLOA2  DATASET         = DSN2.DSN710.ADMBLOA2
           SHR
 ADMBMACS  DATASET         = DSN2.DSN710.ADMBMACS
           SHR
 ADMBMAC2  DATASET         = DSN2.DSN710.ADMBMAC2
           SHR
 ADMBSAMP  DATASET         = DSN2.DSN710.ADMBSAMP
           SHR
 ADMBSMP   DATASET         = DSN2.DSN710.ADMBSMP
           SHR
 ADMBSMPC  DATASET         = DSN2.DSN710.ADMBSMPC
           SHR
 ADMBSMPH  DATASET         = DSN2.DSN710.ADMBSMPH
           SHR
 ADSNBASE  DATASET         = DSN2.DSN710.ADSNBASE
           SHR
 ADSNBKS   DATASET         = DSN2.DSN710.ADSNBKS
           SHR
 ADSNENU   DATASET         = DSN2.DSN710.ADSNENU
           SHR
 ADSNHFS   DATASET         = DSN2.DSN710.ADSNHFS
           SHR
 ADSNINDX  DATASET         = DSN2.DSN710.ADSNINDX
           SHR
 ADSNINST  DATASET         = DSN2.DSN710.ADSNINST
           SHR
 ADSNIVPD  DATASET         = DSN2.DSN710.ADSNIVPD
           SHR
 ADSNLOAD  DATASET         = DSN2.DSN710.ADSNLOAD
           SHR
 ADSNLOD2  DATASET         = DSN2.DSN710.ADSNLOD2
           SHR
 ADSNMACS  DATASET         = DSN2.DSN710.ADSNMACS
           SHR
 ADSNSHLF  DATASET         = DSN2.DSN710.ADSNSHLF
           SHR
 ADXRLOAD  DATASET         = DSN2.DSN710.ADXRLOAD
           SHR
 ADXRSAMP  DATASET         = DSN2.DSN710.ADXRSAMP
           SHR
 ADXXADM   DATASET         = DSN2.DSN710.ADXXADM
           SHR
 ADXXC     DATASET         = DSN2.DSN710.ADXXC
           SHR
 ADXXCLI   DATASET         = DSN2.DSN710.ADXXCLI
           SHR
 ADXXCLP   DATASET         = DSN2.DSN710.ADXXCLP
           SHR
 ADXXCMD   DATASET         = DSN2.DSN710.ADXXCMD
           SHR
 ADXXDAD   DATASET         = DSN2.DSN710.ADXXDAD
           SHR
 ADXXDBRM  DATASET         = DSN2.DSN710.ADXXDBRM
           SHR
 ADXXDTD   DATASET         = DSN2.DSN710.ADXXDTD
           SHR
 ADXXH     DATASET         = DSN2.DSN710.ADXXH
           SHR
 ADXXJCL   DATASET         = DSN2.DSN710.ADXXJCL
           SHR
 ADXXJDBC  DATASET         = DSN2.DSN710.ADXXJDBC
           SHR
 ADXXLOAD  DATASET         = DSN2.DSN710.ADXXLOAD
           SHR
 ADXXXML   DATASET         = DSN2.DSN710.ADXXXML
           SHR
 SDESDB2I  DATASET         = DSN2.DSN710.SDESDB2I
           SHR
 SDESMOD1  DATASET         = DSN2.DSN710.SDESMOD1
           SHR
 SDMBDBRM  DATASET         = DSN2.DSN710.SDMBDBRM
           SHR
 SDMBEXP   DATASET         = DSN2.DSN710.SDMBEXP
           SHR
 SDMBLOAD  DATASET         = DSN2.DSN710.SDMBLOAD
           SHR
 SDMBMACS  DATASET         = DSN2.DSN710.SDMBMACS
           SHR
 SDMBSAMP  DATASET         = DSN2.DSN710.SDMBSAMP
           SHR
 SDMBSMPC  DATASET         = DSN2.DSN710.SDMBSMPC
           SHR
 SDMBSMPH  DATASET         = DSN2.DSN710.SDMBSMPH
           SHR
 SDSNBASE  DATASET         = DSN2.DSN710.SDSNBASE
           SHR
 SDSNBKS   DATASET         = DSN2.DSN710.SDSNBKS
           SHR
 SDSNCHDR  DATASET         = DSN2.DSN710.SDSNC.H
           SHR
 SDSNCLST  DATASET         = DSN2.DSN710.SDSNCLST
           SHR
 SDSNDBRM  DATASET         = DSN2.DSN710.SDSNDBRM
           SHR
 SDSNINDX  DATASET         = DSN2.DSN710.SDSNINDX
           SHR
 SDSNINST  DATASET         = DSN2.DSN710.SDSNINST
           SHR
 SDSNIVPD  DATASET         = DSN2.DSN710.SDSNIVPD
           SHR
 SDSNLOAD  DATASET         = DSN2.DSN710.SDSNLOAD
           SHR
 SDSNLOD2  DATASET         = DSN2.DSN710.SDSNLOD2
           SHR
 SDSNMACS  DATASET         = DSN2.DSN710.SDSNMACS
           SHR
 SDSNSAMP  DATASET         = DSN2.DSN710.SDSNSAMP
           SHR
 SDSNSHLF  DATASET         = DSN2.DSN710.SDSNSHLF
           SHR
 SDSNSPFM  DATASET         = DSN2.DSN710.SDSNSPFM
           SHR
 SDSNSPFP  DATASET         = DSN2.DSN710.SDSNSPFP
           SHR
 SDSNSPFS  DATASET         = DSN2.DSN710.SDSNSPFS
           SHR
 SDSNSPFT  DATASET         = DSN2.DSN710.SDSNSPFT
           SHR
 SDXRRESL  DATASET         = DSN2.DSN710.SDXRRESL
           SHR
 SDXRSAMP  DATASET         = DSN2.DSN710.SDXRSAMP
           SHR
 SDXXADM   DATASET         = DSN2.DSN710.SDXXADM
           SHR
 SDXXC     DATASET         = DSN2.DSN710.SDXXC
           SHR
 SDXXCLI   DATASET         = DSN2.DSN710.SDXXCLI
           SHR
 SDXXCLP   DATASET         = DSN2.DSN710.SDXXCLP
           SHR
 SDXXCMD   DATASET         = DSN2.DSN710.SDXXCMD
           SHR
 SDXXDAD   DATASET         = DSN2.DSN710.SDXXDAD
           SHR
 SDXXDBRM  DATASET         = DSN2.DSN710.SDXXDBRM
           SHR
 SDXXDTD   DATASET         = DSN2.DSN710.SDXXDTD
           SHR
 SDXXH     DATASET         = DSN2.DSN710.SDXXH
           SHR
 SDXXJCL   DATASET         = DSN2.DSN710.SDXXJCL
           SHR
 SDXXJDBC  DATASET         = DSN2.DSN710.SDXXJDBC
           SHR
 SDXXLOAD  DATASET         = DSN2.DSN710.SDXXLOAD
           SHR
 SDXXXML   DATASET         = DSN2.DSN710.SDXXXML
           SHR
      ENDUCL.

/*


//STEP01   EXEC PGM=GIMSMP
//*
//SMPCSI   DD DISP=SHR,DSN=DSN1.SMPE.GLOBAL.CSI
//*
//EXPGLB   DD DSN=DSN1.EXPORT.CSI.GLOBAL,DISP=(NEW,PASS),
//            UNIT=WORK,SPACE=(CYL,(50,12),RLSE)
//EXPTGT   DD DSN=DSN1.EXPORT.CSI.TARGET,DISP=(NEW,PASS),
//            UNIT=WORK,SPACE=(CYL,(90,12),RLSE)
//EXPDLB   DD DSN=DSN1.EXPORT.CSI.DLIB,DISP=(NEW,PASS),
//            UNIT=WORK,SPACE=(CYL,(90,12),RLSE)
//SMPCNTL  DD  *
  SET BOUNDARY(GLOBAL).
  ZEXP(GLOBAL)
      OUTFILE(EXPGLB)
      NOPURGE         .
  SET BOUNDARY(DSN1TZ).
  ZEXP(DSN1TZ)
      OUTFILE(EXPTGT)
      NOPURGE         .
  SET BOUNDARY(DSN1DZ).
  ZEXP(DSN1DZ)
      OUTFILE(EXPDLB)
      NOPURGE         .
/*
//*
//STEP02 EXEC PGM=IDCAMS
//*
//ZPOOL     DD DSN=SYS1.AMACLIB(GIMZPOOL),DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD *

         /* -------------------------------------------------- */
         /* DEFINE NEUE  CLUSTER                               */
         /* -------------------------------------------------- */
         DEFINE CLUSTER (NAME(DSN2.SMPE.CSI)                 -
                   VOLUME(OSDOC2)                            -
                   KEYS(24 0)                                -
                   RECORDSIZE(24 143)                        -
                   FREESPACE(10 5)                           -
                   CYLINDERS(100 20)                         -
                   SHR(2,3)                                  -
                   UNIQUE                                    -
                   INDEXED                                   -
                   UNORDERED                                 -
                   NONSPANNED)                               -
                DATA (NAME(DSN2.SMPE.CSI.DATA)               -
                   CONTROLINTERVALSIZE(4096))                -
                INDEX(NAME(DSN2.SMPE.CSI.INDEX)              -
                   CONTROLINTERVALSIZE(1536))
    REPRO INFILE(ZPOOL)                                      +
          OUTDATASET(DSN2.SMPE.CSI)
/*
//*
//STEP03   EXEC PGM=GIMSMP
//*
//SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//*
//IMPGLB   DD DSN=DSN1.EXPORT.CSI.GLOBAL,DISP=(SHR,DELETE)
//SMPLOG   DD  SYSOUT=*
//SMPLOGA  DD  SYSOUT=*
//SMPPTS   DD  DISP=SHR,DSN=DSN2.SMPE.SMPPTS
//SMPCNTL  DD  *
  SET BOUNDARY(GLOBAL).
      ZIMP(GLOBAL)
          INFILE(IMPGLB)
          INTO(GLOBAL)    .
/*
//*
//STEP04   EXEC PGM=GIMSMP
//*
//SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//*
//SMPLOG   DD  SYSOUT=*
//SMPPTS   DD  DISP=SHR,DSN=DSN2.SMPE.SMPPTS
//SMPCNTL  DD  *
  SET BOUNDARY(GLOBAL)  .
      UCLIN             .
      REP GLOBALZONE ZONEINDEX(
                               (DSN1TZ,DSN2.SMPE.CSI,TARGET)
                               (DSN1DZ,DSN2.SMPE.CSI,DLIB)
                              )
                        .
      ENDUCL            .
/*
//*
//STEP05   EXEC PGM=GIMSMP
//*
//SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//*
//SMPLOG   DD  SYSOUT=*
//SMPPTS   DD  DISP=SHR,DSN=DSN2.SMPE.SMPPTS
//SMPCNTL  DD  *
  SET BOUNDARY(GLOBAL) .
      UCLIN .
      REP OPTIONS(DB2OPT)
                 AMS(AMS)
                 ASM(ASM)
                 COMP(COMP)
                 COPY(COPY)
                 DSPREFIX(DSN2)
                 DSSPACE(200,200,250)
                 LKED(HEWLH096)
                 NOREJECT
                 NUCID(6)
                 PAGELEN(60)
                 RETRY(RETRY)
                 RETRYDDN(ALL)
                 UPDATE(UPDATE)
                 ZAP(ZAP)
                               .
      REP UTILITY(AMS)
                 NAME(IDCAMS)
                 PRINT(SYSPRINT)
                 RC(0) .
      REP UTILITY(ASM)
                 NAME(ASMA90)
                 PARM(DECK,OBJECT,XREF(SHORT),NOLOAD)
                 PRINT(SYSPRINT)
                 RC(4) .
      REP UTILITY(COMP)
                 NAME(IEBCOPY)
                 PRINT(SYSPRINT)
                 LIST(NO)
                 RC(0) .
      REP UTILITY(COPY)
                 NAME(IEBCOPY)
                 PRINT(SYSPRINT)
                 LIST(NO)
                 RC(0) .
      REP UTILITY(HEWLH096)
                 NAME(HEWLH096)
                 PARM(LIST,LET,NCAL)
                 PRINT(SYSPRINT)
                 RC(4) .
      REP UTILITY(RETRY)
                 NAME(IEBCOPY)
                 PRINT(SYSPRINT)
                 LIST(NO)
                 RC(0) .
      REP UTILITY(UPDATE)
                 NAME(IEBUPDTE)
                 PRINT(SYSPRINT)
                 RC(0) .
      REP UTILITY(ZAP)
                 NAME(IMASPZAP)
                 PRINT(SYSPRINT)
                 RC(4) .
      ENDUCL .
/*
//*
//STEP06   EXEC PGM=GIMSMP
//*
//SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//*
//IMPTGT   DD DSN=DSN1.EXPORT.CSI.TARGET,DISP=(SHR,DELETE)
//SMPLOG   DD  SYSOUT=*
//SMPCNTL  DD  *
  SET BOUNDARY(DSN1TZ)     .
      ZIMP(DSN1TZ)
          INFILE(IMPTGT)
          INTO(DSN1TZ)
          OPTIONS(DB2OPT)
          RELATED(DSN2DZ)  .
/*
//*
//STEP07   EXEC PGM=GIMSMP
//*
//SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//*
//IMPDLB   DD DSN=DSN1.EXPORT.CSI.DLIB,DISP=(SHR,DELETE)
//SMPLOG   DD  SYSOUT=*
//SMPCNTL  DD  *
  SET BOUNDARY(DSN1DZ)     .
      ZIMP(DSN1DZ)
          INFILE(IMPDLB)
          INTO(DSN1DZ)
          OPTIONS(DB2OPT)
          RELATED(DSN2TZ)  .
/*
//*
//STEP08   EXEC PGM=GIMSMP
//*
//SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//*
//SMPLOG   DD  SYSOUT=*
//SMPPTS   DD  DISP=SHR,DSN=DSN2.SMPE.SMPPTS
//SMPCNTL  DD  *
  SET BOUNDARY(GLOBAL)                     .
      ZREN(DSN1TZ)  TO(DSN2TZ) SAMEDATASET .
      ZREN(DSN1DZ)  TO(DSN2DZ) SAMEDATASET .
/*
//*
//STEP09   EXEC PGM=GIMSMP
//*
//SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//*
//SMPPTS   DD  DISP=SHR,DSN=DSN2.SMPE.SMPPTS
//SMPLOG   DD  SYSOUT=*
//SMPCNTL  DD  *
  SET BOUNDARY(GLOBAL)               .
  ZONEEDIT DDDEF                     .
  CHANGE  DA(DSN1.*,DSN2.*)          .
  ENDZONEEDIT                        .
  SET BOUNDARY(DSN2TZ)               .
  ZONEEDIT DDDEF                     .
  CHANGE  DA(DSN1.DSN610.*,DSN2.*)   .
  ENDZONEEDIT                        .
  SET BOUNDARY(DSN2TZ)               .
  ZONEEDIT DDDEF                     .
  CHANGE  DA(DSN1.*,DSN2.*)          .
  ENDZONEEDIT                        .
  SET BOUNDARY(DSN2DZ)               .
  ZONEEDIT DDDEF                     .
  CHANGE  DA(DSN1.DSN610.*,DSN2.*)   .
  ENDZONEEDIT                        .
  SET BOUNDARY(DSN2DZ)               .
  ZONEEDIT DDDEF                     .
  CHANGE  DA(DSN1.*,DSN2.*)          .
  ENDZONEEDIT                        .
/*



//STEP09   EXEC PGM=GIMSMP
//*
//SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//*
//SMPPTS   DD  DISP=SHR,DSN=DSN2.SMPE.SMPPTS
//SMPLOG   DD  SYSOUT=*
//SMPCNTL  DD  *
  SET BOUNDARY(DSN2TZ)               .
  ZONEEDIT DDDEF                     .
  CHANGE  DA(DSN1.DSN710.*,DSN2.*)   .
  ENDZONEEDIT                        .
  SET BOUNDARY(DSN2DZ)               .
  ZONEEDIT DDDEF                     .
  CHANGE  DA(DSN1.DSN710.*,DSN2.*)   .
  ENDZONEEDIT                        .
/*



//STEP01  EXEC PGM=ADRDSSU
//*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//DASDIN   DD  UNIT=3390,DISP=SHR,VOL=SER=OTPDB1
//DASDOUT  DD  UNIT=3390,DISP=SHR,VOL=SER=OTPDB1
//SYSIN    DD  *
         COPY  INDD(DASDIN)                                       -
               OUTDD(DASDOUT)                                     -
               DATASET(INCLUDE(                                   -
                      DSN1.SYS1.DSN710.**                         -
                              )                                   -
                       )                                          -
    RENUNC((DSN1.SYS1.DSN710.SDSNEXIT,DSN2.SDSNEXIT),             -
           (DSN1.SYS1.DSN710.SDSNLINK,DSN2.SDSNLINK))             -
               TOL(ENQF)                                          -
               CATALOG                                            -
               TGTALLOC(SOURCE)                                   -
               ALLDATA(*)                                         -
               ALLEXCP
/*
//STEP02  EXEC PGM=ADRDSSU
//*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//DASDIN   DD  UNIT=3390,DISP=SHR,VOL=SER=OTPDB1
//DASDOUT  DD  UNIT=3390,DISP=SHR,VOL=SER=OTPMZ1
//SYSIN    DD  *
         COPY  INDD(DASDIN)                                       -
               OUTDD(DASDOUT)                                     -
               DATASET(INCLUDE(                                   -
                      DSN1.SYS1.DSN710.**                         -
                              )                                   -
                       )                                          -
    RENUNC((DSN1.SYS1.DSN710.SDSNEXIT,SYS2.DSN2.DSN710.SDSNEXIT), -
           (DSN1.SYS1.DSN710.SDSNLINK,SYS2.DSN2.DSN710.SDSNLINK)) -
               TOL(ENQF)                                          -
               CATALOG                                            -
               TGTALLOC(SOURCE)                                   -
               ALLDATA(*)                                         -
               ALLEXCP
/*
//STEP03   EXEC PGM=GIMSMP
//*
//SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//*
//SMPPTS   DD  DISP=SHR,DSN=DSN2.SMPE.SMPPTS
//SMPLOG   DD  SYSOUT=*
//SMPCNTL  DD  *
   SET BDY(DSN2TZ) .
     UCLIN .
       REP DDDEF(SDSNEXIT)
           DA(DSN2.SDSNEXIT)
           SHR .
       REP DDDEF(SDSNLINK)
           DA(DSN2.SDSNLINK)
           SHR .
      ENDUCL.
   SET BDY(DSN2DZ) .
     UCLIN .
       REP DDDEF(SDSNEXIT)
           DA(DSN2.SDSNEXIT)
           SHR .
       REP DDDEF(SDSNLINK)
           DA(DSN2.SDSNLINK)
           SHR .
      ENDUCL.
/*


//STEP03   EXEC PGM=GIMSMP
//*
//SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//*
//SMPPTS   DD  DISP=SHR,DSN=DSN2.SMPE.SMPPTS
//SMPLOG   DD  SYSOUT=*
//SMPCNTL  DD  *
   SET BDY(DSN2TZ) .
     UCLIN .
       REP DDDEF(SDSNEXIT)
           DA(DSN2.SDSNEXIT)
           SHR .
       REP DDDEF(SDSNLINK)
           DA(DSN2.SDSNLINK)
           SHR .
      ENDUCL.
   SET BDY(DSN2DZ) .
     UCLIN .
       REP DDDEF(SDSNEXIT)
           DA(DSN2.SDSNEXIT)
           SHR .
       REP DDDEF(SDSNLINK)
           DA(DSN2.SDSNLINK)
           SHR .
      ENDUCL.
/*



//RECEIVE  EXEC PGM=GIMSMP,REGION=6000K
//SMPCSI   DD  DISP=SHR,DSN=SMPE.GLOBAL.CSI
//SMPPTFIN DD  DISP=SHR,DSN=<YourUserID>.USER.CNTL(ANUCSAB)
//SMPLOG   DD  DUMMY
//SMPHOLD  DD  DUMMY
//SMPCNTL  DD  *
 SET BDY (GLOBAL) .
 RECEIVE
 SELECT(ANUCSAB)
 .
/*


//*--------------------------------------------------------------------
//*  DOC: REJECT ALLE DIE RECEIVED UND NICHT ACCEPTET SIND
//*---------------------------------------------------------------------
//REJECT EXEC PGM=GIMSMP,TIME=1440,
//         COND=(0,NE),REGION=6500K
//SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//SMPCNTL  DD *
   SET BDY(DSN2TZ) .
   CLEANUP C(ALL).
   RESETRC.
   SET BDY(GLOBAL).
   REJECT
   COMPRESS(ALL) .
/*



//*********************************************************************
//*
//* FILE TAILORING MEMBER NAMES = GIMISCGA, GIMISCGB, GIMISCGE,
//*                     GIMISCGG, GIMISCGM, GIMISCGS, GIMISCGZ
//* JCL TAILORED BY FUNCTION = GIMISCG
//* JCL DESCRIPTION = PERFORM APPLY CHECK, APPLY, ACCEPT CHECK OR
//*                     ACCEPT PROCESSING
//*
//*********************************************************************
//S1       EXEC PGM=GIMSMP,
//         PARM='PROCESS=WAIT',
//         DYNAMNBR=120
//*
//* NOTE:      SMP ZONE-RELATED FILES ARE DYNAMICALLY ALLOCATED,
//*            THIS INCLUDES THE SMPPTS, SMPLOG, AND SMPTLIB DATA SETS.
//*
//* SMP FILES
//*
//SMPCSI   DD DISP=SHR,DSN='DSN1.SMPE.GLOBAL.CSI'
//*
//*SMPWRK3  DD DSN=<YourUserID>.SMPWRK3.T0909011.D03356.OBJ,
//*            UNIT=SYSDA,
//*            SPACE=(3120,(0364,0380,500)),
//*           DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPCNTL  DD *
  SET     BOUNDARY ( DSN1TZ )
          .
  RESTORE
          SELECT   (
                    UQ67845 UQ68626 UQ69056 UQ69316 UQ69381 UQ69485
     UQ69750 UQ69881 UQ70233 UQ70385 UQ70700 UQ71045 UQ71051 UQ71087
     UQ71254 UQ71282 UQ71391 UQ71555 UQ71593 UQ71864 UQ72112 UQ72542
     UQ72608 UQ72866 UQ73232 UQ73234 UQ73367 UQ73384 UQ73656 UQ73687
     UQ74173 UQ74294 UQ74719 UQ74720 UQ74823 UQ74918 UQ75544 UQ76436
     UQ76597 UQ76790 UQ76972 UQ77414 UQ77529
        )
 GROUP
 CHECK
          BYPASS   (
                     HOLDSYSTEM (
                                  ACTION
                                  DB2BIND
                                  DEP
                                  DOC
                                  IPL
                                  AO
                                  DELETE
                                  )
                     )
          .
/*



//LIST     EXEC PGM=GIMSMP,REGION=6000K
//SMPCSI   DD  DISP=SHR,DSN=DSN1.SMPE.GLOBAL.CSI
//*
//SMPCNTL  DD  *
 SET BDY (DSN1TZ).
 LIST SYSMOD FUNCTIONS PTFS   .
/*



//LIST     EXEC PGM=GIMSMP,REGION=6000K
//SMPCSI   DD  DISP=SHR,DSN=DSN2.SMPE.CSI
//SMPLOG   DD  DUMMY
//SMPCNTL  DD  *
 SET BDY (DSN2TZ).
 LIST DDDEF.
//
 LIST SYSMODS PTFS APARS USERMODS FUNCTIONS DDDEF.


//LIST     EXEC PGM=GIMSMP,REGION=4096K
//SMPCSI   DD DISP=SHR,DSN=DSN1.SMPE.GLOBAL.CSI
//SMPLIST   DD SYSOUT=*
//SMPLOG    DD SYSOUT=*
//*
//SMPCNTL  DD *
    SET   BOUNDARY (GLOBAL)          .
    LIST  HOLDDATA SYSMOD(UQ75322) .
//
    REPORT ERRSYSMODS ZONES(GLOBAL).
    LIST  FMIDSET.
    LIST  USERMODS .
    LIST  HOLDDATA .
    LIST  SYSMOD ERROR .

/*


//*---------------------------------------------------------------------
//*  DOC: THIS JOB RECEIVES THE PTFS TO THE CUSTOMER GLOBAL CSI
//*        C R S / C R M O   TAPE
//*---------------------------------------------------------------------
//RECEIVE  EXEC PGM=GIMSMP,REGION=6000K
//*
//SMPCSI   DD  DSN=DSN4.GLOBAL.CSI,DISP=SHR
//SYSPRINT DD  SYSOUT=*
//SMPHOLD  DD  DSN=SYS1.DF037543.HOLDATA,DISP=SHR,
//       VOL=SER=(O17955),EXPDT=98000,
//       LABEL=(3,SL),UNIT=CART
//SMPPTFIN DD  DSN=SYS1.DF037543.PTF,DISP=SHR,
//       VOL=SER=(O17955),EXPDT=98000,
//       LABEL=(08,SL),UNIT=AFF=SMPHOLD
//SMPCNTL  DD  *
 SET BDY (GLOBAL).
 RECEIVE SYSMODS  LIST HOLDDATA SOURCEID(O17955).
/* RECEIVE SYSMODS BYPASS(FMID) HOLDDATA SOURCEID(CRMO1).
/*



//RECEIVE  EXEC PGM=GIMSMP,REGION=6000K
//SMPCSI   DD  DISP=SHR,DSN=DSN4.SMPE.CSI
//*
//SMPLOG   DD  DUMMY
//SMPPTFIN DD  DSN=<YourUserID>.MPTF9391.PTF,DISP=SHR
//SMPHOLD  DD  DUMMY   2.MLST2754.TXT,DISP=SHR
//SMPCNTL  DD  *
 SET BDY (GLOBAL) .
 RECEIVE .

/*



//LIST     EXEC PGM=GIMSMP,REGION=4096K
//SMPCSI   DD DISP=SHR,DSN=DSN2.SMPE.CSI
//SMPLIST   DD SYSOUT=*
//SMPLOG    DD SYSOUT=*
//*
//SMPCNTL  DD *
    SET   BOUNDARY (GLOBAL)          .
    REPORT SYSMODS INZONE(DSN2TZ) COMPAREDTO (DSN2DZ).
/*


//LIST     EXEC PGM=GIMSMP,REGION=4096K
//SMPCSI   DD DISP=SHR,DSN=DSN4.SMPE.CSI
//SMPLIST   DD SYSOUT=*
//SMPLOG    DD SYSOUT=*
//*
//SMPCNTL  DD *
    SET   BOUNDARY (GLOBAL)          .
    REPORT SYSMODS INZONE(DSN4TZ) COMPAREDTO (DSN4DZ).
//



//LIST     EXEC PGM=GIMSMP,REGION=4096K
//SMPCSI   DD DISP=SHR,DSN=DSN1.SMPE.GLOBAL.CSI
//SMPLIST   DD SYSOUT=*
//SMPLOG    DD SYSOUT=*
//*
//SMPCNTL  DD *
    SET   BOUNDARY (GLOBAL)          .
    REPORT SYSMODS INZONE(DSN1TZ) COMPAREDTO (DSN1DZ).
//



//LIST     EXEC PGM=GIMSMP,REGION=4096K
//SMPCSI   DD DISP=SHR,DSN=DSN3.SMPE.CSI
//SMPLIST   DD SYSOUT=*
//SMPLOG    DD SYSOUT=*
//*
//SMPCNTL  DD *
    SET   BOUNDARY (GLOBAL)          .
    REPORT SYSMODS INZONE(DSN3TZ) COMPAREDTO (DSN3DZ).
//



//*
//*   DOC  : SMPE ZONE COPY
//ZCOPY    EXEC PGM=GIMSMP,REGION=4096K
//*
//SMPCSI   DD DISP=SHR,DSN=DSN2.GLOBAL.CSI
//*
//SMPLOG   DD  SYSOUT=*
//SMPCNTL  DD  *
  SET BOUNDARY(GLOBAL).
      UCLIN .
      ADD   GZONE
            ZINDEX(
                   (DSN2TZN,DSN2.NEW.TARGET.CSI,TARGET)
                   (DSN2TZ1,DSN2.GLOBAL.CSI,TARGET)
                   (DSN2DLN,DSN2.NEW.DLIB.CSI,DLIB)
                   (DSN2DL1,DSN2.GLOBAL.CSI,DLIB)
                  ) .
      ENDUCL.
  SET BOUNDARY(DSN2TZ1) .
      ZCOPY (DSN2TZN) INTO (DSN2TZ1) RELATED(DB2DZ1) .
  SET BOUNDARY(DSN2DL1) .
      ZCOPY (DSN2DLN) INTO (DSN2DL1) RELATED(DSN3Z1) .
/*
/*  SET BOUNDARY(TMVSTZ) .
/*      ZCOPY (M313TZ)   INTO   (TMVSTZ)    .
/*