51 lines
1.2 KiB
COBOL
51 lines
1.2 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 all "ABC".
|
|
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.
|
|
01 SOME-VALUES.
|
|
03 V1 PIC 9(3)V99.
|
|
03 V2 PIC X(30).
|
|
03 A1 pic A(01).
|
|
03 X6 pic X(06).
|
|
* 03 N1 usage is computational-3 pic 9(5)V9(3) value 123.45.
|
|
|
|
PROCEDURE DIVISION.
|
|
|
|
move "35" to V1.
|
|
display "35 -> 9(3)V99 ==>" V1 "<"
|
|
stop run.
|
|
|
|
DISPLAY "ARRAY-1 is " ARRAY-1
|
|
MOVE "ABC" to V2
|
|
display "'" V2 "'"
|
|
MOVE HIGH-VALUES TO V1
|
|
DISPLAY V1
|
|
move all quotes to V2
|
|
display V2
|
|
move all "acbdef" to V2
|
|
display V2
|
|
move spaces to V2
|
|
display V2
|
|
* move low-values to V2
|
|
display V2
|
|
* move all "-" to V2
|
|
display V2
|
|
stop run
|
|
.
|