次の例は、ファイルを開いた後にファイル状況キーの簡単な検査を行う方法を示しています。
IDENTIFICATION DIVISION.
PROGRAM-ID. SIMCHK.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT MASTERFILE ASSIGN TO AS-MASTERA
FILE STATUS IS MASTER-CHECK-KEY
. . .
DATA DIVISION.
. . .
WORKING-STORAGE SECTION.
01 MASTER-CHECK-KEY PIC X(2).
. . .
PROCEDURE DIVISION.
OPEN INPUT MASTERFILE
IF MASTER-CHECK-KEY NOT = "00"
DISPLAY "Nonzero file status returned from OPEN " MASTER-CHECK-KEY
. . .