IDENTIFICATION DIVISION. 
       PROGRAM-ID. SCR-OCCURS. 
       ENVIRONMENT DIVISION. 
      * 
       DATA DIVISION. 
       WORKING-STORAGE SECTION. 
       01 COLOR-TBL. 
              03 COLOR-ITEM OCCURS 5 TIMES       PIC X(6). 
      * 
       01 VEGGIE-TBL. 
              03 OCCURS 5 TIMES. 
                     05 VEGGIE-NAME       PIC X(10). 
                     05 VEGGIE-QTY        PIC 9(5). 

       77 WS-DUMMY PIC X. 
       SCREEN SECTION. 
       01 SCREEN-1. 
              05 "COLORS:" PIC X(7) LINE 2 COL 2. 
              05 LINE 2 COL 10. 
              05 OCCURS 5 TIMES USING COLOR-ITEM PIC X(6), COLUMN + 2. 
      * 
       01 SCREEN-2. 
              03 "VEGETABLES QUANTITY" PIC X(24) LINE 5 COL 2. 
              03 LINE 6 COL 2. 
              03 OCCURS 5 TIMES. 
                     05 USING VEGGIE-NAME PIC X(10) LINE + 1 COL 2.
                     05 USING VEGGIE-QTY PIC 9(5) COLUMN + 8 
                            BLANK WHEN ZERO 
                            PROMPT CHARACTER IS " ". 
      * 
       01 SCREEN-3. 
              03 LINE 14 COL 2. 
              03 OCCURS 10 TIMES. 
                     05 "*" PIC X. 
      * 
       PROCEDURE DIVISION. 
       MAIN-LOGIC. 
              DISPLAY SCREEN-1. 
              ACCEPT SCREEN-1. 

              DiSPLAY SCREEN-2. 
              ACCEPT SCREEN-2. 

              DISPLAY SCREEN-3. 
              ACCEPT WS-DUMMY LINE 14 COL 25. 
              STOP RUN.