PGM                                                                
             DCL        VAR(&BIN4) TYPE(*CHAR) LEN(4) +                         
                          VALUE(X'00000000')                                    
             DCL        VAR(&DEC08) TYPE(*DEC) LEN(8 0)                         
                                                                                
        /* 10 進数の 256 を 2 進数に変換 */                                     
             CHGVAR     VAR(&DEC08) VALUE(256)                                  
             CHGVAR     VAR(%BIN(&BIN4)) VALUE(&DEC08)                          
        /*  2 進数の 256 を 2 進数に変換 */                                     
             CHGVAR     VAR(&DEC08) VALUE(%BIN(&BIN04))                         
             ENDPGM