MVSFORUMS.com

[Pavani Donepudi]

Hi,

We have a task where in we are converting couple of CICS programs from Meta COBOL to COBOL II. Here is the scenario where in we are getting an ASRA abend. I am not sure whether there is any problem in the way we converted the code Can you please correct me.

Meta COBOL Version of the code -

LINKAGE SECTION.

01 DFHCOMMAREA.
-----
01 BLL-CELLS.
05 FILLER PIC S9(08 ) COMP.
05 MAP-ADDR-PTR PIC S9(08 ) COMP.
05 MAPPTR PIC S9(08 ) COMP.
SKIP3
01 MAP-ADDR-LIST.
05 MAP-ADDR PIC S9(08 ) COMP.
SKIP3
01 MAP-AREA.
05 FILLER PIC X(08 ).
05 MAP-AREA-DATA.
10 MAP-LENGTH PIC S9(4) COMP.
10 FILLER PIC XX.
10 MAP-DATA PIC X(3000).

PROCEDURE DIVISION.

EXEC CICS
SEND MAP (WS-COMMON-MAPNAME) FROM (MAP-AREA-PCR)
SET (MAP-ADDR-PTR)
END-EXEC

MOVE MAP-ADDR TO MAPPTR SERVICE RELOAD MAP-AREA
----
MOVE MAP-LENGTH TO WS-SCREEN-LENGTH

Here is how we have converted.

LINKAGE SECTION.
01 DFHCOMMAREA.
-----

01 MAP-ADDR-LIST.
05 MAP-ADDR USAGE IS POINTER.
01 MAP-AREA.
05 FILLER PIC X(08 ).
05 MAP-AREA-DATA.
10 MAP-LENGTH PIC S9(4) COMP.
10 FILLER PIC XX.
10 MAP-DATA PIC X(3000).

PROCEDURE DIVISION.
------

EXEC CICS
SEND MAP (WS-COMMON-MAPNAME) FROM (MAP-AREA-PCR)
SET (ADDRESS OF MAP-ADDR-LIST)
END-EXEC

SET ADDRESS OF MAP-AREA TO MAP-ADDR

----
MOVE MAP-LENGTH TO WS-SCREEN-LENGTH -- This is the statement that is causing the ASRA.

Regards,
Pavani.