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

How to code the below cobol coding in EasyTrieve


IBM Mainframe Forums -> CA Products
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
ujwalavenu
Currently Banned

New User


Joined: 07 Feb 2006
Posts: 7
Location: Hyderabad

PostPosted: Tue Oct 10, 2006 8:56 am
Reply with quote

Hi,

How to code the below cobol coding in EasyTrieve.

Code:
IF WS-APPL-TYPE = 'RA' OR 'DS'
    DISPLAY 'VALID TYPE'
ELSE
    DISPLAY 'INVALID TYPE'
END-IF


Thanks and Regards.
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1208
Location: Bangalore,India

PostPosted: Tue Oct 10, 2006 9:50 am
Reply with quote

Hi There,


U can code like this. It should work

Code:
IF WS-APPL-TYPE = 'RA' OR WS-APPL-TYPE = 'DS'
     DISPLAY 'VALID TYPE'
ELSE
     DISPLAY 'INVALID TYPE'
END-IF
Back to top
View user's profile Send private message
ihatesugar
Warnings : 1

New User


Joined: 22 Oct 2006
Posts: 43

PostPosted: Thu Oct 26, 2006 3:13 pm
Reply with quote

IF WS-APPL-TYPE = 'RA' 'DS'
DISPLAY 'VALID TYPE'
ELSE
DISPLAY 'INVALID TYPE'
END-IF

works the same!!!!1
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 -> CA Products

 


Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts run rexx code with jcl CLIST & REXX 15
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts Compile rexx code with jcl CLIST & REXX 6
Search our Forums:

Back to Top