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

aufräumen

Browse Source
This commit is contained in:
Thomas Sindt
2026-07-05 20:53:54 +02:00
parent aaa1062859
commit 26d2ab415d
2 changed files with 2 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
ths_example/example
View File

Binary file not shown.

24
ths_example/example.cbl
View File

@@ -6,13 +6,7 @@
DATA DIVISION. DATA DIVISION.
WORKING-STORAGE SECTION. WORKING-STORAGE SECTION.
01 300-ACTIVE-SPACES VALUE SPACES. 01 300-DUMMY PIC X.
05 300-COMPANY-NAME PIC X(30).
05 300-LAST-NAME PIC X(25).
05 300-FIRST-NAME PIC X(15).
05 300-MAIL-ADDRESS PIC X(30).
SCREEN SECTION. SCREEN SECTION.
01 INIT-SCREEN. 01 INIT-SCREEN.
@@ -21,25 +15,11 @@
05 LINE 02 COLUMN 01 VALUE IS '* Programmname (c) Dr. Thomas Sindt 2026 *'. 05 LINE 02 COLUMN 01 VALUE IS '* Programmname (c) Dr. Thomas Sindt 2026 *'.
05 LINE 03 COLUMN 01 VALUE IS '**************************************************************************************'. 05 LINE 03 COLUMN 01 VALUE IS '**************************************************************************************'.
01 INPUT-SCREEN AUTO.
05 BACKGROUND-COLOR 6 FOREGROUND-COLOR 5.
05 LINE 6 COLUMN 22 VALUE IS 'COMPANY: '.
05 COMPANY-NAME REVERSE-VIDEO PIC X(30)
USING 300-COMPANY-NAME.
05 LINE 7 COLUMN 20 VALUE IS 'LAST NAME: '.
05 LAST-NAME REVERSE-VIDEO PIC X(25) USING 300-LAST-NAME.
05 LINE 8 COLUMN 19 VALUE IS 'FIRST NAME: '.
05 FIRST-NAME REVERSE-VIDEO PIC X(15)
USING 300-FIRST-NAME.
05 LINE 9 COLUMN 22 VALUE IS 'ADDRESS: '.
05 MAIL-ADDRESS REVERSE-VIDEO PIC X(30)
USING 300-MAIL-ADDRESS.
PROCEDURE DIVISION. PROCEDURE DIVISION.
100-MAIN-MODULE. 100-MAIN-MODULE.
DISPLAY INIT-SCREEN. DISPLAY INIT-SCREEN.
ACCEPT 300-MAIL-ADDRESS AT 1010. ACCEPT 300-DUMMY AT 1010.
STOP RUN. STOP RUN.