MVSFORUMS.com

tempuser · Posted: Fri Oct 07, 2005 10:52 am Post subject: Cobol IF statement Question

Hi,
I saw a cobol program code like this.

IF WS-VALUE IS NOT EQUAL TO ('1' AND '2')

How the program will behave
1) IF WS-VALUE is 1 ?
2) IF WS-VALUE is 2 ?
3) IF WS-VALUE is 0 ?

the declaration of WS-VALUE is X(1).

Thanks

vijay · Beginner Joined: 09 May 2003 Posts: 131 Topics: 64

The statement is true only if the value is other than 1 and 2 i.e zero in your example

tempuser · Posted: Fri Oct 07, 2005 11:24 am Post subject:

Thnak you Vijay!!

neilxt · Beginner Joined: 01 Mar 2004 Posts: 23 Topics: 1

Arunprasad.K

Hi all,

Here I have an question. Can we use a 01 level variable like this?

Code:-

IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-A PIC 9(1) VALUE 3.
01 WS-B PIC 9(1) VALUE 3.
01 WS-C PIC 9(1) VALUE 3.

PROCEDURE DIVISION.
IF WS-A = WS-B AND WS-C
DISPLAY 'ALL ARE SAME'
ELSE
DISPLAY 'NOT SAME'
END-IF.

STOP RUN.

Output:-
"ALL ARE SAME "

It is working vise versa. How it is working? Please explain.

shekar123 · Posted: Wed Sep 20, 2006 8:37 am Post subject:

Arunprasad.K,

Yes you can use 01 variable declarations as u have shown.You can also use EVALUATE TRUE ALSO TRUE Syntax to check multiple IF conditions:

shekar123 · Posted: Wed Sep 20, 2006 8:46 am Post subject:

Arunprasad

For all the variables having values 3 ,It is checking for a match for conditions IF WS-A = WS-B and IF WS-A = WS-C
Change WS-C to 4 and run , you will see the condition is not met and NOT SAME will be displayed.
_________________
Shekar
Grow Technically

Arunprasad.K · Posted: Thu Sep 21, 2006 8:46 am Post subject:

Thank you shekar123.