IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

ENTRY statement


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
shreejita

New User


Joined: 16 Aug 2009
Posts: 60
Location: chennai

PostPosted: Thu Dec 17, 2009 10:10 am
Reply with quote

Hi all,

I saw in the previous posting that ENTRY statements are allowed in cobol.

It is really possible in enterprise cobol on mainframe? I tried but thowing errors.

I am adding programs

ID DIVISION.
PROGRAM-ID. SUBPROG.

LINKAGE SECTION.
01 LK-PARM1 PIC X(8).
01 LK-PARM2 PIC X(130).

PROCEDURE DIVISION USING LK-PARM1.
PERFORM 1A-PROCESS-OPTION1.
ENTRY subprog1 USING LK-PARM1 LK-PARM2.
PERFORM 2A-PROCESS-OPTION2.
ENTRY subprog2 USING LK-PARM1.
PERFORM 3A-PROCESS-OPTION3.

EXIT PROGRAM.

ID DIVISION.
PROGRAM-ID. SUBPROG.

CALL 'subprog' USING WS-PARM1 .
CALL 'subprog1' USING WS-PARM1 WS-PARM2.
CALL 'subprog2' USING WS-PARM1.

STOP RUN.

Regards
Shreejita
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Dec 17, 2009 10:28 am
Reply with quote

Hello,

Quote:
It is really possible in enterprise cobol on mainframe?
Yes. . . At the top of the page is a link to "IBM Manuals". Look in the Enterprise Language Reference.

Quote:
I tried but thowing errors.
And you did not post these because. . .?
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Thu Dec 17, 2009 10:46 am
Reply with quote

Quote:
And you did not post these because. . .?

Because the poster thought today was psychic day. icon_smile.gif
Back to top
View user's profile Send private message
shreejita

New User


Joined: 16 Aug 2009
Posts: 60
Location: chennai

PostPosted: Thu Dec 17, 2009 11:00 am
Reply with quote

Good Answer....Both of you replied...

Thanx.
I can see the manual....good help.........
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Dec 17, 2009 8:13 pm
Reply with quote

Hello,

Quote:
I can see the manual....good help.........
Yes, it is.

We might also be able to help if you post what error(s) occurred. . .

When posting disgnostic info, post the message id(s) as well as the text.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts JOIN STATEMENT PERFORMANCE. DFSORT/ICETOOL 12
No new posts Relate COBOL statements to EGL statement All Other Mainframe Topics 0
No new posts process statement for SUPREC, CMPCOLM... TSO/ISPF 4
No new posts SYNCSORT/ICETOOL JOINKEYS SORT Statem... DFSORT/ICETOOL 13
No new posts DFDSS COPY using Filter REFDT statement JCL & VSAM 2
Search our Forums:

Back to Top