The *CAT operator concatenates two character strings
operator symbol is ||
EXAMPLE1:
CHGVAR VAR(&C) VALUE('RAM' *CAT 'ESH')
output
RAMESH
EAMPLE2;
CHGVAR VAR(&C) VALUE('RAM ' *CAT 'ESH')
OUTPUT
RAM ESH ( 2 SPACES AFTER RAM)
Example:
0001.00 PGM
0002.00 DCL VAR(&A) TYPE(*CHAR) LEN(10) VALUE('ramesh')
0003.00 DCL VAR(&B) TYPE(*CHAR) LEN(10) VALUE('CHANDANA')
0004.00 DCL VAR(&C) TYPE(*CHAR) LEN(20)
0005.00 CHGVAR VAR(&C) VALUE(&a *cat &b)
0006.00 SNDUSRMSG &C
0007.00 ENDPGM
OutPUT
Job 418467/CHVRAMESH/QPADEV0024 changed by JOBMANAGER.
ramesh CHANDANA
_________USING OPERATOR SYMBOL __________________
0001.00 PGM
0002.00 DCL VAR(&A) TYPE(*CHAR) LEN(10) VALUE('ramesh')
0003.00 DCL VAR(&B) TYPE(*CHAR) LEN(10) VALUE('CHANDANA')
0004.00 DCL VAR(&C) TYPE(*CHAR) LEN(20)
0005.00 CHGVAR VAR(&C) VALUE(&a *cat &b)
0006.00 SNDUSRMSG &C
0007.00 CHGVAR VAR(&C) VALUE(' RAM ' || ' ESH ')
0008.00 SNDUSRMSG &C
0009.00 ENDPGM
