//SG0130  JOB  (SYSGEN),
//             'Prepare Stage1',
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(1,1),
//             REGION=5120K
//*********************************************************************
//*
//*                       MVS 3.8 SYSGEN
//*                       ==============
//*
//* DESC: Create a few files that are needed for the sysgen process
//*       Also, provide a new JOBCARD macro that includes the JOBCAT
//*
//*
//*********************************************************************
//*
//JOBCAT   DD  DISP=SHR,DSN=SYS1.VMASTCAT
//CLEANUP EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 DELETE SYS2.LPALIB        NONVSAM CAT(SYS1.VMASTCAT)
 DELETE SYS2.NUCLEUS       NONVSAM CAT(SYS1.VMASTCAT)
 DELETE SYS1.OBJPDS01      NONVSAM CAT(SYS1.VMASTCAT)
 DELETE SYS1.OBJPDS02      NONVSAM CAT(SYS1.VMASTCAT)
 DELETE SYS1.OBJPDS03      NONVSAM CAT(SYS1.VMASTCAT)
 DELETE SYS2.LPALIB   NOSCRATCH NONVSAM CAT(SYS1.VMASTCAT)
 DELETE SYS2.NUCLEUS  NOSCRATCH NONVSAM CAT(SYS1.VMASTCAT)
 DELETE SYS1.OBJPDS01 NOSCRATCH NONVSAM CAT(SYS1.VMASTCAT)
 DELETE SYS1.OBJPDS02 NOSCRATCH NONVSAM CAT(SYS1.VMASTCAT)
 DELETE SYS1.OBJPDS03 NOSCRATCH NONVSAM CAT(SYS1.VMASTCAT)
 SET MAXCC=0
 SET LASTCC=0
//ALLOC EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 DEFINE NONVSAM ( -
                  NAME(SYS1.OBJPDS01) -
                  DEVT(3350) -
                  VOL(MVSDLB) -
                ) -
            CAT (SYS1.VMASTCAT)
 DEFINE NONVSAM ( -
                  NAME(SYS1.OBJPDS02) -
                  DEVT(3350) -
                  VOL(MVSDLB) -
                ) -
            CAT (SYS1.VMASTCAT)
 DEFINE NONVSAM ( -
                  NAME(SYS1.OBJPDS03) -
                  DEVT(3350) -
                  VOL(MVSDLB) -
                ) -
            CAT (SYS1.VMASTCAT)
 DEFINE NONVSAM ( -
                  NAME(SYS2.LPALIB) -
                  DEVT(3350) -
                  VOL(MVSDLB) -
                ) -
            CAT (SYS1.VMASTCAT)
 DEFINE NONVSAM ( -
                  NAME(SYS2.NUCLEUS) -
                  DEVT(3350) -
                  VOL(MVSDLB) -
                ) -
            CAT (SYS1.VMASTCAT)
//OBJPDS01 DD  DISP=(,CATLG,DELETE),
//             UNIT=3350,
//             VOL=SER=MVSDLB,
//             DSN=SYS1.OBJPDS01,
//             SPACE=(CYL,(5,5,100)),
//             DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//OBJPDS02 DD  DISP=(,CATLG,DELETE),
//             UNIT=3350,
//             VOL=SER=MVSDLB,
//             DSN=SYS1.OBJPDS02,
//             SPACE=(CYL,(5,5,100)),
//             DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//OBJPDS03 DD  DISP=(,CATLG,DELETE),
//             UNIT=3350,
//             VOL=SER=MVSDLB,
//             DSN=SYS1.OBJPDS03,
//             SPACE=(CYL,(5,5,100)),
//             DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//LPALIB2  DD  DISP=(,CATLG,DELETE),
//             UNIT=3350,
//             VOL=SER=MVSDLB,
//             DSN=SYS2.LPALIB,
//             SPACE=(CYL,(1,1,20)),
//             DCB=SYS1.LPALIB
//NUCLEUS2 DD  DISP=(,CATLG,DELETE),
//             UNIT=3350,
//             VOL=SER=MVSDLB,
//             DSN=SYS2.NUCLEUS,
//             SPACE=(CYL,(1,1,20)),
//             DCB=SYS1.NUCLEUS
//LINK1   EXEC PGM=IEWL,PARM=(LIST,MAP,XREF)
//SYSPRINT DD  SYSOUT=*
//SYSLIB   DD  DISP=SHR,DSN=SYS1.LINKLIB
//SYSLMOD  DD  DISP=SHR,DSN=SYS2.LPALIB
//SYSUT1   DD  UNIT=3330,SPACE=(CYL,(5,1))
//SYSLIN   DD  *
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC0023A(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC0023B(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC0023C(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC0023D(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC0024A(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC0024B(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC0024C(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC0024D(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC0024G(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC0024H(R)
//LINK2   EXEC PGM=IEWL,PARM=(LIST,MAP,XREF)
//SYSPRINT DD  SYSOUT=*
//SYSLIB   DD  DISP=SHR,DSN=SYS1.LINKLIB
//SYSLMOD  DD  DISP=SHR,DSN=SYS2.NUCLEUS
//SYSUT1   DD  UNIT=3330,SPACE=(CYL,(5,1))
//SYSLIN   DD  *
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC201(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC202(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC203(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC204(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC215(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC216(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC221(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC222(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC223(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC224(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC225(R)
 INCLUDE SYSLIB(IEFBR14)
 NAME IGC226(R)
//RENAME  EXEC PGM=IEHPROGM
//SYSPRINT DD  SYSOUT=*
//MVSDLB   DD  DISP=OLD,UNIT=3350,VOL=SER=MVSDLB
//SYSIN    DD  *
 RENAME        DSNAME=SYS1.AGENLIB,VOL=3350=MVSDLB,MEMBER=JOBCARD,     C
               NEWNAME=JOBCARDO
//JOBCARD EXEC PGM=IEBGENER
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DUMMY
//SYSUT2   DD  DISP=SHR,DSN=SYS1.AGENLIB(JOBCARD)
//SYSUT1   DD  DATA,DLM=AA
         MACRO
         JOBCARD
         COPY  SGGBLPAK
         AIF   (&SGHOLDB).HOLDRUN         USE JOB 6 JOBCARD
         AIF   ('&SGCTRLC(40)' NE 'SYS1').A1
 PUNCH '//SYSGEN&SGCTRLA(3) JOB 1,''SYSTEM GENERATION'',MSGLEVEL=1,CLASX
               S=&SGCTRLC(42),MSGCLASS=&SGCTRLC(41)'
         AGO   .MEND
.A1      ANOP
 PUNCH '//&SGCTRLC(40)&SGCTRLA(3) JOB 1,''SYSTEM GENERATION'',MSGLEVEL=X
               1,CLASS=&SGCTRLC(42),MSGCLASS=&SGCTRLC(41)'
         AGO   .MEND
.****************                                    ******************
.****       THIS SECTION IS USED FOR JOB 6 WHICH MUST BE HELD      ****
.****            UNTIL JOBS 1 THROUGH 5 COMPLETE                   ****
.****************                                    ******************
.HOLDRUN    AIF ('&SGCTRLC(40)' NE 'SYS1').H1
 PUNCH '//SYSGEN&SGCTRLA(3) JOB 1,''SYSTEM GENERATION'',MSGLEVEL=1,CLASX
               S=&SGCTRLC(42),MSGCLASS=&SGCTRLC(41),'
 PUNCH '//     TYPRUN=HOLD'
         AGO   .MEND
.H1      ANOP
 PUNCH '//&SGCTRLC(40)&SGCTRLA(3) JOB 1,''SYSTEM GENERATION'',MSGLEVEL=X
               1,CLASS=&SGCTRLC(42),MSGCLASS=&SGCTRLC(41),'
 PUNCH '//     TYPRUN=HOLD'
.MEND    ANOP
 PUNCH '//JOBCAT DD  DISP=SHR,DSN=SYS1.VMASTCAT'
         MEND
AA
//
