80 lines
1.3 KiB
COBOL
80 lines
1.3 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TEST16.
|
|
|
|
ENVIRONMENT DIVISION.
|
|
|
|
CONFIGURATION SECTION.
|
|
SPECIAL-NAMES.
|
|
DECIMAL-POINT IS COMMA.
|
|
* INPUT-OUTPUT SECTION.
|
|
* FILE-CONTROL.
|
|
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 I PIC 9(5).
|
|
01 J PIC 9(5).
|
|
01 IA.
|
|
03 IAX
|
|
OCCURS 5 TIMES PIC 9(5).
|
|
01 TBL.
|
|
03 TBLX
|
|
OCCURS 5 TIMES PIC 9(5).
|
|
|
|
PROCEDURE DIVISION.
|
|
|
|
PERFORM A-100.
|
|
PERFORM A-200 VARYING I FROM 1 BY 1 UNTIL I = 5.
|
|
STOP RUN.
|
|
|
|
|
|
A-100.
|
|
|
|
DISPLAY "ENTER A-100".
|
|
|
|
MOVE 2 TO IAX ( 2 ).
|
|
MOVE 3 TO I.
|
|
MOVE 123 TO J.
|
|
MOVE 123 TO TBLX ( I ).
|
|
IF TBLX ( I ) EQUAL J
|
|
DISPLAY "EQUALITY FOUND"
|
|
ELSE
|
|
DISPLAY "SOMETHING IS WRONG".
|
|
|
|
DISPLAY "TBLX ( I ) = " TBLX ( I ) " , J = " J.
|
|
|
|
DISPLAY "EXIT A-100".
|
|
|
|
A-200.
|
|
|
|
DISPLAY "ENTER A-200".
|
|
|
|
DISPLAY "A-200 I=" I.
|
|
GO TO A-310 A-320 A-330 DEPENDING ON I.
|
|
|
|
DISPLAY "EXIT A-200".
|
|
|
|
A-310.
|
|
|
|
DISPLAY "ENTER A-310".
|
|
DISPLAY "A-310 I=" I.
|
|
DISPLAY "EXIT A-310".
|
|
EXIT.
|
|
|
|
A-320.
|
|
|
|
DISPLAY "ENTER A-320".
|
|
DISPLAY "A-320 I=" I.
|
|
DISPLAY "EXIT A-320".
|
|
EXIT.
|
|
|
|
A-330.
|
|
|
|
DISPLAY "ENTER A-330".
|
|
DISPLAY "A-330 I=" I.
|
|
DISPLAY "EXIT A-330".
|
|
EXIT.
|
|
|
|
|