Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 8154
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. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am
No new posts ALPHABETIC check in COBOL vidyaa COBOL Programming 8 Thu Aug 17, 2017 7:13 pm
No new posts XML Parse for COBOL 5.2 Bhanu Praveen COBOL Programming 1 Sat Jul 08, 2017 8:58 pm
No new posts Dynamic output file creation in cobol... smileheal COBOL Programming 7 Thu Jun 15, 2017 10:53 pm
No new posts Search utility(3.14) using JCl and Cobol RKS3 COBOL Programming 12 Sat Jun 10, 2017 10:24 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us