SUBJECT:         APAR  NUMBER: PK15966
 
REFERENCE:  AREA:     TPFDF RECOUP ROUTINES
            SEGMENT:  BRCG13     - RELEASE:  TPFDF (Assembler)
 
 
Pre-requisite APARs are (TPF only) :
FOR SEGMENT BRCG13     (Assembler) - REL TPFDF
      PN44448 PN63945 PQ00810 PQ42097 PQ74483 PQ75887 PQ94935
 PQ80726  
To be applied in the order listed for each segment.
 

ABSTRACT OF PROBLEM
___________________
A  CTL-4 system error may occur during TPFDF recoup when a data-
base with large logical records (LLRs) is defined  as  SSU=C  or
SSU=U, or when an LLR is found to have a corrupt size.

COMMENTS ON PROBLEM
___________________
The  statistics update segment BRCG attempts to check LLRs for a
corrupt size by comparing the LLR size against the maximum  item
size defined in the DBDEF (SW02MIS). However, there are a couple
of problems.
 
1.  When  the  DBDEF for a database is defined as SSU=U (unique)
    or SSU=C (common), the DBDEF pointer is incorrectly adjusted
    and does not point to SW02MIS. This causes recoup to take an
    error path and issue a WTOPC.
 
2.  When an LLR size error is taken (either correctly  or  not),
    the corresponding WTOPC destroys register R7, which contains
    the  DECB base.  Subsequently, register R7 is needed to load
    the pointer to the core block on that DECB. Instead  of  the
    core block address an incorrect value is loaded and the next
    access with that address causes a CTL-4 system error.
 

SOLUTION
________
 
1.  In  segment  BRCG,  the adjustment for SSU=U is now done for
    the correct displacement, and the adjustment  for  SSU=C  is
    now treated the same as the adjustment for SSU=N (instead of
    SSU=U).
 
2.  Also  in BRCG, the WTOPCs used on the error messages now use
    a label instead of register R7, so the register is no longer
    corrupted.
 

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
========================
    None
 
-- END APAR PK15966
 
 
 

Click on Link(s) to Download File(s)

Package
Source