74 lines
1.2 KiB
COBOL
74 lines
1.2 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TEST15h.
|
|
AUTHOR. David Essex.
|
|
INSTALLATION. Tiny Cobol Compiler Project.
|
|
ENVIRONMENT DIVISION.
|
|
CONFIGURATION SECTION.
|
|
* INPUT-OUTPUT SECTION.
|
|
* FILE-CONTROL.
|
|
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
|
|
01 WS-C1 PIC 9(1).
|
|
01 WS-C2 PIC X(3).
|
|
01 WS-C3 PIC X(7).
|
|
|
|
LINKAGE SECTION.
|
|
|
|
01 C1 PIC 9(1).
|
|
01 C2 PIC X(3).
|
|
01 C3 PIC X(7).
|
|
|
|
PROCEDURE DIVISION USING C1 C2 C3.
|
|
|
|
|
|
MOVE C1 TO WS-C1.
|
|
|
|
IF WS-C1 = 0
|
|
THEN
|
|
PERFORM A-900
|
|
* MOVE ZEROS TO WS-C2 WS-C3
|
|
ELSE
|
|
IF WS-C1 = 1
|
|
THEN
|
|
PERFORM A-100
|
|
* MOVE WS-C3 TO C3
|
|
* MOVE C2 TO WS-C3
|
|
ELSE
|
|
PERFORM A-200
|
|
* DISPLAY "INVALID SELECTION = " WS-C1
|
|
END-IF
|
|
END-IF.
|
|
|
|
EXIT PROGRAM.
|
|
|
|
A-100.
|
|
|
|
DISPLAY "ENTER A-100".
|
|
PERFORM A-700.
|
|
* MOVE WS-C3 TO C3.
|
|
* MOVE C2 TO WS-C3.
|
|
DISPLAY "EXIT A-100".
|
|
|
|
A-200.
|
|
|
|
DISPLAY "ENTER A-200".
|
|
DISPLAY "INVALID SELECTION = " WS-C1
|
|
DISPLAY "EXIT A-200".
|
|
|
|
A-700.
|
|
|
|
DISPLAY "ENTER A-700".
|
|
MOVE WS-C3 TO C3.
|
|
MOVE C2 TO WS-C3.
|
|
DISPLAY "EXIT A-700".
|
|
|
|
A-900.
|
|
|
|
DISPLAY "ENTER A-900".
|
|
MOVE ZEROS TO WS-C2 WS-C3.
|
|
DISPLAY "EXIT A-900".
|