AS400 CLP Konversi Decimal ke Character

Konversi nilai dari suatu variabel decimal ke character terbilang sederhana. Cara sederhananya saya misalkan dengan menampilkan nilai suatu integer menggunakan SNDPGMMSG. Command SNDPGMMSG hanya bisa menampilkan value dari variabel *CHAR, perlu dilakukan konversi dari *DEC ke *CHAR. Baiknya, CLP dapat secara otomatis melakukan konversi hanya dengan menggunakan command CHGVAR (Change Variable).

PGM                                                         
/* DECLARE 2 VAR, CHARACTER AND DECIMAL */                  
/* DEFINE VALUE &DEC = 1 */                                 
             DCL        VAR(&DEC) TYPE(*DEC) LEN(2) VALUE(1)
             DCL        VAR(&OUTPUT) TYPE(*CHAR) LEN(2)     
                                                            
/* CONVERT FROM INT TO CHAR */                              
/* SET VALUE &OUTPUT FROM &DEC VALUE */                     
             CHGVAR     VAR(&OUTPUT) VALUE(&DEC)            
                                                            
/* SHOW THE VALUE */                                        
             SNDPGMMSG  MSG(&OUTPUT)                        
                                                            
ENDPGM                                                      

Compile and jalankan program.

Tinggalkan Balasan