SUBJECT:         APAR  NUMBER: PQ95818
 
REFERENCE:  AREA:     TPFDF ZUDFM ROUTINES
            SEGMENT:  C$SW00SR13 - RELEASE:  TPFDF (C-Header)
            SEGMENT:  DBDEF13    - RELEASE:  TPFDF (Macro)
            SEGMENT:  SW00SR13   - RELEASE:  TPFDF (Macro)
            SEGMENT:  UWAA13     - RELEASE:  TPFDF (Assembler)
 
 
Pre-requisite APARs are (TPF only) :
FOR SEGMENT C$SW00SR13 (C-Header)  - REL TPFDF
      PN46560 PN61834 PN64313 PN71161 PN73989 PN76852 PN80488
      PN83423 PN85070 PQ02145 PQ04911 PQ09236 PQ08645 PQ10084
 PQ16897  PQ23091  PQ25825  PQ36911  PQ37963  PQ32210  PQ55601  
 PQ64252  PQ51955  PQ74483  PQ75887  PQ79066  PQ80141  PQ90430  
 PQ94935  
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  
FOR SEGMENT SW00SR13   (Macro)     - REL TPFDF
      AN31299 PN05393 PN37569 PN38613 PN43714 PN46560 PN57526
      PN61834 PN64313 PN71161 PN71348 PN73989 PN77016 PN76852
      PN80488 PN83423 PN84757 PN87917 PN92097 PQ00790 PQ02145
 PQ04911  PQ05189  PQ07995  PQ10797  
 PQ10084  PQ15475  PQ16897  
 PQ21506  PQ24625  PQ23091  PQ25824  
 PQ25825  PQ32209  PQ36911  
 PQ37963  PQ32210  PQ50275  PQ48551  PQ55601  PQ64252  PQ51955  
 PQ74483  PQ75887  PQ79066  PQ80141  PQ90430  PQ94935  
FOR SEGMENT UWAA13     (Assembler) - REL TPFDF
 PQ32210  PQ47099  PQ48551  PQ53948  PQ51955  PQ75626  PQ74483  
 PQ75887  
To be applied in the order listed for each segment.
 

ABSTRACT OF PROBLEM
___________________
A pushdown chaining file may become corrupted if LRECs are added
when the current block is not the prime block.
 

COMMENTS ON PROBLEM
___________________
 
When  the  prime  block of a pushdown chaining file is full, its
contents are copied to a chain block and the  prime  is  emptied
for  new  LRECs.  TPFDF  processing  assumes  that  it is always
working with the prime block. Thus, if  the  user  is  currently
referencing  a  block  on  a chain (such as after a DBRED LAST),
TPFDF considers the chain block to be the prime. This causes the
LRECs to be added in the wrong place  and  the  chaining  to  be
invalid.
 
Furthermore,  if the user attempts to use default keys on a file
with pushdown chaining, the keys are properly  ignored,  but  no
warning  is  given  to  the  user that the DBDEF is coded incor-
rectly.
 
Finally, an assembler error "Substring expression 1 points  past
string end;" may occur if specifying the OP1, OP2, or OP3 option
bytes in the DBDEF.
 

SOLUTION
________
 
Segment  UWAA  has  been  updated to do an internal DBRED HEADER
during add processing if the file uses pushdown chaining and  is
not  currently referencing the prime block.  Segments SW00SR and
C$SW00SR have been updated to provide a new 8-byte workarea  for
use by the new processing in segment UWAA.
 
Furthermore,  the  DBDEF  macro  has been updated to generate an
MNOTE 4 if the user attempts to use default keys on a file  with
pushdown chaining.
 
Finally,  the DBDEF has been modified to ensure that a substring
is a minimum length before checking  for  a  specific  character
string.
 

DEPENDENCIES
____________
 
Related Segments Affected By This APAR.
_______________________________________
 
Segments to be assembled or compiled:
 
Segments to be link edited:
 
 
Migration Considerations
Any DBDEFs that specify both pushdown chaining (SW00OP1, #BIT3) and
default keys will no longer assemble with RC=0.  Either the
pushdown chaining specification or the default keys must be removed
to avoid an MNOTE 4.
 
-- END APAR PQ95818
 
 
 


Download file(s) using new Server:


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

Package
Source