IDENTIFICATION DIVISION.
       PROGRAM-ID. MINIPROG.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. LINUX.
       OBJECT-COMPUTER. LINUX.
       SPECIAL-NAMES.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
       SELECT PRINTFILE ASSIGN TO "XXRXWXX"
       FILE STATUS RXWSTAT.
       DATA DIVISION.
       FILE SECTION.
       FD PRINTFILE.
       01 PRINTREC PIC X(132).
       WORKING-STORAGE SECTION.
       01 RXWSTAT PIC XX.
       01 str     pic x(4).
       PROCEDURE DIVISION.
       A00-MAIN SECTION.
       001-MAIN-PROCEDURE.
       OPEN INPUT PRINTFILE.
       DISPLAY "File Status: " RXWSTAT.
       DISPLAY "EXCEPTION-FILE: " FUNCTION EXCEPTION-FILE.
       DISPLAY "Return Length: "
       FUNCTION LENGTH (FUNCTION EXCEPTION-FILE).
       DISPLAY "EXCEPTION-STATUS: " FUNCTION EXCEPTION-STATUS.
       DISPLAY "EXCEPTION-STATEMENT: " FUNCTION EXCEPTION-STATEMENT.
       STRING "TOOLONG" DELIMITED SIZE INTO RXWSTAT.
       DISPLAY "EXCEPTION-STATUS: " FUNCTION EXCEPTION-STATUS.
       DISPLAY "EXCEPTION-STATEMENT: " FUNCTION EXCEPTION-STATEMENT.
       DISPLAY "EXCEPTION-LOCATION: " FUNCTION EXCEPTION-LOCATION.
       STOP RUN.