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

Example 2

A formatted report containing report identifiers, report attributes, special instructions, text specifications, and distribution identifiers is produced from this example, which is located in RMOGRW02 in CAI.CVDEOPT.

Each report identifier appears on a separate page.

//EXAMPLE2 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  
//*        REPORT IDENTIFIERS, REPORT ATTRIBUTES, SPECIAL INSTRUCTIONS,  
//*        TEXT SPECIFICATIONS, AND DISTRIBUTION IDENTIFIERS. EACH  
//*        REPORT IDENTIFIER APPEARS ON A SEPARATE PAGE.  
//*  
//SYSIN    DD *  
/CONTROL DATABASE=DELIVER.SYSTEM1  
/PRINT PAGE  
/TITLE 'REPORT DEFINITION ATTRIBUTES'  
/PRINT 'ID='||RID COL(1)  
/PRINT 'JOB='||JOB COL(37)  
/PRINT TRANS(TYPE,	'M','TYPE=MONITR',                    
			'S','TYPE=STACK ',                    
			'I','TYPE=INTER ',                    
			'C','TYPE=CNTL  ',                     
			'D','TYPE=DYNAM ',                        
			* ,'TYPE=      ') COL(51)  
/PRINT 'STEP='||STEP COL(1)  
/PRINT 'PROCSTEP='||PROCSTEP COL(26)  
/PRINT 'DDNAME='||DD COL(51)  
/PRINT 'REPORT ATTRIBUTES:' SKIP(2)  
/PRINT 'ARCH='||ARCH COL(3)  
/PRINT 'BANNER='||BANNER COL(26)  
/PRINT 'BURST='||BURST COL(51)  
/PRINT 'CC='||CC COL(3)  
/PRINT 'CLASS='||CLASS COL(26)  
/PRINT 'COPIES='||COPIES COL(51)  
/PRINT 'FCB='||FCB COL(3)  
/PRINT 'FORM='||FORM COL(26)  
/PRINT 'FLASH=('||FLASH||','||         
	EDIT(FLASHCT,'ZZZ')||')' COL(51)  /PRINT 'LATE='||LATE COL(3)  
/PRINT 'OPTCDJ='||OPTCDJ COL(26)  
/PRINT 'UCS='||UCS COL(51)  
/PRINT 'CHARS=('||	CHARS1||','||         
			CHARS2||','||         
			CHARS3||','||         
			CHARS4||')' COL(3)  
/PRINT 'MODIFY=('||MODIFY||','||         
	EDIT(TRC,'ZZZ')||')' COL(51)  
/PRINT 'COPYG=('||         
	EDIT(COPYG1,'ZZZ')||','||         
	EDIT(COPYG2,'ZZZ')||','||         
	EDIT(COPYG3,'ZZZ')||','||         
	EDIT(COPYG4,'ZZZ')||','||         
	EDIT(COPYG5,'ZZZ')||','||         
	EDIT(COPYG6,'ZZZ')||','||         
	EDIT(COPYG7,'ZZZ')||','||         
	EDIT(COPYG8,'ZZZ')||')' COL(3)  
/DEFINE I BIN  
/PRINT 'TEXT SPECIFICATIONS:' SKIP(2)  
/DO I = 1 TO NTEXT BY 1  
/   PRINT TEXTTYPE                 COL(3)  
/   PRINT TEXTREUSE                COL(8)  
/   PRINT TEXTOP                   COL(11)  
/   PRINT EDIT(TEXTLINE,'ZZZ')     COL(15)  
/   PRINT EDIT(TEXTCOL,'ZZZ')      COL(20)  
/   PRINT TEXT                     COL(25)  
/   NEXT TEXT  
/END  
/PRINT 'Dynamic Variables:' SKIP(2)        
/DO I = 1 TO NVAR BY 1                     
/   PRINT VARNAME                  COL(3)  
/   PRINT EDIT(VARLEN,'ZZZ')       COL(12) 
/   PRINT EDIT(VARLINE,'ZZZ')      COL(16) 
/   PRINT EDIT(VARCOL,'ZZZ')       COL(20) 
/   NEXT VARNAME                           
/END                                       
/PRINT 'SPECIAL INSTRUCTIONS:' SKIP(2)  
/DO I = 1 TO NINST BY 1  
/   PRINT INST COL(3)  
/   NEXT INST  
/END  
/PRINT 'DISTRIBUTION IDENTIFIERS:' SKIP(2)  /DO I = 1 TO NDID BY 1  
/   PRINT GROUP   COL(3)  
/   PRINT DISTID  
/   PRINT DCOPIES  
/   PRINT DEST  
/   NEXT DISTID  
/   END  
/*  
//