You are currently viewing Fungsi IF-ELSE pada CLP AS400

Fungsi IF-ELSE pada CLP AS400

IF-ELSE atau IF pada AS400 tidak berbeda dengan bahasa pemrograman lainnya. Berikut penggunaan fungsi IF-ELSE pada AS400:

PGM                                                                 
             DCL        VAR(&DATA1) TYPE(*DEC) LEN(1) VALUE(1)      
             DCL        VAR(&DATA2) TYPE(*CHAR) LEN(5) VALUE('YES') 
                                                                    
/* IF USING DECIMAL VARIABLE */                                     
             IF         COND(&DATA1 = 1) THEN(SNDPGMMSG MSG('Value +
                          match'))                                  
             ELSE       CMD(SNDPGMMSG MSG('Value not match'))       
                                                                    
/* IF USING CHARACTER VARIABLE */                                   
             IF         COND(&DATA2 = 'YES') THEN(SNDPGMMSG +       
                          MSG('VALUE YES'))                         
             ELSE       CMD(SNDPGMMSG MSG('VALUE NOT YES'))         
                                                                    
/* IF USING CHARACTER - RETURN FALSE */                             
             IF         COND(&DATA2 = 'NO') THEN(SNDPGMMSG +        
                          MSG('VALUE YES'))                         
             ELSE       CMD(SNDPGMMSG MSG('FALSE VALUE'))           
ENDPGM                                                              

Compile dan jalankan program.

Tinggalkan Balasan