47 lines
1.6 KiB
COBOL
47 lines
1.6 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. THS_EXAMPLE.
|
|
|
|
ENVIRONMENT DIVISION.
|
|
|
|
DATA DIVISION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 300-ACTIVE-SPACES VALUE SPACES.
|
|
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.
|
|
|
|
01 INIT-SCREEN.
|
|
05 BLANK SCREEN.
|
|
05 LINE 01 COLUMN 01 VALUE IS '**************************************************************************************'.
|
|
05 LINE 02 COLUMN 01 VALUE IS '* Programmname (c) Dr. Thomas Sindt 2026 *'.
|
|
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.
|
|
100-MAIN-MODULE.
|
|
DISPLAY INIT-SCREEN.
|
|
ACCEPT 300-MAIL-ADDRESS AT 1010.
|
|
|
|
STOP RUN.
|
|
|
|
|