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

Sample Input Program for the RPTRV Report

The following pages contain a brief explanation of the program to run the RPTRV report.

NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
NOTE * THIS EARL PROGRAM IS BASED ON THE CA ACF2 RV REPORT*
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*
 
 OPTION PRINTER=105
 OPTION PAGE=99
 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
 
GET ACFFLT
GOTO EOJ (RC=‑1)
 
NOTE SET UP PLACE HOLDER FOR BLANK DISPMOD AND KEYMOD FIELDS
 
DECODE DISPMOD INTO DISPMOD_WORK
  ' ' = '   ‑    '
ELSE DISPMOD
 
DECODE KEYMOD INTO KEYMOD_WORK
  ' ' = '   ‑    '
ELSE KEYMOD
 
 REPORT EXCLUDE 'GENERALIZED RESOURCE LOG'
 TITLE 'RUN DATE:' DATEOFREPORT 'RUN TIME:' TIMEOFREPORT
NOTE  SELECT ONLY TYPE 'V' RECORDS. PRINT DETAIL LINE FOR EACH RECORD
 
 SELECT 'A' RECTYPE 'V' AND NEXTKEY_CNT > 5
 SELECT 'B' RECTYPE 'V' AND NEXTKEY_CNT > 10
 SELECT 'C' RECTYPE 'V' AND NEXTKEY_CNT > 15
 SELECT 'D' RECTYPE 'V' AND NEXTKEY_CNT > 20
 SELECT 'E' RECTYPE 'V' AND NEXTKEY_CNT < 5 AND NEXTKEY_CNT > 0
 SELECT 'F' RECTYPE 'V' AND NEXTKEY_CNT = 0
 
 
 PRINT DOUBLE SPACING
       @1  RCLASS
       @2  '‑'
       @3  RTYPE
       @6  '‑'
       @7  RNAME
       @49 LOGFLAG
       @50 RECMODE
       @59 RCLASSIN
       @60 '‑'
       @61 RTYPEIN
       @64 '‑'
       @65 RNAMEIN
 PRINT @1  UID
       @26 SOURCE
       @35 CPU
       @49 DISPOSITION
       @58 DISPMOD_WORK
       @67 KEYMOD_WORK
 PRINT @8  DATE
       @14 TIME
       @16 JOBNAME
       @25 LOGONID
       @34 RLIDNAME
       @58 PREVALRC
       @62 RESMGRRC
       @66 INTERPRC
       @70 POSTVARC
       @74 FINALRC
 
 PRINT ' '
 PRINT @1 'RSRC:' @7 RESOURCE_L1
 PRINT @7 RESOURCE_L2
 PRINT @7 RESOURCE_L3
 PRINT ' '
 
 PRINT @1 'RLP RECID: '
       @12 RLPRECID
       @53 'RLP EXPN: '
       @63 RLPEXPNM
 PRINT ' '
 
 IFTAG E; PRINT @1 'NEXT KEYS: ' @12 NEXTKEY_1 NEXTKEY_2
 IFTAG E; PRINT @12 NEXTKEY_3 NEXTKEY_4
 IFTAG E; PRINT @12 NEXTKEY_5
 
 IFTAG A; PRINT
 IFTAG A; PRINT @1 'NEXT KEYS: ' @12 NEXTKEY_1 NEXTKEY_2
 IFTAG A; PRINT @12 NEXTKEY_3 NEXTKEY_4
 IFTAG A; PRINT @12 NEXTKEY_5 NEXTKEY_6
 IFTAG A; PRINT @12 NEXTKEY_7 NEXTKEY_8
IFTAG A; PRINT @12 NEXTKEY_9 NEXTKEY_10
 
 IFTAG B; PRINT @1 'NEXT KEYS: ' @12 NEXTKEY_1 NEXTKEY_2
 IFTAG B; PRINT @12 NEXTKEY_3  NEXTKEY_4
 IFTAG B; PRINT @12 NEXTKEY_5  NEXTKEY_6
 IFTAG B; PRINT @12 NEXTKEY_7  NEXTKEY_8
 IFTAG B; PRINT @12 NEXTKEY_9  NEXTKEY_10
 IFTAG B; PRINT @12 NEXTKEY_11 NEXTKEY_12
 IFTAG B; PRINT @12 NEXTKEY_13 NEXTKEY_14
 IFTAG B; PRINT @12 NEXTKEY_15
 
 IFTAG C; PRINT @1 'NEXT KEYS: ' @12 NEXTKEY_1 NEXTKEY_2
 IFTAG C; PRINT @12 NEXTKEY_3  NEXTKEY_4
 IFTAG C; PRINT @12 NEXTKEY_5  NEXTKEY_6
 IFTAG C; PRINT @12 NEXTKEY_7  NEXTKEY_8
 IFTAG C; PRINT @12 NEXTKEY_9  NEXTKEY_10
 IFTAG C; PRINT @12 NEXTKEY_11 NEXTKEY_12
 IFTAG C; PRINT @12 NEXTKEY_13 NEXTKEY_14
 IFTAG C; PRINT @12 NEXTKEY_15 NEXTKEY_16
 IFTAG C; PRINT @12 NEXTKEY_17 NEXTKEY_18
 IFTAG C; PRINT @12 NEXTKEY_19 NEXTKEY_20
 
 IFTAG D; PRINT @1 'NEXT KEYS: ' @12 NEXTKEY_1 NEXTKEY_2
 IFTAG D; PRINT @12 NEXTKEY_3  NEXTKEY_4
 IFTAG D; PRINT @12 NEXTKEY_5  NEXTKEY_6
 IFTAG D; PRINT @12 NEXTKEY_7  NEXTKEY_8
 IFTAG D; PRINT @12 NEXTKEY_9  NEXTKEY_10
 IFTAG D; PRINT @12 NEXTKEY_11 NEXTKEY_12
 IFTAG D; PRINT @12 NEXTKEY_13 NEXTKEY_14
 IFTAG D; PRINT @12 NEXTKEY_15 NEXTKEY_16
 IFTAG D; PRINT @12 NEXTKEY_17 NEXTKEY_18
 IFTAG D; PRINT @12 NEXTKEY_19 NEXTKEY_20
 IFTAG D; PRINT @12 NEXTKEY_21 NEXTKEY_22
 IFTAG D; PRINT @12 NEXTKEY_23 NEXTKEY_24
 IFTAG D; PRINT @12 NEXTKEY_25
 END