RE: /FREE calculations help

d parm1           s             10a   dim(100) varying             
d text            s             55a   varying                      
d i               s              5i 0                              
                                                                   
 /free                                                             
   for i = 1 to 45;                                                
     parm1(i) = %trim( 'abcdefg   ' );                             
   endfor;                                                         
                                                                   
   for i = 1 to 100;                                               
     if parm1(i) <> *blanks;                                       
       if text = *blanks;                                          
         text = parm1(i);                                          
       else;                                                       
         text = text + ', ' + parm1(i);                            
       endif;                                                      
                                                                   
       if %len( text ) >= 55;                                      
         leave;                                                    
       endif;                                                      
     endif;                                                        
                                                                   
   endfor;                                                         

   *inlr = *on;           
 /end-free