tsindt/cobol
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

examples

Browse Source
This commit is contained in:
Thomas Sindt
2026-07-02 23:36:33 +02:00
parent a5d48999f9
commit cad06ce061
3 changed files with 52 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
ths_example/example Executable file
View File

Binary file not shown.

11
ths_example/example.cbl
View File

@@ -16,12 +16,9 @@
SCREEN SECTION.
01 INIT-SCREEN.
05 BLANK SCREEN BACKGROUND-COLOR 3 FOREGROUND-COLOR 1.
05 LINE 1 COLUMN 1 VALUE IS
'*******************************************'
05 LINE 1 COLUMN 40 VALUE IS
'****************************************'
05 BLANK SCREEN.
05 LINE 1 COLUMN 1 REVERSE-VIDEO VALUE IS '*******************************************'.
05 LINE 1 COLUMN 40 VALUE IS '*******************************************'.
01 INPUT-SCREEN AUTO.
@@ -42,6 +39,8 @@
PROCEDURE DIVISION.
100-MAIN-MODULE.
DISPLAY INIT-SCREEN.
ACCEPT 300-MAIL-ADDRESS AT 1010.
STOP RUN.

47
ths_example/scr_demo.cbl Normal file
View File

@@ -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.