Sample Reports › Sample Type J Report › RPTJL Sample Report (z/OS and OS/390 Only) › Output › Sample Input Program for the RPTRV2 Report

Sample Input Program for the RPTRV2 Report

The following is a brief explanation of the program for this report.

NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
NOTE * THIS EARL PROGRAM IS BASED ON THE CA ACF2 RV REPORT*
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
 
 OPTION PRINTER=80
 OPTION LIST OFF
 
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
NOTE * CHANGE LOG:                                            *
NOTE *                                                        *
NOTE * RELEASE: 6.3                                           *
NOTE *                                                        *
NOTE * TA3985D  07/14/98  Z0012                               * TA3985D
NOTE *          INCREASED RECORD LENGTH OF ACFSMFR FILE       * TA3985D
NOTE *          FOR LONGER OMVS SMF RECORDS.                  * TA3985D
NOTE *                                                        *
NOTE * RELEASE: 6.5                                           *
NOTE *                                                        *
NOTE * TA6015G  03/13/02  Z0037                               * TA6015G
NOTE *          REBRANDING CHANGES.                           * TA6015G
NOTE *                                                        *
NOTE * END OF LOG.                                            *
NOTE *                                                        *
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
 
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
NOTE * TO USE SRAM SORT REMOVE NOTE BELOW                *
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
NOTE OPTION SORT=SRAM
 
 ACFFLT: FILE ACFSMFR RECORD=23756                            ! TA3985D
 
NOTE  FLAT FILE COMMON HEADER FIELDS
 COPY HDRECORD
 
NOTE COPY TYPE 'V' FIELDS
 COPY VRECORD
 
DEF RC=ACFSMFR 1‑4 B
DEF ONE (6.0) = 1 'NUMBER'
 
GET ACFFLT
GOTO EOJ (RC=‑1)
 
 
NOTE IF THERE IS NO NAME PUT IN LOGONID
DECODE RLIDNAME INTO NAME_WORK (X 20)
 ' ' = LOGONID
ELSE RLIDNAME 'NAME'
 
REPORT 'RESOURCE VIOLATIONS BY VIOLATOR NAME'
 
 SELECT RECTYPE  'V' AND RECMODE NOT 'TRC'
 CONTROL (NAME_WORK) (RECMODE) (RKEYIN) ONE
 PRINT TOTALS ONLY NAME_WORK RECMODE RKEYIN (ONE)
END