Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

OS/VS cobol to Enterprise cobol conversion - BLL CELLS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
santhosh552

New User


Joined: 04 Jun 2009
Posts: 1
Location: hyderabad,india

PostPosted: Mon Jun 08, 2009 11:44 am    Post subject: OS/VS cobol to Enterprise cobol conversion - BLL CELLS
Reply with quote

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
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8057
Location: East Dubuque, Illinois, USA

PostPosted: Mon Jun 08, 2009 4:45 pm    Post subject:
Reply with quote

Google is your friend.

A search on "os/vs cics conversion" rapidly found this link: http://publib.boulder.ibm.com/infocenter/pdthelp/v1r1/index.jsp?topic=/com.ibm.entcobol.doc_3.4/igym1c11.htm which talks about the steps to take to convert OS/VS code to Enterprise COBOL.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Cobol GUI (like Editor) Kala Mainframe COBOL Programming 14 Wed May 10, 2017 12:30 pm
No new posts IMS T-Pipe queue counts in a COBOL Pr... Siva NKK Kothamasu IMS DB/DC 0 Tue May 09, 2017 6:31 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm
No new posts COBOL Programming Sandpit? jodrisco COBOL Programming 6 Wed Apr 12, 2017 3:47 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us