SUBJECT:         APAR  NUMBER: PQ90134
 
REFERENCE:  AREA:     TPFDF RECOUP ROUTINES
            SEGMENT:  BRCF13     - RELEASE:  TPFDF (Assembler)
            SEGMENT:  BRCK13     - RELEASE:  TPFDF (Assembler)
            SEGMENT:  GR26SR13   - RELEASE:  TPFDF (Macro)
 
 
Pre-requisite APARs are (TPF only) :
FOR SEGMENT BRCF13     (Assembler) - REL TPFDF
      PN44362 PN44448 PQ00810 PQ42097
FOR SEGMENT BRCK13     (Assembler) - REL TPFDF
      PN77331 PQ00810 PQ42097 PQ74483
FOR SEGMENT GR26SR13   (Macro)     - REL TPFDF
      PN44448 PQ32210 PQ74483
To be applied in the order listed for each segment.
 

ABSTRACT OF PROBLEM
___________________
TPFDF recoup statistics do not show a unique run number.
 

COMMENTS ON PROBLEM
___________________
The  TPFDF  recoup statistics display (ZRECP STA) shows the date
and time of each run.  It is possible to spool the statistics to
an offline database for analysis.   However,  since  an  ID  may
occur more than once in each recoup run, there is no easy way to
distinguish  between  different  recoup  runs.   A unique RUN ID
indication on the TPFDF recoup statistics display, corresponding
to the RUN ID in the TPF online  error  log  (ZRECP  ONEL  LOG),
would be more useful than the date and time.
 

SOLUTION
________
Macro GR26SR was updated to define a new field for the run ID in
recoup statistics detail file.  Segment BRCF was updated to copy
the  run  ID  into  the recoup keypoint, which will get automat-
ically copied to the recoup statistics  detail  file.    Segment
BRCK  has  been updated to include the RUN ID in the recoup sta-
tistics display.
 

DEPENDENCIES
____________
 
Related Segments Affected By This APAR.
_______________________________________
 
Segments to be assembled or compiled:
 
Segments to be link edited:
 
Load Modules to be loaded:
 
Migration Considerations
========================
TPF APAR PJ29958 is a co-requisite APAR.
 
All Recoup statistic items that were created prior to installation of
this APAR will show a "RUN ID" of "0000".
 
-- END APAR PQ90134
 
 
 


Download file(s) using new Server:


Login once to access server, leave window open, then
click on link(s) below.

Package
Source