//MVS0040 JOB  (SYSGEN),
//             'Secondary loadlibs',
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(1,1)
//*********************************************************************
//*
//*                       MVS 3.8 SYSGEN
//*                       ==============
//*
//*
  Build user load libraries SYS2.LINKLIB
//*                            SYS2.CMDLIB
//*  Build user TSO command list library. 
//*                            SYS1.CMDPROC
//*
//*  Build user procedure library
//*                            SYS2.PROCLIB
//*  on a TSO volume
//*
//*********************************************************************
//*
/*MESSAGE  *************************************
/*MESSAGE  *                                   *
/*MESSAGE  * Remember to do an IPL after       *
/*MESSAGE  * this job has completed.  The CLPA *
/*MESSAGE  * option is NOT required            *
/*MESSAGE  *                                   *
/*MESSAGE  *************************************
//CLEANUP EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 DELETE SYS2.CMDLIB  NONVSAM
 DELETE SYS2.CMDLIB  NONVSAM NOSCRATCH
 DELETE SYS2.LINKLIB NONVSAM
 DELETE SYS2.LINKLIB NONVSAM NOSCRATCH
 DELETE SYS1.CMDPROC NONVSAM
 DELETE SYS1.CMDPROC NONVSAM NOSCRATCH
 DELETE SYS2.PROCLIB NONVSAM
 DELETE SYS2.PROCLIB NONVSAM NOSCRATCH
 SET LASTCC = 0
 SET MAXCC  = 0
/* 
//ALLOC   EXEC PGM=IEFBR14
//CMDLIB   DD  DISP=(NEW,CATLG),
//             DSN=SYS2.CMDLIB,
//             UNIT=TSO,
//             SPACE=(CYL,(20,,100)),
//             DCB=SYS1.LINKLIB
//LINKLIB  DD  DISP=(NEW,CATLG),
//             DSN=SYS2.LINKLIB,
//             UNIT=TSO,
//             SPACE=(CYL,(20,,100)),
//             DCB=SYS1.LINKLIB
//CMDPROC  DD  DISP=(NEW,CATLG),
//             DSN=SYS1.CMDPROC,
//             UNIT=TSO,
//             SPACE=(CYL,(20,,100)),
//             DCB=SYS1.MACLIB
//PROCLIB  DD  DISP=(NEW,CATLG),
//             DSN=SYS2.PROCLIB,
//             UNIT=TSO,
//             SPACE=(CYL,(10,,30)),
//             DCB=SYS1.MACLIB
//PARMLIB EXEC PGM=IEBUPDTE,PARM=NEW
//SYSUT2   DD  DISP=SHR,DSN=SYS1.PARMLIB
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DATA,DLM=XX
./ ADD NAME=LNKLST00
 SYS1.LINKLIB,
 SYS1.CMDLIB,
 SYS2.LINKLIB,
 SYS2.CMDLIB
XX
/*
//PROCLIB EXEC PGM=IEBUPDTE,PARM=NEW
//SYSUT2   DD  DISP=SHR,DSN=SYS1.PROCLIB
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DATA,DLM=XX
./ ADD NAME=JES2
//JES2    PROC M=JES2PARM,
//             N=SYS1,
//             L=LINKLIB,
//             U=3350,
//             N1=SYS1,
//             P0=SYS1,
//             P1=SYS2,
//             P2=SYS1,
//             P=PARMLIB
//IEFPROC EXEC PGM=HASJES20,
//             TIME=1440,
//             DPRTY=(15,15)
//STEPLIB  DD  UNIT=&U,DISP=SHR,DSN=&N..&L
//PROC00   DD  DSN=&P0..PROCLIB,DISP=SHR
//         DD  DSN=&P1..PROCLIB,DISP=SHR
//         DD  DSN=&P2..PROCLIB,DISP=SHR
//HASPPARM DD  DSN=&N1..&P(&M),DISP=SHR
//HASPLIST DD  DDNAME=IEFRDER
XX
/*
//PROCLIB EXEC PGM=IEBUPDTE,PARM=NEW
//SYSUT2   DD  DISP=SHR,DSN=SYS2.PROCLIB
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DATA,DLM=XX
./ ADD NAME=CLEARERP
//CLEARRRP PROC
//EREP    EXEC PGM=IFCDIP00
//SERERDS  DD  DISP=SHR,DSN=SYS1.LOGREC
./ ADD NAME=COMPRESS
//COMPRESS PROC LIB='SYS1.LINKLIB',SOUT='*'
//COPY    EXEC PGM=IEBCOPY
//SYSPRINT DD  SYSOUT=&SOUT
//SYSIN    DD  DUMMY
//SYSUT1   DD  DISP=SHR,DSN=&LIB
//SYSUT2   DD  DISP=SHR,DSN=&LIB
//SYSUT3   DD  UNIT=3330,SPACE=(CYL,(5,5))
./ ADD NAME=CLEARDMP
//CLEARDMP PROC DD=00
//EMPTY   EXEC PGM=IEBGENER
//SYSPRINT DD  DUMMY
//SYSIN    DD  DUMMY
//SYSUT1   DD  DUMMY
//SYSUT2   DD  DISP=SHR,DSN=SYS1.DUMP&DD
./ ADD NAME=CLEARSMF
//CLEARSMF PROC MAN=X
//SMFDUMP EXEC PGM=IFASMFDP
//DUMPIN   DD  DISP=SHR,DSN=SYS1.MAN&MAN
//DUMPOUT  DD  DUMMY
//SYSPRINT DD  SYSOUT=*
./ ADD NAME=DUMPSMF
//DUMPSMF PROC MAN=X
//CLEANUP EXEC PGM=IEFBR14
//SMFDATA  DD  DISP=(MOD,DELETE),
//             DSN=SYS1.SMFDATA,
//             SPACE=(TRK,(0)),
//             UNIT=WORK
//CLEANUP EXEC PGM=IFASMFDP
//DUMPIN   DD  DISP=SHR,DSN=SYS1.MAN&MAN
//DUMPOUT  DD  DISP=(,CATLG),
//             DSN=SYS1.SMFDATA,
//             UNIT=WORK,
//             SPACE=(CYL,(1,1))
//SYSPRINT DD  SYSOUT=*

XX
//