48 lines
1.4 KiB
COBOL
48 lines
1.4 KiB
COBOL
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.
|
|
|