Example: Two-Element Table

This program accepts a two-element table, each pair on its own line:

IDENTIFICATION DIVISION.
PROGRAM-ID. OCCURS-SAMPLE-2.

DATA DIVISION.
WORKING-STORAGE SECTION.

01  TABLE-1.
    03  TABLE-GROUP OCCURS 5 TIMES.
        05  ITEM-1    PIC X(5).
        05  ITEM-2    PIC 9(5).

SCREEN SECTION.

01  SCREEN-1.
    03  "TEXT  NUMBER".
    03  OCCURS 5 TIMES.
        05  USING ITEM-1, LINE + 1.
        05  USING ITEM-2, COLUMN + 2.

PROCEDURE DIVISION.
MAIN-LOGIC.
   DISPLAY WINDOW ERASE.
   DISPLAY SCREEN-1.
   ACCEPT SCREEN-1.
   STOP RUN.