21 lines
604 B
COBOL
21 lines
604 B
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. test28.
|
|
ENVIRONMENT DIVISION.
|
|
CONFIGURATION SECTION.
|
|
* INPUT-OUTPUT SECTION.
|
|
* FILE-CONTROL.
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
WORKING-STORAGE SECTION.
|
|
77 STR1 pic X(40) value "first address change ABCDEFGHIJKLMNOPQRS".
|
|
77 STR2 pic X(40) value "second address change 123456789012345678".
|
|
77 TMP pic X(40) value "A regular string".
|
|
77 WS-PTR1 USAGE POINTER.
|
|
77 WS-PTR2 USAGE POINTER.
|
|
|
|
PROCEDURE DIVISION.
|
|
set WS-PTR1 to address of STR1.
|
|
set WS-PTR2 to address of STR2.
|
|
call "test28a" using WS-PTR1 WS-PTR2 TMP.
|
|
stop run.
|