H DFTNAME(TESTLEN) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F********** %LEN の使用方法 *******************************************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      *( 作業変数 )                                                                                 
     D AR              S              1A   DIM(256)                                                 
     D LEN             S              4S 0                                                          
     D MSG             S             80                                                             
     D DSP40           S             40                                                             
                                                                                                    
     C                   MOVEL(P)  ' 電卓 '      MSG                                                
      /FREE                                                                                         
         LEN = %LEN(%TRIMR(MSG));                                                                   
         DSP40 = ' 電卓の長さは ' + %CHAR(LEN) +' 桁です ';                                         
      /END-FREE                                                                                     
     C     DSP40         DSPLY                   ANS               1                                
     C                   SETON                                        LR                            
     C                   RETURN