SUBJECT:         APAR  NUMBER: PQ78273
 
REFERENCE:  AREA:     TPFDF CRUISE UTILITY
            SEGMENT:  UFI513     - RELEASE:  TPFDF (Assembler)
 
 
Pre-requisite APARs are (TPF only) :
FOR SEGMENT UFI513     (Assembler) - REL TPFDF
 PQ23489  PQ23871  PQ33410  PQ36341  PQ53168  PQ65645  PQ51955  
 PQ74483  PQ75887  
To be applied in the order listed for each segment.
 
ABSTRACT OF PROBLEM
___________________
A  CTL-3  system  error  will  occur during the CRUISE verify of
non-TPFDF files.
 
COMMENTS ON PROBLEM
___________________
Segment UFI5 uses R7 to call subroutine CONCAT  (CONCAT  subrou-
tine  is only called once).  The content of R7 is destroyed by a
combination of DBTAB and FVN=EBW039. At the end  of  the  CONCAT
subroutine  R7  is  not  restored,  resulting  in a CTL-3 system
error.
 
SOLUTION
________
Since CONCAT subroutine is only called once, it makes  sense  to
put  the  code  in the flow of the program. That way, R7 will no
longer be destroyed. As a  consequence  of  this  solution,  the
GETCC, STM and RELCC used in the CONCAT subroutine become super-
fluous  as the only intention was to get a workspace to save the
regs in that subroutine.
 
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 PQ78273
 
 
 


Download file(s) using new Server:


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

Package
Source