H DFTNAME(TESTTRIM) DATEDIT(*YMD/)                                                             
     F********** %TRIM による先行ゼロの消去 ********************************                        
     F*                                                                                             
     F**********************************************************************                        
     D DSP05           S              5A   INZ('00128')                                             
     D DSP40           S             40A                                                            
     C                   EVAL      DSP40 = 'DSP05 =' + %TRIM(DSP05:'0')                             
     C     DSP40         DSPLY                   ANS               1                                
     C                   SETON                                        LR                            
     C                   RETURN