Cobol-400

[hsp]

Hi All,

Pls can anybody tell how we can use chain keyword in cobol with small eg.

In RPGIV :

XXXX Chain File

If %Found(File)
---------
--------
ENDIF

In cobol how to do?

pls i need it..

Any help will be appreciated.

Thanks
hsp

[Mercury]

Re: Cobol-400

Assuming that you want to read the Master File keyed by CLIENT#

     MOVE "TRUE" TO MATCH
     MOVE 12345 TO CLIENT#
     READ MASTER-FILE INTO WS-MASTER-RECORD
        [B]INVALID KEY[/B]
           DISPLAY "CLIENT NOT FOUND IN MASTER FILE"
           DISPLAY "FILE STATUS CODE IS: " MASTER-FILE-STATUS
           MOVE "FALSE" TO MATCH
     END-READ

[Terry Wincheste]

Re: Cobol-400

I could have swore I posted a link to the manuals earlier this morning...maybe I didn't have enough coffee...

The COBOL manuals can be read and/or downloaded from here:

http://publib.boulder.ibm.com/infocenter/iseries/v5r3/index.jsp?topic=/pdf_table/launcher.htm

Terry