Friday, 23 November 2012

*tcat in as400


*TCAT 
 
 
(concatenation with trailing blank truncation,)
 
 
symbol    operator  |<
TRUNCATED THE ALL TRAILING SPACES.
NO SPACE IS INCLUDED







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

RAMESH


WHAT IS OUT PUT FOR THIS PROGRAM

FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
       *************** Beginning of data ************************************
001.00 PGM                                                                  
002.00              DCL        VAR(&A) TYPE(*CHAR) LEN(30) VALUE('WELCOME + 
003.00                           TO AS400')                                 
004.00              DCL        VAR(&B) TYPE(*CHAR) LEN(30) VALUE('WELCOME + 
005.00                           TO JAVA')                                  
006.00              DCL        VAR(&C) TYPE(*CHAR) LEN(60)                  
007.00              CHGVAR     VAR(&C) VALUE(%SST(&A 1 16) *CAT (%SST(&B 12 +
008.00                           4)))                                       
009.00              SNDUSRMSG  MSG(&C)                                      
010.00 ENDPGM                                                               
       ****************** End of data ***************************************

No comments:

Post a Comment