SUBJECT:         APAR  NUMBER: PQ73578
 
REFERENCE:  AREA:     TPFDF CENTRAL DATABASE ROUTINES
            SEGMENT:  UWAP13     - RELEASE:  TPFDF (Assembler)
 
 
Pre-requisite APARs are (TPF only) :
FOR SEGMENT UWAP13     (Assembler) - REL TPFDF
 PQ32210  PQ48551  PQ60572  PQ59219  PQ51955  
To be applied in the order listed for each segment.
 
ABSTRACT OF PROBLEM
___________________
If  a  read  backward is done on a file opened without HOLD that
does not have full backward chaining, and if DBLCL has been  set
to  allow  backward  reads  without  backward chaining, a DB010C
system error is issued.
 
COMMENTS ON PROBLEM
___________________
If a user has a database without full backward chaining (SW00OP1
#BIT0 = 0 in the DBDEF) and DBLCL variable &DB013A is set  to  1
to allow backward reads without full backward chaining, a DB010C
system  error  occurs  when  TPFDF tries to read a LREC from the
next backward chain when the file is opened with NOHOLD.    This
occurs  because  a  backward  chain  repair utility in case 5 of
segment UWAP is erroneously activated and attempts to  modify  a
block  when  the file was opened without HOLD.  Furthermore, the
"find previous" block routine in the same case loops incorrectly
once the previous problem is corrected.
 
SOLUTION
________
Case 5 of segment UWAP has been modified such that the  backward
chain repair utility is only activated if:
 
o   the file is a backward chained file (SW00OP1 #BIT 0 needs to
    be on)
 
o   the  file  must be opened with a hold (SW00ID4 bit 7 must be
    off)
 
Furthermore, a DO INF loop was changed to a DO ONCE loop.
 
DEPENDENCIES
____________
 
Related Segments Affected By This APAR.
_______________________________________
 
Segments to be assembled or compiled:
 
Segments to be link edited:
 
 
Migration Considerations
     None
 
-- END APAR PQ73578
 
 
 


Download file(s) using new Server:


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

Package
Source