67 lines
2.0 KiB
COBOL
67 lines
2.0 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TestVariable.
|
|
AUTHOR. Rildo Pragana.
|
|
DATE-WRITTEN. November 23, 1999.
|
|
* REMARKS. Exercising the STRING statement.
|
|
*
|
|
ENVIRONMENT DIVISION.
|
|
|
|
DATA DIVISION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 VARIABLES.
|
|
03 VAR1 PIC X(4) VALUE "AAAA".
|
|
03 VAR2 PIC X(8) VALUE "BBBXABBB".
|
|
03 VAR3 PIC X(3) value spaces.
|
|
03 VAR4 PIC X(5) value spaces.
|
|
03 STRVAR PIC X(36) VALUE "abcdefghijklmnopqrstuvwxyz".
|
|
03 TALLY PIC 9(2) value zeroes.
|
|
03 CNT1 PIC 9(5) value zeros.
|
|
03 CNT2 PIC 9(6) value zeros.
|
|
03 CNT3 PIC 9(6) value zeros.
|
|
03 CNT4 PIC 9(6) value zeros.
|
|
03 PTR pic 9(7).
|
|
03 DLM1 pic X(10) value spaces.
|
|
03 DLM2 pic X(10) value spaces.
|
|
03 DLM3 pic X(10) value spaces.
|
|
03 DLM4 pic X(10) value spaces.
|
|
|
|
PROCEDURE DIVISION.
|
|
move 2 to PTR
|
|
move "abcde-x-x-xfghi jklm.nopqrstuvwxyz" TO STRVAR.
|
|
display "Before VAR1 = [" VAR1 "]"
|
|
display "Before VAR2 = [" VAR2 "]"
|
|
display "Before VAR3 = [" VAR3 "]"
|
|
display "Before VAR4 = [" VAR4 "]"
|
|
unstring STRVAR
|
|
delimited by "."
|
|
or all "-x"
|
|
or all spaces
|
|
into
|
|
VAR1
|
|
delimiter in DLM1
|
|
count in CNT1
|
|
VAR2
|
|
VAR3
|
|
delimiter in DLM3
|
|
VAR4
|
|
delimiter in DLM4
|
|
count in CNT4
|
|
with pointer PTR
|
|
tallying in TALLY
|
|
on overflow
|
|
display "***** unstring operation overflow *****"
|
|
not on overflow
|
|
display "unstring successful"
|
|
.
|
|
display "VAR1 = [" VAR1 "], CNT1 = [" CNT1 "] DLM1 = [" DLM1 "]"
|
|
display "VAR2 = [" VAR2 "]"
|
|
display "VAR3 = [" VAR3 "], DLM3 = [" DLM3 "]"
|
|
display "VAR4 = [" VAR4 "], CNT4 = [" CNT4 "] DLM4 = [" DLM4 "]"
|
|
* display "VAR4 = [" VAR4 "], CNT4 = [" CNT4 "]"
|
|
display "TALLY = [" TALLY "]".
|
|
end-pgm.
|
|
stop run
|
|
.
|
|
|