*BCAT in as400

*BCAT 

 

 

                     *Concatenation with blank insertion,

 

 

It truncate all trailing blanks in first string .

but one blank is inserted.

 

 

oprator symbol     |>

 

 

0001.00 PGM                                                       
0002.00              DCL        VAR(&C) TYPE(*CHAR) LEN(20)       
0003.00              CHGVAR     VAR(&C) VALUE('    RAM    ' |> 'ESH')
0004.00              SNDUSRMSG  MSG(&C)                           
0005.00 ENDPGM                                       

 

OUTPUT

 

  RAM ESH     (one space between ram and esh)