//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