Re: /FREE calculations help

[Marco Facchinetti <facchinetti@xxxxxxxxx>]

This pass the compiler but I don't know if is what you
want:

d parm1           s             10    dim(100)      
d p               s              6  0               
d x               s              6  0               
d sep             c                   const(', ')   
d text            s             55                  
 /free                                              
  eval x=1;                                         
  clear text;                                       
   for p=1 to %elem(parm1);                         
    if parm1(p)=*blanks;                            
     leave;                                         
    endif;                                          
    eval %subst(text:x)=parm1(p);                   
    eval x+=%len(parm1(p));                         
    eval %subst(text:x)=sep;                        
    eval x+=%len(sep);                              
    if x+%len(parm1(p))+%len(sep)>%len(text);       
     eval x=1;                                      
     // do something with TEXT....
     clear text;                                    
    endif;                               
   endfor;                               
 /end-free                               
c                   eval      *inlr=*on  
--- fkany@xxxxxxxxxxxxxxxxxx wrote:
> 
> I have a parameter field being passed into an RPGLE
> program:
> ==================================
> D Parm1                S             10A   DIM(100)
> ==================================
> 
> If any element of the array is populated, I would like to
> fill as much of
> each subfile field(55 characters long) on the screen as
> possible.  How
> would you
> handle this processing.  We're running V5R1.  I'm trying
> to use /FREE
> format to code this.
> 
> I got about this far and ran out of ideas:
> ==================================
> 
>             // Populate Text Fields
>             P = 0;
>             DOU P = 100;
>             P = P + 1;
>                        IF Parm1(P) <> *BLANKS;
>                        #TEXT = Parm1(P) + ', ';
>                          ENDIF;
>              ENDDO;
> 
> ===================================
> 
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries
> (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit:
> http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/rpg400-l.
> 


__________________________________
Do you Yahoo!?
The New Yahoo! Search - Faster. Easier. Bingo.
http://search.yahoo.com