The following example, which is located in RMOGRW05 in CAI.CVDEJCL, produces an Archive ID (ARCHID) / Report ID Cross-Reference report. It lists each ARCHID and the CA Deliver reports that use this ID.
//EXAMPLE5 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=* //* //SYSIN DD * /CONTROL DATABASE=DELIVER.SYSTEM1 /PRINT PAGE /TITLE 'BUNDLE DEFINITION FOR ' /SORT JOB,BID /DEFINE PJOB CHAR(8) /IF BID ¬= ' ' AND JOB ¬= PJOB / OUTPUT JOB COL(1) / SET PJOB = JOB /END / SET PCOL = PCOL + 33 / NEXT RECORD /END /ON ENDDATA / PRINT SKIP /END
The following example, which is located in RMOGRW06 in CAI.CVDEJCL, produces an Archive ID (ARCHID) / Report ID Cross-Reference report. It lists each ARCHID and the CA Deliver reports that use this ID.
//EXAMPLE6 JOB ACCOUNT,PROGRAMMER //* //* RMOGRW - GENERAL PURPOSE REPORT UTILITY //* //* SAMPLE GRW TO LIST ALL DELIVER REPORTS THAT USE ARCHID //* //RMOGRW EXEC PGM=RMOGRW //STEPLIB DD DSN=CAI.CVDELOAD,DISP=SHR <=== MODIFY //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //PRTFILE DD SYSOUT=* //* //SYSIN DD * /CONTROL DATABASE=DELIVER.SYSTEM1 * LISTING OF ALL REPORTS FOR AN ARCHID /SELECT ARCHID NE ' ' /TITLE 'ARCHID / REPORT ID CROSS-REFERENCE' /SORT ARCHID * START POST SORT LOGIC /DEFINE PCOL BIN(2) /DEFINE PARCHID CHAR(32) /DO FOREVER / IF ARCHID NE PARCHID / SET PARCHID = ARCHID / PRINT ARCHID,'ARCHIVE-ID' COL(1) / SET PCOL = 33 / END / IF PCOL+32 > LINESIZE / PRINT ' ' COL(32) / SET PCOL = 33 / END / PRINT RID,'REPORT-ID' / SET PCOL = PCOL + 33 / NEXT RECORD /END /ON ENDDATA / PRINT SKIP /END
The following example, which is located in RMOGRW06 in CAI.CVDEJCL, produces an Archive ID (ARCHID) / Report ID Cross-Reference report. It lists each ARCHID and the CA Deliver reports that use this ID.
10/14/2013 14:10:01 CA Deliver (nn.n) RMOGRW ARCHID / REPORT ID CROSS-REFERENCE ARCHIVE-ID REPORT-ID REPORT-ID REPORT-ID AR STATEMENTS ARWEEKLY-R01 ARMONTHLY-R01 ARYEARLY-R01 PROFIT LOSS REPORT GLSALES-R01 INVSUM-R02
The following example, which is located in RMOGRW07 in CAI.CVDEJCL, produces a report that displays reports that are incompatible with CA Deliver 12.0 or above.
//EXAMPLE7 JOB ACCOUNT,PROGRAMMER
//*
//* RMOGRW - GENERAL PURPOSE REPORT UTILITY
//*
//* SAMPLE GRW TO IDENTIFY REPORTS WITH TEXT SELECTION STATEMENTS
//* THAT ARE INCOMPATIBLE WITH DELIVER 12.0 OR ABOVE
//*
//RMOGRW EXEC PGM=RMOGRW
//STEPLIB DD DSN=CAI.CVDELOAD,DISP=SHR <=== MODIFY
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//PRTFILE DD SYSOUT=*
//*
//SYSIN DD *
/CONTROL DATABASE=DELIVER.SYSTEM1
*
/SELECT TYPE='S'
/TITLE 'STACK REPORTS WITH R12 SELECTION TEXT ISSUES'
/DEFINE I BIN
/DEFINE PRID CHAR(32)
/DEFINE PREUS CHAR(1)
/SET PRID = RID
/IF NTEXT > 0
/ DO I = 1 TO NTEXT
/ IF SUBSTR(TEXTOP,1,1) = ('G','L')
/ IF TEXTLINE = 0 OR TEXTCOL = 0
/ PRINT PRID,' REPORT ID'
/ SET PRID = ' '
/ PRINT TEXTTYPE,'TYPE'
/ IF TEXTREUSE = 'Y'
/ SET PREUS = 'Y'
/ ELSE
/ SET PREUS = 'N'
/ END
/ PRINT PREUS,'REUS'
/ PRINT TEXTOP,'OP'
/ PRINT EDIT(TEXTLINE,'ZZZZZ'),' LINE'
/ PRINT EDIT(TEXTCOL,'ZZZZZZ'),'COLUMN'
/ PRINT SUBSTR(TEXT,1,TEXTLEN),'TEXT'
/ PRINT SKIP
/ END
/ END
/ NEXT TEXT
/ END
/END
The following example, which is located in RMOGRW08 in CAI.CVDEJCL, produces a Report Activation Program - Activation Listing report.
// DISP=SHR, // DCB=(,RECFM=FB,LRECL=80,BLKSIZE=3120) //SYSIN DD * NAME .....db_hlq...... TYPE U REPORT 1 /* //
The following panel illustrates the report produced by Example 8:
08/14/2014 09:29:03 CA Deliver Output Management (nn.n) RMORAP Report Activation Program - Activation Listing Report ID Jobname Notes -------------------------------- -------- ------------------- CROWD-STACK-R000001 DEACTIVATION QUEUED CROWD-STACK-R000002 DEACTIVATION QUEUED CROWD-STACK-R000003 DEACTIVATION QUEUED CROWD-STACK-R000004 DEACTIVATION QUEUED CROWD-STACK-R000005 DEACTIVATION QUEUED CROWD-STACK-R000006 DEACTIVATION QUEUED CROWD-STACK-R000007 DEACTIVATION QUEUED CROWD-STACK-R000008 DEACTIVATION QUEUED
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|