MVSFORUMS.com

[shuko]

Hello
What I am trying to do is to get the amount from the internal table
if input year is a between nDevYrFrom and nDevyrTo.

if the input nDevYr = 10 for example, I should get the amount 300 and if is 1 amount will be 100
Actually input nDevYr a between nDevYrFrom and nDevYearTo
Howe can I code this in Cobol

Working Storage

[kolusu]

shuko,

Your are checking nRskDevYrTo variable and the table variable is defined as nDevYrTo.

SEARCH SX5Nrate increments the lowest-level index only. Hence if X is set to 1 initially, the SEARCH will perform a look-up on items in warehouse SXN5nc1, that is (1, 1) through (1, 10). To search all entries, the SEARCH itself must be executed from a PERFORM ... VARYING
ex:

[William Collins]

You are new to COBOL.

You probably will never need to use COMP-1 or COMP-2 in your COBOL coding. COMP or COMP-3 are going to give you exactly what you want, unless you need values outside about 10**+/-31 (which it doesn't look like from what you have shown).

The IBM Enterprise COBOL manuals are really thorough. If you consult the manual for SEARCH you'll find out what you have not done, which you need to do.

[kolusu]

shuko,

I forgot to add the SEARCH syntax in earlier post

[shuko]

Thank you Kolusu
I did it like this as I read somewhere that a SEARCH is faster than a PERFORM varying. Maybe for a small table it does not make a difference.

[kolusu]