84 lines
2.0 KiB
COBOL
84 lines
2.0 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TEST05f.
|
|
ENVIRONMENT DIVISION.
|
|
CONFIGURATION SECTION.
|
|
* INPUT-OUTPUT SECTION.
|
|
* FILE-CONTROL.
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 WS-WHOLE-NAME PIC X(15) VALUE 'WHOLE NAME'.
|
|
01 WS-LAST-NAME PIC X(15) VALUE ALL '$'.
|
|
|
|
PROCEDURE DIVISION.
|
|
|
|
S-000 SECTION.
|
|
|
|
DISPLAY "ENTER: PERFORM S-100 SECTION".
|
|
PERFORM S-100.
|
|
DISPLAY "EXIT : PERFORM S-100 SECTION".
|
|
DISPLAY "ENTER: PERFORM S-200 SECTION".
|
|
PERFORM S-200.
|
|
DISPLAY "EXIT : PERFORM S-200 SECTION".
|
|
DISPLAY "ENTER: PERFORM A-100 OF S-200".
|
|
PERFORM A-100 OF S-200.
|
|
DISPLAY "EXIT : PERFORM A-100 OF S-200".
|
|
DISPLAY "ENTER: PERFORM A-100 OF S-100".
|
|
PERFORM A-100 OF S-100.
|
|
DISPLAY "EXIT : PERFORM A-100 OF S-100".
|
|
DISPLAY "ENTER: PERFORM D-000".
|
|
PERFORM D-000.
|
|
DISPLAY "EXIT : PERFORM D-000".
|
|
DISPLAY "ENTER: PERFORM S-100 THRU S-200 SECTION".
|
|
PERFORM S-100 THRU S-200.
|
|
DISPLAY "EXIT : PERFORM S-100 THRU S-200 SECTION".
|
|
STOP RUN.
|
|
|
|
S-100 SECTION.
|
|
|
|
A-000.
|
|
DISPLAY "ENTER A-000 OF S-100 SECTION".
|
|
DISPLAY "EXIT A-000 OF S-100 SECTION".
|
|
|
|
A-100.
|
|
DISPLAY "ENTER A-100 OF S-100 SECTION".
|
|
DISPLAY "EXIT A-100 OF S-100 SECTION".
|
|
|
|
B-300.
|
|
DISPLAY "ENTER B-300 OF S-100 SECTION".
|
|
DISPLAY "EXIT B-300 OF S-100 SECTION".
|
|
|
|
S-200 SECTION.
|
|
|
|
A-000.
|
|
DISPLAY "ENTER A-000 OF S-200 SECTION".
|
|
DISPLAY "EXIT A-000 OF S-200 SECTION".
|
|
|
|
A-100.
|
|
DISPLAY "ENTER A-100 OF S-200 SECTION".
|
|
DISPLAY "EXIT A-100 OF S-200 SECTION".
|
|
|
|
* EXIT.
|
|
|
|
B-400.
|
|
DISPLAY "ENTER B-400 OF S-200 SECTION".
|
|
DISPLAY "EXIT B-400 OF S-200 SECTION".
|
|
|
|
S-300 SECTION.
|
|
|
|
D-000.
|
|
DISPLAY "ENTER D-000 OF S-300 SECTION".
|
|
DISPLAY "EXIT D-000 OF S-300 SECTION".
|
|
|
|
D-100.
|
|
DISPLAY "ENTER D-100 OF S-300 SECTION".
|
|
DISPLAY "EXIT D-100 OF S-300 SECTION".
|
|
|
|
EXIT.
|
|
|
|
D-200.
|
|
DISPLAY "ENTER D-200 OF S-300 SECTION".
|
|
DISPLAY "EXIT D-200 OF S-300 SECTION".
|
|
|