//SG0000  JOB  (SYSGEN),
//             'Write IPL Text',
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(1,1),
//             COND=(0,NE),
//             REGION=3072K
//*********************************************************************
//*
//*                       MVS 3.8 SYSGEN
//*                       ==============
//*
//* Desc:  Initialize disk pack and write IPL text
//*
//*********************************************************************
//*
/*MESSAGE  ************************************
/*MESSAGE  * Be patient, the system residence *
/*MESSAGE  * volume gets its IPL text         *
/*MESSAGE  ************************************
//GETIPL  EXEC PGM=IEBCOPY
//ASAMPLIB DD  DISP=SHR,DSN=SYS2.ASAMPLIB,UNIT=3350,VOL=SER=MVSDLB
//PARMLIB  DD  DISP=SHR,DSN=SYS1.PARMLIB
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 COPY INDD=ASAMPLIB,OUTDD=PARMLIB
 SELECT MEMBER=((IEAIPL00,,R))
//INIT    EXEC PGM=IEHDASDR,REGION=512K
//SYSPRINT DD  SYSOUT=*
//IPLTEXT  DD  DISP=SHR,DSN=SYS1.PARMLIB(IEAIPL00)
//MVSRES   DD  DISP=SHR,UNIT=3350,VOL=SER=MVSRES,DSN=FORMAT4.DSCB
//SYSIN    DD  *
       ANALYZE TODD=MVSRES,                                            C
               VTOC=1,                                                 C
               EXTENT=29,                                              C
               OWNERID=HERCULES,                                       C
               NEWVOLID=MVSRES,                                        C
               IPLDD=IPLTEXT,                                          C
               FLAGTEST=NO
//SCRATCH EXEC PGM=IEHPROGM,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//MVSDLB   DD  DISP=OLD,UNIT=3350,VOL=SER=MVSDLB
//SYSIN    DD  *
 SCRATCH DSNAME=SYS2.ASAMPLIB,VOL=3350=MVSDLB
/*
