gtpi1m6rSystem Installation Support Reference

Control Cards

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

where vv is the correct version ID.