H DFTNAME(TESTBIN) DATEDIT(*YMD/)                                                              
     F******** TESTBIN :  先行ゼロの消去 ******************************                             
     F*                                                                                             
     F*  CRTBNDRPG TESTBIN  DFTACTGRP(*NO) ACTGRP(*NEW)                                             
     F*                                                                                             
     F*****************************************************************                             
     D SURYO           S              5S 0 INZ(5)                                                   
     D FLD5            S              5A                                                            
     C                   MOVE      SURYO         FLD5                                               
     C                   DOW       %SUBST(FLD5:1:1) = '0'                                           
     C                   EVAL      FLD5 = %SUBST(FLD5:2:4)                                          
     C                   ENDDO                                                                      
     C     ' 数量 ='     CAT(P)    FLD5:0        DSP40            40                                
     C     DSP40         DSPLY                   ANS               1                                
     C                   RETURN                                                                     
     C                   SETON                                        LR