//SG0200  JOB  (SYSGEN),
//             'Modify Parmlib',
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(1,1)
//*********************************************************************
//*
//*                       MVS 3.8 SYSGEN
//*                       ==============
//*
//* DESC: Update SYS1.PARMLIB members to reduce number of
//*       error messages during IPL
//*         Modify IEASYS00 to use IEABLD00
//*         Choose different IEAPAK00
//*         Add IEALOD00
//*         Modify SMFPRM00 to turn off operator intervention
//*                         to set systemid=BSP1
//*         Note:  When you change systemid to something else,
//*                You will also need to modify the queue
//*                command.  In MVS0100 find BSP1 and change it
//*                to your SMFID
//*
//*********************************************************************
//*
//JOBCAT   DD  DISP=SHR,DSN=SYS1.VMASTCAT
//S0      EXEC PGM=IEHPROGM
//SYSPRINT DD  SYSOUT=*
//MVSRES   DD  DISP=OLD,UNIT=3350,VOL=SER=MVSRES
//SYSIN    DD  *
 RENAME DSNAME=SYS1.PARMLIB,VOL=3350=MVSRES,                           C
               MEMBER=IEAPAK00,                                        C
               NEWNAME=IEAPAKOO
 RENAME DSNAME=SYS1.PARMLIB,VOL=3350=MVSRES,                           C
               MEMBER=SMFPRM00,                                        C
               NEWNAME=SMFPRMOO
//S1      EXEC PGM=IEBGENER
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DUMMY
//SYSUT1   DD  DISP=SHR,DSN=SYS1.PARMLIB(IEAPAKBA)
//SYSUT2   DD  DISP=SHR,DSN=SYS1.PARMLIB(IEAPAK00)
//S2   EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 DELETE SYS1.PARMLIB(LNKLST00) NONVSAM CAT(SYS1.VMASTCAT)
 DELETE SYS1.PARMLIB(IEASYS00) NONVSAM CAT(SYS1.VMASTCAT)
 SET LASTCC=0
 SET MAXCC=0
//S3   EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT  DD  SYSOUT=A
//SYSUT2 DD DISP=OLD,DSN=SYS1.PARMLIB,UNIT=3350,VOL=SER=MVSRES
//SYSIN DD DATA
./   ADD  NAME=IEASYS00,LIST=ALL
./   NUMBER  NEW1=01,INCR=05
 REAL=128,
 MAXUSER=20,
 CVIO,
 CSA=2048,
 SQA=3,
 APF=00,
 PAGNUM=(3,2),
 DUPLEX=SYS1.DUPLEX,
 SWAP=SYS1.PAGES01,
 BLDLF=BA,
 HARDCPY=(30E,ALL,CMDS),
 PAGE=(SYS1.PAGELPA,                                                   X
               SYS1.PAGECSA,                                           X
               SYS1.PAGEL01,                                           X
               SYS1.PAGEL02)
./ ADD NAME=SMFPRM00
    OPT=2,                      SYSTEM,JOB AND STEP DATA COLLECTION
    EXT=YES,                    USER EXITS ARE TO BE TAKEN
    JWT=60,                     MAXIMUM WAIT TIME IS 60 MINS
    BUF=2000,                   A 2000 BYTE BUFFER IS DEFINED
    SID=BSP1,                   SYSTEM ID IS BSP1
    OPI=NO,                     No OPERATOR INTERVENTION
    MAN=ALL                     USER AND SYSTEM RECORDS PERMITTED
./   ADD  NAME=LNKLST00,LIST=ALL
./   NUMBER  NEW1=01,INCR=05
 SYS1.LINKLIB,SYS1.CMDLIB
./   ADD  NAME=IEALOD00,LIST=ALL
IEFW21SD
./   ENDUP
/*
