IBM®
Skip to main content
    United States [change]      Terms of use
 
 
   
     Home      Products      Services & solutions      Support & downloads      My account     
     
  TPF : Support : Maintenance : TPFDF
SUBJECT:         APAR  NUMBER: PQ80726
 
REFERENCE:  AREA:     TPFDF RECOUP ROUTINES
            SEGMENT:  BGA413     - RELEASE:  TPFDF (C)
            SEGMENT:  BGA713     - RELEASE:  TPFDF (C)
            SEGMENT:  BRCB13     - RELEASE:  TPFDF (Assembler)
            SEGMENT:  BRCE13     - RELEASE:  TPFDF (Assembler)
            SEGMENT:  BRCG13     - RELEASE:  TPFDF (Assembler)
            SEGMENT:  BRCX13     - RELEASE:  TPFDF (Assembler)
            SEGMENT:  BRC013     - RELEASE:  TPFDF (Assembler)
            SEGMENT:  BRC113     - RELEASE:  TPFDF (Assembler)
            SEGMENT:  BRC213     - RELEASE:  TPFDF (Assembler)
            SEGMENT:  BRC813     - RELEASE:  TPFDF (Assembler)
            SEGMENT:  BRC913     - RELEASE:  TPFDF (Assembler)
            SEGMENT:  C$SRMP1A13 - RELEASE:  TPFDF (C-Header)
            SEGMENT:  DBDEF13    - RELEASE:  TPFDF (Macro)
            SEGMENT:  GR0ZSR13   - RELEASE:  TPFDF (Macro)
            SEGMENT:  SRMP1A13   - RELEASE:  TPFDF (Dsect)
 
 
Pre-requisite APARs are (TPF only) :
FOR SEGMENT BGA413     (C)         - REL TPFDF
 PQ42097  PQ47054  PQ54776  PQ74416  PQ74483  PQ85997  PQ89169  
FOR SEGMENT BGA713     (C)         - REL TPFDF
 PQ42097  PQ47054  PQ50700  PQ74483  PQ85997  
FOR SEGMENT BRCB13     (Assembler) - REL TPFDF
      PN35978 PN39186 PN86470 PQ00810 PQ42097 PQ46296 PQ56724
 PQ59017  PQ57571  PQ74483  PK00945  
FOR SEGMENT BRCE13     (Assembler) - REL TPFDF
      PN39186 PN49285 PN51087 PN65884 PQ00810 PQ09104 PQ42097
 PQ49400  PQ57571  PQ51955  
FOR SEGMENT BRCG13     (Assembler) - REL TPFDF
      PN44448 PN63945 PQ00810 PQ42097 PQ74483 PQ75887 PQ94935
FOR SEGMENT BRCX13     (Assembler) - REL TPFDF
 PQ42097  PQ46296  PQ49400  PQ56724  PQ57571  PQ59822  PQ61996  
 PQ65349  PQ93549  PQ98883  PQ99523  
FOR SEGMENT BRC013     (Assembler) - REL TPFDF
 PQ00810  PQ29840  PQ42097  PQ57527  PQ66018  PQ67177  
FOR SEGMENT BRC113     (Assembler) - REL TPFDF
      PN39155 PN39186 PN44362 PN49107 PN49704 PN44448 PN63704
      PN67252 PN78979 PQ00810 PQ10797 PQ42097 PQ49400 PQ56724
 PQ57571  PQ59822  PQ69685  PQ65349  PQ80294  PQ99523  
FOR SEGMENT BRC213     (Assembler) - REL TPFDF
      PN40344 PN63712 PN63945 PQ42097 PQ49400 PQ57527 PQ56724
 PQ57571  PQ68111  PQ69687  PQ69685  PQ65349  PQ74483  PQ82286  
 PQ83930  
FOR SEGMENT BRC813     (Assembler) - REL TPFDF
      PN49704 PN63704 PN63945 PQ29840 PQ42097 PQ57527
FOR SEGMENT BRC913     (Assembler) - REL TPFDF
      PN35160 PN35161 PN39186 PN40446 PN40506 PN40783 PN49889
      PN44448 PN51087 PN60595 PN63714 PN72208 PN81528 PN91687
 PQ00810  PQ42097  PQ49400  PQ74483  PQ75887  PQ90430  PQ99312  
FOR SEGMENT C$SRMP1A13 (C-Header)  - REL TPFDF
 PQ42097  
FOR SEGMENT DBDEF13    (Macro)     - REL TPFDF
      PN05393 PN35104 PN38092 PN45919 PN53446 PN57526 PN61834
      PN62563 PN64313 PN71161 PN73989 PN78104 PN78908 PN87893
      PN88662 PQ10797 PQ10084 PQ18690 PQ23091 PQ32209 PQ37827
 PQ42097  PQ32210  PQ56724  PQ66921  PQ51955  PQ81077  PQ82656  
 PQ94935  PQ95818  
FOR SEGMENT GR0ZSR13   (Macro)     - REL TPFDF
      PN55359 PQ42097 PQ57527
FOR SEGMENT SRMP1A13   (Dsect)     - REL TPFDF
 PQ42097  
To be applied in the order listed for each segment.
 

ABSTRACT OF PROBLEM
___________________
Recoup  APAR  PQ42097  has some problems: ZRECP STA results in a
wrong max chain count, QUE processing does  not  work  properly,
some  online messages are not output correctly, and ZRECP LOG is
not validated properly.

COMMENTS ON PROBLEM
___________________
 
1.  The maximum chain  count  field  in  the  recoup  statistics
    display  may  show  an  incorrect number of chains because a
    register is not cleared before the value is set up.
 
2.  TPFDF recoup QUE processing will not run  correctly  because
    checks are performed using an incorrect DBDEF subtable base.
    Furthermore,  QUE processing requires specifying the MPPRCD=
    and MPNXTD=  parameters  in  the  DBDEF,  but  this  is  not
    enforced.
 
3.  Some online output messages are not generated properly.  The
    output  from  a  ZRECP  REPORT  command may be routed to the
    wrong terminal address as EBROUT is set up as if the  report
    were  being generated automatically instead of entered manu-
    ally.  In addition, the appended messages for system  errors
    OPR-141302  and  OPR-141303  contain  an  invalid  character
    because the message length is not set up correctly.    Also,
    the  SSU  is  not  displayed  properly on a RECP9012I online
    message because it is not passed properly from segment  BRC1
    to segment BRCF.  Furthermore, SNAPC error 41111 should have
    a prefix of 'I' to indicate that it is an IBM system error.
 
4.  The  ZRECP  LOG command is not always validated or processed
    properly.  There is an existing check for  subsequent  fixed
    errors  of  one ID to avoid multiple fixed error messages in
    the ZRECP LOG file.  The check does not work correctly as it
    does not set up the correct keypoint  base.    In  addition,
    input  validation  for  ZRECP  LOG  is  incomplete and might
    result in wrong error messages or CTL-dumps.    Furthermore,
    the  ZRECP  LOG  database  has  been defined to have only 30
    ordinals per processor (partition).  This might be too small
    and will result in OPR-DB0102 system errors if more than 500
    IDs are processed on 1 processor.
 
5.  In addition, a CTL-3 or CTL-4 system error  may  occur  when
    aborting  recoup  because existing ECBs attempt to still use
    the recoup keypoint when it is no longer valid.
 
6.  Finally, assembler DSECT SRMP1A and C header  file  C$SRMP1A
    do  not  match. As a result, attempting to use a macro label
    set (MLS) display of this database with ZUDFM will  show  an
    incorrect layout.
 

SOLUTION
________
 
1.  Segment  BRCG  has  been  updated to clear the register when
    processing the maximum chain counter.
 
2.  Segment BRCX has been updated to load the  correct  subtable
    pointers  in  several  locations  to allow QUE processing to
    work properly.   In  addition,  the  DBDEF  macro  has  been
    updated  to  generate  an MNOTE 8 if MPPRCD= and MPNXTD= are
    not specified with QUE=.
 
3.  Segment  BRCB has been updated to not modify EBROUT if ZRECP
    REPORT was specifically entered (calling segment  is  BRMK).
    Segment  BRC9  was  updated with the correct message lengths
    for recoup system errors.  Segment BRC1 was updated to  pass
    the  SSU  to segment BRCF.  Segment BRCX has been updated to
    generate PREFIX=I for system error 41111.
 
4.  Segment BRC2 has been updated to load the  correct  keypoint
    base  to  be  able  to  correctly  check  for multiple fixed
    errors.  Segment BRC0 has been updated with  adjusted  input
    validation  to  cover  more error situations.  Also WTOPC is
    used instead of FMSG for ZRECP LOG processing.  Macro GR0ZSR
    has been modified to use 120 ordinals per partition  instead
    of 30.
 
5.  Segments  BRC8  and  BRCX  have been updated with additional
    checks for the correct keypoint  base  to  avoid  CTL-3  and
    CTL-4 system errors.
 
6.  Header  file  C$SRMP1A  has  been packed to match the SRMP1A
    macro  layout.    Furthermore,  TPFDF  standards  have  been
    applied  to  both  segments  and  a  standard  length equate
    (_SRMPL80) has been adjusted for use in  segments  BGA4  and
    BGA7 to set up the LREC length.
 

DEPENDENCIES
____________
 
Related Segments Affected By This APAR.
_______________________________________
 
Segments to be assembled or compiled:
On ALCS: None
On TPF: BGA6/BGAE/BGAH/BGAM/UF1B
 
Segments to be link edited:
On ALCS: None
On TPF: BGA6/BGAE/BGAH/BGAM/UF1B
 
Load Modules to be loaded:
 
Migration Considerations
========================
This APAR applies to TPF customers only.
 
- Any DBDEFs that specify QUE=YES without MPPRCD= and
  MPNXTD= specified will have to be updated before they
  are reassembled.
 
- To increase the number of ordinals for #GR0ZSR do the
  following:
 
  1. Generate and load the FACE table with 960 ordinals for
     #GR0ZSR (8 partitions with 120 ordinals each).
  2. Assemble and load UF1B
  3. Enter ZUDFM DEF INIT
  4. Enter ZUDFM INIT FDF4 (twice) to initialize the file.
     This step will delete any previous recoup logs you may
     have.
 
 
-- END APAR PQ80726
 
 
 


Download file(s) using new Server: Login once to access server, leave window open, then click on link(s) below.
Package Source
 

    About IBM Privacy Contact