Penggabungan (concatenating) dua buah variable character pada AS400 CLP dapat menggunakan CAT, TCAT atau BCAT. Berikut detailnya:
- CAT – menggabungkan 2 string sesuai dengan panjang variabel (as is).
- TCAT – menggabungkan 2 string dengan mengabaikan panjang variabel dan menghapus trailing blank pada variabel pertama.
- BCAT – menggabungkan 2 string dengan mengabaikan panjang character, menghapus trailing blank pada variabel pertama dan menambahkan spasi antara dua variabel.
PGM
DCL VAR(&CHAR1) TYPE(*CHAR) LEN(10) VALUE('SAUL ')
DCL VAR(&CHAR2) TYPE(*CHAR) LEN(10) +
VALUE('LIMBONG ')
DCL VAR(&CAT) TYPE(*CHAR) LEN(20)
DCL VAR(&TCAT) TYPE(*CHAR) LEN(20)
DCL VAR(&BCAT) TYPE(*CHAR) LEN(20)
CHGVAR VAR(&CAT) VALUE(&CHAR1 *CAT &CHAR2)
CHGVAR VAR(&TCAT) VALUE(&CHAR1 *TCAT &CHAR2)
CHGVAR VAR(&BCAT) VALUE(&CHAR1 *BCAT &CHAR2)
SNDPGMMSG MSG('Using CAT :')
SNDPGMMSG MSG(&CAT)
SNDPGMMSG MSG('Using TCAT :')
SNDPGMMSG MSG(&TCAT)
SNDPGMMSG MSG('Using BCAT :')
SNDPGMMSG MSG(&BCAT)
ENDPGM

Compile dan jalankan program.
