MVSFORUMS.com

[vani]

We are converting OSVS COBOL CICS program into COBOL 390 and we are having problem at BLL cells conversion.

As per conversion strategy, BLL cell pointer variables that are at linkage section will be commented. But in our program, BLL cell pointers have been redefined and it has been checked for high and low values which we are not able to understand and translate.

Please find the following piece of code in the linkagge

01 WL-BLLCELLS.
05 FILLER PIC S9(08) COMP.
05 WL-UIB-PTR PIC S9(08) COMP.
05 WL-DLI-PCB-PTRS PIC S9(08) COMP.
05 WL-DLI-PCB1-PTR PIC S9(08) COMP.
05 WL-DLI-PCB2-PTR PIC S9(08) COMP.
05 WL-DLI-PCB3-PTR PIC S9(08) COMP.
05 WL-DLI-PCB4-PTR PIC S9(08) COMP.
05 WL-DLI-PCB5-PTR PIC S9(08) COMP.
05 WL-DLI-PCB6-PTR PIC S9(08) COMP.
05 WL-DLI-PCB7-PTR PIC S9(08) COMP.
05 WL-DLI-PCB8-PTR PIC S9(08) COMP.

---------- CNA MODIFICATION -------------- 08/07/86 I.L.
05 WL-DLI-TCTUA-PTR PIC S9(08) COMP.
05 WL-DLI-TCTUA-PTR-CH REDEFINES
WL-DLI-TCTUA-PTR.
10 WL-DLI-TCTUA-FIRST PIC X(01).
10 WL-DLI-TCTUA-REST PIC X(03).
-------- CNA MODIFICATION END ----------- 08/07/86 I.L.

As per the conversion strategy, above variables will be commented.
But below piece of code is present in the program

IF NOT (WL-DLI-TCTUA-FIRST = HIGH-VALUE AND
WL-DLI-TCTUA-REST = LOW-VALUE) AND
((TCTUA-PGM-LINE = 'B') OR
(TCTUA-PGM-LINE = 'S') OR
(TCTUA-PGM-LINE = 'T') OR
(TCTUA-PGM-LINE = 'M') OR
(TCTUA-PGM-LINE = 'N') OR
(TCTUA-PGM-LINE = 'R') OR
(TCTUA-PGM-LINE = 'P') OR
(TCTUA-PGM-LINE = 'U') OR
(TCTUA-PGM-LINE = 'V') OR
(TCTUA-PGM-LINE = 'W'))

MOVE TCTUA-PGM-LINE TO WC-PROGRAM-LINE.

So above things result in compilation error.

[kolusu]

Vani,

This OS/VS cobol program is using DL/I call interface. Check this link for Base addressability considerations for OS/VS COBOL programs

In that section you fill find a section which addresses the Conversion issues related to DL/I call interface

Hope this helps...

cheers

kolusu