Utilities › RMOGRW - General Report Writer › TITLE Control Statement › Example 5

Example 5

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