KFK2666.pdf

-250-
liREGENT
II
II
II
IIP
IICOMElLE
II
II
IIPLIDUMP
IIPLlFILE
II
IIQQCLlB
II
II
II
IISTEPLIB
IISUBLlB
II
IISYSPRlNT
IIC
IIQQMAC
IISYSlN
IISYSLlN
II
IISYSPRlNT
IISYSUTl
IISYSUT3
IIG
IICOMElLE
IIFT06FOOl
IIPLlDUMP
I/PLlOBJ
II
/IPLOTWKOl
IIPLOTWK02
/IPLSLlB
II
IIQQDDSF
1/
I/STEPLIB
1/
IISUBLlB
II
I/SYSLIB
II
1/
II
1/
II
II
IISYSLlN
IISYSLMOD
1/
IISYSLOUT
I/SYSPRlNT
IISYSUTl
II
I/WORKFlL
/1
I/REGENT
8-12
PROC RUNlT=3330,RVOL=REGlCE,RDSN=REGENT,
PLlB=REGENT,PUNlT=3330,PVOL=REGlCE,
BLKF=968,BLKV=2004,DlSK=SYSDA,
CPARM='C,SYN,lNCLUDE' ,GPARM=, PRlNT,MAP/lSASlZE(40K),
EXEC PGM=PLSTRAN,PARM='lSA(40K),
DD UNlT=&DISK,DlSP=(NEW,PASS),
DCB=(BLKSlZE=800,LRECL=80,RECFM=FB,DSORG=PO),
SPACE=(1600,(1200,100,20))
DD SYSOUT=A,DCB=(BLKSlZE=&BLKV,LRECL=125,RECFM=VBA)
DD UNlT=&DlSK,DlSP=(NEW,PASS),
DCB=(RECFM=FB,LRECL=80,BLKSIZE=3l20),SPACE=(TRK,(10,10))
DD DSN=&PLlB .. PLSTRAN.MODS,UNlT=&PUNlT,VOL=SER=&PVOL,
DlSP=SHR
DD DSN=&RDSN..PLSTRAN.MODS,UNlT=&RUNlT,VOL=SER=&RVOL,
DlSP=SHR
DD DSN=&RDSN..MODS,UNlT=&RUNlT,VOL=SER=&RVOL,DlSP=SHR
DD DSN=&RDSN..PLSTRAN.DATA,UNlT=&RUNIT,VOL=SER=&RVOL,
DlSP=SHR
DD SYSOUT=A,DCB=(BLKSlZE=&BLKV,LRECL=125,RECFM=VBA)
EXEC PGM=lELOAA,PARM='&CPARM' ,COND=(9,LT)
DD DSN=&RDSN..PLRMAC,UNlT=&RUNlT,VOL=SER=&RVOL,DlSP=SHR
DD DSN=*.P.PLlFlLE,UNIT=&DISK,DlSP=(OLD,DELETE)
DD UNIT=&DlSK,SPACE=(3200,(500)),
DCB=(BLKSIZE=3200,RECFM=FB),DISP=(NEW,PASS)
DD SYSOUT=A,DCB=(BLKSlZE=&BLKV,LRECL=125,RECFM=FBA)
DD UNIT=&DlSK,SPACE=(3303,(150)),DCB=BLKSlZE=3303
DD UNIT=&DISK,SPACE=(3303,(100)),DCB=BLKSIZE=3303
EXEC PGM=LOADER,COND=(9,LT),PARM='&GPARM'
DD DSN=*.P.COMEILE,DISP=(OLD,DELETE)
DD SYSOUT=A,DCB=(BLKSIZE=1955,LRECL=133,RECFM=FBA)
DD SYSOUT=A,DCB=(BLKSlZE=&BLKV,LRECL=125,RECFM=VBA)
DD DISP=(NEW,DELETE) ,SPACE=(800, (1200, 100)),
DCB=(BLKSIZE=800,LRECL=80,RECFM=FB),UNIT=&DlSK
DD UNIT=&DISK,SPACE=(CYL,(lO,S)),DISP=(NEW,DELETE)
DD UNIT=&DISK;SPACE=(CYL,(10,5)),DISP=(NEW,DELETE)
DD DSN=&PLIB ..PLSTRAN.MODS,UNIT=&PUNIT,VOL=SER=&PVOL,
DISP=SHR,DCB=BLKSlZE=6447
DD UNlT=&DISK,DCB=(DSORG=DA,KEYLEN=6,BLKSlZE=1000),
SPACE=(CYL,(lO)),DISP=(NEW,DELETE)
DD DSN=&PLIB ..MODS,UNlT=&PUNIT,VOL=SER=&PVOL,DlSP=SHR
DD DSN=&RDSN..MODS,UNlT=&RUNIT,VOL=SER=&RVOL,DlSP=SHR
DD DSN=&RDSN..PLSTRAN.DATA,UNlT=&RUNIT,VOL=SER=&RVOL,
DISP=SHR
DD DSN=SYSl.PLlLIB,DISP=SHR
DD DSN=LOAD.PLMATH,DISP=SHR
DD DSN=&PLIB .. LOAD,UNlT=&PUNlT,VOL=SER=&PVOL,DISP=SHR
DD DSN=&RDSN.. LOAD,UNIT=&RUNIT,VOL=SER=&RVOL,DlSP=SHR
DD DSN=GFK.PLlLIB,DISP=SHR
DD DSN=SYSl.FORTLlB,DlSP=SHR
DD DSN=GFK.FORTLlB,DlSP=SHR
DD DSN=*.C.SYSLlN,DlSP=(OLD,DELETE)
DD DSN=&PLIB ..MODS,UNlT=&PUNlT,VOL=SER=&PVOL,DlSP=SHR,
DCB=BLKSlZE=6447
DD SYSOUT=A,DCB=(BLKSlZE=&BLKF,LRECL=12l,RECFM=FBM)
DD SYSOUT=A,DCB=(BLKSIZE=&BLKV,LRECL=125,RECFM=VBA)
DD UNIT=&DlSK,DISP=(NEW,DELETE),
DCB=BLKSIZE=3303,SPACE=(3303,(200,100)"CONTlG)
DD DlSP=(NEW,DELETE),UNlT=&DISK,
DCB=(LRECL=80,BLKSlZE=3l20,RECFM=FB),SPACE=(TRK,(SO,50))
PEND