Free software training Videos

Free software training Videos
https://www.youtube.com/user/VLRTraining

List Of Best WebSites

Friday 23 November 2012

*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)         

No comments:

Post a Comment