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

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.