* ==== TYPE: ST-READ-INTO ====
      * FEATURE: READ ... INTO with multiple fields
      * STATEMENT: READ INTO
      * BRANCHES: 0, DECISIONS: 0
      * NOTE: READ INTO is pass-through; no IF
       IDENTIFICATION DIVISION.
       PROGRAM-ID. READIN.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT IN-FILE ASSIGN TO 'INDATA.DAT'.
       DATA DIVISION.
       FILE SECTION.
       FD IN-FILE.
       01 IN-REC.
          05 IN-ID    PIC X(5).
          05 IN-AMT   PIC 9(5).
       WORKING-STORAGE SECTION.
       01 WS-REC.
          05 WS-ID    PIC X(5).
          05 WS-AMT   PIC 9(5).
       01 WS-EOF     PIC X VALUE 'N'.
       PROCEDURE DIVISION.
       MAIN.
           OPEN INPUT IN-FILE.
           READ IN-FILE INTO WS-REC
               AT END MOVE 'Y' TO WS-EOF.
           IF WS-EOF = 'N'
               DISPLAY 'OK: READ INTO'
           ELSE
               DISPLAY 'EOF'.
           CLOSE IN-FILE.
           STOP RUN.