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
 
88 level

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

New User


Joined: 07 Mar 2005
Posts: 43

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

kanak

Moderator


Joined: 12 Mar 2005
Posts: 252
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

New User


Joined: 26 Apr 2005
Posts: 87
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: 134

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

New 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
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
No new posts Syncsort TPF Level Majid Hussain SYNCSORT 2 Wed Apr 13, 2016 2:22 am
No new posts Need a logic to validate the data in ... sandeep kumar302 COBOL Programming 17 Mon Feb 01, 2016 3:30 pm
No new posts DB2 10.1 Share level locking and Sele... Mary Lewis DB2 1 Wed Apr 15, 2015 9:51 pm
No new posts CICS SE Level Openings in Accenture enikhilk Mainframe Jobs 0 Mon Sep 01, 2014 6:39 pm
No new posts 88 level variable logic not working sandeep kumar302 COBOL Programming 19 Thu Jul 31, 2014 10:59 am

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