Example: Table on One Line

This program accepts a simple table on one line:

IDENTIFICATION DIVISION.
PROGRAM-ID. OCCURS-SAMPLE-1.
DATA DIVISION.
WORKING-STORAGE SECTION.

01  TABLE-1.
    03  TABLE-ITEM OCCURS 5 TIMES     PIC X(5).

SCREEN SECTION.

01  SCREEN-1.
    03  "TABLE ITEMS:".
    03  OCCURS 5 TIMES USING TABLE-ITEM, COLUMN + 2.

PROCEDURE DIVISION.

MAIN-LOGIC.

   DISPLAY WINDOW ERASE.
   DISPLAY SCREEN-1.
   ACCEPT SCREEN-1.
   STOP RUN.