Input-Ouput Routines Used in the Indexed File Examples

      * Read a specific record by key:

       GET-PERSON-ITEM. 
           MOVE 'N' TO INVALID-PERSON-KEY-FLAG. 
           READ PERSON-FILE 
               INVALID KEY
                   MOVE 'Y' TO INVALID-PERSON-KEY-FLAG.

      * Start:

       START-PERSON-FILE. 
           MOVE 'N' TO INVALID-PERSON-KEY-FLAG.
           START PERSON-FILE
               KEY IS NOT LESS THAN PERSON-ALTERNATE-KEY
                   INVALID KEY
                       MOVE 'Y' TO INVALID-PERSON-KEY-FLAG.

      * Read the next record in sequence:

       GET-NEXT-PERSON-ITEM.
           MOVE 'N' TO INVALID-PERSON-KEY-FLAG. 
           READ PERSON-FILE NEXT
               AT END 
                   MOVE 'Y' TO INVALID-PERSON-KEY-FLAG.
 
      * Insert a record into the file:

       ADD-PERSON-ITEM. 
           MOVE 'N' TO INVALID-PERSON-KEY-FLAG. 
           WRITE PERSON-ITEM
               INVALID KEY
                   MOVE 'Y' TO INVALID-PERSON-KEY-FLAG. 
 
      * Remove a record from the file:

       DELETE-PERSON-ITEM.
           MOVE 'N' TO INVALID-PERSON-KEY-FLAG. 
           DELETE PERSON-FILE 
               INVALID KEY
                   MOVE 'Y' TO INVALID-PERSON-KEY-FLAG. 
 
      * Modify a record:

       REPLACE-PERSON-ITEM. 
           MOVE 'N' TO INVALID-PERSON-KEY-FLAG. 
           REWRITE PERSON-ITEM
               INVALID KEY
                   MOVE 'Y' TO INVALID-PERSON-KEY-FLAG. 

Cobol Home