Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
88 level

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Mainframe COBOL
Author Message
prabhucs01

New User


Joined: 07 Mar 2005
Posts: 40

PostPosted: Thu May 05, 2005 7:04 pm    Post subject: 88 level
Reply with quote

05 END-OF-TB36UNLD-FILE-SW PIC S9(01) COMP-3 VALUE 0.
88 EOF-TBL36-NO VALUE +0.
88 EOF-TBL36 VALUE +1


now in this statement i have given vlaue clause in the 05 level.can we give the value clause in the group level if we are going to handle condition statement[b](88).[/b]
Back to top
View user's profile Send private message
References
kanak

Moderator


Joined: 12 Mar 2005
Posts: 259
Location: India

PostPosted: Thu May 05, 2005 7:17 pm    Post subject:
Reply with quote

ya you can certainly give...by default EOF-TBL36-NO will be true.
Back to top
View user's profile Send private message
notonly4u

Active User


Joined: 26 Apr 2005
Posts: 65
Location: Hyderabad

PostPosted: Thu May 05, 2005 7:19 pm    Post subject:
Reply with quote

Please correct me if Iam wrong.....

If we don't have the value clause in the group item, then how we are going to check the condition. To be more clear,

I think you are going to check wheather the EOF TBL36 has been reached or not.

So while start reading the table it should contain the condition as EOF as false. So we use to give the false condition in the group item.

As I told earlier....Please correct me if Iam wrong.

Regards
Tanden.
Back to top
View user's profile Send private message
somasundaran_k

Active User


Joined: 03 Jun 2003
Posts: 141

PostPosted: Thu May 05, 2005 8:28 pm    Post subject:
Reply with quote

notonly4u

It's not mandatory to specify a value in the group item. But you need to set EOF-TBL36-NO to TRUE OR Move 0 to END-OF-TB36UNLD-FILE-SW before start reading the table. When it reaches the end of table set EOF-TBL36 to TRUE.

Regds
-Som
Back to top
View user's profile Send private message
Rajen

Active User


Joined: 05 May 2005
Posts: 61

PostPosted: Fri May 06, 2005 6:41 pm    Post subject:
Reply with quote

I think we can give value clause for switches.
So Prabhu you can give but the only thing is by default the switch will have that value specified by you and you need to handle that condition.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Mainframe COBOL All times are GMT + 6 Hours
Page 1 of 1