IBM Support

Enterprise COBOL V6.3 Enablement

News


Abstract

Enterprise COBOL V6.3 Enablement.

Content

1) Enterprise COBOL 6.3 Enablement

A.  SCEELKED and SCEERUN datasets for Enterprise COBOL 6.3.
If the link step terminates with the following diagnostic, check the SCEELKED dataset used in SYSLIB DD. Make sure it is the one with the Enterprise COBOL 6.3 enablement PTF applied:
IEW2456E 9207 SYMBOL IGZXLERR UNRESOLVED.  MEMBER COULD NOT BE INCLUDED FROM THE DESIGNATED CALL LIBRARY.
If the execution step terminates with the following diagnostic, check the SCEERUN dataset used STEPLIB DD. Make sure it is the one with Enterprise COBOL 6.3 enablement PTF applied:
IGZ0153S Program <prog-name> was compiled with a level of the compiler that requires service to be installed on Language Environment.
From compile unit <prog-name> at entry point <prog-name> at compile unit offset +xxxxxxxx at entry offset +yyyyyyyy at address wwwwwwww.

B.    Updates in the LE Vendor Interface Guide.
The Language Environment Vendor Interface will be updated to include the following information.
I.  Part.1 Language Environment vendor interfaces for AMODE 31/AMODE 24 applications
> Chapter 1. Common interfaces and conventions
>> Prolog information blocks
>>> common runtime environment
In the subsection "COBOL V5+ 32-bit PPA3 layout", replace the subsection with the following:
=============================================================================
PPA3 conforms to this layout under these conditions:
  • ’Member identifier’ in PPA2 is 4 (Bits 0 - 17 in PPA2 offset X'00' is 4) .
  • ’PPA4 program flags’ indicates ‘PPA4 version’ is 1 (Bits 16-23 in PPA4 offset X’04’ is 1) note.1 
  • ‘PPA4 program flags’ indicates 31-bit compile (Bit 13 in PPA4 offset X’04’ is 0)  note.1
Table 1. COBOL V5+ 32-bit PPA3 layout.

Offset

Length

Description

X'00'

4

Reserved

X'04'

4

Signed offset from PPA3 to base locator table. Zero if not available.

X'08'

4

Signed offset from PPA3 to special register table. Zero if not available.

X'0C'

4

Signed offset from code CSECT(starting address of Compile Unit Entry) to USER-ENTRY(User COBOL Program Entry).
Note: 
1. The same PPA3 layout applies to COBOL 64-bit programs with the following:
  • ’PPA4 program flags’ indicates ‘PPA4 version’ is 5 (Bits 16-23 in PPA4 offset X’04’ is 5);
  • ‘PPA4 program flags’ indicate 64-bit compile (Bit 13 in PPA4 offset X’04’ is 1)

II. Part.2 Language Environment vendor interfaces for AMODE 64 applications.

> Chapter 20. Common interfaces and conventions for AMODE 64 applications
>> Prolog information blocks
>>> common runtime environment
After the subsection "PPA2 in support of XPLINK" and before "C/C++ DWARF 64-bit PPA4 layout", add a new subsection, "COBOL 64-bit PPA3 layout" with the following:
=============================================================================
COBOL 64-bit PPA3 layout is the same as "COBOL V5+ 32-bit PPA3 layout". Refer to the layout for the details.

 
III. Part.1 Language Environment vendor interfaces for AMODE 31/AMODE 24 applications.

> Chapter 1. Common interfaces and conventions
>> common runtime environment
>>> Prolog information blocks
In the subsection "COBOL V5+ 32-bit PPA4 layout (with or without minor-version)", replace the subsection with the following note:
=============================================================================
...
The new PPA4 format referred to as ‘with minor version’(Bit 6 in PPA4 offset X’00’ is ON) stores the csect name near the end of PPA4, therefore keeping all of the PPA4 fields at a fixed location and providing better usability.
Note. COBOL 64-bit PPA4 layout can be found in "COBOL 64-bit PPA4 layout", Chapter.20 
Common interfaces and conventions for AMODE 64 applications
IV.  Part.2 Language Environment vendor interfaces for AMODE 64 applications.
> Chapter 20. Common interfaces and conventions for AMODE 64 applications
>> common runtime environment
>>> Prolog information blocks
After the subsection "C/C++ DWARF 64-bit PPA4 layout" and before "PPA4 debug flags", add a new subsection "COBOL 64-bit PPA4 layout" with the following:
=============================================================================
COBOL 64-bit PPA4 layout
  • ‘Member identifier’ in PPA2 is 4 (Bits 0 - 17 in PPA2 offset X'00' is 4)
  • ‘PPA4 program flags’ indicates ‘PPA4 version’ is 5 (Bits 16-23 in PPA4 offset X’04’ is 5)
  • ‘PPA4 program flags’ indicates 64-bit compile (Bit 13 in PPA4 offset X’04’ is 1)

Table 1. COBOL 64-bit PPA4 layout
 

Offset     

Length  

Description

X'00'

4

PPA4 debug flags for PPA4 version 5    (same byte/bit position  as 31bit PPA4)

X'04'

4

PPA4 program flags  (same byte/bit position and same as 31bit PPA4)

X’08’

4

PPA4 debug flags 2  (reserved, set to zero)

X’0C’

4

PPA4 program flags 2 (reserved, set to zero)

X’10’

6

Reserved (set to zero)

X’16’

2

minor-version (unsigned integer), 0. (the version of current layout is 5.0)
Note: This number may be updated in the future to indicate layout changes

X'18'

8

Address of NORENT static

X’20’

8

Length of NORENT static (in bytes)

X'28'

8

Signed offset from PPA4 to code csect

X'30'

8

Length of code csect (in bytes)

X'38'

8

Signed offset from PPA4 to code csect name (prefixed with 2 bytes string length).
Zero if code csect name is not available

X'40'

8

Offset 64bit UsrWrkStrg

(Offset from Above The Bar Heap (64bit) to first user data item in WORKING-STORAGE section.)

X'48'

8

Length 64bit UsrWrkStrg (in bytes)

X’50’

4

Offset 31bit UsrWrkStrg

(Offset from Below The Bar Heap (31bit)  to first 31bit user data item.)

X’54’

4

Length 31bit UsrWrkStg (in bytes)

X’58’

4

Offset 24bit UsrWrkStrg

(Offset from Below The Line Heap (24bit) to first 24bit user data item.)

X’5C’

4

Length 24bit UsrWrkStg (in bytes)

X’60’

1

Has externals

X’61’

3

Reserved (set to zero)

X'64'

8

Signed offset from PPA4 to SYSDEBUG dataset name (prefixed with 2 bytes string length).
Zero if SYSDEBUG dataset name is not available

X’6C’

8

Size of Above The Bar Heap (COBOL’s 64bit storage area)

X’74’

4

Size of Below The Bar Heap (COBOL’s 31bit storage area)

X’78’

4

Size of Below The Line Heap (COBOL’s 24bit storage area)

X’7C’

8

Signed offset from Environment to Heap Storage Address Table
Note: Address of environment of a program in XPLINK is in R5 on entry to the program.
Note: PPA4 debug flags (the field at X’00’) and PPA4 program flags (at X’04’) have the same meanings as in the corresponding 31-bit PPA4 layout.

2) New Run-Time Messages.

Refer to the technote below for the new runtime messages:

[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Component":"Documentation","Platform":[{"code":"PF035","label":"z\/OS"}],"Version":"6.3","Edition":"Enterprise","Line of Business":{"code":"LOB17","label":"Mainframe TPS"}}]

Document Information

Modified date:
06 September 2019

UID

ibm11071882

Page Feedback