examples

2026-07-02 23:36:33 +02:00
parent a5d48999f9
commit cad06ce061
3 changed files with 52 additions and 6 deletions
--- a/ths_example/scr_demo.cbl
+++ b/ths_example/scr_demo.cbl
@@ -0,0 +1,47 @@
+       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.
+