The successful reporting of VMF information by z/OS EARL Service requires the following four components:
A standardized z/OS EARL Service copy member, EARLDEFS, defines the fields in the TAPEDB record and others which are frequently used. This member is stored in the CAI.CTAPECPB library. A COPY statement is required to copy these field definitions into your z/OS EARL Service program.
The TLMSEARL assembler user module is called by z/OS EARL Service each time your z/OS EARL Service program issues a GET (explicit or implied).
TLMSEARL interprets runtime parameters and internal switches and flags, and determines how to access the VMF. TLMSEARL issues the appropriate read macro(s), formats an output record, and returns the output record to z/OS EARL Service.
This is a CA supplied print exit. It is given control by z/OS EARL Service for each line of print after it has been formatted by z/OS EARL Service. CTSPDATE scans each printed line for dates and automatically converts them to the PREFERRED format.
Any date defined to z/OS EARL Service as PIC 'ZZ99/999 ' will be converted. All dates in the common database record are defined this way, so that they will be converted.
Important! If a date is the last field on a line, z/OS EARL Service may right align the field so that the trailing blanks are lost. CTSPDATE does not recognize this date and does not convert it. A position parameter must be used to assure z/OS EARL Service does not remove the trailing blanks.
The manipulation of CA TLMS internal dates is possible using the CTSEDATE date subroutine. This subroutine can be called from your z/OS EARL Service program. CTSEDATE uses the CTSDATE module to provide the following functions:
RETURN_DATE SUB_YEARS ADD DAYS ADD WORK ADD_YEARS FROM_EXTERNAL NUM_DAYS SET_FORMAT TO_EXTERNAL TO_EXPLODED SUB_DAYS
The date constants and variable fields are contained in the EARLDEFS copy member.
CTSEDATE passes the return code issued by CTSDATE to z/OS EARL Service for verification. z/OS EARL Service places the return code in a field equal to the subroutine's name, CTSEDATE. In nonzero return code situations, CTSEDATE always appends an error message to the CTSEDATE function code. This message contains the CTSDATE return code and reason code, and text which explains the failure. The text is identical to the text defined for the "CTSDATE Anchor" control block described in the Configuration Guide.
Return codes issued by the TLMDATE macro are described in the Configuration Guide. (The only exception is return code 32, which indicates that z/OS EARL Service issued a nonexistent function call.)
|
Copyright © 2014 CA.
All rights reserved.
|
|