Utilities › RMORAP - Activating and Deactivating Reports from Batch › TYPE Control Statement › Examples

Examples

The data set DELIVER.JOBACT contains a list of jobs with activated reports. The names of the jobs are located in positions 1, 21, and 41 of the records as follows:

//EXAMPLE  JOB ACCOUNT,PROGRAMMER
//RAP      EXEC PGM=RMORAP
//STEPLIB  DD  DSN=CAI.CVDELOAD,DISP=SHR
//SYSPRINT DD  SYSOUT=A
//JOBACT   DD  DSN=DELIVER.JOBACT,DISP=SHR
//SYSIN    DD  *

NAME DELIVER.SYSTEM1
JOB 1 21 41
//

The following job deactivates the reports for the same list of jobs:

//EXAMPLE  JOB ACCOUNT,PROGRAMMER
//RAP      EXEC PGM=RMORAP
//STEPLIB  DD  DSN=CAI.CVDELOAD,DISP=SHR
//SYSPRINT DD  SYSOUT=A
//JOBACT   DD  DSN=DELIVER.JOBACT,DISP=SHR
//SYSIN    DD  *
NAME DELIVER.SYSTEM1
TYPE U
JOB 1 21 41
//

The following example is one of the provided samples in CAI.CVDEJCL, named RMOGRW08. The job uses RMOGRW to produce a data set containing all the reports which were queued, purged, produced, not produced, or a combination of these. The data set is passed to RMORAP for deactivation of reports:

//EXAMPLE  JOB ACCOUNT,PROGRAMMER
//STEP1    EXEC PGM=RMOGRW
//STEPLIB  DD DISP=SHR,DSN=CAI.CVDELOAD
//SYSPRINT DD SYSOUT=*
//OUTFILE  DD DSN=&&DACT,
//            DISP=(NEW,PASS),
//            UNIT=SYSDA,SPACE=(CYL,(5,5)),
//            DCB=(,RECFM=FB,LRECL=80,BLKSIZE=3120)
//SYSIN    DD *
/CONTROL   DATABASE=DELIVER.SYSTEM1
/SELECT ACTIVE= 'Y'
/IF STAT = 'P' OR EXCP = 'N' OR STAT = 'Q'
/   OUTPUT RID COL(1)
/   OUTPUT STAT COL(34)
/   OUTPUT EXCP COL(36)
/END
/*
//STEP2    EXEC PGM=RMORAP
//STEPLIB  DD DISP=SHR,DSN=CAI.CVDELOAD 
//SYSPRINT DD SYSOUT=*
//RPTACT   DD DSN=&&DACT,
//            DISP=SHR,
//            DCB=(,RECFM=FB,LRECL=80,BLKSIZE=3120)
//SYSIN    DD *
NAME DELIVER.SYSTEM1
TYPE U
REPORT 1
/*
//