Create a list of reports collected in OM Deliver

Products

• Deliver

Issue/Introduction

How to create a list of reports collected in OM Deliver?

Environment

• Deliver™
• Output Management Deliver™ for z/OS

Resolution

The following statements, which are located in RMOGRW01 in CAI.CVDEOPT, produce a report that contains a job name, step name, procedure step name, ddname, report identifier, report type, number of text entries for report, number of dynamic variables and active status. The report is produced with headings and a title. Each job name is printed on a new page.

//EXAMPLE1 JOB ACCOUNT,PROGRAMMER 
//* 
//* RMOGRW - GENERAL PURPOSE REPORT UTILITY
 //* //RMOGRW EXEC PGM=RMOGRW 
//STEPLIB DD DSN=CAI.CVDELOAD,DISP=SHR <=== MODIFY 
//SYSPRINT DD SYSOUT=* 
//SYSOUT DD SYSOUT=*
 //PRTFILE DD SYSOUT=* 
//* 
//* SAMPLE CONTROL STATEMENTS TO GENERATE A REPORT CONTAINING 
//* JOB NAME, STEP NAME, PROCEDURE STEP NAME, DD NAME, REPORT
//* IDENTIFIER, REPORT TYPE AND ACTIVE STATUS. EACH JOB IS ON 
//* A NEW PAGE AND TITLE AND HEADINGS ARE PRODUCED. 
//* 
//SYSIN DD * 
/CONTROL DATABASE=DELIVER.SYSTEM1 
/PRINT PAGE
 /TITLE 'REPORTS FOR JOB '||JOB 
/DEFINE I BIN /DO I = 1 TO NRID BY 1 
/ PRINT STEP 'STEP,NAME' SKIP(1)
 / PRINT PROCSTEP 'PROCEDURE, NAME'
 / PRINT DD ',DDNAME' 
/ PRINT RID 'REPORT,IDENTIFIER'
 / PRINT TRANS(TYPE,'M','MONITR', 'S','STACK ', 'I','INTER ', 'C','CNTL ', 'D','DYNAM ', * ,' ') 'REPORT, TYPE' 
/ PRINT NTEXT 'TXT,NO#'
 / PRINT NVAR 'DYN,VAR#' 
/ PRINT TRANS(ACTIVE,'Y','YES', * ,' ') 'ACTIVE' 
/ NEXT RID 
/END 
/*
 //

Additional Information

See Control Statements in the online Deliver documentation.