home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
ibmtsonih.zip
/
tsnalp.jcl
next >
Wrap
Text File
|
1986-12-18
|
37KB
|
871 lines
//MWCALPRC JOB (ZZXZ,504,A),'ALP PROCS'
/*RERUN
//* EXEC PDSALLOC,NAME='ZZXZMWC.ALP.PROCS.TESTLIB',DISK=TMP003,SIZE=5
// EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD SYSOUT=A
//*SYSUT2 DD DSN=ZZXZMWC.ALP.PROCS.TESTLIB,UNIT=FILE,VOL=SER=TMP003,
//* DISP=OLD,DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600)
//SYSUT2 DD DSN=NIH.VPROCLIB,DISP=SHR
//SYSIN DD DATA
/*UNNUMBERED
./ ADD LIST=ALL,NAME=ALPHCOMF
//*
//* ALP, ASSEMBLE (H) A PROGRAM AND CREATE TEMPORARY OBJECT MODULE
//* PRODUCE ASSEMBLER LISTING ON MICROFICHE
//*
//* SYS - 01/12/87
//*
// PROC OPTIONS=, ASSEMBLER PARMS
// ALPOPTS=, ALP OPTIONS
// LIBNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// LIBSTOR=FILE, MACRO LIBRARY UNIT
// LIBDISK=, MACRO LIBRARY VOLUME
// ALTNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// ALTSTOR=FILE, MACRO LIBRARY UNIT
// ALTDISK=, MACRO LIBRARY VOLUME
// MFID='ALP', (REQ) UNIQUE IDENTIFIER
// MFNAME='NIH.ALPFICHE', NAME OF PTFORM CTL DS
// MFSTOR=FILE, UNIT NAME FOR PTFORM CTL DS
// MFDISK=, VOL SERIAL FOR PTFORM CTL DS
// CORE=1500K REGION SIZE
//*
//COMP EXEC PGM=MWCALPCH,REGION=&CORE,
// PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
//*
//SYSTERM DD SYSOUT=A
//ASMPRINT DD DSN=&&ASMLIST,UNIT=SYSDA,DISP=(NEW,PASS),
// SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
//NEWPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
//PLIDUMP DD SYSOUT=A
//POSTERR DD SYSOUT=A
//SYSLIB DD DSN=&LIBNAME,UNIT=&LIBSTOR,
// VOL=SER=&LIBDISK,DISP=SHR,
// DCB=BLKSIZE=11440
// DD DSN=&ALTNAME,UNIT=&ALTSTOR,
// VOL=SER=&ALTDISK,DISP=SHR
// DD DSN=NIH.ALPLIB,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=NIH.MACLIB,DISP=SHR
//SYSLIN DD DSN=&&LIN,UNIT=SYSDA,DISP=(MOD,PASS,DELETE),
// SPACE=(CYL,(2,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
//SYSOUT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
//SYSPRINT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSUDUMP DD SYSOUT=A
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5))
//*
//SPTID EXEC PGM=RHB195,REGION=500K,COND=(24,LE,COMP),PARM='M4500'
//*
//* PLACE SPOUT CONTROL RECORDS ON TAPE
//*
//HEADER DD DSN=MICRO105.&MFID,
// UNIT=FICHE,VOL=PRIVATE,DISP=(NEW,PASS),
// DCB=(RECFM=FB,LRECL=135,BLKSIZE=3915,DEN=3)
//SYSUDUMP DD SYSOUT=A
//*
//PTFORM EXEC PGM=PTFORM,REGION=500K,COND=(24,LE,COMP)
//*
//* CONVERT LISTING DATA SET TO MICROFICHE FORMAT
//*
//EZFOUTPT DD DSN=MICRO105.&MFID,DISP=(MOD,KEEP,DELETE)
//EZFPARMS DD DSN=&MFNAME,UNIT=&MFSTOR,
// VOL=SER=&MFDISK,DISP=SHR
//EZFSTATS DD SYSOUT=A,DCB=BLKSIZE=133
//PTFINPUT DD DSN=&&ASMLIST,DISP=(OLD,DELETE)
//SYSUDUMP DD SYSOUT=A
./ ADD LIST=ALL,NAME=ALPHCOMP
//*
//* ALP, ASSEMBLE (H) A PROGRAM AND CREATE TEMPORARY OBJECT MODULE
//*
//* SYS - 01/12/87
//*
// PROC OPTIONS=, ASSEMBLER PARMS
// ASMLIST='DUMMY,', NULLIFY TO GET ASM LISTING
// ALPOPTS=, ALP OPTIONS
// LIBNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// LIBSTOR=FILE, MACRO LIBRARY UNIT
// LIBDISK=, MACRO LIBRARY VOLUME
// ALTNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// ALTSTOR=FILE, MACRO LIBRARY UNIT
// ALTDISK=, MACRO LIBRARY VOLUME
// CORE=1500K REGION SIZE
//*
//COMP EXEC PGM=MWCALPCH,REGION=&CORE,
// PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
//*
//SYSTERM DD SYSOUT=A
//NEWPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
//ALTPRINT DD &ASMLIST.SYSOUT=A,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=121)
//ASMPRINT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
//PLIDUMP DD SYSOUT=A
//POSTERR DD SYSOUT=A
//SYSLIB DD DSN=&LIBNAME,UNIT=&LIBSTOR,
// VOL=SER=&LIBDISK,DISP=SHR,
// DCB=BLKSIZE=11440
// DD DSN=&ALTNAME,UNIT=&ALTSTOR,
// VOL=SER=&ALTDISK,DISP=SHR
// DD DSN=NIH.ALPLIB,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=NIH.MACLIB,DISP=SHR
//SYSLIN DD DSN=&&LIN,UNIT=SYSDA,DISP=(MOD,PASS,DELETE),
// SPACE=(CYL,(2,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
//SYSOUT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
//SYSPRINT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSUDUMP DD SYSOUT=A
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5))
./ ADD LIST=ALL,NAME=ALPHOBJ
//*
//* ALP, ASSEMBLE (LEVEL H) AND SAVE RESULTANT OBJECT MODULE
//*
//* SYS - 01/12/87
//*
// PROC NAME=, (REQ) DSNAME OF OBJ MOD
// STORAGE=FILE, UNIT FOR OBJ MOD
// DISK=, (REQ) VOL FOR OBJ MOD
// STATUS=NEW, DISP OF OBJ MOD DATA SET
// UNITS=80, SPACE ALLOC UNITS FOR OBJ MOD
// SIZE=500, PRIMARY SPACE ALLOC FOR OBJ MOD
// OPTIONS=, ASSEMBLER PARMS
// ALPOPTS=, ALP OPTIONS
// ASMLIST='DUMMY,', NULLIFY TO GET ASM LISTING
// LIBNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// LIBSTOR=FILE, MACRO LIBRARY UNIT
// LIBDISK=, MACRO LIBRARY VOLUME
// ALTNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// ALTSTOR=FILE, MACRO LIBRARY UNIT
// ALTDISK=, MACRO LIBRARY VOLUME
// CORE=1500K REGION SIZE
//*
//COMP EXEC PGM=MWCALPCH,REGION=&CORE,
// PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
//*
//SYSTERM DD SYSOUT=A
//NEWPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
//ALTPRINT DD &ASMLIST.SYSOUT=A,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=121)
//ASMPRINT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
//PLIDUMP DD SYSOUT=A
//POSTERR DD SYSOUT=A
//SYSLIB DD DSN=&LIBNAME,UNIT=&LIBSTOR,
// VOL=SER=&LIBDISK,DISP=SHR,
// DCB=BLKSIZE=11440
// DD DSN=&ALTNAME,UNIT=&ALTSTOR,
// VOL=SER=&ALTDISK,DISP=SHR
// DD DSN=NIH.ALPLIB,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=NIH.MACLIB,DISP=SHR
//SYSLIN DD DSN=&NAME,UNIT=&STORAGE,VOL=SER=&DISK,
// DISP=(&STATUS,KEEP),SPACE=(&UNITS,(&SIZE,20),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
//SYSOUT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
//SYSPRINT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSUDUMP DD SYSOUT=A
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5))
./ ADD LIST=ALL,NAME=ALPHOBJF
//*
//* ALP, ASSEMBLE (LEVEL H) AND SAVE RESULTANT OBJECT MODULE
//* PRODUCE ASSEMBLER LISTING ON MICROFICHE
//*
//* SYS - 01/12/87
//*
// PROC NAME=, (REQ) DSNAME OF OBJ MOD
// STORAGE=FILE, UNIT FOR OBJ MOD
// DISK=, (REQ) VOL FOR OBJ MOD
// STATUS=NEW, DISP OF OBJ MOD DATA SET
// UNITS=80, SPACE ALLOC UNITS FOR OBJ MOD
// SIZE=500, PRIMARY SPACE ALLOC FOR OBJ MOD
// OPTIONS=, ASSEMBLER PARMS
// ALPOPTS=, ALP OPTIONS
// LIBNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// LIBSTOR=FILE, MACRO LIBRARY UNIT
// LIBDISK=, MACRO LIBRARY VOLUME
// ALTNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// ALTSTOR=FILE, MACRO LIBRARY UNIT
// ALTDISK=, MACRO LIBRARY VOLUME
// MFID='ALP', (REQ) UNIQUE IDENTIFIER
// MFNAME='NIH.ALPFICHE', NAME OF PTFORM CTL DS
// MFSTOR=FILE, UNIT NAME FOR PTFORM CTL DS
// MFDISK=, VOL SERIAL FOR PTFORM CTL DS
// CORE=1500K REGION SIZE
//*
//COMP EXEC PGM=MWCALPCH,REGION=&CORE,
// PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
//*
//SYSTERM DD SYSOUT=A
//ASMPRINT DD DSN=&&ASMLIST,UNIT=SYSDA,DISP=(NEW,PASS),
// SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
//NEWPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
//PLIDUMP DD SYSOUT=A
//POSTERR DD SYSOUT=A
//SYSLIB DD DSN=&LIBNAME,UNIT=&LIBSTOR,
// VOL=SER=&LIBDISK,DISP=SHR,
// DCB=BLKSIZE=11440
// DD DSN=&ALTNAME,UNIT=&ALTSTOR,
// VOL=SER=&ALTDISK,DISP=SHR
// DD DSN=NIH.ALPLIB,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=NIH.MACLIB,DISP=SHR
//SYSLIN DD DSN=&NAME,UNIT=&STORAGE,VOL=SER=&DISK,
// DISP=(&STATUS,KEEP),SPACE=(&UNITS,(&SIZE,20),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
//SYSOUT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
//SYSPRINT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSUDUMP DD SYSOUT=A
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5))
//*
//SPTID EXEC PGM=RHB195,REGION=500K,COND=(24,LE,COMP),PARM='M4500'
//*
//* PLACE SPOUT CONTROL RECORDS ON TAPE
//*
//HEADER DD DSN=MICRO105.&MFID,
// UNIT=FICHE,VOL=PRIVATE,DISP=(NEW,PASS),
// DCB=(RECFM=FB,LRECL=135,BLKSIZE=3915,DEN=3)
//SYSUDUMP DD SYSOUT=A
//*
//PTFORM EXEC PGM=PTFORM,REGION=500K,COND=(24,LE,COMP)
//*
//* CONVERT LISTING DATA SET TO MICROFICHE FORMAT
//*
//EZFOUTPT DD DSN=MICRO105.&MFID,DISP=(MOD,KEEP,DELETE)
//EZFPARMS DD DSN=&MFNAME,UNIT=&MFSTOR,
// VOL=SER=&MFDISK,DISP=SHR
//EZFSTATS DD SYSOUT=A,DCB=BLKSIZE=133
//PTFINPUT DD DSN=&&ASMLIST,DISP=(OLD,DELETE)
//SYSUDUMP DD SYSOUT=A
./ ADD LIST=ALL,NAME=ALPHPRE
//*
//* ALP PREPROCESSING ONLY
//*
//* SYS - 01/12/87
//*
// PROC ASMLIST='DUMMY,', NULLIFY TO GET ASM LISTING
// ALPOPTS= ALP OPTIONS
//*
//COMP EXEC PGM=MWCALP,REGION=1500K,
// PARM='&ALPOPTS/'
//*
//SYSTERM DD SYSOUT=A
//PLIDUMP DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSOUT DD &ASMLIST.SYSOUT=A,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSUDUMP DD SYSOUT=A
./ ADD LIST=ALL,NAME=ALPSCOMF
//*
//* ALP, ASSEMBLE (H) A PROGRAM AND CREATE TEMPORARY OBJECT MODULE
//* PRODUCE ASSEMBLER LISTING ON MICROFICHE
//*
//* SYS - 01/12/87
//*
// PROC OPTIONS=, ASSEMBLER PARMS
// ALPOPTS=, ALP OPTIONS
// LIBNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// LIBSTOR=FILE, MACRO LIBRARY UNIT
// LIBDISK=, MACRO LIBRARY VOLUME
// ALTNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// ALTSTOR=FILE, MACRO LIBRARY UNIT
// ALTDISK=, MACRO LIBRARY VOLUME
// MFID='ALP', (REQ) UNIQUE IDENTIFIER
// MFNAME='NIH.ALPFICHE', NAME OF PTFORM CTL DS
// MFSTOR=FILE, UNIT NAME FOR PTFORM CTL DS
// MFDISK=, VOL SERIAL FOR PTFORM CTL DS
// CORE=1500K REGION SIZE
//*
//COMP EXEC PGM=MWCALPCH,REGION=&CORE,
// PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
//*
//SYSTERM DD SYSOUT=A
//ASMPRINT DD DSN=&&ASMLIST,UNIT=SYSDA,DISP=(NEW,PASS),
// SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
//NEWPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
//PLIDUMP DD SYSOUT=A
//POSTERR DD SYSOUT=A
//STEPLIB DD DSN=NIH.ASMH29,DISP=SHR
//SYSLIB DD DSN=&LIBNAME,UNIT=&LIBSTOR,
// VOL=SER=&LIBDISK,DISP=SHR,
// DCB=BLKSIZE=11440
// DD DSN=&ALTNAME,UNIT=&ALTSTOR,
// VOL=SER=&ALTDISK,DISP=SHR
// DD DSN=NIH.ALPLIB,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=NIH.MACLIB,DISP=SHR
//SYSLIN DD DSN=&&LIN,UNIT=SYSDA,DISP=(MOD,PASS,DELETE),
// SPACE=(CYL,(2,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
//SYSOUT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
//SYSPRINT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSUDUMP DD SYSOUT=A
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5))
//*
//SPTID EXEC PGM=RHB195,REGION=500K,COND=(24,LE,COMP),PARM='M4500'
//*
//* PLACE SPOUT CONTROL RECORDS ON TAPE
//*
//HEADER DD DSN=MICRO105.&MFID,
// UNIT=FICHE,VOL=PRIVATE,DISP=(NEW,PASS),
// DCB=(RECFM=FB,LRECL=135,BLKSIZE=3915,DEN=3)
//SYSUDUMP DD SYSOUT=A
//*
//PTFORM EXEC PGM=PTFORM,REGION=500K,COND=(24,LE,COMP)
//*
//* CONVERT LISTING DATA SET TO MICROFICHE FORMAT
//*
//EZFOUTPT DD DSN=MICRO105.&MFID,DISP=(MOD,KEEP,DELETE)
//EZFPARMS DD DSN=&MFNAME,UNIT=&MFSTOR,
// VOL=SER=&MFDISK,DISP=SHR
//EZFSTATS DD SYSOUT=A,DCB=BLKSIZE=133
//PTFINPUT DD DSN=&&ASMLIST,DISP=(OLD,DELETE)
//SYSUDUMP DD SYSOUT=A
./ ADD LIST=ALL,NAME=ALPSCOMP
//*
//* ALP, ASSEMBLE (H) A PROGRAM AND CREATE TEMPORARY OBJECT MODULE
//*
//* SYS - 01/12/87
//*
// PROC OPTIONS=, ASSEMBLER PARMS
// ASMLIST='DUMMY,', NULLIFY TO GET ASM LISTING
// ALPOPTS=, ALP OPTIONS
// LIBNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// LIBSTOR=FILE, MACRO LIBRARY UNIT
// LIBDISK=, MACRO LIBRARY VOLUME
// ALTNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// ALTSTOR=FILE, MACRO LIBRARY UNIT
// ALTDISK=, MACRO LIBRARY VOLUME
// CORE=1500K REGION SIZE
//*
//COMP EXEC PGM=MWCALPCH,REGION=&CORE,
// PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
//*
//SYSTERM DD SYSOUT=A
//NEWPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
//ALTPRINT DD &ASMLIST.SYSOUT=A,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=121)
//ASMPRINT DD DSN=&&ASMLIST,UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
//PLIDUMP DD SYSOUT=A
//POSTERR DD SYSOUT=A
//STEPLIB DD DSN=NIH.ASMH29,DISP=SHR
//SYSLIB DD DSN=&LIBNAME,UNIT=&LIBSTOR,
// VOL=SER=&LIBDISK,DISP=SHR,
// DCB=BLKSIZE=11440
// DD DSN=&ALTNAME,UNIT=&ALTSTOR,
// VOL=SER=&ALTDISK,DISP=SHR
// DD DSN=NIH.ALPLIB,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=NIH.MACLIB,DISP=SHR
//SYSLIN DD DSN=&&LIN,UNIT=SYSDA,DISP=(MOD,PASS,DELETE),
// SPACE=(CYL,(2,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
//SYSOUT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
//SYSPRINT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSUDUMP DD SYSOUT=A
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5))
./ ADD LIST=ALL,NAME=ALPSOBJ
//*
//* ALP, ASSEMBLE (LEVEL H) AND SAVE RESULTANT OBJECT MODULE
//*
//* SYS - 01/12/87
//*
// PROC NAME=, (REQ) DSNAME OF OBJ MOD
// STORAGE=FILE, UNIT FOR OBJ MOD
// DISK=, (REQ) VOL FOR OBJ MOD
// STATUS=NEW, DISP OF OBJ MOD DATA SET
// UNITS=80, SPACE ALLOC UNITS FOR OBJ MOD
// SIZE=500, PRIMARY SPACE ALLOC FOR OBJ MOD
// OPTIONS=, ASSEMBLER PARMS
// ALPOPTS=, ALP OPTIONS
// ASMLIST='DUMMY,', NULLIFY TO GET ASM LISTING
// LIBNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// LIBSTOR=FILE, MACRO LIBRARY UNIT
// LIBDISK=, MACRO LIBRARY VOLUME
// ALTNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// ALTSTOR=FILE, MACRO LIBRARY UNIT
// ALTDISK=, MACRO LIBRARY VOLUME
// CORE=1500K REGION SIZE
//*
//COMP EXEC PGM=MWCALPCH,REGION=&CORE,
// PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
//*
//SYSTERM DD SYSOUT=A
//NEWPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
//ALTPRINT DD &ASMLIST.SYSOUT=A,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=121)
//ASMPRINT DD DSN=&&ASMLIST,UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
//PLIDUMP DD SYSOUT=A
//POSTERR DD SYSOUT=A
//STEPLIB DD DSN=NIH.ASMH29,DISP=SHR
//SYSLIB DD DSN=&LIBNAME,UNIT=&LIBSTOR,
// VOL=SER=&LIBDISK,DISP=SHR,
// DCB=BLKSIZE=11440
// DD DSN=&ALTNAME,UNIT=&ALTSTOR,
// VOL=SER=&ALTDISK,DISP=SHR
// DD DSN=NIH.ALPLIB,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=NIH.MACLIB,DISP=SHR
//SYSLIN DD DSN=&NAME,UNIT=&STORAGE,VOL=SER=&DISK,
// DISP=(&STATUS,KEEP),SPACE=(&UNITS,(&SIZE,20),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
//SYSOUT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
//SYSPRINT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSUDUMP DD SYSOUT=A
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5))
./ ADD LIST=ALL,NAME=ALPSOBJF
//*
//* ALP, ASSEMBLE (LEVEL H) AND SAVE RESULTANT OBJECT MODULE
//* PRODUCE ASSEMBLER LISTING ON MICROFICHE
//*
//* SYS - 01/12/87
//*
// PROC NAME=, (REQ) DSNAME OF OBJ MOD
// STORAGE=FILE, UNIT FOR OBJ MOD
// DISK=, (REQ) VOL FOR OBJ MOD
// STATUS=NEW, DISP OF OBJ MOD DATA SET
// UNITS=80, SPACE ALLOC UNITS FOR OBJ MOD
// SIZE=500, PRIMARY SPACE ALLOC FOR OBJ MOD
// OPTIONS=, ASSEMBLER PARMS
// ALPOPTS=, ALP OPTIONS
// LIBNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// LIBSTOR=FILE, MACRO LIBRARY UNIT
// LIBDISK=, MACRO LIBRARY VOLUME
// ALTNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// ALTSTOR=FILE, MACRO LIBRARY UNIT
// ALTDISK=, MACRO LIBRARY VOLUME
// MFID='ALP', (REQ) UNIQUE IDENTIFIER
// MFNAME='NIH.ALPFICHE', NAME OF PTFORM CTL DS
// MFSTOR=FILE, UNIT NAME FOR PTFORM CTL DS
// MFDISK=, VOL SERIAL FOR PTFORM CTL DS
// CORE=1500K REGION SIZE
//*
//COMP EXEC PGM=MWCALPCH,REGION=&CORE,
// PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
//*
//SYSTERM DD SYSOUT=A
//ASMPRINT DD DSN=&&ASMLIST,UNIT=SYSDA,DISP=(NEW,PASS),
// SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
//NEWPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
//PLIDUMP DD SYSOUT=A
//POSTERR DD SYSOUT=A
//STEPLIB DD DSN=NIH.ASMH29,DISP=SHR
//SYSLIB DD DSN=&LIBNAME,UNIT=&LIBSTOR,
// VOL=SER=&LIBDISK,DISP=SHR,
// DCB=BLKSIZE=11440
// DD DSN=&ALTNAME,UNIT=&ALTSTOR,
// VOL=SER=&ALTDISK,DISP=SHR
// DD DSN=NIH.ALPLIB,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=NIH.MACLIB,DISP=SHR
//SYSLIN DD DSN=&NAME,UNIT=&STORAGE,VOL=SER=&DISK,
// DISP=(&STATUS,KEEP),SPACE=(&UNITS,(&SIZE,20),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
//SYSOUT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
//SYSPRINT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSUDUMP DD SYSOUT=A
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5))
//*
//SPTID EXEC PGM=RHB195,REGION=500K,COND=(24,LE,COMP),PARM='M4500'
//*
//* PLACE SPOUT CONTROL RECORDS ON TAPE
//*
//HEADER DD DSN=MICRO105.&MFID,
// UNIT=FICHE,VOL=PRIVATE,DISP=(NEW,PASS),
// DCB=(RECFM=FB,LRECL=135,BLKSIZE=3915,DEN=3)
//SYSUDUMP DD SYSOUT=A
//*
//PTFORM EXEC PGM=PTFORM,REGION=500K,COND=(24,LE,COMP)
//*
//* CONVERT LISTING DATA SET TO MICROFICHE FORMAT
//*
//EZFOUTPT DD DSN=MICRO105.&MFID,DISP=(MOD,KEEP,DELETE)
//EZFPARMS DD DSN=&MFNAME,UNIT=&MFSTOR,
// VOL=SER=&MFDISK,DISP=SHR
//EZFSTATS DD SYSOUT=A,DCB=BLKSIZE=133
//PTFINPUT DD DSN=&&ASMLIST,DISP=(OLD,DELETE)
//SYSUDUMP DD SYSOUT=A
./ ADD LIST=ALL,NAME=ALPSPRE
//*
//* ALP PREPROCESSING ONLY
//*
//* SYS - 01/12/87
//*
// PROC ASMLIST='DUMMY,', NULLIFY TO GET ASM LISTING
// ALPOPTS= ALP OPTIONS
//*
//COMP EXEC PGM=MWCALP,REGION=1500K,
// PARM='&ALPOPTS/'
//*
//SYSTERM DD SYSOUT=A
//PLIDUMP DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSOUT DD &ASMLIST.SYSOUT=A,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSUDUMP DD SYSOUT=A
./ ADD LIST=ALL,NAME=ALPXCOMF
//*
//* ALP, ASSEMBLE (H) A PROGRAM AND CREATE TEMPORARY OBJECT MODULE
//* USES MVS/XA MACRO LIBRARIES
//* PRODUCE ASSEMBLER LISTING ON MICROFICHE
//*
//* SYS - 01/12/87
//*
// PROC OPTIONS=, ASSEMBLER PARMS
// ALPOPTS=, ALP OPTIONS
// LIBNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// LIBSTOR=FILE, MACRO LIBRARY UNIT
// LIBDISK=, MACRO LIBRARY VOLUME
// ALTNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// ALTSTOR=FILE, MACRO LIBRARY UNIT
// ALTDISK=, MACRO LIBRARY VOLUME
// MFID='ALP', (REQ) UNIQUE IDENTIFIER
// MFNAME='NIH.ALPFICHE', NAME OF PTFORM CTL DS
// MFSTOR=FILE, UNIT NAME FOR PTFORM CTL DS
// MFDISK=, VOL SERIAL FOR PTFORM CTL DS
// CORE=1500K REGION SIZE
//*
//COMP EXEC PGM=MWCALPCH,REGION=&CORE,
// PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
//*
//SYSTERM DD SYSOUT=A
//ASMPRINT DD DSN=&&ASMLIST,UNIT=SYSDA,DISP=(NEW,PASS),
// SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
//NEWPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
//PLIDUMP DD SYSOUT=A
//POSTERR DD SYSOUT=A
//STEPLIB DD DSN=NIH.ASMH29,DISP=SHR
//SYSLIB DD DSN=&LIBNAME,UNIT=&LIBSTOR,
// VOL=SER=&LIBDISK,DISP=SHR,
// DCB=BLKSIZE=11440
// DD DSN=&ALTNAME,UNIT=&ALTSTOR,
// VOL=SER=&ALTDISK,DISP=SHR
// DD DSN=NIH.ALPLIB,DISP=SHR
// DD DSN=SYS1.SMPMTS,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.AMODGEN,DISP=SHR
// DD DSN=SYS1.ATSOMAC,DISP=SHR
// DD DSN=SYS1.ATCAMMAC,DISP=SHR
// DD DSN=SYS1.APVTMACS,DISP=SHR
// DD DSN=NIH.MACLIB,DISP=SHR
//SYSLIN DD DSN=&&LIN,UNIT=SYSDA,DISP=(MOD,PASS,DELETE),
// SPACE=(CYL,(2,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
//SYSOUT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
//SYSPRINT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSUDUMP DD SYSOUT=A
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5))
//*
//SPTID EXEC PGM=RHB195,REGION=500K,COND=(24,LE,COMP),PARM='M4500'
//*
//* PLACE SPOUT CONTROL RECORDS ON TAPE
//*
//HEADER DD DSN=MICRO105.&MFID,
// UNIT=FICHE,VOL=PRIVATE,DISP=(NEW,PASS),
// DCB=(RECFM=FB,LRECL=135,BLKSIZE=3915,DEN=3)
//SYSUDUMP DD SYSOUT=A
//*
//PTFORM EXEC PGM=PTFORM,REGION=500K,COND=(24,LE,COMP)
//*
//* CONVERT LISTING DATA SET TO MICROFICHE FORMAT
//*
//EZFOUTPT DD DSN=MICRO105.&MFID,DISP=(MOD,KEEP,DELETE)
//EZFPARMS DD DSN=&MFNAME,UNIT=&MFSTOR,
// VOL=SER=&MFDISK,DISP=SHR
//EZFSTATS DD SYSOUT=A,DCB=BLKSIZE=133
//PTFINPUT DD DSN=&&ASMLIST,DISP=(OLD,DELETE)
//SYSUDUMP DD SYSOUT=A
./ ADD LIST=ALL,NAME=ALPXCOMP
//*
//* ALP, ASSEMBLE (H) A PROGRAM AND CREATE TEMPORARY OBJECT MODULE
//* USES MVS/XA MACRO LIBRARIES
//*
//* SYS - 01/12/87
//*
// PROC OPTIONS=, ASSEMBLER PARMS
// ASMLIST='DUMMY,', NULLIFY TO GET ASM LISTING
// ALPOPTS=, ALP OPTIONS
// LIBNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// LIBSTOR=FILE, MACRO LIBRARY UNIT
// LIBDISK=, MACRO LIBRARY VOLUME
// ALTNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// ALTSTOR=FILE, MACRO LIBRARY UNIT
// ALTDISK=, MACRO LIBRARY VOLUME
// CORE=1500K REGION SIZE
//*
//COMP EXEC PGM=MWCALPCH,REGION=&CORE,
// PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
//*
//SYSTERM DD SYSOUT=A
//NEWPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
//ALTPRINT DD &ASMLIST.SYSOUT=A,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=121)
//ASMPRINT DD DSN=&&ASMLIST,UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
//PLIDUMP DD SYSOUT=A
//POSTERR DD SYSOUT=A
//STEPLIB DD DSN=NIH.ASMH29,DISP=SHR
//SYSLIB DD DSN=&LIBNAME,UNIT=&LIBSTOR,
// VOL=SER=&LIBDISK,DISP=SHR,
// DCB=BLKSIZE=11440
// DD DSN=&ALTNAME,UNIT=&ALTSTOR,
// VOL=SER=&ALTDISK,DISP=SHR
// DD DSN=NIH.ALPLIB,DISP=SHR
// DD DSN=SYS1.SMPMTS,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.AMODGEN,DISP=SHR
// DD DSN=SYS1.ATSOMAC,DISP=SHR
// DD DSN=SYS1.ATCAMMAC,DISP=SHR
// DD DSN=SYS1.APVTMACS,DISP=SHR
// DD DSN=NIH.MACLIB,DISP=SHR
//SYSLIN DD DSN=&&LIN,UNIT=SYSDA,DISP=(MOD,PASS,DELETE),
// SPACE=(CYL,(2,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
//SYSOUT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
//SYSPRINT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSUDUMP DD SYSOUT=A
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5))
./ ADD LIST=ALL,NAME=ALPXOBJ
//*
//* ALP, ASSEMBLE (LEVEL H) AND SAVE RESULTANT OBJECT MODULE
//* USES MVS/XA MACRO LIBRARIES
//*
//* SYS - 01/12/87
//*
// PROC NAME=, (REQ) DSNAME OF OBJ MOD
// STORAGE=FILE, UNIT FOR OBJ MOD
// DISK=, (REQ) VOL FOR OBJ MOD
// STATUS=NEW, DISP OF OBJ MOD DATA SET
// UNITS=80, SPACE ALLOC UNITS FOR OBJ MOD
// SIZE=500, PRIMARY SPACE ALLOC FOR OBJ MOD
// OPTIONS=, ASSEMBLER PARMS
// ALPOPTS=, ALP OPTIONS
// ASMLIST='DUMMY,', NULLIFY TO GET ASM LISTING
// LIBNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// LIBSTOR=FILE, MACRO LIBRARY UNIT
// LIBDISK=, MACRO LIBRARY VOLUME
// ALTNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// ALTSTOR=FILE, MACRO LIBRARY UNIT
// ALTDISK=, MACRO LIBRARY VOLUME
// CORE=1500K REGION SIZE
//*
//COMP EXEC PGM=MWCALPCH,REGION=&CORE,
// PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
//*
//SYSTERM DD SYSOUT=A
//NEWPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
//ALTPRINT DD &ASMLIST.SYSOUT=A,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=121)
//ASMPRINT DD DSN=&&ASMLIST,UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
//PLIDUMP DD SYSOUT=A
//POSTERR DD SYSOUT=A
//STEPLIB DD DSN=NIH.ASMH29,DISP=SHR
//SYSLIB DD DSN=&LIBNAME,UNIT=&LIBSTOR,
// VOL=SER=&LIBDISK,DISP=SHR,
// DCB=BLKSIZE=11440
// DD DSN=&ALTNAME,UNIT=&ALTSTOR,
// VOL=SER=&ALTDISK,DISP=SHR
// DD DSN=NIH.ALPLIB,DISP=SHR
// DD DSN=SYS1.SMPMTS,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.AMODGEN,DISP=SHR
// DD DSN=SYS1.ATSOMAC,DISP=SHR
// DD DSN=SYS1.ATCAMMAC,DISP=SHR
// DD DSN=SYS1.APVTMACS,DISP=SHR
// DD DSN=NIH.MACLIB,DISP=SHR
//SYSLIN DD DSN=&NAME,UNIT=&STORAGE,VOL=SER=&DISK,
// DISP=(&STATUS,KEEP),SPACE=(&UNITS,(&SIZE,20),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
//SYSOUT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
//SYSPRINT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSUDUMP DD SYSOUT=A
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5))
./ ADD LIST=ALL,NAME=ALPXOBJF
//*
//* ALP, ASSEMBLE (LEVEL H) AND SAVE RESULTANT OBJECT MODULE
//* USES MVS/XA MACRO LIBRARIES
//* PRODUCE ASSEMBLER LISTING ON MICROFICHE
//*
//* SYS - 01/12/87
//*
// PROC NAME=, (REQ) DSNAME OF OBJ MOD
// STORAGE=FILE, UNIT FOR OBJ MOD
// DISK=, (REQ) VOL FOR OBJ MOD
// STATUS=NEW, DISP OF OBJ MOD DATA SET
// UNITS=80, SPACE ALLOC UNITS FOR OBJ MOD
// SIZE=500, PRIMARY SPACE ALLOC FOR OBJ MOD
// OPTIONS=, ASSEMBLER PARMS
// ALPOPTS=, ALP OPTIONS
// LIBNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// LIBSTOR=FILE, MACRO LIBRARY UNIT
// LIBDISK=, MACRO LIBRARY VOLUME
// ALTNAME='NIH.MACEMPTY', MACRO LIBRARY DSNAME
// ALTSTOR=FILE, MACRO LIBRARY UNIT
// ALTDISK=, MACRO LIBRARY VOLUME
// MFID='ALP', (REQ) UNIQUE IDENTIFIER
// MFNAME='NIH.ALPFICHE', NAME OF PTFORM CTL DS
// MFSTOR=FILE, UNIT NAME FOR PTFORM CTL DS
// MFDISK=, VOL SERIAL FOR PTFORM CTL DS
// CORE=1500K REGION SIZE
//*
//COMP EXEC PGM=MWCALPCH,REGION=&CORE,
// PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
//*
//SYSTERM DD SYSOUT=A
//ASMPRINT DD DSN=&&ASMLIST,UNIT=SYSDA,DISP=(NEW,PASS),
// SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
//NEWPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
//PLIDUMP DD SYSOUT=A
//POSTERR DD SYSOUT=A
//STEPLIB DD DSN=NIH.ASMH29,DISP=SHR
//SYSLIB DD DSN=&LIBNAME,UNIT=&LIBSTOR,
// VOL=SER=&LIBDISK,DISP=SHR,
// DCB=BLKSIZE=11440
// DD DSN=&ALTNAME,UNIT=&ALTSTOR,
// VOL=SER=&ALTDISK,DISP=SHR
// DD DSN=NIH.ALPLIB,DISP=SHR
// DD DSN=SYS1.SMPMTS,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.AMODGEN,DISP=SHR
// DD DSN=SYS1.ATSOMAC,DISP=SHR
// DD DSN=SYS1.ATCAMMAC,DISP=SHR
// DD DSN=SYS1.APVTMACS,DISP=SHR
// DD DSN=NIH.MACLIB,DISP=SHR
//SYSLIN DD DSN=&NAME,UNIT=&STORAGE,VOL=SER=&DISK,
// DISP=(&STATUS,KEEP),SPACE=(&UNITS,(&SIZE,20),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
//SYSOUT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
//SYSPRINT DD UNIT=SYSDA,SPACE=(CYL,(10,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
//SYSPUNCH DD SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSUDUMP DD SYSOUT=A
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5))
//*
//SPTID EXEC PGM=RHB195,REGION=500K,COND=(24,LE,COMP),PARM='M4500'
//*
//* PLACE SPOUT CONTROL RECORDS ON TAPE
//*
//HEADER DD DSN=MICRO105.&MFID,
// UNIT=FICHE,VOL=PRIVATE,DISP=(NEW,PASS),
// DCB=(RECFM=FB,LRECL=135,BLKSIZE=3915,DEN=3)
//SYSUDUMP DD SYSOUT=A
//*
//PTFORM EXEC PGM=PTFORM,REGION=500K,COND=(24,LE,COMP)
//*
//* CONVERT LISTING DATA SET TO MICROFICHE FORMAT
//*
//EZFOUTPT DD DSN=MICRO105.&MFID,DISP=(MOD,KEEP,DELETE)
//EZFPARMS DD DSN=&MFNAME,UNIT=&MFSTOR,
// VOL=SER=&MFDISK,DISP=SHR
//EZFSTATS DD SYSOUT=A,DCB=BLKSIZE=133
//PTFINPUT DD DSN=&&ASMLIST,DISP=(OLD,DELETE)
//SYSUDUMP DD SYSOUT=A
./ ADD LIST=ALL,NAME=ALPXPRE
//*
//* ALP PREPROCESSING ONLY
//*
//* SYS - 01/12/87
//*
// PROC ASMLIST='DUMMY,', NULLIFY TO GET ASM LISTING
// ALPOPTS= ALP OPTIONS
//*
//COMP EXEC PGM=MWCALP,REGION=1500K,
// PARM='&ALPOPTS/'
//*
//SYSTERM DD SYSOUT=A
//PLIDUMP DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSOUT DD &ASMLIST.SYSOUT=A,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSUDUMP DD SYSOUT=A
/*
/*NUMBERED
// EXEC PGM=IEBUPDTE
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSN=NIH.VPROCLIB,DISP=SHR
//SYSUT2 DD DSN=NIH.VPROCLIB,DISP=SHR
//SYSIN DD *
./ REPRO NAME=ASMHCALL
./ ALIAS NAME=ALPHCALL
./ ALIAS NAME=ALPSCALL
./ ALIAS NAME=ALPXCALL
./ REPRO NAME=ASMHLDGO
./ ALIAS NAME=ALPHLDGO
./ ALIAS NAME=ALPSLDGO
./ ALIAS NAME=ALPXLDGO
./ REPRO NAME=ASMHLKGO
./ ALIAS NAME=ALPHLKGO
./ ALIAS NAME=ALPSLKGO
./ ALIAS NAME=ALPXLKGO
./ REPRO NAME=ASMHLKMM
./ ALIAS NAME=ALPHLKMM
./ ALIAS NAME=ALPSLKMM
./ ALIAS NAME=ALPXLKMM
./ REPRO NAME=ASMHLKSM
./ ALIAS NAME=ALPHLKSM
./ ALIAS NAME=ALPSLKSM
./ ALIAS NAME=ALPXLKSM
./ REPRO NAME=ASMHPPE
./ ALIAS NAME=ALPHPPE
./ ALIAS NAME=ALPSPPE
./ ALIAS NAME=ALPXPPE
// EXEC CATDS
//NIHLB4 DD UNIT=FILE,VOL=SER=NIHLB4,DISP=OLD
//SYSIN DD *
UNCATLG DSNAME=NIH.ALPFICHE
SCRATCH DSNAME=NIH.ALPFICHE,VOL=FILE=NIHLB4
// EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD SYSOUT=A
//SYSUT2 DD DSN=NIH.ALPFICHE,UNIT=FILE,VOL=SER=NIHLB4,DISP=(,CATLG),
// SPACE=(TRK,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6320)
//SYSIN DD *
./ ADD LIST=ALL
/*UNNUMBERED
$REPORT-1 SETUP INCC=MACH,RMSCAN=ALL,DEVICE=4500,LNPERPG=61,
FORMAT=(FICHE,42X),INDXPG=(61,2,62,2,'L'),
INDXHDR=(('GRID LOC STMT SEQUENCE TITLE
' ',2)),
LOGOINIT=EZFLOGO,VOLSWTCH=0
MAJORBRK GRID=(64,60)
RDATA1 LINE=(1,1),POSITION=(2,9),MASK='A'
INDEX (LINE=6,POSITION=(2,7),MASK='ZZZZZZ',CONNECT=' '),
(LINE=6,POSITION=(36,40),CONNECT=' ',
MASK=('BBBB9','BBB99','BB999','B9999','99999')),
(LINE=6,POSITION=(114,121),MASK='XXX9XXXX',
CONNECT=' '),
(LINE=(1,1),POSITION=(11,47),MASK='N',CONNECT=' ')
TITLE SEGMENT=(1,1),LOGO=(EZFLOGO,1,1),
SEGMENT=(6,54,' ALP ASSEMBLY LISTING'),
DATA=(DATE,2,31),DATA=(TIME,2,43),
SEGMENT=(2,10),DATA=(RDATA1,3),
SEGMENT=(2,2),DATA=((FSEQNO,1),4,2)
$END