Reports › Producing Customized Reports Using CA Common Services for z/OS EARL Service › Executing CA Common Services for z/OS EARL Service

Executing CA Common Services for z/OS EARL Service

The following coding sequence example illustrates the two requirements for using z/OS EARL Service:

1. Use a COPY statement to copy the EARLDEFS member.
2. Set the type of run desired using the SET statement (SEQUENTIAL is the default).

In this example, z/OS EARL Service will list all data sets that expire after the current date.

!  DEFINE WORK FIELDS
DEF DATE_FMT         (X 10) = 'MMMDD YYYY'
DEF FUNCTION         (X 80) = NONE
DEF PRINT_EXPDT      (X 10) = NONE 'EXPIRATION' 'DATE'
DEF PRINT_CURR_DATE  (X 10) = NONE 'TODAYS' 'DATE'

!  COPY CA TLMS CAEARL RECORD DEFINITIONS
COPY EARLDEFS

!  SET TYPRUN TO RETRIEVE VMF VOLUME AND MDS RECORDS
SET TYPRUN = 'SEQUENTIAL'

!  ISSUE GET FOR VMF RECORD
GET VMF

!  USE CTSEDATE TO FORMAT EXPDT AND RUNDATE FOR PRINTING
SET FUNCTION = 'TO_EXTERNAL'
CALL  CTSEDATE  USING FUNCTION
                PRINT_EXPDT
                EXPDT
                DATE_FMT

CALL  CTSEDATE  USING FUNCTION
                PRINT_CURR_DATE
                RUNDATE
                DATE_FMT

!  QUIT WHEN WE REACH END-OF-FILE ON THE VMF
GOTO EOJ VMF = 'E'

!  SELECT DATA SETS EXPIRING AFTER CURRENT DATE
REPORT 'DATA SETS EXPIRING BEYOND CURRENT DATE'
 SELECT EXPDT > RUNDATE
 CONTROL EXPDT DSN
 PRINT VOLSER DSN RUNDATE EXPDT
                PRINT_CURR_DATE PRINT_EXPDT
 END