Example: file status key

The following example shows how you can perform a simple check of the file status key after opening a file.


IDENTIFICATION DIVISION.
PROGRAM-ID.  SIMCHK.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT MAINFILE ASSIGN TO AS-MAINA
    FILE STATUS IS MAINFILE-CHECK-KEY
    . . .
DATA DIVISION.
. . .
WORKING-STORAGE SECTION.
01  MAINFILE-CHECK-KEY       PIC X(2).
. . .
PROCEDURE DIVISION.
    OPEN INPUT MAINFILE
    IF MAINFILE-CHECK-KEY NOT = "00"
        DISPLAY "Nonzero file status returned from OPEN " MAINFILE-CHECK-KEY
    . . .