65 lines
2.0 KiB
COBOL
65 lines
2.0 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TestVariable.
|
|
AUTHOR. Rildo Pragana.
|
|
DATE-WRITTEN. November 13, 1999.
|
|
* REMARKS.
|
|
* This is to exercise variables, specially
|
|
* qualifying as in: var of parentvar of grandparentvar ...
|
|
*
|
|
ENVIRONMENT DIVISION.
|
|
DATA DIVISION.
|
|
*
|
|
WORKING-STORAGE SECTION.
|
|
|
|
01 ARRAY-VAR VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
|
|
03 ARRAY-1 OCCURS 3.
|
|
05 ARRAY-2 OCCURS 2.
|
|
15 ITEM PIC X.
|
|
15 ITEM2 PIC XX.
|
|
05 ARRAY-2A OCCURS 5.
|
|
15 ITEM PIC X.
|
|
03 ARRAY-3.
|
|
05 ARRAY-4 OCCURS 4.
|
|
10 ARRAY-5 OCCURS 5.
|
|
15 ARRAY-6 OCCURS 3.
|
|
20 V PIC X.
|
|
03 REDEFINED REDEFINES ARRAY-3 PIC X(60).
|
|
01 I PIC 99 VALUE 2.
|
|
01 J PIC 99 VALUE 3.
|
|
01 K PIC 99 VALUE 4.
|
|
|
|
PROCEDURE DIVISION.
|
|
|
|
MOVE "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-1234567890"
|
|
TO ARRAY-3.
|
|
PERFORM 100-TEST VARYING I FROM 1 BY 1 UNTIL I > 4.
|
|
* PERFORM 200-TEST
|
|
DISPLAY "REDEFINED variable: " REDEFINED
|
|
STOP RUN.
|
|
100-TEST.
|
|
PERFORM 110-TEST VARYING J FROM 1 BY 1 UNTIL J > 5.
|
|
110-TEST.
|
|
PERFORM 120-TEST VARYING K FROM 1 BY 1 UNTIL K > 3.
|
|
120-TEST.
|
|
DISPLAY "V (" I ", " J ", " K ") = " V (I, J, K)
|
|
|
|
200-TEST.
|
|
DISPLAY "ARRAY-1 (1):" ARRAY-1 (1)
|
|
Display ARRAY-2A (1)
|
|
DISPLAY "ITEM (1, 1) = " ITEM OF ARRAY-2A (1, 1)
|
|
DISPLAY "ITEM (1, 1) = " ITEM OF ARRAY-2 (1, 1)
|
|
DISPLAY "ITEM2 (1, 1) = " ITEM2 (1, 1)
|
|
DISPLAY "ITEM OF ARRAY-2 (1 2) = " ITEM (1, 2)
|
|
DISPLAY "ITEM2 (1, 2) = " ITEM2 (1, 2)
|
|
DISPLAY "ITEM OF ARRAY-2 (2, 1) = " ITEM (2, 1)
|
|
DISPLAY "ITEM2 (2, 1) = " ITEM2 (2, 1)
|
|
DISPLAY "ITEM OF ARRAY-2 (2, 2) = " ITEM (2, 2)
|
|
DISPLAY "ITEM2 (2, 2) = " ITEM2 (2, 2)
|
|
DISPLAY "ITEM OF ARRAY-2 (3, 1) = " ITEM (3, 1)
|
|
DISPLAY "ITEM2 (3, 2) = " ITEM2 (3, 2)
|
|
|
|
display "ARRAY-VAR = " ARRAY-VAR
|
|
MOVE SPACES to ITEM ( 1, 3)
|
|
DISPLAY ARRAY-VAR
|
|
|