Re: Free Format with V5R1

You should be able to use /free at V5R1.  Are you sure you have
the directives in the correct columns and formatted correctly? 
What problem are you having?  Here is a sample section of code
to try:

      /free                                                   
                                                              
       From333 = pFrom333;                                    
       FromSt  = pFromSt;                                     
       To333   = pTo333;                                      
       ToSt    = pToSt;                                       
                                                              
       ChgToMrlStn(From333 : FromSt);                         
       ChgToMrlStn(To333   : ToSt);                           
                                                              
       return GetMiles333(From333 : FromSt : To333 : ToSt);   
                                                              
      /end-free                                               

Scott Mildenberger


--- "Malchow, Grizzly" <GMalchow@xxxxxxxxxxxxxxxxxxxxx> wrote:
> We recently upgraded to V5R1 and I assumed that I would be
> able to start
> using free format code. I found out I can't. I'm assuming I
> can't use
> /free and /end-free because we don't have all of the necessary
> software
> or ptf's loaded. Does anyone know what is necessary other than
> V5R1 to
> use free format coding?
> 
> Thanks. 
> 
>  
> 
> _______________________________________________
> 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!?
SBC Yahoo! DSL - Now only $29.95 per month!
http://sbc.yahoo.com