PGM                                                                
/*---------------------------------------------------------*/                   
/*   TESTBIN  :   先行ゼロ消去                             */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&POS_BIN) TYPE(*CHAR) LEN(4)                        
             DCL        VAR(&POS) TYPE(*DEC) LEN(5 0) VALUE(3)                  
             DCL        VAR(&CHAR5) TYPE(*CHAR) LEN(5)                          
                                                                                
             CHGVAR     VAR(%BIN(&POS_BIN)) VALUE(&POS)                         
             CHGVAR     VAR(&CHAR5) VALUE(%BIN(&POS_BIN))                       
             /*---------------------------------------------*/                  
             /*    &CHAR5 には '00003' が入っている         */                  
             /*---------------------------------------------*/                  
 ZERO_SUP:   IF         COND(%SST(&CHAR5 1 1) *EQ '0') THEN(DO)                 
             CHGVAR     VAR(&CHAR5) VALUE(%SST(&CHAR5 2 4))                     
             GOTO       ZERO_SUP                                                
             ENDDO                                                              
             SNDPGMMSG  MSG(&CHAR5 *TCAT +                                      
                          ' 個のオブジェクトが見つかりました。 ') +             
                          MSGTYPE(*DIAG)                                        
             RETURN                                                             
                                                                                
             ENDPGM