06JUN24 11.23 ASMFC -- SYS1.PROCLIB -- VOL=MVSRES PAGE 1
//ASMFC PROC MAC='SYS1.MACLIB',MAC1='SYS1.MACLIB' 00050000
//ASM EXEC PGM=IFOX00,REGION=128K 00100000
//SYSLIB DD DSN=&MAC,DISP=SHR 00150000
// DD DSN=&MAC1,DISP=SHR 00200000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSSQ,SPACE=(1700,(600,100)), 00250000
// SEP=(SYSLIB) 00300000
//SYSUT2 DD DSN=&&SYSUT2,UNIT=SYSSQ,SPACE=(1700,(300,50)), 00350000
// SEP=(SYSLIB,SYSUT1) 00400000
//SYSUT3 DD DSN=&&SYSUT3,UNIT=SYSSQ,SPACE=(1700,(300,50)) 00450000
//SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=1089 00500000
//SYSPUNCH DD SYSOUT=B 00550000
*** END OF MEMBER *** 11 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ASMFCG -- SYS1.PROCLIB -- VOL=MVSRES PAGE 2
//ASMFCG PROC MAC='SYS1.MACLIB',MAC1='SYS1.MACLIB' 00050000
//ASM EXEC PGM=IFOX00,PARM=OBJ,REGION=128K 00100000
//SYSLIB DD DSN=&MAC,DISP=SHR 00150000
// DD DSN=&MAC1,DISP=SHR 00200000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSSQ,SPACE=(1700,(600,100)), 00250000
// SEP=(SYSLIB) 00300000
//SYSUT2 DD DSN=&&SYSUT2,UNIT=SYSSQ,SPACE=(1700,(300,50)), 00350000
// SEP=(SYSLIB,SYSUT1) 00400000
//SYSUT3 DD DSN=&&SYSUT3,UNIT=SYSSQ,SPACE=(1700,(300,50)) 00450000
//SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=1089 00500000
//SYSPUNCH DD SYSOUT=B 00550000
//SYSGO DD DSN=&&OBJSET,UNIT=SYSSQ,SPACE=(80,(200,50)), 00600000
// DISP=(MOD,PASS) 00650000
//GO EXEC PGM=LOADER,PARM='MAP,PRINT,NOCALL,LET', 00700000
// COND=(8,LT,ASM) 00750000
//SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE) 00800000
//SYSLOUT DD SYSOUT=A 00850000
*** END OF MEMBER *** 17 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ASMFCL -- SYS1.PROCLIB -- VOL=MVSRES PAGE 3
//ASMFCL PROC MAC='SYS1.MACLIB',MAC1='SYS1.MACLIB' 00050000
//ASM EXEC PGM=IFOX00,PARM=OBJ,REGION=128K 00100000
//SYSLIB DD DSN=&MAC,DISP=SHR 00150000
// DD DSN=&MAC1,DISP=SHR 00200000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSSQ,SPACE=(1700,(600,100)), 00250000
// SEP=(SYSLIB) 00300000
//SYSUT2 DD DSN=&&SYSUT2,UNIT=SYSSQ,SPACE=(1700,(300,50)), 00350000
// SEP=(SYSLIB,SYSUT1) 00400000
//SYSUT3 DD DSN=&&SYSUT3,UNIT=SYSSQ,SPACE=(1700,(300,50)) 00450000
//SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=1089 00500000
//SYSPUNCH DD SYSOUT=B 00550000
//SYSGO DD DSN=&&OBJSET,UNIT=SYSSQ,SPACE=(80,(200,50)), 00600000
// DISP=(MOD,PASS) 00650000
//LKED EXEC PGM=IEWL,PARM=(XREF,LET,LIST,NCAL),REGION=128K, 00700000
// COND=(8,LT,ASM) 00750000
//SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE) 00800000
// DD DDNAME=SYSIN 00850000
//SYSLMOD DD DSN=&&GOSET(GO),UNIT=SYSDA,SPACE=(1024,(50,20,1)), 00900000
// DISP=(MOD,PASS) 00950000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)), 01000000
// SPACE=(1024,(50,20)) 01050000
//SYSPRINT DD SYSOUT=A 01100000
*** END OF MEMBER *** 22 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ASMFCLG -- SYS1.PROCLIB -- VOL=MVSRES PAGE 4
//ASMFCLG PROC MAC='SYS1.MACLIB',MAC1='SYS1.MACLIB' 00050000
//ASM EXEC PGM=IFOX00,PARM=OBJ,REGION=128K 00100000
//SYSLIB DD DSN=&MAC,DISP=SHR 00150000
// DD DSN=&MAC1,DISP=SHR 00200000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSSQ,SPACE=(1700,(600,100)), 00250000
// SEP=(SYSLIB) 00300000
//SYSUT2 DD DSN=&&SYSUT2,UNIT=SYSSQ,SPACE=(1700,(300,50)), 00350000
// SEP=(SYSLIB,SYSUT1) 00400000
//SYSUT3 DD DSN=&&SYSUT3,UNIT=SYSSQ,SPACE=(1700,(300,50)) 00450000
//SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=1089 00500000
//SYSPUNCH DD SYSOUT=B 00550000
//SYSGO DD DSN=&&OBJSET,UNIT=SYSSQ,SPACE=(80,(200,50)), 00600000
// DISP=(MOD,PASS) 00650000
//LKED EXEC PGM=IEWL,PARM=(XREF,LET,LIST,NCAL),REGION=128K, 00700000
// COND=(8,LT,ASM) 00750000
//SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE) 00800000
// DD DDNAME=SYSIN 00850000
//SYSLMOD DD DSN=&&GOSET(GO),UNIT=SYSDA,SPACE=(1024,(50,20,1)), 00900000
// DISP=(MOD,PASS) 00950000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)), 01000000
// SPACE=(1024,(50,20)) 01050000
//SYSPRINT DD SYSOUT=A 01100000
//GO EXEC PGM=*.LKED.SYSLMOD,COND=((8,LT,ASM),(4,LT,LKED)) 01150000
*** END OF MEMBER *** 23 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 LKED -- SYS1.PROCLIB -- VOL=MVSRES PAGE 5
//LKED EXEC PGM=IEWL,PARM='XREF,LIST,LET,NCAL',REGION=96K 00050000
//SYSPRINT DD SYSOUT=A 00100000
//SYSLIN DD DDNAME=SYSIN 00150000
//SYSLMOD DD DSN=&&GOSET(GO),SPACE=(1024,(50,20,1)), *00200000
// UNIT=SYSDA,DISP=(MOD,PASS) 00250000
//SYSUT1 DD UNIT=(SYSDA,SEP=(SYSLMOD,SYSLIN)), *00300000
// SPACE=(1024,(200,20)) 00350000
*** END OF MEMBER *** 7 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 LKEDG -- SYS1.PROCLIB -- VOL=MVSRES PAGE 6
//LKED EXEC PGM=IEWL,PARM='XREF,LIST,LET,NCAL',REGION=96K 00050000
//SYSPRINT DD SYSOUT=A 00100000
//SYSLIN DD DDNAME=SYSIN 00150000
//SYSLMOD DD DSN=&&GOSET(GO),SPACE=(1024,(50,20,1)), *00200000
// UNIT=SYSDA,DISP=(MOD,PASS) 00250000
//SYSUT1 DD UNIT=(SYSDA,SEP=(SYSLMOD,SYSLIN)), *00300000
// SPACE=(1024,(200,20)) 00400000
//GO EXEC PGM=*.LKED.SYSLMOD,COND=(4,LT,LKED) 00450000
*** END OF MEMBER *** 8 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ALGOFC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 7
//* 00000100
//********************************************************************* 00000200
//* 00000300
//* IBM ALGOL F LEVEL 2.1 00000400
//* 00000500
//* 360S-AL-531 ALGOL F COMPILER 00000600
//* 00000700
//* COMPILE A PROGRAM 00000800
//* 00000900
//********************************************************************* 00001000
//* 00001100
//ALGOL EXEC PGM=ALGOL,REGION=1024K 00001200
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00001302
//SYSPRINT DD SYSOUT=* 00001400
//SYSPUNCH DD DUMMY 00001500
//SYSLIN DD DSN=&&OBJECT,UNIT=VIO,SPACE=(3200,(20,10)), 00001600
// DISP=(,PASS) 00001700
//SYSUT1 DD UNIT=VIO,SPACE=(2048,(50,10)) 00001800
//SYSUT2 DD UNIT=VIO,SPACE=(2048,(50,10)) 00001900
//SYSUT3 DD UNIT=VIO,SPACE=(2048,(40,10)) 00002000
*** END OF MEMBER *** 20 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ALGOFCG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 8
//* 00000100
//********************************************************************* 00000200
//* 00000300
//* IBM ALGOL F LEVEL 2.1 00000400
//* 00000500
//* 360S-AL-531 ALGOL F COMPILER 00000600
//* AND 00000700
//* 360S-LM-532 ALGOL F LIBRARY 00000800
//* 00000900
//* COMPILE AND EXECUTE A PROGRAM 00001000
//* 00001100
//********************************************************************* 00001200
//* 00001300
//ALGOL EXEC PGM=ALGOL,REGION=1024K 00001400
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00001503
//SYSPRINT DD SYSOUT=* 00001600
//SYSPUNCH DD DUMMY 00001700
//SYSLIN DD DSN=&&OBJECT,UNIT=VIO,SPACE=(3200,(20,10)), 00001800
// DISP=(,PASS) 00001900
//SYSUT1 DD UNIT=VIO,SPACE=(2048,(50,10)) 00002000
//SYSUT2 DD UNIT=VIO,SPACE=(2048,(50,10)) 00002100
//SYSUT3 DD UNIT=VIO,SPACE=(2048,(40,10)) 00002200
//GO EXEC PGM=LOADER,PARM='MAP,LET,PRINT',COND=(5,LT,ALGOL) 00002300
//SYSLIN DD DSN=&&OBJECT,DISP=(OLD,DELETE) 00002400
//SYSLIB DD DSN=SYSC.ALGLIB,DISP=SHR 00002502
//SYSLOUT DD SYSOUT=* 00002600
//SYSPRINT DD SYSOUT=* 00002700
//ALGLDD01 DD SYSOUT=* 00002800
//SYSUT1 DD UNIT=VIO,SPACE=(1024,(20,10)) 00002900
*** END OF MEMBER *** 29 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ALGOFCL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 9
//* 00000100
//********************************************************************* 00000200
//* 00000300
//* IBM ALGOL F LEVEL 2.1 00000400
//* 00000500
//* 360S-AL-531 ALGOL F COMPILER 00000600
//* AND 00000700
//* 360S-LM-532 ALGOL F LIBRARY 00000800
//* 00000900
//* COMPILE AND LINK-EDIT A PROGRAM 00001000
//* 00001100
//********************************************************************* 00001200
//* 00001300
//ALGOL EXEC PGM=ALGOL,REGION=1024K 00001400
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00001503
//SYSPRINT DD SYSOUT=* 00001600
//SYSPUNCH DD DUMMY 00001700
//SYSLIN DD DSN=&&OBJECT,UNIT=VIO,SPACE=(3200,(20,10)), 00001800
// DISP=(,PASS) 00001900
//SYSUT1 DD UNIT=VIO,SPACE=(2048,(50,10)) 00002000
//SYSUT2 DD UNIT=VIO,SPACE=(2048,(50,10)) 00002100
//SYSUT3 DD UNIT=VIO,SPACE=(2048,(40,10)) 00002200
//LKED EXEC PGM=IEWL,PARM='XREF,LIST,LET',COND=(5,LT,ALGOL), 00002300
// REGION=1024K 00002400
//SYSPRINT DD SYSOUT=* 00002500
//SYSLIB DD DSN=SYSC.ALGLIB,DISP=SHR 00002602
//SYSLMOD DD DSN=&&GOSET(GO),UNIT=VIO,DISP=(,PASS), 00002700
// SPACE=(2048,(100,20,1)) 00002800
//SYSUT1 DD UNIT=VIO,SPACE=(2048,(100,20)) 00002900
//SYSLIN DD DSN=&&OBJECT,DISP=(OLD,DELETE) 00003000
// DD DDNAME=SYSIN 00003100
*** END OF MEMBER *** 31 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ALGOFCLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 10
//* 00000100
//********************************************************************* 00000200
//* 00000300
//* IBM ALGOL F LEVEL 2.1 00000400
//* 00000500
//* 360S-AL-531 ALGOL F COMPILER 00000600
//* AND 00000700
//* 360S-LM-532 ALGOL F LIBRARY 00000800
//* 00000900
//* COMPILE, LINK-EDIT AND EXECUTE A PROGRAM 00001000
//* 00001100
//********************************************************************* 00001200
//* 00001300
//ALGOL EXEC PGM=ALGOL,REGION=1024K 00001400
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00001503
//SYSPRINT DD SYSOUT=* 00001600
//SYSPUNCH DD DUMMY 00001700
//SYSLIN DD DSN=&&OBJECT,UNIT=VIO,SPACE=(3200,(20,10)), 00001800
// DISP=(,PASS) 00001900
//SYSUT1 DD UNIT=VIO,SPACE=(2048,(50,10)) 00002000
//SYSUT2 DD UNIT=VIO,SPACE=(2048,(50,10)) 00002100
//SYSUT3 DD UNIT=VIO,SPACE=(2048,(40,10)) 00002200
//LKED EXEC PGM=IEWL,PARM='XREF,LIST,LET',COND=(5,LT,ALGOL), 00002300
// REGION=1024K 00002400
//SYSPRINT DD SYSOUT=* 00002500
//SYSLIB DD DSN=SYSC.ALGLIB,DISP=SHR 00002602
//SYSLMOD DD DSN=&&GOSET(GO),UNIT=VIO,DISP=(,PASS), 00002700
// SPACE=(2048,(100,20,1)) 00002800
//SYSUT1 DD UNIT=VIO,SPACE=(2048,(100,20)) 00002900
//SYSLIN DD DSN=&&OBJECT,DISP=(OLD,DELETE) 00003000
// DD DDNAME=SYSIN 00003100
//GO EXEC PGM=GO,COND=((5,LT,ALGOL),(5,LT,LKED)), 00003200
// REGION=1024K 00003300
//STEPLIB DD DSN=&&GOSET,DISP=(OLD,PASS) 00003400
//ALGLDD01 DD SYSOUT=* 00003500
//SYSPRINT DD SYSOUT=* 00003600
//SYSUT1 DD UNIT=VIO,SPACE=(1024,(20,10)) 00003700
*** END OF MEMBER *** 37 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ASM$C -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 11
//ASM$C PROC MAC='SYS1.MACLIB',MAC1='SYS1.MACLIB' 00010000
//ASM EXEC PGM=AFOX00,REGION=512K 00020002
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00021003
//MACREF DD DUMMY SWITCH FOR MACRO CROSS-REFERENCE 00030001
//SYSLIB DD DSN=&MAC,DISP=SHR 00040000
// DD DSN=&MAC1,DISP=SHR 00050000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSSQ,SPACE=(1700,(600,100)), 00060000
// SEP=(SYSLIB) 00070000
//SYSUT2 DD DSN=&&SYSUT2,UNIT=SYSSQ,SPACE=(1700,(300,50)), 00080000
// SEP=(SYSLIB,SYSUT1) 00090000
//SYSUT3 DD DSN=&&SYSUT3,UNIT=SYSSQ,SPACE=(1700,(300,50)) 00100000
//SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=1089 00110000
//SYSPUNCH DD SYSOUT=B 00120000
*** END OF MEMBER *** 13 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ASM$CG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 12
//ASMXCG PROC MAC='SYS1.MACLIB',MAC1='SYS1.MACLIB' 00050000
//ASM EXEC PGM=AFOX00,PARM=OBJ,REGION=512K 00100000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00101001
//MACREF DD DUMMY SWITCH FOR MACRO CROSS-REFERENCE 00110000
//SYSLIB DD DSN=&MAC,DISP=SHR 00150000
// DD DSN=&MAC1,DISP=SHR 00200000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSSQ,SPACE=(1700,(600,100)), 00250000
// SEP=(SYSLIB) 00300000
//SYSUT2 DD DSN=&&SYSUT2,UNIT=SYSSQ,SPACE=(1700,(300,50)), 00350000
// SEP=(SYSLIB,SYSUT1) 00400000
//SYSUT3 DD DSN=&&SYSUT3,UNIT=SYSSQ,SPACE=(1700,(300,50)) 00450000
//SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=1089 00500000
//SYSPUNCH DD SYSOUT=B 00550000
//SYSGO DD DSN=&&OBJSET,UNIT=SYSSQ,SPACE=(80,(200,50)), 00600000
// DISP=(MOD,PASS) 00650000
//GO EXEC PGM=LOADER,PARM='MAP,PRINT,NOCALL,LET', 00700000
// COND=(8,LT,ASM) 00750000
//SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE) 00800000
//SYSLOUT DD SYSOUT=A 00850000
*** END OF MEMBER *** 19 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ASM$CL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 13
//ASMXCL PROC MAC='SYS1.MACLIB',MAC1='SYS1.MACLIB', 00010000
// LKEDPGM='IEWL' 00010100
//ASM EXEC PGM=AFOX00,PARM=OBJ,REGION=512K 00020000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00030000
//MACREF DD DUMMY SWITCH FOR MACRO CROSS-REFERENCE 00040000
//SYSLIB DD DSN=&MAC,DISP=SHR 00050000
// DD DSN=&MAC1,DISP=SHR 00060000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSSQ,SPACE=(1700,(600,100)), 00070000
// SEP=(SYSLIB) 00080000
//SYSUT2 DD DSN=&&SYSUT2,UNIT=SYSSQ,SPACE=(1700,(300,50)), 00090000
// SEP=(SYSLIB,SYSUT1) 00100000
//SYSUT3 DD DSN=&&SYSUT3,UNIT=SYSSQ,SPACE=(1700,(300,50)) 00110000
//SYSPRINT DD SYSOUT=*,DCB=BLKSIZE=1089 00120000
//SYSPUNCH DD SYSOUT=B 00130000
//SYSGO DD DSN=&&OBJSET,UNIT=SYSSQ,SPACE=(80,(200,50)), 00140000
// DISP=(MOD,PASS) 00150000
//LKED EXEC PGM=&LKEDPGM, 00160000
// PARM=(XREF,LET,LIST,NCAL),REGION=128K, 00160100
// COND=(8,LT,ASM) 00170000
//SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE) 00180000
// DD DDNAME=SYSIN 00190000
//SYSLMOD DD DSN=&&GOSET(GO),UNIT=SYSDA,SPACE=(1024,(50,20,1)), 00200000
// DISP=(MOD,PASS) 00210000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)), 00220000
// SPACE=(1024,(50,20)) 00230000
//SYSPRINT DD SYSOUT=* 00240000
*** END OF MEMBER *** 26 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ASM$CLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 14
//ASMXCLG PROC MAC='SYS1.MACLIB',MAC1='SYS1.MACLIB', 00050000
// LKEDPGM='IEWL' 00050100
//ASM EXEC PGM=AFOX00,PARM=OBJ,REGION=512K 00100000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00101001
//MACREF DD DUMMY SWITCH FOR MACRO CROSS-REFERENCE 00110000
//SYSLIB DD DSN=&MAC,DISP=SHR 00150000
// DD DSN=&MAC1,DISP=SHR 00200000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSSQ,SPACE=(1700,(600,100)), 00250000
// SEP=(SYSLIB) 00300000
//SYSUT2 DD DSN=&&SYSUT2,UNIT=SYSSQ,SPACE=(1700,(300,50)), 00350000
// SEP=(SYSLIB,SYSUT1) 00400000
//SYSUT3 DD DSN=&&SYSUT3,UNIT=SYSSQ,SPACE=(1700,(300,50)) 00450000
//SYSPRINT DD SYSOUT=*,DCB=BLKSIZE=1089 00500000
//SYSPUNCH DD SYSOUT=B 00550000
//SYSGO DD DSN=&&OBJSET,UNIT=SYSSQ,SPACE=(80,(200,50)), 00600000
// DISP=(MOD,PASS) 00650000
//LKED EXEC PGM=&LKEDPGM, 00700000
// PARM=(XREF,LET,LIST,NCAL),REGION=128K, 00700100
// COND=(8,LT,ASM) 00750000
//SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE) 00800000
// DD DDNAME=SYSIN 00850000
//SYSLMOD DD DSN=&&GOSET(GO),UNIT=SYSDA,SPACE=(1024,(50,20,1)), 00900000
// DISP=(MOD,PASS) 00950000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)), 01000000
// SPACE=(1024,(50,20)) 01050000
//SYSPRINT DD SYSOUT=* 01100000
//GO EXEC PGM=*.LKED.SYSLMOD,COND=((8,LT,ASM),(4,LT,LKED)) 01150000
*** END OF MEMBER *** 27 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ASMGC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 15
//ASMGC PROC MAC='SYS1.MACLIB',MAC1='SYS1.MACLIB' 00000100
//ASM EXEC PGM=ASMGASM,REGION=1024K 00000200
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00000302
//SYSLIB DD DSN=&MAC,DISP=SHR 00000400
// DD DSN=&MAC1,DISP=SHR 00000500
//SYSUT1 DD UNIT=SYSDA,SPACE=(3500,(600,100)) 00000600
//SYSUT2 DD UNIT=SYSDA,SPACE=(3500,(600,100)) 00000700
//SYSUT3 DD UNIT=SYSDA,SPACE=(3500,(600,100)) 00000800
//SYSPRINT DD SYSOUT=A 00000900
//SYSTERM DD SYSOUT=* 00001000
//SYSPUNCH DD SYSOUT=B 00001100
//SYSLIN DD DUMMY 00001203
*** END OF MEMBER *** 12 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ASMGCG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 16
//ASMGCG PROC MAC='SYS1.MACLIB',MAC1='SYS1.MACLIB' 00010000
//ASM EXEC PGM=ASMGASM,PARM=OBJ,REGION=1024K 00020000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00021002
//SYSLIB DD DSN=&MAC,DISP=SHR 00030000
// DD DSN=&MAC1,DISP=SHR 00040000
//SYSUT1 DD UNIT=SYSDA,SPACE=(3500,(600,100)) 00050000
//SYSUT2 DD UNIT=SYSDA,SPACE=(3500,(600,100)) 00060000
//SYSUT3 DD UNIT=SYSDA,SPACE=(3500,(600,100)) 00070000
//SYSPRINT DD SYSOUT=A 00080000
//SYSTERM DD SYSOUT=* 00090000
//SYSPUNCH DD SYSOUT=B 00100000
//SYSLIN DD DSN=&&OBJSET,UNIT=SYSSQ,SPACE=(80,(200,50)), 00110000
// DISP=(MOD,PASS) 00120000
//GO EXEC PGM=LOADER,PARM='MAP,PRINT,NOCALL,LET',REGION=1024K, 00130000
// COND=(8,LT,ASM) 00140000
//SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE) 00150000
//SYSLOUT DD SYSOUT=A 00160000
*** END OF MEMBER *** 17 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ASMGCL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 17
//ASMGCL PROC MAC='SYS1.MACLIB',MAC1='SYS1.MACLIB', 00010000
// LKEDPGM='IEWL' 00010100
//ASM EXEC PGM=ASMGASM,PARM=OBJ,REGION=1024K 00020000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00030003
//SYSLIB DD DSN=&MAC,DISP=SHR 00040000
// DD DSN=&MAC1,DISP=SHR 00050000
//SYSUT1 DD UNIT=SYSDA,SPACE=(3500,(600,100)) 00060000
//SYSUT2 DD UNIT=SYSDA,SPACE=(3500,(600,100)) 00070000
//SYSUT3 DD UNIT=SYSDA,SPACE=(3500,(600,100)) 00080000
//SYSPRINT DD SYSOUT=* 00090000
//SYSTERM DD SYSOUT=* 00100000
//SYSPUNCH DD SYSOUT=B 00110000
//SYSLIN DD DSN=&&OBJSET,UNIT=SYSSQ,SPACE=(80,(200,50)), 00120000
// DISP=(MOD,PASS) 00130000
//LKED EXEC PGM=&LKEDPGM, 00140000
// PARM=(XREF,LET,LIST,NCAL),REGION=512K, 00140100
// COND=(8,LT,ASM) 00150000
//SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE) 00160000
// DD DDNAME=SYSIN 00170000
//SYSLMOD DD DSN=&&GOSET(GO),UNIT=SYSDA,SPACE=(1024,(50,20,1)), 00180000
// DISP=(MOD,PASS) 00190000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)), 00200000
// SPACE=(1024,(50,20)) 00210000
//SYSPRINT DD SYSOUT=* 00220000
*** END OF MEMBER *** 24 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ASMGCLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 18
//ASMGCLG PROC MAC='SYS1.MACLIB',MAC1='SYS1.MACLIB', 00010000
// LKEDPGM='IEWL' 00010100
//ASM EXEC PGM=ASMGASM,PARM=OBJ,REGION=1024K 00020000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00021001
//SYSLIB DD DSN=&MAC,DISP=SHR 00030000
// DD DSN=&MAC1,DISP=SHR 00040000
//SYSUT1 DD UNIT=SYSDA,SPACE=(3500,(600,100)) 00050000
//SYSUT2 DD UNIT=SYSDA,SPACE=(3500,(600,100)) 00060000
//SYSUT3 DD UNIT=SYSDA,SPACE=(3500,(600,100)) 00070000
//SYSPRINT DD SYSOUT=* 00080000
//SYSTERM DD SYSOUT=* 00090000
//SYSPUNCH DD SYSOUT=B 00100000
//SYSLIN DD DSN=&&OBJSET,UNIT=SYSSQ,SPACE=(80,(200,50)), 00110000
// DISP=(MOD,PASS) 00120000
//LKED EXEC PGM=&LKEDPGM, 00130000
// PARM=(XREF,LET,LIST,NCAL),REGION=512K, 00130100
// COND=(8,LT,ASM) 00140000
//SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE) 00150000
// DD DDNAME=SYSIN 00160000
//SYSLMOD DD DSN=&&GOSET(GO),UNIT=SYSDA,SPACE=(1024,(50,20,1)), 00170000
// DISP=(MOD,PASS) 00180000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)), 00190000
// SPACE=(1024,(50,20)) 00200000
//SYSPRINT DD SYSOUT=* 00210000
//GO EXEC PGM=*.LKED.SYSLMOD,REGION=1024K, 00220000
// COND=((8,LT,ASM),(4,LT,LKED)) 00230000
*** END OF MEMBER *** 26 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ASMXC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 19
//ASMXC PROC MAC='SYS1.MACLIB',MAC1='SYS1.MACLIB' 00050000
//ASM EXEC PGM=IFOX00,REGION=128K 00100000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00110000
//SYSLIB DD DSN=&MAC,DISP=SHR 00150000
// DD DSN=&MAC1,DISP=SHR 00200000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSSQ,SPACE=(1700,(600,100)), 00250000
// SEP=(SYSLIB) 00300000
//SYSUT2 DD DSN=&&SYSUT2,UNIT=SYSSQ,SPACE=(1700,(300,50)), 00350000
// SEP=(SYSLIB,SYSUT1) 00400000
//SYSUT3 DD DSN=&&SYSUT3,UNIT=SYSSQ,SPACE=(1700,(300,50)) 00450000
//SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=1089 00500000
//SYSPUNCH DD SYSOUT=B 00550000
*** END OF MEMBER *** 12 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ASMXCG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 20
//ASMXCG PROC MAC='SYS1.MACLIB',MAC1='SYS1.MACLIB' 00050000
//ASM EXEC PGM=IFOX00,PARM=OBJ,REGION=128K 00100000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00110000
//SYSLIB DD DSN=&MAC,DISP=SHR 00150000
// DD DSN=&MAC1,DISP=SHR 00200000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSSQ,SPACE=(1700,(600,100)), 00250000
// SEP=(SYSLIB) 00300000
//SYSUT2 DD DSN=&&SYSUT2,UNIT=SYSSQ,SPACE=(1700,(300,50)), 00350000
// SEP=(SYSLIB,SYSUT1) 00400000
//SYSUT3 DD DSN=&&SYSUT3,UNIT=SYSSQ,SPACE=(1700,(300,50)) 00450000
//SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=1089 00500000
//SYSPUNCH DD SYSOUT=B 00550000
//SYSGO DD DSN=&&OBJSET,UNIT=SYSSQ,SPACE=(80,(200,50)), 00600000
// DISP=(MOD,PASS) 00650000
//GO EXEC PGM=LOADER,PARM='MAP,PRINT,NOCALL,LET', 00700000
// COND=(8,LT,ASM) 00750000
//SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE) 00800000
//SYSLOUT DD SYSOUT=A 00850000
*** END OF MEMBER *** 18 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ASMXCL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 21
//ASMXCL PROC MAC='SYS1.MACLIB',MAC1='SYS1.MACLIB', 00050000
// LKEDPGM='IEWL' 00050100
//ASM EXEC PGM=IFOX00,PARM=OBJ,REGION=128K 00100000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00110000
//SYSLIB DD DSN=&MAC,DISP=SHR 00150000
// DD DSN=&MAC1,DISP=SHR 00200000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSSQ,SPACE=(1700,(600,100)), 00250000
// SEP=(SYSLIB) 00300000
//SYSUT2 DD DSN=&&SYSUT2,UNIT=SYSSQ,SPACE=(1700,(300,50)), 00350000
// SEP=(SYSLIB,SYSUT1) 00400000
//SYSUT3 DD DSN=&&SYSUT3,UNIT=SYSSQ,SPACE=(1700,(300,50)) 00450000
//SYSPRINT DD SYSOUT=*,DCB=BLKSIZE=1089 00500000
//SYSPUNCH DD SYSOUT=B 00550000
//SYSGO DD DSN=&&OBJSET,UNIT=SYSSQ,SPACE=(80,(200,50)), 00600000
// DISP=(MOD,PASS) 00650000
//LKED EXEC PGM=&LKEDPGM, 00700000
// PARM=(XREF,LET,LIST,NCAL),REGION=128K, 00700100
// COND=(8,LT,ASM) 00750000
//SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE) 00800000
// DD DDNAME=SYSIN 00850000
//SYSLMOD DD DSN=&&GOSET(GO),UNIT=SYSDA,SPACE=(1024,(50,20,1)), 00900000
// DISP=(MOD,PASS) 00950000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)), 01000000
// SPACE=(1024,(50,20)) 01050000
//SYSPRINT DD SYSOUT=* 01100000
*** END OF MEMBER *** 25 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 ASMXCLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 22
//ASMXCLG PROC MAC='SYS1.MACLIB',MAC1='SYS1.MACLIB', 00050000
// LKEDPGM='IEWL' 00050100
//ASM EXEC PGM=IFOX00,PARM=OBJ,REGION=128K 00100000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00110000
//SYSLIB DD DSN=&MAC,DISP=SHR 00150000
// DD DSN=&MAC1,DISP=SHR 00200000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSSQ,SPACE=(1700,(600,100)), 00250000
// SEP=(SYSLIB) 00300000
//SYSUT2 DD DSN=&&SYSUT2,UNIT=SYSSQ,SPACE=(1700,(300,50)), 00350000
// SEP=(SYSLIB,SYSUT1) 00400000
//SYSUT3 DD DSN=&&SYSUT3,UNIT=SYSSQ,SPACE=(1700,(300,50)) 00450000
//SYSPRINT DD SYSOUT=*,DCB=BLKSIZE=1089 00500000
//SYSPUNCH DD SYSOUT=B 00550000
//SYSGO DD DSN=&&OBJSET,UNIT=SYSSQ,SPACE=(80,(200,50)), 00600000
// DISP=(MOD,PASS) 00650000
//LKED EXEC PGM=&LKEDPGM, 00700000
// PARM=(XREF,LET,LIST,NCAL),REGION=128K, 00700100
// COND=(8,LT,ASM) 00750000
//SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE) 00800000
// DD DDNAME=SYSIN 00850000
//SYSLMOD DD DSN=&&GOSET(GO),UNIT=SYSDA,SPACE=(1024,(50,20,1)), 00900000
// DISP=(MOD,PASS) 00950000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)), 01000000
// SPACE=(1024,(50,20)) 01050000
//SYSPRINT DD SYSOUT=* 01100000
//GO EXEC PGM=*.LKED.SYSLMOD,COND=((8,LT,ASM),(4,LT,LKED)) 01150000
*** END OF MEMBER *** 26 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 A68C -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 23
//A68C PROC TRKS='58,8',A68CLIB='SYSC.A68CLIB',
// REGC=750K,CONDC=,PRINTC='SYSOUT=*',PARMC='F40K/',
// REGT=200K,CONDT='4,LT',PRINTT='SYSOUT=*',PARMT='F40K/'
//A68 EXEC PGM=A68C,REGION=®C,COND=(&CONDC),PARM='&PARMC'
//STEPLIB DD DSNAME=&A68CLIB..MOD,DISP=SHR
//INIT DD DSNAME=&A68CLIB..SYS(INIT),DISP=SHR
//SYSENV DD DSNAME=&A68CLIB..SYS,DISP=SHR
//CODE DD UNIT=SYSDA,DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(&TRKS),RLSE)
//SYSPRINT DD &PRINTC
//PROGRAM DD DDNAME=SYSIN
//*
//Z370 EXEC PGM=Z370,REGION=®T,COND=(&CONDT),PARM='&PARMT'
//STEPLIB DD DSNAME=&A68CLIB..MOD,DISP=SHR
//ZCODE DD DSNAME=*.A68.CODE,DISP=(OLD,DELETE,DELETE)
//SYSPRINT DD &PRINTT
//SYSGO DD UNIT=SYSDA,DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(&TRKS),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=2480)
*** END OF MEMBER *** 19 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 A68CG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 24
//A68CG PROC TRKS='58,8',A68CLIB='SYSC.A68CLIB',
// REGC=750K,CONDC=,PRINTC='SYSOUT=*',PARMC='F40K/',
// REGT=200K,CONDT='4,LT,A68',PRINTT='SYSOUT=*',
// PARMT='F40K/',
// MAPL=NOMAP,PRTL=PRINT,CAL=CALL,LETL=LET,
// PRINTL='SYSOUT=A',
// REGG=128K,CONDG='4,LT,Z370',PRINTG='SYSOUT=*'
//A68 EXEC PGM=A68C,REGION=®C,COND=(&CONDC),PARM='&PARMC'
//STEPLIB DD DSNAME=&A68CLIB..MOD,DISP=SHR
//INIT DD DSNAME=&A68CLIB..SYS(INIT),DISP=SHR
//SYSENV DD DSNAME=&A68CLIB..SYS,DISP=SHR
//CODE DD UNIT=SYSDA,DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(&TRKS),RLSE)
//SYSPRINT DD &PRINTC
//PROGRAM DD DDNAME=SYSIN
//*
//Z370 EXEC PGM=Z370,REGION=®T,COND=(&CONDT),PARM='&PARMT'
//STEPLIB DD DSNAME=&A68CLIB..MOD,DISP=SHR
//ZCODE DD DSNAME=*.A68.CODE,DISP=(OLD,DELETE,DELETE)
//SYSPRINT DD &PRINTT
//SYSGO DD UNIT=SYSDA,DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(&TRKS),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=2480)
//*
//GO EXEC PGM=LOADER,REGION=®G,COND=((&CONDT),(&CONDG)),
// PARM='&MAPL,&PRTL,&CAL,&LETL'
//STEPLIB DD DSNAME=&A68CLIB..MOD,DISP=SHR
//SYSLIB DD DSNAME=&A68CLIB..MOD,DISP=SHR
//SYSLIN DD DSNAME=*.Z370.SYSGO,DISP=(OLD,DELETE,DELETE)
//SYSLOUT DD &PRINTL
//SYSPRINT DD &PRINTG
*** END OF MEMBER *** 31 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 A68CL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 25
//A68CL PROC TRKS='58,8',A68CLIB='SYSC.A68CLIB',
// REGC=750K,CONDC=,PRINTC='SYSOUT=*',PARMC='F40K/',
// REGT=200K,CONDT='4,LT,A68',PRINTT='SYSOUT=*',
// PARMT='F40K/',LKEDPGM='IEWL',
// REGL=96K,CONDL='8,LT,Z370',PRINTL='SYSOUT=*',
// SIZEL='150K,26K',MAPL=NOMAP,XREFL=NOXREF,LISTL=LIST,
// ATTL=,CAL=CALL,LETL=LET,DCBL=DCBS
//A68 EXEC PGM=A68C,REGION=®C,COND=(&CONDC),PARM='&PARMC'
//STEPLIB DD DSNAME=&A68CLIB..MOD,DISP=SHR
//INIT DD DSNAME=&A68CLIB..SYS(INIT),DISP=SHR
//SYSENV DD DSNAME=&A68CLIB..SYS,DISP=SHR
//CODE DD UNIT=SYSDA,DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(&TRKS),RLSE)
//SYSPRINT DD &PRINTC
//PROGRAM DD DDNAME=SYSIN
//*
//Z370 EXEC PGM=Z370,REGION=®T,COND=(&CONDT),PARM='&PARMT'
//STEPLIB DD DSNAME=&A68CLIB..MOD,DISP=SHR
//ZCODE DD DSNAME=*.A68.CODE,DISP=(OLD,DELETE,DELETE)
//SYSPRINT DD &PRINTT
//SYSGO DD UNIT=SYSDA,DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(&TRKS),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//*
//LKED EXEC PGM=&LKEDPGM,
// REGION=®L,COND=((&CONDT),(&CONDL)),
// PARM=('SIZE=(&SIZEL)',&MAPL,&XREFL,&LISTL,&ATTL,&CAL,&DCBL,&LETL)
//SYSPRINT DD &PRINTL
//SYSLIN DD DSNAME=*.Z370.SYSGO,DISP=(OLD,DELETE,DELETE)
// DD DDNAME=SYSIN
//SYSLMOD DD DSNAME=&GOSET(GO),UNIT=SYSDA,SPACE=(TRK,(&TRKS,1)),
// DISP=(MOD,PASS)
//SYSUT1 DD UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)),SPACE=(TRK,(&TRKS))
//SYSLIB DD DSN=&A68CLIB..MOD,DISP=SHR
*** END OF MEMBER *** 34 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 A68CLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 26
//A68CLG PROC TRKS='58,8',A68CLIB='SYSC.A68CLIB',
// REGC=750K,CONDC=,PRINTC='SYSOUT=*',PARMC='F40K/',
// REGT=200K,CONDT='4,LT,A68',PRINTT='SYSOUT=*',
// PARMT='F40K/',LKEDPGM='IEWL',
// REGL=154K,CONDL='4,LT,Z370',PRINTL='SYSOUT=*',
// SIZEL='150K,26K',MAPL=NOMAP,XREFL=NOXREF,LISTL=LIST,
// ATTL=,CAL=CALL,LETL=LET,DCBL=DCBS,
// REGG=128K,CONDG='4,LT,LKED',PARMG='F40K/',
// PRINTG='SYSOUT=*'
//A68 EXEC PGM=A68C,REGION=®C,COND=(&CONDC),PARM='&PARMC'
//STEPLIB DD DSNAME=&A68CLIB..MOD,DISP=SHR
//INIT DD DSNAME=&A68CLIB..SYS(INIT),DISP=SHR
//SYSENV DD DSNAME=&A68CLIB..SYS,DISP=SHR
//CODE DD UNIT=SYSDA,DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(&TRKS),RLSE)
//SYSPRINT DD &PRINTC
//PROGRAM DD DDNAME=SYSIN
//*
//Z370 EXEC PGM=Z370,REGION=®T,COND=(&CONDT),PARM='&PARMT'
//STEPLIB DD DSNAME=&A68CLIB..MOD,DISP=SHR
//ZCODE DD DSNAME=*.A68.CODE,DISP=(OLD,DELETE,DELETE)
//SYSPRINT DD &PRINTT
//SYSGO DD UNIT=SYSDA,DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(&TRKS),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//*
//LKED EXEC PGM=&LKEDPGM,
// REGION=®L,COND=((&CONDT),(&CONDL)),
// PARM=('SIZE=(&SIZEL)',&MAPL,&XREFL,&LISTL,&ATTL,&CAL,&DCBL,&LETL)
//SYSPRINT DD &PRINTL
//SYSLIN DD DSNAME=*.Z370.SYSGO,DISP=(OLD,DELETE,DELETE)
// DD DDNAME=SYSIN
//SYSLMOD DD DSNAME=&GOSET(GO),UNIT=SYSDA,SPACE=(TRK,(&TRKS,1)),
// DISP=(MOD,PASS)
//SYSUT1 DD UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)),SPACE=(TRK,(&TRKS))
//SYSLIB DD DSN=&A68CLIB..MOD,DISP=SHR
//*
//GO EXEC PGM=*.LKED.SYSLMOD,REGION=®G,PARM='&PARMG',
// COND=((&CONDT),(&CONDL),(&CONDG))
//STEPLIB DD DSNAME=&A68CLIB..MOD,DISP=SHR
//SYSPRINT DD &PRINTG
*** END OF MEMBER *** 41 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 A68LG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 27
//A68LG PROC TRKS='58,8',A68CLIB='SYSC.A68CLIB',LKEDPGM='IEWL',
// REGL=154K,PRINTL='SYSOUT=*',
// SIZEL='150K,26K',MAPL=NOMAP,XREFL=NOXREF,LISTL=LIST,
// ATTL=,CAL=CALL,LETL=LET,DCBL=DCBS,
// REGG=100K,CONDG='4,LT,LKED',PARMG='F40K/',
// PRINTG='SYSOUT=*'
//LKED EXEC PGM=&LKEDPGM,REGION=®L,
// PARM=('SIZE=(&SIZEL)',&MAPL,&XREFL,&LISTL,&ATTL,&CAL,&DCBL,&LETL)
//SYSPRINT DD &PRINTL
//SYSLIN DD DDNAME=SYSIN
//SYSLMOD DD DSNAME=&GOSET(GO),UNIT=SYSDA,SPACE=(TRK,(&TRKS,1)),
// DISP=(MOD,PASS)
//SYSUT1 DD UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)),SPACE=(TRK,(&TRKS))
//SYSLIB DD DSN=&A68CLIB..MOD,DISP=SHR
//*
//GO EXEC PGM=*.LKED.SYSLMOD,REGION=®G,PARM='&PARMG',
// COND=(&CONDG)
//STEPLIB DD DSNAME=&A68CLIB..MOD,DISP=SHR
//SYSPRINT DD &PRINTG
*** END OF MEMBER *** 19 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 A68XREF -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 28
//A68XREF PROC TRKS='58,8',A68CLIB='SYSC.A68CLIB',
// REGC=750K,CONDC=,PRINTC='SYSOUT=*',PARMC='F40K/',
// REGX=200K,CONDX=,
// PARMX=,PRINTX='SYSOUT=*',TO='SYSOUT=*'
//*
//A68 EXEC PGM=A68C,REGION=®C,COND=(&CONDC),PARM='&PARMC'
//STEPLIB DD DSNAME=&A68CLIB..MOD,DISP=SHR
//INIT DD DSNAME=&A68CLIB..SYS(INIT),DISP=SHR
//SYSENV DD DSNAME=&A68CLIB..SYS,DISP=SHR
//CODE DD UNIT=SYSDA,DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(&TRKS),RLSE)
//XREF DD UNIT=SYSDA,DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(&TRKS),RLSE)
//SYSPRINT DD &PRINTC
//PROGRAM DD DDNAME=SYSIN
//XREF EXEC PGM=XREF,REGION=®X,
// COND=(&CONDX),
// PARM='&PARMX'
//STEPLIB DD DSNAME=&A68CLIB..MOD,DISP=SHR
//SYSPRINT DD &PRINTX
//TO DD &TO
//*
*** END OF MEMBER *** 22 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 BASICMON -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 29
//BASICMON PROC LIB='SYSC.BASIC331.LIB', 00000103
// OUT='*' 00000200
//* 00000300
//BASIC EXEC PGM=BASICMON,PARM='&LIB' 00000400
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00000503
// DD DSN=SYSC.PL1LIB,DISP=SHR 00000603
//SYSPRINT DD SYSOUT=&OUT 00000700
//* RENUMFL IS USED ONLY IF SYSIN HAS A ++RENUM OR *RENUM___ OPTION 00000800
//* INPUT IS USED ONLY IF THE BASIC PROGRAM HAS INPUT STATEMENTS 00000900
//RENUMFL DD DUMMY, 00001000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) 00001100
//SYSIN DD DUMMY 00001200
//KEYINPT DD DDNAME=INPUT 00001300
*** END OF MEMBER *** 13 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 BASIC1UP -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 30
//BASIC1UP PROC LIB='SYSC.BASIC331.LIB', 00000103
// MAXEXEC=, 00000200
// OUT='*' 00000300
//* 00000400
//BASIC EXEC PGM=BASIC1UP,PARM='&LIB,&MAXEXEC' 00000500
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00000603
// DD DSN=SYSC.PL1LIB,DISP=SHR 00000703
//SYSPRINT DD SYSOUT=&OUT 00000800
//* RENUMFL IS USED ONLY IF SYSIN HAS A ++RENUM OR *RENUM___ OPTION 00000900
//* INPUT IS USED ONLY IF THE BASIC PROGRAM HAS INPUT STATEMENTS 00001000
//RENUMFL DD DUMMY, 00001100
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) 00001200
//SYSIN DD DUMMY 00001300
//KEYINPT DD DDNAME=INPUT 00001400
*** END OF MEMBER *** 14 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 COBUC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 31
//COBUC PROC CPARM1='DECK,NOLOAD,SUPMAP', 100010000
// CPARM2='SIZE=2048K,BUF=1024K' 00020000
//COB EXEC PGM=IKFCBL00,REGION=4096K, 00040000
// PARM='&CPARM1,&CPARM2' 00050000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00051000
//SYSPRINT DD SYSOUT=* 00060000
//SYSPUNCH DD SYSOUT=B 00070000
//SYSUT1 DD UNIT=SYSDA,SPACE=(460,(700,100)) 00080000
//SYSUT2 DD UNIT=SYSDA,SPACE=(460,(700,100)) 00090000
//SYSUT3 DD UNIT=SYSDA,SPACE=(460,(700,100)) 00100000
//SYSUT4 DD UNIT=SYSDA,SPACE=(460,(700,100)) 00110000
*** END OF MEMBER *** 11 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 COBUCG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 32
//COBUCG PROC CPARM1='LOAD', 100010000
// CPARM2='SIZE=2048K,BUF=1024K' 00020000
//COB EXEC PGM=IKFCBL00,REGION=4096K, 00040001
// PARM='&CPARM1,&CPARM2' 00050001
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00051001
//SYSPRINT DD SYSOUT=* 00060000
//SYSUT1 DD UNIT=SYSDA,SPACE=(460,(700,100)) 00070000
//SYSUT2 DD UNIT=SYSDA,SPACE=(460,(700,100)) 00080000
//SYSUT3 DD UNIT=SYSDA,SPACE=(460,(700,100)) 00090000
//SYSUT4 DD UNIT=SYSDA,SPACE=(460,(700,100)) 00100000
//SYSLIN DD DSN=&LOADSET,DISP=(MOD,PASS), 00110000
// UNIT=SYSDA,SPACE=(80,(500,100)) 00120000
//GO EXEC PGM=LOADER,PARM='MAP,LET',COND=(5,LT,COB),REGION=100K 00130000
//SYSLIN DD DSN=*.COB.SYSLIN,DISP=(OLD,DELETE) 00140000
//SYSLOUT DD SYSOUT=A 00150000
//SYSLIB DD DSN=SYSC.COBLIB,DISP=SHR 00160000
*** END OF MEMBER *** 16 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 COBUCL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 33
//COBUCL PROC CPARM1='LOAD,SUPMAP', 100010000
// CPARM2='SIZE=2048K,BUF=1024K', 100020000
// LKEDPGM='IEWL' 00020100
//COB EXEC PGM=IKFCBL00,REGION=4096K, 00040001
// PARM='&CPARM1,&CPARM2' 00050001
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00051001
//SYSPRINT DD SYSOUT=* 00060000
//SYSUT1 DD UNIT=SYSDA,SPACE=(460,(700,100)) 00070000
//SYSUT2 DD UNIT=SYSDA,SPACE=(460,(700,100)) 00080000
//SYSUT3 DD UNIT=SYSDA,SPACE=(460,(700,100)) 00090000
//SYSUT4 DD UNIT=SYSDA,SPACE=(460,(700,100)) 00100000
//SYSLIN DD DSN=&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA, 00110000
// SPACE=(80,(500,100)) 00120000
//LKED EXEC PGM=&LKEDPGM, 00130000
// PARM='LIST,XREF,LET',COND=(5,LT,COB),REGION=96K 00130100
//SYSLIN DD DSN=&LOADSET,DISP=(OLD,DELETE) 00140000
// DD DDNAME=SYSIN 00150000
//SYSLMOD DD DDNAME=SYSLMOD 00160000
//SYSLIB DD DSN=SYSC.COBLIB,DISP=SHR 00170000
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(50,20)) 00180000
//SYSPRINT DD SYSOUT=* 00190000
*** END OF MEMBER *** 21 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 COBUCLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 34
//COBUCLG PROC CPARM1='LOAD,SUPMAP', 100010000
// CPARM2='SIZE=2048K,BUF=1024K', 100020000
// LKEDPGM='IEWL' 00020100
//COB EXEC PGM=IKFCBL00,REGION=4096K, 00040001
// PARM='&CPARM1,&CPARM2' 00050001
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00051001
//SYSPRINT DD SYSOUT=* 00060000
//SYSUT1 DD UNIT=SYSDA,SPACE=(460,(700,100)) 00070000
//SYSUT2 DD UNIT=SYSDA,SPACE=(460,(700,100)) 00080000
//SYSUT3 DD UNIT=SYSDA,SPACE=(460,(700,100)) 00090000
//SYSUT4 DD UNIT=SYSDA,SPACE=(460,(700,100)) 00100000
//SYSLIN DD DSN=&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA, 00110000
// SPACE=(80,(500,100)) 00120000
//LKED EXEC PGM=&LKEDPGM, 100130000
// PARM='LIST,XREF,LET',COND=(5,LT,COB),REGION=96K 00130100
//SYSLIN DD DSN=&LOADSET,DISP=(OLD,DELETE) 00140000
// DD DDNAME=SYSIN 00150000
//SYSLMOD DD DSN=&GODATA(RUN),DISP=(NEW,PASS),UNIT=SYSDA, 00160000
// SPACE=(1024,(50,20,1)) 00170000
//SYSLIB DD DSN=SYSC.COBLIB,DISP=SHR 00180000
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(50,20)) 00190000
//SYSPRINT DD SYSOUT=* 00200000
//GO EXEC PGM=*.LKED.SYSLMOD,COND=((5,LT,COB),(5,LT,LKED)) 00210000
*** END OF MEMBER *** 23 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 COBULG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 35
//COBULG PROC LKEDPGM='IEWL' 00009000
//LKED EXEC PGM=&LKEDPGM, 00010000
// PARM='LIST,XREF,LET',REGION=96K 00010100
//SYSLIN DD DDNAME=SYSIN 00020000
//SYSLMOD DD DSN=&GODATA(RUN),DISP=(NEW,PASS),UNIT=SYSDA, 00030000
// SPACE=(1024,(50,20,1)) 00040000
//SYSLIB DD DSN=SYSC.COBLIB,DISP=SHR 00050000
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(50,20)) 00060000
//SYSPRINT DD SYSOUT=* 00070000
//GO EXEC PGM=*.LKED.SYSLMOD,COND=(5,LT,LKED) 00080000
*** END OF MEMBER *** 10 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 FORTGC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 36
//FORT EXEC PGM=IEYFORT,REGION=100K 00020000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00030000
//SYSPRINT DD SYSOUT=A 00040000
//SYSPUNCH DD SYSOUT=B 00060000
//SYSLIN DD DSNAME=&LOADSET,DISP=(MOD,PASS),UNIT=SYSSQ, X00080000
// SPACE=(80,(200,100),RLSE),DCB=BLKSIZE=80 40080000
*** END OF MEMBER *** 6 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 FORTGCL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 37
//FORTGCL PROC LKEDPGM='IEWL' 00000900
//FORT EXEC PGM=IEYFORT,REGION=100K 00010000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00011001
//SYSPRINT DD SYSOUT=* 00020000
//SYSPUNCH DD SYSOUT=B 00030000
//SYSLIN DD DSNAME=&LOADSET,DISP=(MOD,PASS),UNIT=SYSSQ, X00040000
// SPACE=(80,(200,100),RLSE),DCB=BLKSIZE=80 00050000
//LKED EXEC PGM=&LKEDPGM, 00060000
// REGION=96K,PARM=(XREF,LET,LIST),COND=(4,LT,FORT) 00060100
//SYSLIB DD DSNAME=SYSC.FORTLIB,DISP=SHR 00070000
//SYSLMOD DD DSNAME=&GOSET(MAIN),DISP=(NEW,PASS),UNIT=SYSDA, X00080000
// SPACE=(1024,(20,10,1),RLSE),DCB=BLKSIZE=1024 00090000
//SYSPRINT DD SYSOUT=* 00100000
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,10),RLSE),DCB=BLKSIZE=1024, X00110000
// DSNAME=&SYSUT1 00120000
//SYSLIN DD DSNAME=&LOADSET,DISP=(OLD,DELETE) 00130000
// DD DDNAME=SYSIN 00140000
*** END OF MEMBER *** 17 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 FORTGCLD -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 38
//FORT EXEC PGM=IEYFORT,REGION=100K 00010000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00011001
//SYSPRINT DD SYSOUT=A 00020000
//SYSPUNCH DD SYSOUT=B 00030000
//SYSLIN DD DSNAME=&LOADSET,DISP=(MOD,PASS),UNIT=SYSSQ, X00040000
// SPACE=(80,(200,100),RLSE),DCB=BLKSIZE=80 00050000
//GO EXEC PGM=LOADER,PARM=(MAP,LET,PRINT),COND=(4,LT,FORT) 00060000
//SYSLIB DD DSNAME=SYSC.FORTLIB,DISP=SHR 00070000
//SYSLOUT DD SYSOUT=A 00080000
//SYSLIN DD DSNAME=*.FORT.SYSLIN,DISP=(OLD,DELETE) 00090000
//FT05F001 DD DDNAME=SYSIN 00100000
//FT06F001 DD SYSOUT=A 00110000
//FT07F001 DD SYSOUT=B 00120000
*** END OF MEMBER *** 13 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 FORTGCLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 39
//FORTGCLG PROC LKEDPGM='IEWL' 00009000
//FORT EXEC PGM=IEYFORT,REGION=100K 00010000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00011001
//SYSPRINT DD SYSOUT=* 00020000
//SYSPUNCH DD SYSOUT=B 00030000
//SYSLIN DD DSNAME=&LOADSET,DISP=(MOD,PASS),UNIT=SYSSQ, X00040000
// SPACE=(80,(200,100),RLSE),DCB=BLKSIZE=80 00050000
//LKED EXEC PGM=&LKEDPGM, 00060000
// REGION=96K,PARM=(XREF,LET,LIST),COND=(4,LT,FORT) 00060100
//SYSLIB DD DSNAME=SYSC.FORTLIB,DISP=SHR 00070000
//SYSLMOD DD DSNAME=&GOSET(MAIN),DISP=(NEW,PASS),UNIT=SYSDA, X00080000
// SPACE=(1024,(20,10,1),RLSE),DCB=BLKSIZE=1024 00090000
//SYSPRINT DD SYSOUT=* 00100000
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,10),RLSE),DCB=BLKSIZE=1024, X00110000
// DSNAME=&SYSUT1 00120000
//SYSLIN DD DSNAME=&LOADSET,DISP=(OLD,DELETE) 00130000
// DD DDNAME=SYSIN 00140000
//GO EXEC PGM=*.LKED.SYSLMOD,COND=((4,LT,FORT),(4,LT,LKED)) 00150000
//FT05F001 DD DDNAME=SYSIN 00160000
//FT06F001 DD SYSOUT=* 00170000
//FT07F001 DD SYSOUT=B 00180000
*** END OF MEMBER *** 21 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 FORTGLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 40
//FORTGLG PROC LKEDPGM='IEWL' 00009000
//LKED EXEC PGM=&LKEDPGM, 00010000
// REGION=96K,PARM=(XREF,LET,LIST) 00010100
//SYSLIB DD DSNAME=SYSC.FORTLIB,DISP=SHR 00020000
//SYSLMOD DD DSNAME=&GOSET(MAIN),DISP=(NEW,PASS),UNIT=SYSDA, X00030000
// SPACE=(1024,(20,10,1),RLSE),DCB=BLKSIZE=1024 00040000
//SYSPRINT DD SYSOUT=A 00050000
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,10),RLSE),DCB=BLKSIZE=1024, X00060000
// DSNAME=&SYSUT1 00070000
//SYSLIN DD DDNAME=SYSIN 00080000
//GO EXEC PGM=*.LKED.SYSLMOD,COND=(4,LT,LKED) 00090000
//FT05F001 DD DDNAME=SYSIN 00100000
//FT06F001 DD SYSOUT=A 00110000
//FT07F001 DD SYSOUT=B 00120000
*** END OF MEMBER *** 14 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 FORTHC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 41
//FORT EXEC PGM=IEKAA00,REGION=228K 10000000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 10010000
//SYSPRINT DD SYSOUT=A 20000000
//SYSPUNCH DD SYSOUT=B 30000000
//SYSLIN DD DSNAME=&LOADSET,UNIT=SYSSQ,DISP=(MOD,PASS), *40000000
// SPACE=(400,(200,50),RLSE) 50000000
*** END OF MEMBER *** 6 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 FORTHCL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 42
//FORTHCL PROC LKEDPGM='IEWL' 00009000
//FORT EXEC PGM=IEKAA00,REGION=228K 00010000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00011001
//SYSPRINT DD SYSOUT=* 00020000
//SYSPUNCH DD SYSOUT=B 00030000
//SYSLIN DD DSNAME=&LOADSET,UNIT=SYSSQ,DISP=(MOD,PASS), *00040000
// SPACE=(400,(200,50),RLSE) 00050000
//LKED EXEC PGM=&LKEDPGM, 00060000
// REGION=96K,PARM=(MAP,LET,LIST),COND=(4,LT,FORT) 00060100
//SYSLIB DD DSNAME=SYSC.FORTLIB,DISP=SHR 00070000
//SYSPRINT DD SYSOUT=* 00080000
//SYSLMOD DD DSNAME=&GOSET(MAIN),UNIT=SYSDA,DISP=(,PASS), *00090000
// SPACE=(3072,(30,10,1),RLSE) 00100000
//SYSLIN DD DSNAME=&LOADSET,DISP=(OLD,DELETE) 00110000
// DD DDNAME=SYSIN 00120000
//SYSUT1 DD DSNAME=&SYSUT1,UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD 00130000
*** END OF MEMBER *** 16 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 FORTHCLD -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 43
//FORT EXEC PGM=IEKAA00,REGION=256K 00010000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00011001
//SYSPRINT DD SYSOUT=A 00020000
//SYSPUNCH DD SYSOUT=B 00030000
//SYSLIN DD DSNAME=&LOADSET,UNIT=SYSDA,DISP=(MOD,PASS), 00040000
// SPACE=(400,(200,50),RLSE) 00050000
//GO EXEC PGM=LOADER,PARM=(MAP),COND=(4,LT,FORT) 00060000
//SYSLIB DD DSNAME=SYSC.FORTLIB,DISP=SHR 00070000
//SYSLOUT DD SYSOUT=A 00080000
//SYSLIN DD DSNAME=*.FORT.SYSLIN,DISP=(OLD,PASS) 00090000
//FT05F001 DD DDNAME=SYSIN 00100000
//FT06F001 DD SYSOUT=A 00110000
//FT07F001 DD SYSOUT=B 00120000
*** END OF MEMBER *** 13 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 FORTHCLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 44
//FORTHCLG PROC LKEDPGM='IEWL' 00009000
//FORT EXEC PGM=IEKAA00,REGION=228K 00010000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00011001
//SYSPRINT DD SYSOUT=* 00020000
//SYSPUNCH DD SYSOUT=B 00030000
//SYSLIN DD DSNAME=&LOADSET,UNIT=SYSSQ,DISP=(MOD,PASS), *00040000
// SPACE=(400,(200,50),RLSE) 00050000
//LKED EXEC PGM=&LKEDPGM, 00060000
// REGION=96K,PARM=(MAP,LET,LIST),COND=(4,LT,FORT) 00060100
//SYSLIB DD DSNAME=SYSC.FORTLIB,DISP=SHR 00070000
//SYSPRINT DD SYSOUT=* 00080000
//SYSLMOD DD DSNAME=&GOSET(MAIN),UNIT=SYSDA,DISP=(,PASS), *00090000
// SPACE=(3072,(30,10,1),RLSE) 00100000
//SYSUT1 DD DSNAME=&SYSUT1,UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD 00110000
//SYSLIN DD DSNAME=&LOADSET,DISP=(OLD,DELETE) 00120000
// DD DDNAME=SYSIN 00130000
//GO EXEC PGM=*.LKED.SYSLMOD,COND=((4,LT,FORT),(4,LT,LKED)) 00140000
//FT05F001 DD DDNAME=SYSIN 00150000
//FT06F001 DD SYSOUT=A 00160000
//FT07F001 DD SYSOUT=B 00170000
*** END OF MEMBER *** 20 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 FORTHLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 45
//FORTHLG PROC LKEDPGM='IEWL' 00009000
//LKED EXEC PGM=&LKEDPGM, 00010000
// REGION=96K,PARM=(MAP,LET,LIST) 00010100
//SYSLIB DD DSNAME=SYSC.FORTLIB,DISP=SHR 00020000
//SYSPRINT DD SYSOUT=* 00030000
//SYSLIN DD DDNAME=SYSIN 00040000
//SYSLMOD DD DSNAME=&GOSET(MAIN),UNIT=SYSDA,DISP=(,PASS), *00050000
// SPACE=(3072,(30,10,1),RLSE) 00060000
//SYSUT1 DD DSNAME=&SYSUT1,UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD 00070000
//GO EXEC PGM=*.LKED.SYSLMOD,COND=(4,LT,LKED) 00080000
//FT05F001 DD DDNAME=SYSIN 00090000
//FT06F001 DD SYSOUT=* 00100000
//FT07F001 DD SYSOUT=B 00110000
*** END OF MEMBER *** 13 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 GCCC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 46
//GCCC PROC PDPPREF='PDPCLIB',GCCPREF='GCC',INFILE='',
// COPTS='',
// COS1='-S -ansi -pedantic-errors',
// COS2='-o dd:out -'
//*
//COMP EXEC PGM=GCC,
// PARM='&COPTS &COS1 &COS2'
//STEPLIB DD DSN=&GCCPREF..LINKLIB,DISP=SHR
//*
//* INCLUDE SHOULD HAVE YOUR OWN HEADERS ADDED
//*
//INCLUDE DD DSN=&PDPPREF..INCLUDE,DISP=SHR
//SYSINCL DD DSN=&PDPPREF..INCLUDE,DISP=SHR
//SYSIN DD DSN=&INFILE,DISP=SHR
//OUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//*
*** END OF MEMBER *** 18 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 GCCCL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 47
//GCCCL PROC PDPPREF='PDPCLIB',GCCPREF='GCC',INFILE='',
// OUTFILE='',COPTS='',LKEDPGM='IEWL',LOPTS='MAP',
// COS1='-S -ansi -pedantic-errors',
// COS2='-o dd:out -'
//*
//COMP EXEC PGM=GCC,
// PARM='&COS1 &COPTS &COS2'
//STEPLIB DD DSN=&GCCPREF..LINKLIB,DISP=SHR
//*
//* INCLUDE SHOULD HAVE YOUR OWN HEADERS ADDED
//*
//INCLUDE DD DSN=&PDPPREF..INCLUDE,DISP=SHR
//SYSINCL DD DSN=&PDPPREF..INCLUDE,DISP=SHR
//SYSIN DD DSN=&INFILE,DISP=SHR
//OUT DD DSN=&&TEMP,DISP=(,PASS),UNIT=SYSALLDA,
// DCB=(LRECL=80,BLKSIZE=6160,RECFM=FB),
// SPACE=(6160,(500,500))
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//*
//ASM EXEC PGM=IFOX00,
// PARM='DECK,NOLIST',
// COND=(4,LT,COMP)
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR,DCB=BLKSIZE=32720
// DD DSN=&PDPPREF..MACLIB,DISP=SHR
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(20,10))
//SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(10,10))
//SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(10,10))
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DUMMY
//SYSGO DD DUMMY
//SYSPUNCH DD DSN=&&OBJSET,UNIT=SYSALLDA,SPACE=(80,(4000,4000)),
// DISP=(,PASS)
//SYSIN DD DSN=&&TEMP,DISP=(OLD,DELETE)
//*
//LKED EXEC PGM=&LKEDPGM,PARM='&LOPTS',
// COND=((4,LT,COMP),(4,LT,ASM))
//SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE)
// DD DDNAME=SYSIN
//SYSIN DD DUMMY
//SYSLIB DD DSN=&PDPPREF..NCALIB,DISP=SHR
//SYSLMOD DD DSN=&OUTFILE,DISP=SHR
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(2,1))
//SYSPRINT DD SYSOUT=*
*** END OF MEMBER *** 44 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 GCCCLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 48
//GCCCLG PROC PDPPREF='PDPCLIB',GCCPREF='GCC',INFILE='',
// COPTS='',LKEDPGM='IEWL',LOPTS='MAP',
// COS1='-S -ansi -pedantic-errors',
// COS2='-o dd:out -'
//*
//COMP EXEC PGM=GCC,COND=(4,LT),
// PARM='&COS1 &COPTS &COS2'
//STEPLIB DD DSN=&GCCPREF..LINKLIB,DISP=SHR
//*
//* INCLUDE SHOULD HAVE YOUR OWN HEADERS ADDED
//*
//INCLUDE DD DSN=&PDPPREF..INCLUDE,DISP=SHR
//SYSINCL DD DSN=&PDPPREF..INCLUDE,DISP=SHR
//SYSIN DD DSN=&INFILE,DISP=SHR
//OUT DD DSN=&&TEMP,DISP=(,PASS),UNIT=SYSALLDA,
// DCB=(LRECL=80,BLKSIZE=6160,RECFM=FB),
// SPACE=(6160,(500,500))
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//*
//ASM EXEC PGM=IFOX00,
// PARM='DECK,NOLIST',
// COND=(4,LT,COMP)
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR,DCB=BLKSIZE=32720
// DD DSN=&PDPPREF..MACLIB,DISP=SHR
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(20,10))
//SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(10,10))
//SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(10,10))
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DUMMY
//SYSGO DD DUMMY
//SYSPUNCH DD DSN=&&OBJSET,UNIT=SYSALLDA,SPACE=(80,(200,200)),
// DISP=(,PASS)
//SYSIN DD DSN=&&TEMP,DISP=(OLD,DELETE)
//*
//LKED EXEC PGM=&LKEDPGM,PARM='&LOPTS',
// COND=((4,LT,COMP),(4,LT,ASM))
//SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE)
// DD DDNAME=SYSIN
//SYSIN DD DUMMY
//SYSLIB DD DSN=&PDPPREF..NCALIB,DISP=SHR
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(2,1))
//SYSPRINT DD SYSOUT=*
//SYSLMOD DD DSN=&&GOSET(GO),UNIT=SYSALLDA,SPACE=(1024,(50,20,1)),
// DISP=(MOD,PASS)
//GO EXEC PGM=*.LKED.SYSLMOD,
// COND=((4,LT,COMP),(4,LT,ASM),(4,LT,LKED))
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSIN DD DUMMY
*** END OF MEMBER *** 50 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 MORTGC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 49
//MORTGC PROC MORTCND=, MORTRAN STEP CONDITIONS 00000100
// MORTLB1='SYSC.MACLIB', MORTRAN MACLIB DATASET 00000200
// MORTMAC='MORTMAC1', STANDARD MACRO SET 00000302
// MORTPGM=MORTRAN, MORTRAN COMPILER PROGRAM 00000400
// MORTPRM=, MORTRAN PARAMETERS 00000500
// MORTPRT='SYSOUT=*', MORTRAN SYSPRINT OUTPUT 00000600
// MORTRGN=192K, MORTRAN REGION = 192K 00000700
// MORTTIM='(,30)', MORTRAN DEFAULT TIME SEC 00000800
// MORTVER='CUR', CURRENT MORTRAN PROCESSOR 00000900
// FORTCND=, FORTRAN STEP CONDITIONS 00001000
// FORTPGM=IEYFORT, FORTRAN COMPILER PROGRAM 00001100
// FORTPRM=, FORTRAN PARAMETERS 00001200
// FORTPRT='SYSOUT=*', FORTRAN SYSPRINT OUTPUT 00001300
// FORTRGN=150K, FORTRAN REGION = 150K 00001400
// FORTTIM=, FORTRAN DEFAULT TIME SEC 00001500
// FORTVER=, FORTRAN COMPILER VERSION 00001600
// LISTCND='((5,LE,FORT),EVEN)' FORTLIST STEP CONDITIONS 00001705
//********************************************************************* 00001800
//MORT EXEC PGM=&MORTPGM,REGION=&MORTRGN,TIME=&MORTTIM, 00001900
// COND=&MORTCND,ACCT=(MORTGC,&MORTVER),PARM='&MORTPRM' 00002000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00002106
//* 00002200
//* STEP MORT OF PROCEDURE MORTGC 00002300
//* 00002400
//FT01F001 DD DSN=&MORTLB1(&MORTMAC),DISP=SHR 00002502
//FT05F001 DD DDNAME=SYSIN 00002600
//FT06F001 DD &MORTPRT,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1596,BUFNO=2) 00002700
//FT07F001 DD DSN=&&FORTIN,DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(2,1)), 00002800
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680) 00002900
//********************************************************************* 00003000
//FORT EXEC PGM=&FORTPGM,REGION=&FORTRGN,TIME=&FORTTIM, 00003100
// COND=&FORTCND,ACCT=(MORTGC,&FORTVER),PARM='&FORTPRM' 00003200
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00003306
//* 00003400
//* STEP FORT OF PROCEDURE MORTGC 00003500
//* 00003600
//SYSIN DD DSN=&&FORTIN,DISP=(OLD,DELETE,DELETE) 00003700
//SYSLIN DD DSN=&&LOADSET,SPACE=(1680,(400,80),RLSE,,ROUND), 00003800
// UNIT=SYSDA,DISP=(MOD,PASS,DELETE) 00003900
//SYSPRINT DD DSN=&&FORTOUT,DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(2,1)), 00004000
// DCB=(RECFM=FBA,LRECL=120,BLKSIZE=1680) 00004100
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680), 00004200
// SPACE=(CYL,(1,1),RLSE) 00004300
//********************************************************************* 00004400
//FORTLIST EXEC PGM=IEBGENER,REGION=76K,COND=&LISTCND, 00004500
// ACCT=(MORTGC) 00004602
//* 00004700
//* STEP FORTLIST OF PROCEDURE MORTGC 00004800
//* 00004900
//SYSIN DD DUMMY 00005000
//SYSPRINT DD DUMMY 00005100
//SYSUT1 DD DSN=&&FORTOUT,DISP=(OLD,DELETE,DELETE) 00005200
//SYSUT2 DD &FORTPRT,DCB=(RECFM=FBA,LRECL=120,BLKSIZE=1680) 00005300
//********************************************************************* 00005400
*** END OF MEMBER *** 54 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 MORTGCG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 50
//MORTGCG PROC MORTCND=, MORTRAN STEP CONDITIONS 00000100
// MORTLB1='SYSC.MACLIB', MORTRAN MACLIB DATASET 00000200
// MORTMAC='MORTMAC1', STANDARD MACRO SET 00000301
// MORTPGM=MORTRAN, MORTRAN COMPILER PROGRAM 00000400
// MORTPRM=, MORTRAN PARAMETERS 00000500
// MORTPRT='SYSOUT=*', MORTRAN SYSPRINT OUTPUT 00000600
// MORTRGN=192K, MORTRAN REGION = 192K 00000700
// MORTTIM='(,30)', MORTRAN DEFAULT TIME SEC 00000800
// MORTVER='CUR', CURRENT MORTRAN PROCESSOR 00000900
// FORTCND=, FORTRAN STEP CONDITIONS 00001000
// FORTPGM=IEYFORT, FORTRAN COMPILER PROGRAM 00001100
// FORTPRM=, FORTRAN PARAMETERS 00001200
// FORTPRT='SYSOUT=*', FORTRAN SYSPRINT OUTPUT 00001300
// FORTRGN=150K, FORTRAN REGION = 150K 00001400
// FORTTIM=, FORTRAN DEFAULT TIME SEC 00001500
// FORTVER=, FORTRAN COMPILER VERSION 00001600
// LISTCND='((5,LE,FORT),EVEN)', FORTLIST STEP CONDITIONS 00001702
// LKEDPGM=LOADER, LOADER PROGRAM NAME 00001800
// LKEDPRM=, LOADER PARAMETERS 00001900
// LKEDPRT='SYSOUT=*', LOADER PRINTED OUTPUT 00002000
// LKEDTRM='SYSOUT=*', LOADER SYSTERM OUTPUT 00002100
// GOCND='(5,LT,FORT)', LOAD/GO STEP CONDITIONS 00002200
// GOPRM=, PROBLEM PROGRAM PARAMETERS 00002300
// GOPRT='SYSOUT=*', LOAD/GO STEP FT06F001 OUTPUT 00002400
// GORGN=, DEFAULT LOAD/GO STEP REGION 00002500
// GOTIM=1439, DEFAULT LOAD/GO TIME 00002600
// GOVER= LOAD/GO STEP VERSION OF STEPLIB 00002700
//********************************************************************* 00002800
//MORT EXEC PGM=&MORTPGM,REGION=&MORTRGN,TIME=&MORTTIM, 00002900
// COND=&MORTCND,ACCT=(MORTGCG,&MORTVER),PARM='&MORTPRM' 00003000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00003104
//* 00003200
//* STEP MORT OF PROCEDURE MORTGCG 00003300
//* 00003400
//FT01F001 DD DSN=&MORTLB1(&MORTMAC),DISP=SHR 00003501
//FT05F001 DD DDNAME=SYSIN 00003600
//FT06F001 DD &MORTPRT,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1596,BUFNO=2) 00003700
//FT07F001 DD DSN=&&FORTIN,DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(2,1)), 00003800
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680) 00003900
//********************************************************************* 00004000
//FORT EXEC PGM=&FORTPGM,REGION=&FORTRGN,TIME=&FORTTIM, 00004100
// COND=&FORTCND,ACCT=(MORTGCG,&FORTVER),PARM='&FORTPRM' 00004200
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00004304
//* 00004400
//* STEP FORT OF PROCEDURE MORTGCG 00004500
//* 00004600
//SYSIN DD DSN=&&FORTIN,DISP=(OLD,DELETE,DELETE) 00004700
//SYSLIN DD DSN=&&LOADSET,SPACE=(1680,(400,80),RLSE,,ROUND), 00004800
// UNIT=SYSDA,DISP=(MOD,PASS,DELETE) 00004900
//SYSPRINT DD DSN=&&FORTOUT,DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(2,1)), 00005000
// DCB=(RECFM=FBA,LRECL=120,BLKSIZE=1680) 00005100
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680), 00005200
// SPACE=(CYL,(1,1),RLSE) 00005300
//********************************************************************* 00005400
//FORTLIST EXEC PGM=IEBGENER,REGION=76K,COND=&LISTCND, 00005500
// ACCT=(MORTGCG) 00005603
06JUN24 11.23 MORTGCG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 51
//* 00005700
//* STEP FORTLIST OF PROCEDURE MORTGCG 00005800
//* 00005900
//SYSPRINT DD DUMMY 00006000
//SYSIN DD DUMMY 00006100
//SYSUT1 DD DSN=&&FORTOUT,DISP=(OLD,DELETE,DELETE) 00006200
//SYSUT2 DD &FORTPRT,DCB=(RECFM=FBA,LRECL=120,BLKSIZE=1680) 00006300
//********************************************************************* 00006400
//GO EXEC PGM=&LKEDPGM,REGION=&GORGN,TIME=&GOTIM, 00006500
// COND=&GOCND,ACCT=(MORTGCG,&GOVER),PARM='&LKEDPRM/&GOPRM' 00006600
//* 00006700
//* STEP GO OF PROCEDURE MORTGCG 00006800
//* 00006900
//FT05F001 DD DDNAME=SYSIN 00007000
//FT06F001 DD &GOPRT,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1596,BUFNO=2), 00007100
// SPACE=(CYL,(1,1),RLSE) 00007200
//FT07F001 DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680), 00007300
// SPACE=(CYL,(1,1),RLSE) 00007400
//SYSLIB DD DSN=SYSC.FORTLIB,DISP=SHR 00007500
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) 00007600
// DD DDNAME=SYSLIN2 00007700
//SYSLOUT DD &LKEDPRT,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1573), 00007800
// SPACE=(CYL,(1,1),RLSE) 00007900
//SYSTERM DD &LKEDTRM,DCB=(RECFM=FSA,BLKSIZE=81) 00008000
//********************************************************************* 00009000
*** END OF MEMBER *** 81 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 MORTGCL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 52
//MORTGCL PROC MORTCND=, MORTRAN STEP CONDITIONS 00000100
// MORTLB1='SYSC.MACLIB', MORTRAN MACLIB DATASET 00000200
// MORTMAC='MORTMAC1', STANDARD MACRO SET 00000302
// MORTPGM=MORTRAN, MORTRAN COMPILER PROGRAM 00000400
// MORTPRM=, MORTRAN PARAMETERS 00000500
// MORTPRT='SYSOUT=*', MORTRAN SYSPRINT OUTPUT 00000600
// MORTRGN=192K, MORTRAN REGION = 192K 00000700
// MORTTIM='(,30)', MORTRAN DEFAULT TIME SEC 00000800
// MORTVER='CUR', CURRENT MORTRAN PROCESSOR 00000900
// FORTCND=, FORTRAN STEP CONDITIONS 00001000
// FORTPGM=IEYFORT, FORTRAN COMPILER PROGRAM 00001100
// FORTPRM=, FORTRAN PARAMETERS 00001200
// FORTPRT='SYSOUT=*', FORTRAN SYSPRINT OUTPUT 00001300
// FORTRGN=150K, FORTRAN REGION = 150K 00001400
// FORTTIM=, FORTRAN DEFAULT TIME SEC 00001500
// FORTVER=, FORTRAN COMPILER VERSION 00001600
// LISTCND='((5,LE,FORT),EVEN)', FORTLIST STEP CONDITIONS 00001703
// LKEDCND='(5,LT,FORT)', LKED STEP CONDITIONS 00001800
// LKEDPGM=IEWL, LINK EDITOR PROGRAM NAME 00001900
// LKEDPRM='LET,LIST,MAP', LINK EDITOR PARAMETERS 00002000
// LKEDPRT='SYSOUT=*', LINK EDITOR SYSPRINT OUTPUT 00002100
// LKEDRGN=150K, LINK EDITOR REGION = 150K 00002200
// LKEDTIM=, LINK EDITOR DEFAULT TIME 00002300
// LKEDTRM='SYSOUT=*', LINK EDITOR SYSTERM OUTPUT 00002400
// LKEDVER= LINK EDITOR VERSION 00002500
//********************************************************************* 00002600
//MORT EXEC PGM=&MORTPGM,REGION=&MORTRGN,TIME=&MORTTIM, 00002700
// COND=&MORTCND,ACCT=(MORTGCL,&MORTVER),PARM='&MORTPRM' 00002800
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00002904
//* 00003000
//* STEP MORT OF PROCEDURE MORTGCL 00003100
//* 00003200
//FT01F001 DD DSN=&MORTLB1(&MORTMAC),DISP=SHR 00003302
//FT05F001 DD DDNAME=SYSIN 00003400
//FT06F001 DD &MORTPRT,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1596,BUFNO=2) 00003500
//FT07F001 DD DSN=&&FORTIN,DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(2,1)), 00003600
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680) 00003700
//********************************************************************* 00003800
//FORT EXEC PGM=&FORTPGM,REGION=&FORTRGN,TIME=&FORTTIM, 00003900
// COND=&FORTCND,ACCT=(MORTGCL,&FORTVER),PARM='&FORTPRM' 00004000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00004104
//* 00004200
//* STEP FORT OF PROCEDURE MORTGCL 00004300
//* 00004400
//SYSIN DD DSN=&&FORTIN,DISP=(OLD,DELETE,DELETE) 00004500
//SYSLIN DD DSN=&&LOADSET,SPACE=(1680,(400,80),RLSE,,ROUND), 00004600
// UNIT=SYSDA,DISP=(MOD,PASS,DELETE) 00004700
//SYSPRINT DD DSN=&&FORTOUT,DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(2,1)), 00004800
// DCB=(RECFM=FBA,LRECL=120,BLKSIZE=1680) 00004900
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680), 00005000
// SPACE=(CYL,(1,1),RLSE) 00005100
//********************************************************************* 00005200
//FORTLIST EXEC PGM=IEBGENER,REGION=76K,COND=&LISTCND, 00005300
// ACCT=(MORTGCL) 00005401
//* 00005500
//* STEP FORTLIST OF PROCEDURE MORTGCL 00005600
06JUN24 11.23 MORTGCL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 53
//* 00005700
//SYSIN DD DUMMY 00005800
//SYSPRINT DD DUMMY 00005900
//SYSUT1 DD DSN=&&FORTOUT,DISP=(OLD,DELETE,DELETE) 00006000
//SYSUT2 DD &FORTPRT,DCB=(RECFM=FBA,LRECL=120,BLKSIZE=1680) 00006100
//********************************************************************* 00006200
//LKED EXEC PGM=&LKEDPGM,REGION=&LKEDRGN,TIME=&LKEDTIM, 00006300
// COND=&LKEDCND,ACCT=(MORTGCL,&LKEDVER),PARM='&LKEDPRM' 00006400
//* 00006500
//* STEP LKED OF PROCEDURE MORTGCL 00006600
//* 00006700
//SYSLIB DD DSN=SYSC.FORTLIB,DISP=SHR 00006800
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) 00006900
// DD DDNAME=SYSIN 00007000
//SYSLMOD DD DSN=&&GOSET(MAIN),UNIT=SYSDA,DISP=(NEW,PASS,DELETE), 00007100
// SPACE=(TRK,(100,20,1)) 00007200
//SYSPRINT DD &LKEDPRT,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1573), 00007300
// SPACE=(CYL,(1,1),RLSE) 00007400
//SYSTERM DD &LKEDTRM,DCB=(RECFM=FBA,BLKSIZE=121,LRECL=121) 00007500
//SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(100,20)) 00007600
//********************************************************************* 00007700
*** END OF MEMBER *** 77 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 MORTGCLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 54
//MORTGCLG PROC MORTCND=, MORTRAN STEP CONDITIONS 00000100
// MORTLB1='SYSC.MACLIB', MORTRAN MACLIB DATASET 00000200
// MORTMAC='MORTMAC1', STANDARD MACRO SET 00000302
// MORTPGM=MORTRAN, MORTRAN COMPILER PROGRAM 00000400
// MORTPRM=, MORTRAN PARAMETERS 00000500
// MORTPRT='SYSOUT=*', MORTRAN SYSPRINT OUTPUT 00000600
// MORTRGN=192K, MORTRAN REGION = 192K 00000700
// MORTTIM='(,30)', MORTRAN DEFAULT TIME SEC 00000800
// MORTVER='CUR', CURRENT MORTRAN PROCESSOR 00000900
// FORTCND=, FORTRAN STEP CONDITIONS 00001000
// FORTPGM=IEYFORT, FORTRAN COMPILER PROGRAM 00001100
// FORTPRM=, FORTRAN PARAMETERS 00001200
// FORTPRT='SYSOUT=*', FORTRAN SYSPRINT OUTPUT 00001300
// FORTRGN=150K, FORTRAN REGION = 150K 00001400
// FORTTIM=, FORTRAN DEFAULT TIME SEC 00001500
// FORTVER=, FORTRAN COMPILER VERSION 00001600
// LISTCND='((5,LE,FORT),EVEN)', FORTLIST STEP CONDITIONS 00001703
// LKEDCND='(5,LT,FORT)', LKED STEP CONDITIONS 00001800
// LKEDPGM=IEWL, LINK EDITOR PROGRAM NAME 00001900
// LKEDPRM='LET,LIST,MAP', LINK EDITOR PARAMETERS 00002000
// LKEDPRT='SYSOUT=*', LINK EDITOR SYSPRINT OUTPUT 00002100
// LKEDRGN=150K, LINK EDITOR REGION = 150K 00002200
// LKEDTIM=, LINK EDITOR DEFAULT TIME 00002300
// LKEDTRM='SYSOUT=*', LINK EDITOR SYSTERM OUTPUT 00002400
// LKEDVER=, LINK EDITOR VERSION 00002500
// GOCND='((5,LT,FORT),(5,LT,LKED))', GO STEP CONDITIONS 00002600
// GOPGM='*.LKED.SYSLMOD', GO STEP PROGRAM NAME 00002700
// GOPRM=, GO STEP PARAMETERS 00002800
// GOPRT='SYSOUT=*', GO STEP FT06F001 OUTPUT 00002900
// GORGN=, DEFAULT GO STEP REGION 00003000
// GOTIM=1439, DEFAULT GO TIME 00003100
// GOVER= GO STEP VERSION OF STEPLIB 00003200
//********************************************************************* 00003300
//MORT EXEC PGM=&MORTPGM,REGION=&MORTRGN,TIME=&MORTTIM, 00003400
// COND=&MORTCND,ACCT=(MORTGCLG,&MORTVER),PARM='&MORTPRM' 00003500
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00003604
//* 00003700
//* STEP MORT OF PROCEDURE MORTGCLG 00003800
//* 00003900
//FT01F001 DD DSN=&MORTLB1(&MORTMAC),DISP=SHR 00004002
//FT05F001 DD DDNAME=SYSIN 00004100
//FT06F001 DD &MORTPRT,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1596,BUFNO=2) 00004200
//FT07F001 DD DSN=&&FORTIN,DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(2,1)), 00004300
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680) 00004400
//********************************************************************* 00004500
//FORT EXEC PGM=&FORTPGM,REGION=&FORTRGN,TIME=&FORTTIM, 00004600
// COND=&FORTCND,ACCT=(MORTGCLG,&FORTVER),PARM='&FORTPRM' 00004700
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00004804
//* 00004900
//* STEP FORT OF PROCEDURE MORTGCLG 00005000
//* 00005100
//SYSIN DD DSN=&&FORTIN,DISP=(OLD,DELETE,DELETE) 00005200
//SYSLIN DD DSN=&&LOADSET,SPACE=(1680,(400,80),RLSE,,ROUND), 00005300
// UNIT=SYSDA,DISP=(MOD,PASS,DELETE) 00005400
//SYSPRINT DD DSN=&&FORTOUT,DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(2,1)), 00005500
// DCB=(RECFM=FBA,LRECL=120,BLKSIZE=1680) 00005600
06JUN24 11.23 MORTGCLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 55
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680), 00005700
// SPACE=(CYL,(1,1),RLSE) 00005800
//********************************************************************* 00005900
//FORTLIST EXEC PGM=IEBGENER,REGION=76K,COND=&LISTCND, 00006000
// ACCT=(MORTGCLG) 00006101
//* 00006200
//* STEP FORTLIST OF PROCEDURE MORTGCLG 00006300
//* 00006400
//SYSIN DD DUMMY 00006500
//SYSPRINT DD DUMMY 00006600
//SYSUT1 DD DSN=&&FORTOUT,DISP=(OLD,DELETE,DELETE) 00006700
//SYSUT2 DD &FORTPRT,DCB=(RECFM=FBA,LRECL=120,BLKSIZE=1680) 00006800
//********************************************************************* 00006900
//LKED EXEC PGM=&LKEDPGM,REGION=&LKEDRGN,TIME=&LKEDTIM, 00007000
// COND=&LKEDCND,ACCT=(MORTGCLG,&LKEDVER),PARM='&LKEDPRM' 00007100
//* 00007200
//* STEP LKED OF PROCEDURE MORTGCLG 00007300
//* 00007400
//SYSLIB DD DSN=SYSC.FORTLIB,DISP=SHR 00007500
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) 00007600
// DD DDNAME=SYSIN 00007700
//SYSLMOD DD DSN=&&GOSET(MAIN),UNIT=SYSDA,DISP=(NEW,PASS,DELETE), 00007800
// SPACE=(TRK,(100,20,1)) 00007900
//SYSPRINT DD &LKEDPRT,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1573), 00008000
// SPACE=(CYL,(1,1),RLSE) 00008100
//SYSTERM DD &LKEDTRM,DCB=(RECFM=FBA,BLKSIZE=121,LRECL=121) 00008200
//SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(100,20)) 00008300
//********************************************************************* 00008400
//GO EXEC PGM=&GOPGM,REGION=&GORGN,TIME=&GOTIM, 00008500
// COND=&GOCND,ACCT=(MORTGCLG,&GOVER),PARM='&GOPRM' 00008600
//* 00008700
//* STEP GO OF PROCEDURE MORTGCLG 00008800
//* 00008900
//FT05F001 DD DDNAME=SYSIN 00009000
//FT06F001 DD &GOPRT,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1596,BUFNO=2), 00009100
// SPACE=(CYL,(1,1),RLSE) 00009200
//FT07F001 DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680), 00009300
// SPACE=(CYL,(1,1),RLSE) 00009400
//STEPLIB DD DSN=SYSC.FORTLIB,DISP=SHR 00009500
// DD DSN=&&GOSET,DISP=(MOD,DELETE),SPACE=(TRK,(1,0,1)), 00009600
// UNIT=SYSDA 00009700
//********************************************************************* 00009800
*** END OF MEMBER *** 98 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 MORTHC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 56
//MORTHC PROC MORTCND=, MORTRAN STEP CONDITIONS 00000100
// MORTLB1='SYSC.MACLIB', MORTRAN MACLIB DATASET 00000200
// MORTMAC='MORTMAC1', STANDARD MACRO SET 00000301
// MORTPGM=MORTRAN, MORTRAN COMPILER PROGRAM 00000400
// MORTPRM=, MORTRAN PARAMETERS 00000500
// MORTPRT='SYSOUT=*', MORTRAN SYSPRINT OUTPUT 00000600
// MORTRGN=192K, MORTRAN REGION = 192K 00000700
// MORTTIM='(,30)', MORTRAN DEFAULT TIME SEC 00000800
// MORTVER='CUR', CURRENT MORTRAN PROCESSOR 00000900
// FORTCND=, FORTRAN STEP CONDITIONS 00001000
// FORTPGM=IEKAA00, FORTRAN COMPILER PROGRAM 00001100
// FORTPRM=, FORTRAN PARAMETERS 00001200
// FORTPRT='SYSOUT=*', FORTRAN SYSPRINT OUTPUT 00001300
// FORTRGN=200K, FORTRAN REGION = 200K 00001400
// FORTTIM=, FORTRAN DEFAULT TIME SEC 00001500
// FORTVER=, FORTRAN COMPILER VERSION 00001600
// LISTCND='((5,LE,FORT),EVEN)' FORTLIST STEP CONDITIONS 00001702
//********************************************************************* 00001800
//MORT EXEC PGM=&MORTPGM,REGION=&MORTRGN,TIME=&MORTTIM, 00001900
// COND=&MORTCND,ACCT=(MORTHC,&MORTVER),PARM='&MORTPRM' 00002000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00002103
//* 00002200
//* STEP MORT OF PROCEDURE MORTHC 00002300
//* 00002400
//FT01F001 DD DSN=&MORTLB1(&MORTMAC),DISP=SHR 00002501
//FT05F001 DD DDNAME=SYSIN 00002600
//FT06F001 DD &MORTPRT,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1596,BUFNO=2) 00002700
//FT07F001 DD DSN=&&FORTIN,DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(2,1)), 00002800
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680) 00002900
//********************************************************************* 00003000
//FORT EXEC PGM=&FORTPGM,REGION=&FORTRGN,TIME=&FORTTIM, 00003100
// COND=&FORTCND,ACCT=(MORTHC,&FORTVER),PARM='&FORTPRM' 00003200
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00003303
//* 00003400
//* STEP FORT OF PROCEDURE MORTHC 00003500
//* 00003600
//SYSIN DD DSN=&&FORTIN,DISP=(OLD,DELETE,DELETE) 00003700
//SYSLIN DD DSN=&&LOADSET,SPACE=(1680,(400,80),RLSE,,ROUND), 00003800
// UNIT=SYSDA,DISP=(MOD,PASS,DELETE),DCB=(BLKSIZE=1680) 00003900
//SYSPRINT DD DSN=&&FORTOUT,DCB=(RECFM=VBA,LRECL=137,BLKSIZE=1644), 00004000
// SPACE=(CYL,(2,1)),DISP=(,PASS),UNIT=SYSDA 00004100
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680), 00004200
// SPACE=(CYL,(1,1),RLSE) 00004300
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,100)) FOR EDIT OPTION 00004400
//SYSUT2 DD UNIT=SYSDA,SPACE=(1024,(100,100)) FOR XREF OPTION 00004500
//********************************************************************* 00004600
//FORTLIST EXEC PGM=IEBGENER,REGION=76K,COND=&LISTCND, 00004700
// ACCT=(MORTHC) 00004802
//* 00004900
//* STEP FORTLIST OF PROCEDURE MORTHC 00005000
//* 00005100
//SYSIN DD DUMMY 00005200
//SYSPRINT DD DUMMY 00005300
//SYSUT1 DD DSN=&&FORTOUT,DISP=(OLD,DELETE,DELETE) 00005400
//SYSUT2 DD &FORTPRT,DCB=(RECFM=VBA,LRECL=137,BLKSIZE=1644) 00005500
//********************************************************************* 00005600
06JUN24 11.23 MORTHC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 57
*** END OF MEMBER *** 56 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 MORTHCG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 58
//MORTHCG PROC MORTCND=, MORTRAN STEP CONDITIONS 00000100
// MORTLB1='SYSC.MACLIB', MORTRAN MACLIB DATASET 00000200
// MORTMAC='MORTMAC1', STANDARD MACRO SET 00000301
// MORTPGM=MORTRAN, MORTRAN COMPILER PROGRAM 00000400
// MORTPRM=, MORTRAN PARAMETERS 00000500
// MORTPRT='SYSOUT=*', MORTRAN SYSPRINT OUTPUT 00000600
// MORTRGN=192K, MORTRAN REGION = 192K 00000700
// MORTTIM='(,30)', MORTRAN DEFAULT TIME SEC 00000800
// MORTVER='CUR', CURRENT MORTRAN PROCESSOR 00000900
// FORTCND=, FORTRAN STEP CONDITIONS 00001000
// FORTPGM=IEKAA00, FORTRAN COMPILER PROGRAM 00001100
// FORTPRM=, FORTRAN PARAMETERS 00001200
// FORTPRT='SYSOUT=*', FORTRAN SYSPRINT OUTPUT 00001300
// FORTRGN=200K, FORTRAN REGION = 200K 00001400
// FORTTIM=, FORTRAN DEFAULT TIME SEC 00001500
// FORTVER=, FORTRAN COMPILER VERSION 00001600
// LISTCND='((5,LE,FORT),EVEN)', FORTLIST STEP CONDITIONS 00001701
// LKEDPGM=LOADER, LOADER PROGRAM NAME 00001800
// LKEDPRM=, LOADER PARAMETERS 00001900
// LKEDPRT='SYSOUT=*', LOADER PRINTED OUTPUT 00002000
// LKEDTRM='SYSOUT=*', LOADER SYSTERM OUTPUT 00002100
// GOCND='(5,LT,FORT)', LOAD/GO STEP CONDITIONS 00002200
// GOPRM=, PROBLEM PROGRAM PARAMETERS 00002300
// GOPRT='SYSOUT=*', LOAD/GO STEP FT06F001 OUTPUT 00002400
// GORGN=, DEFAULT LOAD/GO STEP REGION 00002500
// GOTIM=1439, DEFAULT LOAD/GO TIME 00002600
// GOVER= LOAD/GO STEP VERSION OF STEPLIB 00002700
//********************************************************************* 00002800
//MORT EXEC PGM=&MORTPGM,REGION=&MORTRGN,TIME=&MORTTIM, 00002900
// COND=&MORTCND,ACCT=(MORTHCG,&MORTVER),PARM='&MORTPRM' 00003000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00003102
//* 00003200
//* STEP MORT OF PROCEDURE MORTHCG 00003300
//* 00003400
//FT01F001 DD DSN=&MORTLB1(&MORTMAC),DISP=SHR 00003501
//FT05F001 DD DDNAME=SYSIN 00003600
//FT06F001 DD &MORTPRT,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1596,BUFNO=2) 00003700
//FT07F001 DD DSN=&&FORTIN,DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(2,1)), 00003800
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680) 00003900
//********************************************************************* 00004000
//FORT EXEC PGM=&FORTPGM,REGION=&FORTRGN,TIME=&FORTTIM, 00004100
// COND=&FORTCND,ACCT=(MORTHCG,&FORTVER),PARM='&FORTPRM' 00004200
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00004302
//* 00004400
//* STEP FORT OF PROCEDURE MORTHCG 00004500
//* 00004600
//SYSIN DD DSN=&&FORTIN,DISP=(OLD,DELETE,DELETE) 00004700
//SYSLIN DD DSN=&&LOADSET,SPACE=(1680,(400,80),RLSE,,ROUND), 00004800
// UNIT=SYSDA,DISP=(MOD,PASS,DELETE),DCB=(BLKSIZE=1680) 00004900
//SYSPRINT DD DSN=&&FORTOUT,DCB=(RECFM=VBA,LRECL=137,BLKSIZE=1644), 00005000
// SPACE=(CYL,(2,1)),DISP=(,PASS),UNIT=SYSDA 00005100
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680), 00005200
// SPACE=(CYL,(1,1),RLSE) 00005300
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,100)) FOR EDIT OPTION 00005400
//SYSUT2 DD UNIT=SYSDA,SPACE=(1024,(100,100)) FOR XREF OPTION 00005500
//********************************************************************* 00005600
06JUN24 11.23 MORTHCG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 59
//FORTLIST EXEC PGM=IEBGENER,REGION=76K,COND=&LISTCND, 00005700
// ACCT=(MORTHCG) 00005801
//* 00005900
//* STEP FORTLIST OF PROCEDURE MORTHCG 00006000
//* 00006100
//SYSPRINT DD DUMMY 00006200
//SYSIN DD DUMMY 00006300
//SYSUT1 DD DSN=&&FORTOUT,DISP=(OLD,DELETE,DELETE) 00006400
//SYSUT2 DD &FORTPRT,DCB=(RECFM=VBA,LRECL=137,BLKSIZE=1644) 00006500
//********************************************************************* 00006600
//GO EXEC PGM=&LKEDPGM,REGION=&GORGN,TIME=&GOTIM, 00006700
// COND=&GOCND,ACCT=(MORTHCG,&GOVER),PARM='&LKEDPRM/&GOPRM' 00006800
//* 00006900
//* STEP GO OF PROCEDURE MORTHCG 00007000
//* 00007100
//FT05F001 DD DDNAME=SYSIN 00007200
//FT06F001 DD &GOPRT,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1596,BUFNO=2), 00007300
// SPACE=(CYL,(1,1),RLSE) 00007400
//FT07F001 DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680), 00007500
// SPACE=(CYL,(1,1),RLSE) 00007600
//SYSLIB DD DSN=SYSC.FORTLIB,DISP=SHR 00007700
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) 00007800
// DD DDNAME=SYSLIN2 00007900
//SYSLOUT DD &LKEDPRT,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1573), 00008000
// SPACE=(CYL,(1,1),RLSE) 00008100
//SYSTERM DD &LKEDTRM,DCB=(RECFM=FSA,BLKSIZE=81) 00008200
//********************************************************************* 00008300
*** END OF MEMBER *** 83 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 MORTHCL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 60
//MORTHCL PROC MORTCND=, MORTRAN STEP CONDITIONS 00000100
// MORTLB1='SYSC.MACLIB', MORTRAN MACLIB DATASET 00000200
// MORTMAC='MORTMAC1', STANDARD MACRO SET 00000301
// MORTPGM=MORTRAN, MORTRAN COMPILER PROGRAM 00000400
// MORTPRM=, MORTRAN PARAMETERS 00000500
// MORTPRT='SYSOUT=*', MORTRAN SYSPRINT OUTPUT 00000600
// MORTRGN=192K, MORTRAN REGION = 192K 00000700
// MORTTIM='(,30)', MORTRAN DEFAULT TIME SEC 00000800
// MORTVER='CUR', CURRENT MORTRAN PROCESSOR 00000900
// FORTCND=, FORTRAN STEP CONDITIONS 00001000
// FORTPGM=IEKAA00, FORTRAN COMPILER PROGRAM 00001100
// FORTPRM=, FORTRAN PARAMETERS 00001200
// FORTPRT='SYSOUT=*', FORTRAN SYSPRINT OUTPUT 00001300
// FORTRGN=200K, FORTRAN REGION = 200K 00001400
// FORTTIM=, FORTRAN DEFAULT TIME SEC 00001500
// FORTVER=, FORTRAN COMPILER VERSION 00001600
// LISTCND='((5,LE,FORT),EVEN)', FORTLIST STEP CONDITIONS 00001701
// LKEDCND='(5,LT,FORT)', LKED STEP CONDITIONS 00001800
// LKEDPGM=IEWL, LINK EDITOR PROGRAM NAME 00001900
// LKEDPRM='LET,LIST,MAP', LINK EDITOR PARAMETERS 00002000
// LKEDPRT='SYSOUT=*', LINK EDITOR SYSPRINT OUTPUT 00002100
// LKEDRGN=150K, LINK EDITOR REGION = 150K 00002200
// LKEDTIM=, LINK EDITOR DEFAULT TIME 00002300
// LKEDTRM='SYSOUT=*', LINK EDITOR SYSTERM OUTPUT 00002400
// LKEDVER= LINK EDITOR VERSION 00002500
//********************************************************************* 00002600
//MORT EXEC PGM=&MORTPGM,REGION=&MORTRGN,TIME=&MORTTIM, 00002700
// COND=&MORTCND,ACCT=(MORTHCL,&MORTVER),PARM='&MORTPRM' 00002800
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00002902
//* 00003000
//* STEP MORT OF PROCEDURE MORTHCL 00003100
//* 00003200
//FT01F001 DD DSN=&MORTLB1(&MORTMAC),DISP=SHR 00003301
//FT05F001 DD DDNAME=SYSIN 00003400
//FT06F001 DD &MORTPRT,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1596,BUFNO=2) 00003500
//FT07F001 DD DSN=&&FORTIN,DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(2,1)), 00003600
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680) 00003700
//********************************************************************* 00003800
//FORT EXEC PGM=&FORTPGM,REGION=&FORTRGN,TIME=&FORTTIM, 00003900
// COND=&FORTCND,ACCT=(MORTHCL,&FORTVER),PARM='&FORTPRM' 00004000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00004102
//* 00004200
//* STEP FORT OF PROCEDURE MORTHCL 00004300
//* 00004400
//SYSIN DD DSN=&&FORTIN,DISP=(OLD,DELETE,DELETE) 00004500
//SYSLIN DD DSN=&&LOADSET,SPACE=(1680,(400,80),RLSE,,ROUND), 00004600
// UNIT=SYSDA,DISP=(MOD,PASS,DELETE),DCB=(BLKSIZE=1680) 00004700
//SYSPRINT DD DSN=&&FORTOUT,DCB=(RECFM=VBA,LRECL=137,BLKSIZE=1644), 00004800
// SPACE=(CYL,(2,1)),DISP=(,PASS),UNIT=SYSDA 00004900
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680), 00005000
// SPACE=(CYL,(1,1),RLSE) 00005100
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,100)) FOR EDIT OPTION 00005200
//SYSUT2 DD UNIT=SYSDA,SPACE=(1024,(100,100)) FOR XREF OPTION 00005300
//********************************************************************* 00005400
//FORTLIST EXEC PGM=IEBGENER,REGION=76K,COND=&LISTCND, 00005500
// ACCT=(MORTHCL) 00005601
06JUN24 11.23 MORTHCL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 61
//* 00005700
//* STEP FORTLIST OF PROCEDURE MORTHCL 00005800
//* 00005900
//SYSIN DD DUMMY 00006000
//SYSPRINT DD DUMMY 00006100
//SYSUT1 DD DSN=&&FORTOUT,DISP=(OLD,DELETE,DELETE) 00006200
//SYSUT2 DD &FORTPRT,DCB=(RECFM=VBA,LRECL=137,BLKSIZE=1644) 00006300
//********************************************************************* 00006400
//LKED EXEC PGM=&LKEDPGM,REGION=&LKEDRGN,TIME=&LKEDTIM, 00006500
// COND=&LKEDCND,ACCT=(MORTHCL,&LKEDVER),PARM='&LKEDPRM' 00006600
//* 00006700
//* STEP LKED OF PROCEDURE MORTHCL 00006800
//* 00006900
//SYSLIB DD DSN=SYSC.FORTLIB,DISP=SHR 00007000
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) 00007100
// DD DDNAME=SYSIN 00007200
//SYSLMOD DD DSN=&&GOSET(MAIN),UNIT=SYSDA,DISP=(NEW,PASS,DELETE), 00007300
// SPACE=(TRK,(100,20,1)) 00007400
//SYSPRINT DD &LKEDPRT,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1573), 00007500
// SPACE=(CYL,(1,1),RLSE) 00007600
//SYSTERM DD &LKEDTRM,DCB=(RECFM=FBA,BLKSIZE=121,LRECL=121) 00007700
//SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(100,20)) 00007800
//********************************************************************* 00007900
*** END OF MEMBER *** 79 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 MORTHCLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 62
//MORTHCLG PROC MORTCND=, MORTRAN STEP CONDITIONS 00000100
// MORTLB1='SYSC.MACLIB', MORTRAN MACLIB DATASET 00000200
// MORTMAC='MORTMAC1', STANDARD MACRO SET 00000301
// MORTPGM=MORTRAN, MORTRAN COMPILER PROGRAM 00000400
// MORTPRM=, MORTRAN PARAMETERS 00000500
// MORTPRT='SYSOUT=*', MORTRAN SYSPRINT OUTPUT 00000600
// MORTRGN=192K, MORTRAN REGION = 192K 00000700
// MORTTIM='(,30)', MORTRAN DEFAULT TIME SEC 00000800
// MORTVER='CUR', CURRENT MORTRAN PROCESSOR 00000900
// FORTCND=, FORTRAN STEP CONDITIONS 00001000
// FORTPGM=IEKAA00, FORTRAN COMPILER PROGRAM 00001100
// FORTPRM=, FORTRAN PARAMETERS 00001200
// FORTPRT='SYSOUT=*', FORTRAN SYSPRINT OUTPUT 00001300
// FORTRGN=200K, FORTRAN REGION = 200K 00001400
// FORTTIM=, FORTRAN DEFAULT TIME SEC 00001500
// FORTVER=, FORTRAN COMPILER VERSION 00001600
// LISTCND='((5,LE,FORT),EVEN)', FORTLIST STEP CONDITIONS 00001701
// LKEDCND='(5,LT,FORT)', LKED STEP CONDITIONS 00001800
// LKEDPGM=IEWL, LINK EDITOR PROGRAM NAME 00001900
// LKEDPRM='LET,LIST,MAP', LINK EDITOR PARAMETERS 00002000
// LKEDPRT='SYSOUT=*', LINK EDITOR SYSPRINT OUTPUT 00002100
// LKEDRGN=150K, LINK EDITOR REGION = 150K 00002200
// LKEDTIM=, LINK EDITOR DEFAULT TIME 00002300
// LKEDTRM='SYSOUT=*', LINK EDITOR SYSTERM OUTPUT 00002400
// LKEDVER=, LINK EDITOR VERSION 00002500
// GOCND='((5,LT,FORT),(5,LT,LKED))', GO STEP CONDITIONS 00002600
// GOPGM='*.LKED.SYSLMOD', GO STEP PROGRAM NAME 00002700
// GOPRM=, GO STEP PARAMETERS 00002800
// GOPRT='SYSOUT=*', GO STEP FT06F001 OUTPUT 00002900
// GORGN=, DEFAULT GO STEP REGION 00003000
// GOTIM=1439, DEFAULT GO TIME 00003100
// GOVER= GO STEP VERSION OF STEPLIB 00003200
//********************************************************************* 00003300
//MORT EXEC PGM=&MORTPGM,REGION=&MORTRGN,TIME=&MORTTIM, 00003400
// COND=&MORTCND,ACCT=(MORTHCLG,&MORTVER),PARM='&MORTPRM' 00003500
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00003603
//* 00003700
//* STEP MORT OF PROCEDURE MORTHCLG 00003800
//* 00003900
//FT01F001 DD DSN=&MORTLB1(&MORTMAC),DISP=SHR 00004001
//FT05F001 DD DDNAME=SYSIN 00004100
//FT06F001 DD &MORTPRT,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1596,BUFNO=2) 00004200
//FT07F001 DD DSN=&&FORTIN,DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(2,1)), 00004300
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680) 00004400
//********************************************************************* 00004500
//FORT EXEC PGM=&FORTPGM,REGION=&FORTRGN,TIME=&FORTTIM, 00004600
// COND=&FORTCND,ACCT=(MORTHCLG,&FORTVER),PARM='&FORTPRM' 00004700
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00004803
//* 00004900
//* STEP FORT OF PROCEDURE MORTHCLG 00005000
//* 00005100
//SYSIN DD DSN=&&FORTIN,DISP=(OLD,DELETE,DELETE) 00005200
//SYSLIN DD DSN=&&LOADSET,SPACE=(1680,(400,80),RLSE,,ROUND), 00005300
// UNIT=SYSDA,DISP=(MOD,PASS,DELETE),DCB=(BLKSIZE=1680) 00005400
//SYSPRINT DD DSN=&&FORTOUT,DCB=(RECFM=VBA,LRECL=137,BLKSIZE=1644), 00005500
// SPACE=(CYL,(2,1)),DISP=(,PASS),UNIT=SYSDA 00005600
06JUN24 11.23 MORTHCLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 63
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680), 00005700
// SPACE=(CYL,(1,1),RLSE) 00005800
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,100)) FOR EDIT OPTION 00005900
//SYSUT2 DD UNIT=SYSDA,SPACE=(1024,(100,100)) FOR XREF OPTION 00006000
//********************************************************************* 00006100
//FORTLIST EXEC PGM=IEBGENER,REGION=76K,COND=&LISTCND, 00006200
// ACCT=(MORTHCLG) 00006301
//* 00006400
//* STEP FORTLIST OF PROCEDURE MORTHCLG 00006500
//* 00006600
//SYSIN DD DUMMY 00006700
//SYSPRINT DD DUMMY 00006800
//SYSUT1 DD DSN=&&FORTOUT,DISP=(OLD,DELETE,DELETE) 00006900
//SYSUT2 DD &FORTPRT,DCB=(RECFM=VBA,LRECL=137,BLKSIZE=1644) 00007000
//********************************************************************* 00007100
//LKED EXEC PGM=&LKEDPGM,REGION=&LKEDRGN,TIME=&LKEDTIM, 00007200
// COND=&LKEDCND,ACCT=(MORTHCLG,&LKEDVER),PARM='&LKEDPRM' 00007300
//* 00007400
//* STEP LKED OF PROCEDURE MORTHCLG 00007500
//* 00007600
//SYSLIB DD DSN=SYSC.FORTLIB,DISP=SHR 00007700
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) 00007800
// DD DDNAME=SYSIN 00007900
//SYSLMOD DD DSN=&&GOSET(MAIN),UNIT=SYSDA,DISP=(NEW,PASS,DELETE), 00008000
// SPACE=(TRK,(100,20,1)) 00008100
//SYSPRINT DD &LKEDPRT,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=1573), 00008200
// SPACE=(CYL,(1,1),RLSE) 00008300
//SYSTERM DD &LKEDTRM,DCB=(RECFM=FBA,BLKSIZE=121,LRECL=121) 00008400
//SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(100,20)) 00008500
//********************************************************************* 00008600
//GO EXEC PGM=&GOPGM,REGION=&GORGN,TIME=&GOTIM, 00008700
// COND=&GOCND,ACCT=(MORTHCLG,&GOVER),PARM='&GOPRM' 00008800
//* 00008900
//* STEP GO OF PROCEDURE MORTHCLG 00009000
//* 00009100
//FT05F001 DD DDNAME=SYSIN 00009200
//FT06F001 DD &GOPRT,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1596,BUFNO=2), 00009300
// SPACE=(CYL,(1,1),RLSE) 00009400
//FT07F001 DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680), 00009500
// SPACE=(CYL,(1,1),RLSE) 00009600
//STEPLIB DD DSN=SYSC.FORTLIB,DISP=SHR 00009700
// DD DSN=&&GOSET,DISP=(MOD,DELETE),SPACE=(TRK,(1,0,1)), 00009800
// UNIT=SYSDA 00009900
//********************************************************************* 00010000
*** END OF MEMBER *** 100 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 PASNC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 64
//PASNC PROC MEM=X,HLQ='SYSC.NPASCAL',
// SRC='SYS2.NULLBIBL',
// OBJ='SYS2.NULLBIBL',
// SOUT='*',REG=8192K,WORK=VIO
//*
//********************************************************************
//*
//* PASCAL COMPILER FIRST AND SECOND PASS
//*
//********************************************************************
//*
//COMPILE EXEC PGM=PASCAL1,REGION=®,PARM='&MEM'
//STEPLIB DD DISP=SHR,DSN=&HLQ..COMPILER.LOAD
//INPUT DD DISP=SHR,DSN=&SRC.(&MEM)
//OUTPUT DD SYSOUT=&SOUT,DCB=(RECFM=V,LRECL=133)
//PRD DD DISP=SHR,DSN=&HLQ..COMPILER.MESSAGES(MESSAGES)
//QRD DD DISP=SHR,DSN=&HLQ..DBGINFO
//PCODE DD DSN=&&PCODE,UNIT=&WORK,
// SPACE=(TRK,(200,200),RLSE),DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040)
//PCODE1 DD DSN=&&PCODE1,UNIT=&WORK,
// SPACE=(TRK,(200,200),RLSE),DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040)
//LISTING DD SYSOUT=&SOUT,DCB=(RECFM=FB,LRECL=137)
//LISTDEF DD SYSOUT=&SOUT,DCB=(RECFM=FB,LRECL=137)
//DBGINFO DD DISP=SHR,DSN=&HLQ..DBGINFO(&MEM)
//TRACEF DD SYSOUT=&SOUT
//PASTRACE DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT
//*
//POSTPROC EXEC PGM=PASCAL2,REGION=®,COND=(4,LT,COMPILE)
//STEPLIB DD DISP=SHR,DSN=&HLQ..COMPILER.LOAD
//PCODE DD DISP=(OLD,DELETE),DSN=*.COMPILE.PCODE
//PCODE1 DD DISP=(OLD,DELETE),DSN=*.COMPILE.PCODE1
//OUTPUT DD SYSOUT=&SOUT,DCB=(RECFM=V,LRECL=133)
//OBJCODE DD DISP=SHR,DSN=&OBJ.(&MEM)
//ASMOUT DD SYSOUT=&SOUT,DCB=(RECFM=FB,LRECL=137)
//LIST002 DD SYSOUT=&SOUT,DCB=(RECFM=FB,LRECL=137)
//TRACEF DD SYSOUT=&SOUT
//PASTRACE DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT
//*
*** END OF MEMBER *** 42 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 PASNCG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 65
//PASNCG PROC MEM=X,HLQ='SYSC.NPASCAL',
// SRC='SYS2.NULLBIBL',
// SOUT='*',REG=8192K,WORK=VIO,
// GOTIME=299,GOPARM=,GOREG=2048K
//*
//********************************************************************
//*
//* PASCAL COMPILER FIRST AND SECOND PASS
//*
//********************************************************************
//*
//COMPILE EXEC PGM=PASCAL1,REGION=®,PARM='&MEM'
//STEPLIB DD DISP=SHR,DSN=&HLQ..COMPILER.LOAD
//INPUT DD DISP=SHR,DSN=&SRC.(&MEM)
//OUTPUT DD SYSOUT=&SOUT,DCB=(RECFM=V,LRECL=133)
//PRD DD DISP=SHR,DSN=&HLQ..COMPILER.MESSAGES(MESSAGES)
//QRD DD DISP=SHR,DSN=&HLQ..DBGINFO
//PCODE DD DSN=&&PCODE,UNIT=&WORK,
// SPACE=(TRK,(200,200),RLSE),DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040)
//PCODE1 DD DSN=&&PCODE1,UNIT=&WORK,
// SPACE=(TRK,(200,200),RLSE),DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040)
//LISTING DD SYSOUT=&SOUT,DCB=(RECFM=FB,LRECL=137)
//LISTDEF DD SYSOUT=&SOUT,DCB=(RECFM=FB,LRECL=137)
//DBGINFO DD DISP=SHR,DSN=&HLQ..DBGINFO(&MEM)
//TRACEF DD SYSOUT=&SOUT
//PASTRACE DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT
//*
//POSTPROC EXEC PGM=PASCAL2,REGION=®,COND=(4,LT,COMPILE)
//STEPLIB DD DISP=SHR,DSN=&HLQ..COMPILER.LOAD
//PCODE DD DISP=(OLD,DELETE),DSN=*.COMPILE.PCODE
//PCODE1 DD DISP=(OLD,DELETE),DSN=*.COMPILE.PCODE1
//OUTPUT DD SYSOUT=&SOUT,DCB=(RECFM=V,LRECL=133)
//OBJCODE DD DSN=&&OBJF,UNIT=&WORK,
// SPACE=(TRK,(200,200),RLSE),DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040)
//ASMOUT DD SYSOUT=&SOUT,DCB=(RECFM=FB,LRECL=137)
//LIST002 DD SYSOUT=&SOUT,DCB=(RECFM=FB,LRECL=137)
//TRACEF DD SYSOUT=&SOUT
//PASTRACE DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT
//*
//GO EXEC PGM=LOADER,COND=((4,LT,COMPILE),(0,LT,POSTPROC)),
// PARM='/TIME=&GOTIME,&GOPARM',REGION=&GOREG
//STEPLIB DD DISP=SHR,DSN=&HLQ..COMPILER.LOAD (NEEDED FOR K+ ONLY)
//SYSLIN DD DISP=SHR,DSN=&HLQ..RUNTIME.TEXT(PASMONN)
// DD DISP=SHR,DSN=&HLQ..RUNTIME.TEXT(PASLIBX)
// DD DISP=SHR,DSN=&HLQ..RUNTIME.TEXT(PASSNAP)
// DD DISP=(OLD,DELETE),DSN=&&OBJF
// DD DDNAME=SYSLIN2
//SYSLOUT DD SYSOUT=&SOUT
//SYSLIB DD DISP=SHR,DSN=&HLQ..RUNTIME.LOAD
// DD DISP=SHR,DSN=SYSC.FORTLIB
//QRD DD DISP=SHR,DSN=&HLQ..DBGINFO
06JUN24 11.23 PASNCG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 66
//INPUT DD DDNAME=SYSIN
//OUTPUT DD SYSOUT=&SOUT,DCB=(RECFM=V,LRECL=133)
//FT06F001 DD SYSOUT=&SOUT
//PASTRACE DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT
//*
*** END OF MEMBER *** 62 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 PASNCL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 67
//PASNCL PROC MEM=X,HLQ='SYSC.NPASCAL',
// SRC='SYS2.NULLBIBL',
// MOD='SYS2.NULLBIBL',
// SOUT='*',REG=8192K,WORK=VIO,
// LKEDPGM=IEWLF880
//*
//********************************************************************
//*
//* PASCAL COMPILER FIRST AND SECOND PASS
//*
//********************************************************************
//*
//COMPILE EXEC PGM=PASCAL1,REGION=®,PARM='&MEM'
//STEPLIB DD DISP=SHR,DSN=&HLQ..COMPILER.LOAD
//INPUT DD DISP=SHR,DSN=&SRC.(&MEM)
//OUTPUT DD SYSOUT=&SOUT,DCB=(RECFM=V,LRECL=133)
//PRD DD DISP=SHR,DSN=&HLQ..COMPILER.MESSAGES(MESSAGES)
//QRD DD DISP=SHR,DSN=&HLQ..DBGINFO
//PCODE DD DSN=&&PCODE,UNIT=&WORK,
// SPACE=(TRK,(200,200),RLSE),DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040)
//PCODE1 DD DSN=&&PCODE1,UNIT=&WORK,
// SPACE=(TRK,(200,200),RLSE),DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040)
//LISTING DD SYSOUT=&SOUT,DCB=(RECFM=FB,LRECL=137)
//LISTDEF DD SYSOUT=&SOUT,DCB=(RECFM=FB,LRECL=137)
//DBGINFO DD DISP=SHR,DSN=&HLQ..DBGINFO(&MEM)
//TRACEF DD SYSOUT=&SOUT
//PASTRACE DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT
//*
//POSTPROC EXEC PGM=PASCAL2,REGION=®,COND=(4,LT,COMPILE)
//STEPLIB DD DISP=SHR,DSN=&HLQ..COMPILER.LOAD
//PCODE DD DISP=(OLD,DELETE),DSN=*.COMPILE.PCODE
//PCODE1 DD DISP=(OLD,DELETE),DSN=*.COMPILE.PCODE1
//OUTPUT DD SYSOUT=&SOUT,DCB=(RECFM=V,LRECL=133)
//OBJCODE DD DSN=&&OBJF,UNIT=&WORK,
// SPACE=(TRK,(200,200),RLSE),DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//ASMOUT DD SYSOUT=&SOUT,DCB=(RECFM=FB,LRECL=137)
//LIST002 DD SYSOUT=&SOUT,DCB=(RECFM=FB,LRECL=137)
//TRACEF DD SYSOUT=&SOUT
//PASTRACE DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT
//*
//LKED EXEC PGM=&LKEDPGM,REGION=®,
// COND=(0,LT,POSTPROC),
// PARM='MAP,SIZE=(1000K,100K)'
//SYSLIB DD DISP=SHR,DSN=&HLQ..RUNTIME.LOAD
// DD DISP=SHR,DSN=SYSC.FORTLIB
//SYSLMOD DD DISP=SHR,DSN=&MOD.(&MEM)
//SYSPRINT DD SYSOUT=&SOUT
//SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(200,200),RLSE)
//SYSLIN DD DISP=(OLD,DELETE),DSN=*.POSTPROC.OBJCODE
// DD DISP=SHR,DSN=&HLQ..COMPILER.MESSAGES(STDINC)
// DD DDNAME=SYSIN
06JUN24 11.23 PASNCL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 68
//*
*** END OF MEMBER *** 57 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 PASNCLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 69
//PASNCLG PROC MEM=X,HLQ='SYSC.NPASCAL',
// SRC='SYS2.NULLBIBL',
// MOD='SYS2.NULLBIBL',
// SOUT='*',REG=8192K,WORK=VIO,LKEDPGM=IEWLF880,
// GOTIME=299,GOPARM=,GOREG=2048K
//*
//********************************************************************
//*
//* PASCAL COMPILER FIRST AND SECOND PASS
//*
//********************************************************************
//*
//COMPILE EXEC PGM=PASCAL1,REGION=®,PARM='&MEM'
//STEPLIB DD DISP=SHR,DSN=&HLQ..COMPILER.LOAD
//INPUT DD DISP=SHR,DSN=&SRC.(&MEM)
//OUTPUT DD SYSOUT=&SOUT,DCB=(RECFM=V,LRECL=133)
//PRD DD DISP=SHR,DSN=&HLQ..COMPILER.MESSAGES(MESSAGES)
//QRD DD DISP=SHR,DSN=&HLQ..DBGINFO
//PCODE DD DSN=&&PCODE,UNIT=&WORK,
// SPACE=(TRK,(200,200),RLSE),DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040)
//PCODE1 DD DSN=&&PCODE1,UNIT=&WORK,
// SPACE=(TRK,(200,200),RLSE),DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=19040)
//LISTING DD SYSOUT=&SOUT,DCB=(RECFM=FB,LRECL=137)
//LISTDEF DD SYSOUT=&SOUT,DCB=(RECFM=FB,LRECL=137)
//DBGINFO DD DISP=SHR,DSN=&HLQ..DBGINFO(&MEM)
//TRACEF DD SYSOUT=&SOUT
//PASTRACE DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT
//*
//POSTPROC EXEC PGM=PASCAL2,REGION=®,COND=(4,LT,COMPILE)
//STEPLIB DD DISP=SHR,DSN=&HLQ..COMPILER.LOAD
//PCODE DD DISP=(OLD,DELETE),DSN=*.COMPILE.PCODE
//PCODE1 DD DISP=(OLD,DELETE),DSN=*.COMPILE.PCODE1
//OUTPUT DD SYSOUT=&SOUT,DCB=(RECFM=V,LRECL=133)
//OBJCODE DD DSN=&&OBJF,UNIT=&WORK,
// SPACE=(TRK,(200,200),RLSE),DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//ASMOUT DD SYSOUT=&SOUT,DCB=(RECFM=FB,LRECL=137)
//LIST002 DD SYSOUT=&SOUT,DCB=(RECFM=FB,LRECL=137)
//TRACEF DD SYSOUT=&SOUT
//PASTRACE DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT
//*
//LKED EXEC PGM=&LKEDPGM,REGION=®,
// COND=(0,LT,POSTPROC),
// PARM='MAP,SIZE=(1000K,100K)'
//SYSLIB DD DISP=SHR,DSN=&HLQ..RUNTIME.LOAD
// DD DISP=SHR,DSN=SYSC.FORTLIB
//SYSLMOD DD DISP=SHR,DSN=&MOD.(&MEM)
//SYSPRINT DD SYSOUT=&SOUT
//SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(200,200),RLSE)
//SYSLIN DD DISP=(OLD,DELETE),DSN=*.POSTPROC.OBJCODE
// DD DISP=SHR,DSN=&HLQ..COMPILER.MESSAGES(STDINC)
// DD DDNAME=SYSIN
06JUN24 11.23 PASNCLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 70
//*
//GO EXEC PGM=&MEM,
// COND=((4,LT,COMPILE),(0,LT,POSTPROC),(0,LT,LKED)),
// PARM='/TIME=&GOTIME,&GOPARM',REGION=&GOREG
//STEPLIB DD DISP=SHR,DSN=&MOD
//QRD DD DISP=SHR,DSN=&HLQ..DBGINFO
//INPUT DD DDNAME=SYSIN
//FT06F001 DD SYSOUT=&SOUT
//OUTPUT DD SYSOUT=&SOUT,DCB=(RECFM=V,LRECL=133)
//PASTRACE DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT
//*
*** END OF MEMBER *** 68 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 PL1DFC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 71
//PL1D EXEC PGM=IEMAA,PARM='DECK,NOLOAD',REGION=52K 00000100
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00000200
//SYSPRINT DD SYSOUT=* 00000301
//SYSPUNCH DD SYSOUT=B 00000400
//SYSUT3 DD DSNAME=&&SYSUT3,UNIT=SYSDA,SPACE=(80,(250,250)), *00000500
// DCB=BLKSIZE=80 00000600
//SYSUT1 DD DSNAME=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(60,60),,CONTIG),*00000700
// SEP=(SYSUT3,SYSPUNCH),DCB=BLKSIZE=1024 00000800
*** END OF MEMBER *** 8 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 PL1LFC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 72
//PL1L EXEC PGM=IEMAA,PARM='LOAD,NODECK',REGION=52K 00000100
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00000200
//SYSPRINT DD SYSOUT=* 00000301
//SYSLIN DD DSNAME=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSSQ, *00000400
// SPACE=(80,(250,100)) 00000500
//SYSUT3 DD DSNAME=&&SYSUT3,UNIT=SYSDA,SPACE=(80,(250,250)), *00000600
// DCB=BLKSIZE=80 00000700
//SYSUT1 DD DSNAME=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(60,60),,CONTIG),*00000800
// SEP=(SYSUT3,SYSLIN),DCB=BLKSIZE=1024 00000900
*** END OF MEMBER *** 9 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 PL1LFCG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 73
//PL1L EXEC PGM=IEMAA,PARM='LOAD,NODECK',REGION=52K 00000100
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00000200
//SYSPRINT DD SYSOUT=* 00000304
//SYSLIN DD DSNAME=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSSQ, *00000400
// SPACE=(80,(250,100)) 00000500
//SYSUT3 DD DSNAME=&&SYSUT3,UNIT=SYSDA,SPACE=(80,(250,250)), *00000600
// DCB=BLKSIZE=80 00000700
//SYSUT1 DD DSNAME=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(60,60),,CONTIG),*00000800
// SEP=(SYSUT3,SYSLIN),DCB=BLKSIZE=1024 00000900
//GO EXEC PGM=LOADER,PARM='MAP,PRINT',REGION=96K, *00001000
// COND=(9,LT,PL1L) 00001100
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00001203
// DD DSN=SYSC.PL1LIB,DISP=SHR 00001303
//SYSLIB DD DSNAME=SYSC.PL1LIB,DISP=SHR 00001401
//SYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE) 00001500
//SYSLOUT DD SYSOUT=* 00001604
//SYSPRINT DD SYSOUT=* 00001704
*** END OF MEMBER *** 17 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 PL1LFCL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 74
//PL1LFCL PROC LKEDPGM='IEWL' 00000090
//PL1L EXEC PGM=IEMAA,PARM='LOAD,NODECK',REGION=52K 00000100
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00000200
//SYSPRINT DD SYSOUT=* 00000302
//SYSLIN DD DSNAME=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSSQ, *00000400
// SPACE=(80,(250,100)) 00000500
//SYSUT3 DD DSNAME=&&SYSUT3,UNIT=SYSDA,SPACE=(80,(250,250)), *00000600
// DCB=BLKSIZE=80 00000700
//SYSUT1 DD DSNAME=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(60,60),,CONTIG),*00000800
// SEP=(SYSUT3,SYSLIN),DCB=BLKSIZE=1024 00000900
//LKED EXEC PGM=&LKEDPGM,REGION=96K, 00001000
// PARM='XREF,LIST',COND=(9,LT,PL1L), *00001100
//SYSLIB DD DSNAME=SYSC.PL1LIB,DISP=SHR 00001201
//SYSLMOD DD DSNAME=&&GOSET(GO),DISP=(MOD,PASS), *00001300
// UNIT=SYSDA,SPACE=(1024,(50,20,1),RLSE) 00001400
//SYSUT1 DD DSNAME=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(200,20)), *00001500
// SEP=(SYSLMOD,SYSLIB),DCB=BLKSIZE=1024 00001600
//SYSPRINT DD SYSOUT=* 00001702
//SYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE) 00001800
// DD DDNAME=SYSIN 00001900
*** END OF MEMBER *** 20 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 PL1LFCLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 75
//PL1LFCLG PROC LKEDPGM='IEWL' 00000090
//PL1L EXEC PGM=IEMAA,PARM='LOAD,NODECK',REGION=52K 00000100
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00000200
//SYSPRINT DD SYSOUT=* 00000303
//SYSLIN DD DSNAME=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSSQ, *00000400
// SPACE=(80,(250,100)) 00000500
//SYSUT3 DD DSNAME=&&SYSUT3,UNIT=SYSDA,SPACE=(80,(250,250)), *00000600
// DCB=BLKSIZE=80 00000700
//SYSUT1 DD DSNAME=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(60,60),,CONTIG),*00000800
// SEP=(SYSUT3,SYSLIN),DCB=BLKSIZE=1024 00000900
//LKED EXEC PGM=&LKEDPGM,REGION=96K, 00001000
// PARM='XREF,LIST',COND=(9,LT,PL1L) 00001100
//SYSLIB DD DSNAME=SYSC.PL1LIB,DISP=SHR 00001201
//SYSLMOD DD DSNAME=&&GOSET(GO),DISP=(MOD,PASS), *00001300
// UNIT=SYSDA,SPACE=(1024,(50,20,1),RLSE) 00001400
//SYSUT1 DD DSNAME=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(200,20)), *00001500
// SEP=(SYSLMOD,SYSLIB),DCB=BLKSIZE=1024 00001600
//SYSPRINT DD SYSOUT=* 00001703
//SYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE) 00001800
// DD DDNAME=SYSIN 00001900
//GO EXEC PGM=*.LKED.SYSLMOD,COND=((9,LT,LKED),(9,LT,PL1L)) 00002000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00002102
// DD DSN=SYSC.PL1LIB,DISP=SHR 00002202
//SYSPRINT DD SYSOUT=* 00002303
*** END OF MEMBER *** 24 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 PL1LFG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 76
//GO EXEC PGM=LOADER,PARM='MAP,PRINT',REGION=96K 00000100
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00000200
//SYSLIB DD DSNAME=SYSC.PL1LIB,DISP=SHR 00000301
//SYSLOUT DD SYSOUT=* 00000402
//SYSPRINT DD SYSOUT=* 00000502
*** END OF MEMBER *** 5 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 PL1LFLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 77
//PL1LFLG PROC LKEDPGM='IEWL' 00000090
//LKED EXEC PGM=&LKEDPGM, 00000100
// PARM='XREF,LIST',REGION=96K 00000110
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00000200
//SYSLIB DD DSNAME=SYSC.PL1LIB,DISP=SHR 00000301
//SYSLMOD DD DSNAME=&&GOSET(GO),DISP=(MOD,PASS), *00000400
// UNIT=SYSDA,SPACE=(1024,(50,20,1),RLSE) 00000500
//SYSUT1 DD DSNAME=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(200,20)), *00000600
// SEP=(SYSLMOD,SYSLIB),DCB=BLKSIZE=1024 00000700
//SYSPRINT DD SYSOUT=* 00000802
//SYSLIN DD DDNAME=SYSIN 00000900
//GO EXEC PGM=*.LKED.SYSLMOD,COND=(9,LT,LKED) 00001000
//SYSPRINT DD SYSOUT=* 00001102
*** END OF MEMBER *** 13 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 PL360C -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 78
//PL360C PROC
//PL360 EXEC PGM=PL360
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR
//SYSGO DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(3120,(40,100),RLSE),
// DCB=(BLKSIZE=3120,LRECL=80,RECFM=FB)
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD SYSOUT=B
*** END OF MEMBER *** 8 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 PL360CG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 79
//PL360CG PROC
//PL360 EXEC PGM=PL360
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR
//SYSGO DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(3120,(40,10),RLSE),
// DCB=(BLKSIZE=3120,LRECL=80,RECFM=FB)
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD SYSOUT=B
//GO EXEC PGM=LOADER,PARM='MAP',COND=(0,NE,PL360)
//SYSLIB DD DSN=SYSC.LINKLIB,DISP=SHR
//SYSLIN DD DSN=*.PL360.SYSGO,DISP=(OLD,PASS)
//SYSLOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD SYSOUT=B
//SYSUDUMP DD SYSOUT=*
*** END OF MEMBER *** 15 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 PL360CL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 80
//PL360CL PROC LKEDPGM='IEWL'
//PL360 EXEC PGM=PL360
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR
//SYSGO DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(3120,(40,10),RLSE),
// DCB=(BLKSIZE=3120,LRECL=80,RECFM=FB)
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD SYSOUT=B
//LKED EXEC PGM=&LKEDPGM,
// PARM='LET,LIST,MAP',COND=(0,NE,PL360)
//SYSLIB DD DSN=SYSC.LINKLIB,DISP=SHR
//SYSLIN DD DSN=*.PL360.SYSGO,DISP=(OLD,PASS)
// DD DDNAME=SYSIN
//SYSLMOD DD DSN=&&GOSET(MAIN),DISP=(,PASS),UNIT=SYSDA,
// SPACE=(CYL,(10,2,10))
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(3120,(120,10),,,ROUND)
*** END OF MEMBER *** 17 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 PL360CLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 81
//PL360CL PROC LKEDPGM='IEWL' 00010000
//PL360 EXEC PGM=PL360 00020000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00021001
//SYSGO DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA, 00030000
// SPACE=(3120,(40,10),RLSE), 00040000
// DCB=(BLKSIZE=3120,LRECL=80,RECFM=FB) 00050000
//SYSPRINT DD SYSOUT=* 00060000
//SYSPUNCH DD SYSOUT=B 00070000
//LKED EXEC PGM=&LKEDPGM, 00080000
// PARM='LET,LIST,MAP',COND=(0,NE,PL360) 00080100
//SYSLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00090000
//SYSLIN DD DSN=*.PL360.SYSGO,DISP=(OLD,PASS) 00100000
// DD DDNAME=SYSIN 00110000
//SYSLMOD DD DSN=&&GOSET(MAIN),DISP=(,PASS),UNIT=SYSDA, 00120000
// SPACE=(CYL,(10,2,10)) 00130000
//SYSPRINT DD SYSOUT=* 00140000
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(3120,(120,10),,,ROUND) 00150000
//GO EXEC PGM=*.LKED.SYSLMOD,COND=((0,NE,PL360),(4,LT,LKED)) 00160000
*** END OF MEMBER *** 18 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 P8PASC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 82
//P8PASC PROC
//PASC EXEC PGM=PASCALC,REGION=1024K
//$PASMSGS DD DISP=SHR,DSN=SYSC.PASCAL.PASMSGS
//STEPLIB DD DISP=SHR,DSN=SYSC.PASCAL.PASLIB
//SYSGO DD DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(5,10)),
// DSN=&&OBJ,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)
//SYSPRINT DD SYSOUT=*
*** END OF MEMBER *** 7 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 P8PASCAL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 83
//P8PASCAL PROC
//PASCAL EXEC PGM=PASCALO,REGION=1024K,PARM='CMP,$PASOBJ'
//STEPLIB DD DISP=SHR,DSN=SYSC.PASCAL.PASLIB
//SYSPRINT DD SYSOUT=*
//CMP1 DD DISP=SHR,DSN=SYSC.PASCAL.PASOBJ1
//CMP2 DD DISP=SHR,DSN=SYSC.PASCAL.PASOBJ2
//CMPI DD DDNAME=SYSIN
//$LOCAL DD UNIT=SYSDA,SPACE=(TRK,0)
//LOCAL DD VOL=REF=*.$LOCAL,DISP=SHR
//$PASMSGS DD DISP=SHR,DSN=SYSC.PASCAL.PASMSGS
//$PASOBJI DD DDNAME=DATA
//$PASOBJ1 DD UNIT=SYSDA,SPACE=(TRK,(10,5)),
// DCB=(RECFM=F,BLKSIZE=1024,BUFNO=1)
//$PASOBJ2 DD UNIT=SYSDA,SPACE=(TRK,(1,1)),
// DCB=(RECFM=FB,LRECL=8,BLKSIZE=200,BUFNO=1)
*** END OF MEMBER *** 15 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 P8PASCL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 84
//P8PASCL PROC LKEDPGM='IEWL'
//PASC EXEC PGM=PASCALC,REGION=1024K
//$PASMSGS DD DISP=SHR,DSN=SYSC.PASCAL.PASMSGS
//STEPLIB DD DISP=SHR,DSN=SYSC.PASCAL.PASLIB
//SYSGO DD DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(5,10)),
// DSN=&&OBJ,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)
//SYSPRINT DD SYSOUT=*
//LKED EXEC PGM=&LKEDPGM,
// PARM='LIST,MAP',COND=(0,NE,PASC)
//SYSLIB DD DISP=SHR,DSN=SYSC.PASCAL.PASLIB
//* THE FOLLOWING MAKES ALL FORTRAN LIBRARY ROUTINES ACCESSIBLE TO
//* PASCAL PROGRAMS BY AUTOMATIC LIBRARY CALL
// DD DISP=SHR,DSN=SYSC.FORTLIB
//SYSLIN DD DISP=SHR,DSN=SYSC.PROCLIB(P8PASINC),DCB=BLKSIZE=400
// DD DISP=SHR,DSN=*.PASC.SYSGO
//SYSLMOD DD DISP=(,PASS),DSN=&&LOAD(USERSPGM),SPACE=(TRK,(2,10,2)),
// UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(50,100))
*** END OF MEMBER *** 19 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 P8PASCLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 85
//P8PASCLG PROC LKEDPGM='IEWL'
//PASC EXEC PGM=PASCALC,REGION=1024K
//$PASMSGS DD DISP=SHR,DSN=SYSC.PASCAL.PASMSGS
//STEPLIB DD DISP=SHR,DSN=SYSC.PASCAL.PASLIB
//SYSGO DD DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(5,10)),
// DSN=&&OBJ,DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)
//SYSPRINT DD SYSOUT=*
//LKED EXEC PGM=&LKEDPGM,
// PARM='LIST,MAP',COND=(0,NE,PASC)
//SYSLIB DD DISP=SHR,DSN=SYSC.PASCAL.PASLIB
// DD DISP=SHR,DSN=SYSC.FORTLIB
//SYSLMOD DD DISP=(,PASS),DSN=&&LOAD(USERSPGM),SPACE=(TRK,(2,10,2)),
// UNIT=SYSDA
//SYSLIN DD DISP=SHR,DSN=SYSC.PROCLIB(P8PASINC),DCB=BLKSIZE=400
// DD DISP=SHR,DSN=*.PASC.SYSGO
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(5,5))
//GO EXEC PGM=*.LKED.SYSLMOD,COND=(0,NE,LKED)
//$LOCAL DD UNIT=SYSDA,SPACE=(TRK,0)
//LOCAL DD VOL=REF=*.$LOCAL,DISP=SHR
//SYSPRINT DD SYSOUT=*
//* THE FOLLOWING CARD IS REQUIRED IF FORTRAN ROUTINES WITH
//* STANDARD OUTPUT ARE CALLED
//FT03F001 DD SYSOUT=*
*** END OF MEMBER *** 24 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 P8PASINC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 86
INCLUDE SYSLIB(PASCALL)
*** END OF MEMBER *** 1 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 RPGEC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 87
//DEFAULT PROC RGREGN=52K,RGPARM='NODECK,LOAD,LIST,NOSEQN', 108000000
// RGU3SPC='(600,(100,20))',RGU2SPC='(600,(100,20))', 216000000
// RGU1SPC='(600,(100,20))',RGGOSPC='(80,(200,50))' 24000000
//RPG EXEC PGM=IESRPG,REGION=&RGREGN,PARM=(&RGPARM) 32000000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 32010000
//SYSPRINT DD SYSOUT=A 40000000
//SYSPUNCH DD SYSOUT=B 48000000
//SYSUT3 DD DSNAME=&&SYSUT3,UNIT=SYSSQ,SPACE=&RGU3SPC 56000000
//SYSUT2 DD DSNAME=&&SYSUT2,UNIT=SYSSQ,SPACE=&RGU2SPC 64000000
//SYSUT1 DD DSNAME=&&SYSUT1,UNIT=SYSSQ,SPACE=&RGU1SPC 72000000
//SYSGO DD DSNAME=&&LOADSET,UNIT=(SYSSQ,SEP=SYSPUNCH), 180000000
// DISP=(MOD,PASS,DELETE),SPACE=&RGGOSPC 88000000
*** END OF MEMBER *** 12 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 RPGECL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 88
//RPGECL PROC RGREGN=52K,RGPARM='NODECK,LOAD,LIST,NOSEQN', 100010000
// RGU3SPC='(600,(100,20))',RGU2SPC='(600,(100,20))', 200020000
// RGU1SPC='(600,(100,20))',RGGOSPC='(80,(200,50))', 300030000
// LKPRG='IEWL',LKREGN=100K,LKPARM='XREF,LIST,LET', 400040000
// LKMDSPC='(1024,(50,20,1))',LKU1SPC='(1024,(50,20))' 00050000
//RPG EXEC PGM=IESRPG,REGION=&RGREGN,PARM=(&RGPARM) 00060000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00061001
//SYSPRINT DD SYSOUT=* 00070000
//SYSPUNCH DD SYSOUT=B 00080000
//SYSUT3 DD DSNAME=&&SYSUT3,UNIT=SYSSQ,SPACE=&RGU3SPC 00090000
//SYSUT2 DD DSNAME=&&SYSUT2,UNIT=SYSSQ,SPACE=&RGU2SPC 00100000
//SYSUT1 DD DSNAME=&&SYSUT1,UNIT=SYSSQ,SPACE=&RGU1SPC 00110000
//SYSGO DD DSNAME=&&LOADSET,UNIT=(SYSSQ,SEP=SYSPUNCH), 100120000
// DISP=(MOD,PASS,DELETE),SPACE=&RGGOSPC 00130000
//LKED EXEC PGM=&LKPRG, 00140000
// REGION=&LKREGN,PARM=(&LKPARM),COND=(9,LT,RPG) 00140100
//SYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE) 00150000
// DD DDNAME=SYSIN 00160000
//SYSLMOD DD DSNAME=&&GOSET(RPG),UNIT=SYSDA,DISP=(NEW,PASS,DELETE), 100170000
// SPACE=&LKMDSPC 00180000
//SYSUT1 DD DSNAME=&&SYSUT1,SPACE=&LKU1SPC, 100190000
// UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)) 00200000
//SYSPRINT DD SYSOUT=* 00210000
*** END OF MEMBER *** 23 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 RPGECLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 89
//RPGECLG PROC RGREGN=52K,RGPARM='NODECK,LOAD,LIST,NOSEQN', 104000000
// RGU3SPC='(600,(100,20))',RGU2SPC='(600,(100,20))', 208000000
// RGU1SPC='(600,(100,20))',RGGOSPC='(80,(200,50))', 312000000
// LKPRG='IEWL',LKREGN=100K,LKPARM='XREF,LIST,LET', 416000000
// LKMDSPC='(1024,(50,20,1))',LKU1SPC='(1024,(50,20))', 520000000
// GOCOND='((9,LT,RPG),(5,LT,LKED))',GOPARM='DATE=000000' 24000000
//RPG EXEC PGM=IESRPG,REGION=&RGREGN,PARM=(&RGPARM) 28000000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 28010000
//SYSPRINT DD SYSOUT=* 32000000
//SYSPUNCH DD SYSOUT=B 36000000
//SYSUT3 DD DSNAME=&&SYSUT3,UNIT=SYSSQ,SPACE=&RGU3SPC 40000000
//SYSUT2 DD DSNAME=&&SYSUT2,UNIT=SYSSQ,SPACE=&RGU2SPC 44000000
//SYSUT1 DD DSNAME=&&SYSUT1,UNIT=SYSSQ,SPACE=&RGU1SPC 48000000
//SYSGO DD DSNAME=&&LOADSET,UNIT=(SYSSQ,SEP=SYSPUNCH), 152000000
// DISP=(MOD,PASS,DELETE),SPACE=&RGGOSPC 56000000
//LKED EXEC PGM=&LKPRG, 60000000
// REGION=&LKREGN,PARM=(&LKPARM) 60000100
//SYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE) 64000000
// DD DDNAME=SYSIN 68000000
//SYSLMOD DD DSNAME=&&GOSET(RPG),UNIT=SYSDA,DISP=(NEW,PASS,DELETE), 172000000
// SPACE=&LKMDSPC 76000000
//SYSUT1 DD DSNAME=&&SYSUT1,SPACE=&LKU1SPC, 180000000
// UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)) 84000000
//SYSPRINT DD SYSOUT=* 88000000
//GO EXEC PGM=*.LKED.SYSLMOD,COND=&GOCOND,PARM='&GOPARM' 93000000
*** END OF MEMBER *** 25 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 RPGELG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 90
//RPGELG PROC LKPRG='IEWL', 109000000
// LKREGN=100K,LKPARM='XREF,LIST,LET',GOCOND='(5,LT,LKED)',209000100
// LKMDSPC='(1024,(50,20,1))',LKU1SPC='(1024,(50,20))', 315000000
// GOPARM='DATE=000000' 21000000
//LKED EXEC PGM=&LKPRG,REGION=&LKREGN,PARM=(&LKPARM) 27000000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 27010000
//SYSLIN DD DDNAME=SYSIN 36000000
//SYSPRINT DD SYSOUT=*,DCB=(BLKSIZE=121) 45000000
//SYSLMOD DD DSNAME=&&GOSET(RPG),UNIT=SYSDA,DISP=(NEW,PASS,DELETE), 154000000
// SPACE=&LKMDSPC 63000000
//SYSUT1 DD DSNAME=&&SYSUT1,SPACE=&LKU1SPC, 172000000
// UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)) 81000000
//GO EXEC PGM=*.LKED.SYSLMOD,COND=&GOCOND,PARM='&GOPARM' 90000000
*** END OF MEMBER *** 13 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 SIMC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 91
//SIMC PROC 00700000
//SIM EXEC PGM=SIMULA,REGION=1024K 00710000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00720000
//SYSPRINT DD SYSOUT=* 00730000
//SYSUT1 DD UNIT=SYSDA,SPACE=(3200,(20,20)) 00740000
//SYSUT2 DD UNIT=SYSDA,SPACE=(3200,(20,20)) 00750000
//SYSUT3 DD UNIT=SYSDA,SPACE=(3200,(20,20)) 00760000
//SYSUT4 DD UNIT=SYSDA,SPACE=(1024,256),DCB=DSORG=DA 00770000
//SYSGO DD UNIT=SYSDA,DISP=(,PASS),DSN=&&LOADSET, 00780000
// SPACE=(CYL,(1,1)), 00790000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,DSORG=PS) 00800000
*** END OF MEMBER *** 11 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 SIMCG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 92
//SIMCG PROC 00300000
//SIM EXEC PGM=SIMULA,REGION=1024K 00310000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00320000
//SYSPRINT DD SYSOUT=* 00330000
//SYSUT1 DD UNIT=SYSDA,SPACE=(3200,(20,20)) 00340000
//SYSUT2 DD UNIT=SYSDA,SPACE=(3200,(20,20)) 00350000
//SYSUT3 DD UNIT=SYSDA,SPACE=(3200,(20,20)) 00360000
//SYSUT4 DD UNIT=SYSDA,SPACE=(1024,256),DCB=DSORG=DA 00370000
//SYSGO DD UNIT=SYSDA,DISP=(,PASS),DSN=&&LOADSET, 00380000
// SPACE=(CYL,(1,1)), 00390000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,DSORG=PS) 00400000
//GO EXEC PGM=LOADER,COND=(4,LT,SIM),REGION=512K, 00410000
// PARM='EP=ZYQENT,MAP,PRINT/DUMP=5,SYMBDUMP=6,TERM,TRACE=1' 00420000
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) 00430000
//SYSLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00440000
//SYSLOUT DD SYSOUT=* 00450000
//SYSOUT DD SYSOUT=* 00460000
*** END OF MEMBER *** 17 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 SIMCL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 93
//SIMCL PROC LKEDPRG='IEWL',LIB='&&GOSET',PROG='GO' 00000100
//SIM EXEC PGM=SIMULA,REGION=1024K 00000200
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00000300
//SYSPRINT DD SYSOUT=* 00000400
//SYSUT1 DD UNIT=SYSDA,SPACE=(3200,(20,20)) 00000500
//SYSUT2 DD UNIT=SYSDA,SPACE=(3200,(20,20)) 00000600
//SYSUT3 DD UNIT=SYSDA,SPACE=(3200,(20,20)) 00000700
//SYSUT4 DD UNIT=SYSDA,SPACE=(1024,256),DCB=DSORG=DA 00000800
//SYSGO DD UNIT=SYSDA,DISP=(,PASS),DSN=&&LOADSET, 00000900
// SPACE=(CYL,(1,1)), 00001000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,DSORG=PS) 00001100
//LKED EXEC PGM=&LKEDPRG,PARM='MAP,LIST,LET',COND=(4,LT,SIM), 00001200
// REGION=512K 00001300
//SYSPRINT DD SYSOUT=* 00001400
//SYSLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00001500
//SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(50,50)) 00001600
//SYSLMOD DD DSN=&LIB.(&PROG),DISP=(MOD,PASS),UNIT=SYSDA, 00001700
// SPACE=(CYL,(1,1,1)) 00001801
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,PASS) 00001900
// DD DDNAME=SYSIN 00002002
*** END OF MEMBER *** 20 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 SIMCLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 94
//SIMCLG PROC LKEDPRG='IEWL' 00000100
//SIM EXEC PGM=SIMULA,REGION=1024K 00000200
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00000300
//SYSPRINT DD SYSOUT=* 00000400
//SYSUT1 DD UNIT=SYSDA,SPACE=(3200,(20,20)) 00000500
//SYSUT2 DD UNIT=SYSDA,SPACE=(3200,(20,20)) 00000600
//SYSUT3 DD UNIT=SYSDA,SPACE=(3200,(20,20)) 00000700
//SYSUT4 DD UNIT=SYSDA,SPACE=(1024,256),DCB=DSORG=DA 00000800
//SYSGO DD UNIT=SYSDA,DISP=(,PASS),DSN=&&LOADSET, 00000900
// SPACE=(CYL,(1,1)), 00001000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,DSORG=PS) 00001100
//LKED EXEC PGM=&LKEDPRG,PARM='MAP,LIST,LET',COND=(4,LT,SIM), 00001200
// REGION=512K 00001300
//SYSPRINT DD SYSOUT=* 00001400
//SYSLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00001500
//SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(50,50)) 00001600
//SYSLMOD DD DSN=&&GOSET(GO),DISP=(,PASS),UNIT=SYSDA, 00001700
// SPACE=(CYL,(1,1,1)) 00001801
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,PASS) 00001900
// DD DDNAME=SYSIN 00002002
//GO EXEC PGM=*.LKED.SYSLMOD,COND=((4,LT,SIM),(4,LT,LKED)) 00002100
//SYSOUT DD SYSOUT=* 00002200
*** END OF MEMBER *** 22 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 SNOBOL4 -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 95
//SNOBOL4 PROC 00010000
//SNOBOL4 EXEC PGM=SNOBOL4 00020000
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR 00030001
//FT06F001 DD SYSOUT=* 00040000
//FT07F001 DD SYSOUT=* 00050000
//FT05F001 DD DDNAME=SYSIN 00060000
*** END OF MEMBER *** 6 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 SPIT370 -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 96
//SPIT370 PROC CORE=2M 00020000
//SPIT370 EXEC PGM=OSINT,REGION=&CORE 00030000
//STEPLIB DD DSN=SYSC.SPIT370.LOADMODS,DISP=SHR 00040000
//SYSPRINT DD SYSOUT=*,DCB=(LRECL=133,RECFM=FBA,BLKSIZE=1995) 00050000
//SYSPUNCH DD SYSOUT=B,DCB=(LRECL=80,RECFM=FB,BLKSIZE=80) 00060000
//SYSUDUMP DD SYSOUT=Y 00070000
*** END OF MEMBER *** 6 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 STPASCAL -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 97
//STPASCAL PROC GOTIME=10 00000001
//* 00000006
//* STEP ONE: COMPILE THE SOURCE PROGRAM 00000011
//* 00000016
//COMPILE EXEC PGM=PASCAL,COND=(0,LT) 00000021
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR
//OUTPUT DD SYSOUT=* 00000026
//PRD DD DSN=SYSC.STANFORD.PASCAL.LIB(PASMSG),DISP=SHR 00000031
//PRR DD DSN=&&PCODE,UNIT=SYSDA,DCB=RECFM=VB, 00000036
// SPACE=(TRK,(20,5),RLSE),DISP=(,PASS) 00000041
//QRR DD DSN=&&TABLES,UNIT=SYSDA,DCB=RECFM=VB, 00000046
// SPACE=(TRK,(5,2),RLSE),DISP=(,PASS) 00000051
//* 00000056
//* STEP TWO: (POST) PROCESS THE P_CODE 00000061
//* 00000066
//POSTPROC EXEC PGM=ASMPCODE,COND=(0,LT) 00000071
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR
//INPUT DD DSN=*.COMPILE.PRR,DISP=(OLD,DELETE) 00000076
//PRD DD DSN=*.COMPILE.QRR,DISP=(OLD,PASS) 00000081
//OUTPUT DD SYSOUT=A 00000086
//PRR DD DSN=&&OBJECT,UNIT=SYSDA,DCB=RECFM=FB, 00000091
// SPACE=(TRK,(10,5),RLSE),DISP=(,PASS) 00000096
//* 00000101
//* STEP THREE: LOAD AND GO 00000106
//* 00000111
//GO EXEC PGM=LOADER,COND=(0,LT),PARM='//TIME=&GOTIME' 00000116
//SYSLIN DD DSN=*.POSTPROC.PRR,DISP=(OLD,DELETE) 00000121
//SYSLOUT DD SYSOUT=A 00000126
//SYSLIB DD DSN=SYSC.FORTLIB,DISP=SHR 00000131
// DD DSN=SYSC.LINKLIB,DISP=SHR 00000136
//PRD DD DUMMY 00000141
//QRD DD DSN=*.COMPILE.QRR,DISP=(OLD,DELETE) 00000146
//QRR DD UNIT=SYSDA,SPACE=(TRK,(2,2)) 00000151
//FT06F001 DD SYSOUT=A 00000156
//OUTPUT DD SYSOUT=A 00000161
*** END OF MEMBER *** 35 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 WATFIV -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 98
//WATFIVE PROC
//GO EXEC PGM=WATFIV,REGION=512K
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR
//WATLIB DD DSN=SYSC.WATFIV.FUNLIB,DISP=SHR
// DD DSN=SYSC.WATFIV.WATLIB,DISP=SHR
//FT01F001 DD SPACE=(TRK,(20,10)),DCB=(RECFM=VS,BLKSIZE=256),UNIT=SYSDA
//FT02F001 DD SPACE=(TRK,(20,10)),DCB=(RECFM=VS,BLKSIZE=256),UNIT=SYSDA
//FT03F001 DD SPACE=(TRK,(20,10)),DCB=(RECFM=VS,BLKSIZE=256),UNIT=SYSDA
//FT04F001 DD SPACE=(TRK,(20,10)),DCB=(RECFM=VS,BLKSIZE=256),UNIT=SYSDA
//FT05F001 DD DDNAME=SYSIN
//FT06F001 DD SYSOUT=A,DCB=(RECFM=FA,BLKSIZE=133)
//FT07F001 DD SYSOUT=B
*** END OF MEMBER *** 12 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 XPLA -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 99
//* 00010000
//* ANALYZE EXECUTE THE SYNTAX ANALYSIS PROGRAM 00020000
//* 00030000
//ANALYZE EXEC PGM=XPLSM 00040000
//STEPLIB DD DISP=SHR,DSN=SYSC.XPL.LOADLIB 00050000
//PROGRAM DD DISP=SHR,DSN=SYSC.XPL.OBJECT(ANALYZER) 00060000
//SYSPRINT DD SYSOUT=* 00070000
//SYSPUNCH DD SYSOUT=B 00080000
//SYSUDUMP DD SYSOUT=* 00090000
*** END OF MEMBER *** 9 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 XPLC -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 100
//* 00110000
//* XPLC COMPILE AN XPL PROGRAM 00120000
//* 00130000
//XPL EXEC PGM=XPLSM,REGION=512K 00140000
//STEPLIB DD DISP=SHR,DSN=SYSC.XPL.LOADLIB 00150000
//PROGRAM DD DISP=SHR,DSN=SYSC.XPL.OBJECT(XCOM) 00160000
//FILE1 DD UNIT=SYSDA,SPACE=(TRK,(15,15)) 00170000
//FILE2 DD UNIT=SYSDA,SPACE=(TRK,(15,15)) 00180000
//FILE3 DD UNIT=SYSDA,SPACE=(TRK,(15,15)) 00190000
//INPUT2 DD DISP=SHR,DSN=SYSC.XPL.SOURCE(XPLLIBR) 00200000
//SYSPRINT DD SYSOUT=* 00210000
//SYSUDUMP DD SYSOUT=* 00220000
*** END OF MEMBER *** 12 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 XPLCG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 101
//* 00240000
//* XPLCG COMPILE AND EXECUTE AN XPL PROGRAM 00250000
//* 00260000
//XPL EXEC PGM=XPLSM,REGION=512K 00270000
//STEPLIB DD DISP=SHR,DSN=SYSC.XPL.LOADLIB 00280000
//PROGRAM DD DISP=SHR,DSN=SYSC.XPL.OBJECT(XCOM) 00290000
//FILE1 DD UNIT=SYSDA,SPACE=(TRK,(15,15)),DISP=(,PASS) 00300000
//FILE2 DD UNIT=SYSDA,SPACE=(TRK,(15,15)) 00310000
//FILE3 DD UNIT=SYSDA,SPACE=(TRK,(15,15)) 00320000
//INPUT2 DD DISP=SHR,DSN=SYSC.XPL.SOURCE(XPLLIBR) 00330000
//SYSPRINT DD SYSOUT=* 00340000
//SYSUDUMP DD SYSOUT=* 00350000
//GO EXEC PGM=XPLSM,COND=(0,NE) 00360000
//STEPLIB DD DISP=SHR,DSN=SYSC.XPL.LOADLIB 00370000
//PROGRAM DD DISP=OLD,DSN=*.XPL.FILE1 00380000
//FILE1 DD UNIT=SYSDA,SPACE=(TRK,(15,15)) 00390000
//FILE2 DD UNIT=SYSDA,SPACE=(TRK,(15,15)) 00400000
//FILE3 DD UNIT=SYSDA,SPACE=(TRK,(15,15)) 00410000
//SYSPRINT DD SYSOUT=* 00420000
//SYSPUNCH DD SYSOUT=B 00430000
//SYSUDUMP DD SYSOUT=* 00440000
*** END OF MEMBER *** 21 RECORDS PROCESSED ***********************************************************************
06JUN24 11.23 XPLG -- SYSC.PROCLIB -- VOL=SYSCPK PAGE 102
//* 00460000
//* XPLG EXECUTE A PREVIOUSLY COMPILED XPL PROGRAM 00470000
//* 00480000
//GO EXEC PGM=XPLSM 00490000
//STEPLIB DD DISP=SHR,DSN=SYSC.XPL.LOADLIB 00500000
//FILE1 DD UNIT=SYSDA,SPACE=(TRK,(15,15)) 00510000
//FILE2 DD UNIT=SYSDA,SPACE=(TRK,(15,15)) 00520000
//FILE3 DD UNIT=SYSDA,SPACE=(TRK,(15,15)) 00530000
//SYSPRINT DD SYSOUT=* 00540000
//SYSPUNCH DD UNIT=SYSCP 00550000
//SYSUDUMP DD SYSOUT=* 00560000
*** END OF MEMBER *** 11 RECORDS PROCESSED ***********************************************************************