Utilities › RMODSC Report Data Set Collector › Input User Exit › Example #3

Example #3

The following example shows sample JCL to collect and distribute the report data contained in data set DELIVER.Z1FILE.DATA. This example uses a user exit called RMODSCU1 (the exit is in CVDEOPTN) to scan position 1 and 2 of each report line for the characters 'Z1'. When the Z1 line is found, it starts a new report whose name is found in positions 16 to 25 of the Z1 record. In addition, the Z1 record is replaced with a record that contain '1' in column 1 for the ASA carriage control character and 'REPORT ID=' followed by the report name column 9.

//RMORPT3 JOB ACCOUNT,PROGRAMMER,CLASS=A,MSGCLASS=A 
//REPORT  EXEC PGM=RMODSC, 
//        PARM='DELIVER.SYSTEM1,Z1FILE,RMODSCU1'
//STEPLIB  DD  DSN=CAI.CVDELOAD,DISP=SHR 
//SYSPRINT DD  SYSOUT=* 
//Z1FILE   DD  DSN=DELIVER.Z1FILE.DATA,DISP=SHR