You are currently viewing AS400 CLP Menggunakan CAT/TCAT/BCAT

AS400 CLP Menggunakan CAT/TCAT/BCAT

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.

Tinggalkan Balasan