Skip to: Abstract | Comments | Solution | Related Segments | Migration | Download

SUBJECT:         APAR  NUMBER: PJ27340 
 
REFERENCE:  AREA:     ISO-C SUPPORT 
            SEGMENT:  CGLOBA40   - RELEASE:  TPF4  (Assembler) 
 
 
Pre-requisite APARs are: 
FOR SEGMENT CGLOBA40   (Assembler) - REL TPF4 
 PJ17852  
To be applied in the order listed for each segment. 

ABSTRACT OF PROBLEM 
___________________ 
CGLOBA  does not calculate size of Synchronizable Global records 
correctly. 
 

COMMENTS ON PROBLEM 
___________________ 
The problem is caused by CGLOBA. The glob_modify()  function  in 
CGLMOD uses the global() function in CGLOBA to get the size of a 
syncable field or record. GLBLSIZE in CGLOBA returns the size of 
the global record or field.  It calls subroutine GLBLSIGT to get 
the  length  of  the  global field or record.  Original code was 
written to support fields only.  However ISO-C globals functions 
support global records also.  The code was not modified to  dif- 
ferentiate  between  global  fields  and  records.   The routine 
GLBLSIGT uses the start of the global fields (SI0GAD) to get  to 
the  length information.   When computing the size of a syncable 
record, the routine returns the size of the syncable field  that 
shares the same index number in the SIGT. 
 

SOLUTION 
________ 
Modified  the  subroutine  GLBLSIGT  in  CGLOBA  to check if the 
global is a record or a field. If it is a record, use SI0RAD  to 
get the length. 
 
DEPENDENCIES 
____________ 
 
Related Segments Affected By This APAR. 
_______________________________________ 
 
Segments to be assembled or compiled: 
 
Segments to be link edited: 
CTAL40 
 
Load Modules to be loaded: 
CTAL40 
 
Migration Considerations 
======================== 
      None 
 
 
BUILD/TEST INSTRUCTIONS 
_______________________ 
 
 ===BUILD Instructions=== 
 
No special build instructions. 
 
Stubs to be built: 
 
 ===TEST Instructions=== 
 
No special test instructions. 
 
-- END APAR PJ27340 
 
 
 



Download file(s):

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