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

Sample Input Program for the RPTVIOS Report

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

NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
NOTE * THIS EARL PROGRAM IS BASED ON THE CA ACF2 "D" RECORD*
NOTE *                           AND THE CA ACF2 "P" RECORD*
NOTE *                           AND THE CA ACF2 "V" RECORD*
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. CORRECT A FEW    * TA3985D
NOTE *          MISCELLANEOUS PROBLEMS ENCOUNTERED.           * 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
 
COPY HDRECORD
COPY DRECORD
COPY PRECORD
COPY VRECORD
 
DEF RC=ACFSMFR 1‑4 B
DEF ONE (6.0) = 1 'NUMBER'
DEF TYPE_VIO (9) = ' ' 'VIO' 'TYPE'                           ! TA3985D
 
GET ACFFLT
GOTO EOJ (RC=‑1)
 IF RECTYPE ='D'
 THEN SET TYPE_VIO = DSTYPE
  ELSE
   IF RECTYPE = 'V'
   THEN SET TYPE_VIO = RECMODE
    ELSE
     IF RECTYPE = 'P' AND REASON_NUMBER > 128                 ! TA3985D
     THEN SET TYPE_VIO ='LOG'
      ELSE
       SET TYPE_VIO ='VIO'
     ENDIF
  ENDIF
 ENDIF
 
DECODE RECTYPE INTO NAME_RESOURCE (X 44)
'D' = DSNAME
'P' = 'SIGNON'
'V'= RKEYIN
ELSE 'UNKNOWN' 'RESOURCE' 'NAME'
 
REPORT 'VIOLATIONS BY LOGONID'
 
 SELECT 'A' RECTYPE  'D' AND DRTYPE 'DATASET' AND DSTYPE NOT 'TRACE REQ'
 SELECT 'B' RECTYPE  'P'
 SELECT 'C' RECTYPE  'V' AND RECMODE NOT 'TRC'
 
 CONTROL (LOGONID) (NAME_RESOURCE) (TYPE_VIO) ONE
 PRINT TOTALS ONLY LOGONID NAME_RESOURCE TYPE_VIO (ONE)
 
END