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

Sample Input Program for the RPTST Report

The following is a sample of the program to run the RPTST report.

NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
NOTE * THIS EARL PROGRAM IS BASED ON THE CA ACF2 "S" RECORD*
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 *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*

 OPTION PRINTER=121
 
 
 
 ACFFLT: FILE ACFSMFR RECORD=23756                            ! TA3985D
 
COPY HDRECORD
COPY SRECORD1
DEF ETIME 10‑17 N PICTURE 'Z9.99.99.99'
 
DEF RC=ACFSMFR 1‑4 B
DEF ONE (6.0) = 1 'NUMBER'
 
DEF LSMFID   = 'SMFID='
DEF LTOD     = 'TOD='
DEF LUSERID  = 'USER ID='
DEF LTRACEID = 'TRACE ID='
DEF LRS      = 'RET/RES='
DEF LJOBNAME = 'JOBNAME='
DEF LASID    = 'ASID='
DEF LPGM     = 'PROGRAM='
DEF LMRB     = 'CURR RB='
DEF LMODE    = 'MODE='
DEF LAUTH    = 'APF='
DEF LLOCKS   = 'LOCKS='
 
GET ACFFLT
GOTO EOJ (RC=‑1)
 
REPORT EXCLUDE 'CA ACF2 SECURITY EVENT TRACE REPORT'
 
 SELECT RECTYPE 'S'
 
 PRINT DOUBLE SPACING @2 LSMFID 1 CPU @23 LTOD 1 ETIME
                      @43 LTRACEID 1 TRACEID @63 LUSERID 1 USERID
 
 PRINT @2 LJOBNAME 1 JOB_NAME @23 LASID 1 ASID
       @43 LPGM 1 PGM @63 LMRB 1 MRB
 
 PRINT @2 LRS @11 RETC @12 '/' @13 RESC @23 LMODE 1 MODE
       @43 LAUTH 1 AUTH @63 LLOCKS 1 LOCKS
 
 PRINT
 PRINT @2 RACR1
 PRINT @2 RACR2
 PRINT @2 RACR3
 PRINT @2 RACR4
 PRINT @2 RACR5
 
END