Setting 88 level for COMP variable

lalitha_gld · New User Joined: 12 Jul 2006 Posts: 24

Hi,

I'm trying to validate a SMALLINT variable from a DB2 table in my cobol program. I'm fetching it to a S9(04) COMP variable and have to validate against numeric values. If this is possible is the below code valid?

05 WS-NBR-FLG PIC S9(04) COMP.
88 WS-OLD-NBR VALUE 1,2,3.
88 WS-NEW-NBR VALUE 4,5,6,7.

Thanks & Regards,
Lalitha.

Terry Heinze · Posted: Tue Oct 06, 2009 10:24 am

It depends on what the code is you are using. You've shown the field definitions but not the code.

lalitha_gld · New User Joined: 12 Jul 2006 Posts: 24

If I declare a table - 'TABLE' as

CL# Column name Data type

1 NBR SMALLINT

With the field definitions i had given earlier, this is how am planning to set my code :

EXEC SQL
DECLARE CRSR CURSOR FOR
SELECT NBR FROM TABLE
END-EXEC.

EXEC SQL
OPEN CRSR
END-EXEC.

EXEC SQL
FETCH CRSR
INTO :WS-NBR-FLG
END-EXEC.

EVALUATE TRUE

WHEN WS-OLD-NBR
<PROCESS ONE>

WHEN WS-NEW-NBR
<PROCESS TWO>
WHEN OTHER
PROCESS ERROR PARA TO WRITE ERROR RECORD
END-EVALUATE.

Would this be valid.Pls let me know.

Tx,
Lalitha.

Raghu navaikulam · Posted: Tue Oct 06, 2009 12:33 pm

Hi Lalitha

Try to use THRU clause in the 88 level.

Robert Sample · Posted: Tue Oct 06, 2009 2:53 pm

Using THRU is exactly the same as specifying the individual values to COBOL -- so there's no difference between the original posted code and your "revision", Raghunath. Specifying the values one way or the other is merely a personal preference.

Srihari Gonugunta · Posted: Tue Oct 06, 2009 3:47 pm

Lalitha,
Thats valid. I believe you can easily test this.

santy · New User Joined: 19 Jul 2007 Posts: 22 Location: mumbai

Lalitha,

The procedure you are using above is the correct one. It will work.