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
 
SET verb error

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

Site Admin


Joined: 18 May 2003
Posts: 1200
Location: India

PostPosted: Fri Jul 04, 2003 10:34 am    Post subject: RE
Reply with quote

DEAR,

You can't set a condition code directly to FALSE. COBOL diesn't have this facility.

But you can SET TO TRUE.

SET <condituion> TO TRUE will works well.
Back to top
View user's profile Send private message

mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Sun Jul 06, 2003 1:54 am    Post subject:
Reply with quote

If you have a condition set up as:

05 my-cond1 pic x value 'F'.
88 file-is-open value 'O'.

You can add another 88 level:

88 file-is-not-open value 'N'.

Then set file-is-not-open to true.

You could do something similar with false but you'd have to make each "false" unique, e.g. false-1, false-2, etc. Method 1 is better, IMHO.
Back to top
View user's profile Send private message
a_rajesh1221

New User


Joined: 13 Dec 2005
Posts: 1
Location: Hyderabad

PostPosted: Mon Aug 28, 2006 3:35 pm    Post subject: hi
Reply with quote

Can u give a detailed example of how to use SET verb with REDEFINES clause?



mmwife wrote:
If you have a condition set up as:

05 my-cond1 pic x value 'F'.
88 file-is-open value 'O'.

You can add another 88 level:

88 file-is-not-open value 'N'.

Then set file-is-not-open to true.

You could do something similar with false but you'd have to make each "false" unique, e.g. false-1, false-2, etc. Method 1 is better, IMHO.
Back to top
View user's profile Send private message
cobolunni

Active User


Joined: 07 Aug 2006
Posts: 128
Location: kerala,india

PostPosted: Mon Aug 28, 2006 4:12 pm    Post subject:
Reply with quote

you can find detail description of redefine clause at http://publibfp.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/IGY3LR00/5.3.12?DT=20011206182158

also you can find details of set verb at http://publibfp.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/IGY3LR00/6.2.33?DT=20011206182158
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 FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm
No new posts Reply MQ open error Vignesh Sid COBOL Programming 5 Thu Sep 07, 2017 6:02 pm
No new posts Error in SQL-PLIST3 'Above value tru... rikdeb DB2 4 Wed Sep 06, 2017 1:34 pm
No new posts WER268A OUTREC STATEMENT : SYNTAX E... frozenblood87 SYNCSORT 12 Sat Aug 26, 2017 9:45 pm
No new posts DB2 Program abending without giving a... rahulgarg14 DB2 7 Mon May 29, 2017 8:10 pm

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