'NOT INVALID KEY' for KSDS read

paramita.barman · New User Joined: 12 Oct 2006 Posts: 18

Hi,

I need to know the correct format for NOT INVALID key..... as the below code segment is giving an error for 'NOT'.
Also, if I don't give the 'NOT INVALID KEY' clause,will the control return to the statement after INVALID KEY clause(i.e , PERFORM 2210-CALC-PRE) or simply exit the 2200-CHECK para.
I need to perform 2210-CALC-PRE only if the key is found in VSAM file.

Please help.

2200-CHECK.

READ INPUT-VSAM-FILE
INVALID KEY PERFORM 9000-ERR-FILE-WRITE
THRU 9000-EXIT.
NOT INVALID KEY PERFORM 2210-CALC-PRE
THRU 2210-EXIT.

2200-EXIT.
EXIT.

Thanks in advance.

Arun Raj · Posted: Mon Jan 19, 2009 1:03 pm

Hello,

I think the period(.) after the 9000-EXIT terminates your READ statement. Use a single period only at the end of a paragraph. It's better to use explicit scope-terminators(END-READ, END-IF etc) rather than using periods within a para.

dbzTHEdinosauer · Posted: Mon Jan 19, 2009 1:19 pm

good eyes arun.

Anuj Dhawan · Posted: Mon Jan 19, 2009 1:50 pm

Hi,

And I believe END-READ should also be included,

Arun Raj · Posted: Mon Jan 19, 2009 1:54 pm