View previous topic :: View next topic
|
Author |
Message |
santhosh552
New User
Joined: 04 Jun 2009 Posts: 1 Location: hyderabad,india
|
|
|
|
As part of Enterprise Cobol 3.1v upgradation i am trying to remove the "BLL CELLS" from a CICS program. This program is being called from a NATURAL program. I have removed the code in RED color as BLL cells are not supported in enterprise cobol.But i am not sure what statements i have to use in place of BLL CELLS to maintain the addressability of linkage section variables . Can anyone please guide me on this ?
LINKAGE SECTION.
01 BLL-CELLS.
05 BLL-PTR PIC S9(8) COMP.
05 TWA-PTR PIC S9(8) COMP.
05 PTR-LIST-PTR PIC S9(8) COMP.
05 PSCOMM-PTR PIC S9(8) COMP.
01 TWA.
05 TWA-ADDRESS PIC S9(8) COMP.
01 PTR-LIST.
05 COMM-ADDRESS PIC S9(8) COMP.
01 INPUT-OUTPUT-DATA.
05 IO-VINA PIC X(515).
05 IO-VRAP-SW PIC X(1).
05 IO-VRAP-CODE PIC X(1).
05 IO-ANTI-LOCK-BRAKE-CODE PIC X.
05 IO-BRAKE-RETURN-CODE PIC X.
05 IO-DAY-RUN-LIGHTS PIC X.
PROCEDURE DIVISION.
0000-MAINLINE.
PERFORM 1000-ESTABLISH-ADDRESSABILITY
THRU 1000-EXIT.
PERFORM 2000-MAIN
THRU 2001-MAIN-EXIT.
0000-EXIT.
EXEC CICS RETURN END-EXEC.
GOBACK.
1000-ESTABLISH-ADDRESSABILITY.
SERVICE RELOAD BLL-CELLS.
EXEC CICS ADDRESS TWA (TWA-PTR)
END-EXEC.
SERVICE RELOAD TWA.
MOVE TWA-ADDRESS TO PTR-LIST-PTR.
SERVICE RELOAD PTR-LIST.
MOVE COMM-ADDRESS TO PSCOMM-PTR.
SERVICE RELOAD INPUT-OUTPUT-DATA.
1000-EXIT.
EXIT.. |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8697 Location: Dubuque, Iowa, USA
|
|
Back to top |
|
|
|