Many of the changes in the CICS®-COBOL interface occur because Enterprise COBOL simplifies the procedures. This means that you do not need to use some CICS-specific OS/VS COBOL programming techniques. Of the changes described in this section, the only one that is mandatory is the replacement (removal) of all PROCEDURE DIVISION references to BLL cells.
Do not define and manipulate BLL cells. Review programs that use the CICS SET option and BLL cells, and make the following changes:
ADD 4096, D-PTR1 GIVING D-PTR2.
EXEC CICS GETMAIN
SET(ADDRESS OF DATAREA)
LENGTH(LENGTH OF DATAREA)
OS/VS COBOL | Enterprise COBOL |
---|---|
|
|
This table shows the replacement of BLL cells and SERVICE RELOAD in OS/VS COBOL by the use of ADDRESS special registers in Enterprise COBOL . If the records in the READ or REWRITE commands are fixed length, Enterprise COBOL does not require a LENGTH option. This example assumes variable-length records. After the read, you can get the length of the record from the field named in the LENGTH option (here, LRECL-REC1). In the REWRITE command, you must code a LENGTH option if you want to replace the updated record with a record of a different length.
Table 49 shows the old and new methods of processing BMS maps in the linkage section. In this example, it is assumed that the OS/VS COBOL program has been compiled with the LANGLVL(1) option, and that the following map set has been installed:
MAPSET1 DFHMSD TYPE=DSECT,
TERM=2780,LANG=COBOL,
STORAGE=AUTO,
MODE=IN
The new ADDRESS special register used in the example is described under Using based addressing with COBOL.
OS/VS COBOL | Language Environment conforming COBOL |
---|---|
|
|
The highlighted material describes the contents of the MAP1I COBOL copybook.
Remove artificial assignments from an OCCURS DEPENDING ON object to itself. These are needed in OS/VS COBOL to ensure addressability.
[[ Contents Previous Page | Next Page Index ]]