Free software training Videos

Free software training Videos

List Of Best WebSites

Friday, 23 November 2012

*BCAT in as400

                     *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                                       
  RAM ESH     (one space between ram and esh)         

No comments:

Post a Comment