H DFTNAME(TESTLEN) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F********** 効果的な組込み関数 %LEN の使い方 **************************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTBNDRPG PGM(OBJLIB/TESTLEN) SRCFILE(SRCLIB/QRPGLESRC) DFTACTGRP(*NO)                      
      * ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)                                                     
                                                                                                    
     D WPERROR         DS                                                                           
     D  EBYTESP                1      4B 0 INZ(%SIZE(EDATA))                                        
                                                                                                    
     D  EBYTESA                5      8B 0                                                          
     D  EMSGID                 9     15                                                             
     D  ERESERVED             16     16                                                             
     D  EDATA                 17     56                                                             
                                                                                                    
     D WRTDTA          S            132A                                                            
     D WRTDTALEN       S              9B 0                                                          
     D CRLF            C                   CONST(X'15')                                             
                                                                                                    
     C                   EVAL      WRTDTA = %TRIM(WRTDTA) + X'15'                                   
     C                   EVAL      WRTDTALEN = %LEN(%TRIM(WRTDTA))                                  
      /FREE                                                                                         
              WRTDTA = %TRIM(WRTDTA) + CRLF;                                                        
              WRTDTALEN = %LEN(%TRIM(WRTDTA));                                                      
      /END-FREE                                                                                     
     C                   SETON                                        LR                            
     C                   RETURN