Variable pada CLP AS400

Variable pada penulisan pemrograman CLP AS400 diawali dengan tanda ‘&’ dan dideclare pada awal program. Variable memiliki 6 buah tipe diantaranya: Decimal (*DEC), Character (*CHAR), Logical (*LGL), Integer (*INT), Unsigned Integer (*UINT) dan Pointer (*PTR).

Contoh, saya akan membuat variable ber tipe *CHAR. Command CHGVAR digunakan untuk merubah value variable.

PGM                                                                  
/* DECLARE VARIABLE VAR1 WITH TYPE CHAR, LENGTH 100 AND INIT VALUE */
             DCL        VAR(&VAR1) TYPE(*CHAR) LEN(100) +            
                          VALUE('Intial Value')                      
                                                                     
/* SEND PROGRAM MSG VALUE VAR1 */                                    
             SNDPGMMSG  MSG(&VAR1)                                   
                                                                     
/* CHANGE VALUE VAR1 */                                              
             CHGVAR     VAR(&VAR1) VALUE('Hello World!')             
                                                                     
/* SEND PROGRAM MSG NEW VALUE VAR1 */                                
             SNDPGMMSG  MSG(&VAR1)                                   
                                                                     
ENDPGM                                                               

Compile dan jalankan program:

Tinggalkan Balasan