gtpi1m6r | System Installation Support Reference |
The following control cards are an example of the cards necessary to execute the macro cross-reference programs under MVS:
//DCRSTST JOB MSGLEVEL=1 //DCRS1 EXEC PGM=DCRSvv,PARM='1' //STEPLIB DD DSN=ACP.LINK.RELvv.BSS,DISP=SHR //SYSUDUMP DD SYSOUT=A //ERR DD SYSOUT=A //IN DD DSN=ACP.SRCE.RT1.RELvv,DISP=SHR //INN DD DSN=ACP.SRCE.RT1.RELvv,DISP=SHR //ICALLDD DD DSN=ACP.MACRO.RELvv.BSS(ICALL),DISP=SHR //OUT DD DSN=&&SORTIN,UNIT=SYSDA,DISP=(NEW,PASS), // SPACE=(CYL,(10,8)), // DCB=(RECFM=FB,LRECL=25,BLKSIZE=4000) //DCRS2 EXEC PGM=SORT //SYSOUT DD SYSOUT=A //SYSPRINT DD SYSOUT=A //SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR //SORTIN DD DSN=&&SORTIN,DISP=(OLD,DELETE),UNIT=SYSDA //SORTOUT DD DSN=&&SORTOUT,UNIT=SYSDA,DISP=(NEW,PASS), // SPACE=(CYL,(20,8)), // DCB=(RECFM=F,LRECL=25,BLKSIZE=25) //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,8,,CONTIG) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,8,,CONTIG) //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,8,,CONTIG) //SYSIN DD * SORT FIELDS=(1,25,CH,A) /* //DCRS3 EXEC PGM=DREFvv,PARM='THIS IS THE OPTIONAL HEADING' //STEPLIB DD DSN=ACP.LINK.RELvv.BSS,DISP=SHR //IN DD DSN=&&SORTOUT,UNIT=SYSDA,DISP=(OLD,PASS) //OUT DD SYSOUT=A /* //