//DEVVLADL JOB CLASS=D,MSGCLASS=H,NOTIFY=&SYSUID TYPRUN=SCAN
//*
//CRETLIB PROC G=PGMR,  - Library group
//             N=,      - Library name
//             P=10,    - Number of primary    memory units
//             A=6,     - Number of additional memory units
//             D=10,    - Number of library directory blocks
//             R=FB,    - Record format (RECFM)
//             L=80     - Record length (LRECL)
//*
//*            Adjust VOL=SER= value in the in-stream procedure
//*                                  |    |
//IEFBR14 EXEC PGM=IEFBR14           V    V
//SYSUT     DD UNIT=SYSALLDA,VOL=SER=TSO001,DSN=&SYSUID..&G..&N,
//             SPACE=(TRK,(&P,&A,&D)),DISP=(,CATLG,DELETE),
//             DCB=(DSORG=PO,RECFM=&R,LRECL=&L,BLKSIZE=0)
//        PEND
//*
//PCLIST  EXEC CRETLIB,N=CLIST,P=20,A=12,D=20
//PREXX   EXEC CRETLIB,N=REXX
//PPROC   EXEC CRETLIB,N=PROC
//PCONTRL EXEC CRETLIB,N=CONTROL,P=5,A=3,D=10
//PCOBOL  EXEC CRETLIB,N=COBOL
//PPLI    EXEC CRETLIB,N=PLI,P=20,A=12,D=20
//PPANEL  EXEC CRETLIB,N=PANEL
//POBJECT EXEC CRETLIB,N=OBJECT,P=5,A=3,R=U,L=0
//PLOAD   EXEC CRETLIB,N=LOAD,R=U,L=0
//*
//UJOB    EXEC CRETLIB,G=USER,N=JOB
//UPROC   EXEC CRETLIB,G=USER,N=PROC
//UCONTRL EXEC CRETLIB,G=USER,N=CONTROL,P=5,A=3,D=10
//UCOBOL  EXEC CRETLIB,G=USER,N=COBOL,P=20,A=12
//UCOPY   EXEC CRETLIB,G=USER,N=COPY
//ULOAD   EXEC CRETLIB,G=USER,N=LOAD,R=U,L=0
//