Doing something when REWRITE INVALID KEY goes OK

Ensign · New User Joined: 19 May 2009 Posts: 9 Location: Spain

REWRITE REG-FICHERO INVALID KEY
DISPLAY '*** FICHERO : ERROR REWRITE FICHERO'
DISPLAY 'EST-FICHERO : ' EST-FICHERO
MOVE 8 TO SW-CODE
PERFORM FIN
END-REWRITE.

I'm rewriting a file and I want to do something (ADD 1 TO W-COUNT) when the REWRITE goes OK... how could I code that? which is the best way to do it?

Thank you.

Bill O'Boyle · Posted: Fri May 22, 2009 6:08 pm

Instead of using "INVALID KEY", use the 2-Byte file-status defined to the SELECT statement.

INVALID KEY can be raised for a number of issues and this is why the file-status check is recommended.

Regards,

Succor · Posted: Sat May 23, 2009 3:13 am

The way you have coded INVALID KEY to PERFORM-A
add NOT INVALID KEY to PERFORM-B within your REWRITE and END-REWRITE.

WTH.

dbzTHEdinosauer · Posted: Sat May 23, 2009 4:56 am

I agree with Bill.

The status codes for service calls should be used, always.

With the increasing complexity of computer systems
and
the ever increasing error/warning return codes (status-code for I/O)
your code should interrogate these codes specifically (e.g. EVALUATE)
outside the I/O-END-I/O statement.
and
not rely on the 'old-style' clauses provided in the I/O syntax.

Marso · Posted: Sun May 24, 2009 1:03 am

Everybody knows that the program never comes back from that PERFORM FIN, which sets the RETURN-CODE and does a STOP RUN...
So it could be:

Marso · Posted: Sun May 24, 2009 1:12 am

After looking at this page, you will see that the only acceptable status is 00. All other codes are either irrelevant or indicate a serious error.
Therefore you can code: