Using DATA(24) and DATA(31) in COBOL V6.2 with Datacom/DB

Products

• Datacom
• Datacom/DB
• Datacom/AD

Issue/Introduction

We are in the process of re-compiling all our COBOL programs using COBOL 6.2.

As part of that, we wanted to know if PROCESS DATA(24) is required for the programs that access Datacom/DB.

Environment

Release : 15.0, 15.1

 

Resolution

The COBOL-based interfaces to Datacom/DB are the same as Assembler and other interfaces. When the interface module (DBINFPR/DBINRPR) is called, the program checks to see what the AMODE is at the beginning, and that AMODE is maintained during processing. This means that if the interface is called in 31 bit mode, we expect parm lists etc. to have 31-bit addresses, and process the data in 31-bit mode. Likewise, if called in 24-bit mode, the processing stays in 24-bit mode.

Therefore, regardless of how the COBOL program is compiled with version 6.2, we will support that mode, and so Datacom/DB is compliant with both 24 and 31 bit mode.

Additional Information

For more information about the program compile options, please see the IBM Enterprise COBOL for z/OS documentation:

For version 6.3, Programming Guide - Compiler Options

 

To access the COBOL collections, please see these websites:

For version 6.3 - https://www.ibm.com/docs/en/cobol-zos/6.3