RE: Mass conversion of MOVE to EVAL.

Rob,

I second the suggestion of Linoma's RPG Toolbox.

Here's the RPG Wizard command prompt so you get an idea of what it can do:

>From file  . . . . . . . . . . .   QRPGLESRC     Name, QRPGSRC, QRPGLESRC    
  Library  . . . . . . . . . . .     *LIBL       Name, *LIBL                 
>From member  . . . . . . . . . .                 Name, generic*, *ALL        
>From type  . . . . . . . . . . .   *RPG4         RPG, RPT, RPG38, RPT38...   
To file  . . . . . . . . . . . .   QRPGLESRC     Name, QRPGLESRC, *FROMFILE  
  Library  . . . . . . . . . . .     *FROMLIB    Name, *FROMLIB, *LIBL       
To member  . . . . . . . . . . .   *FROMMBR      Name, *FROMMBR              
Replace existing To member(s)  .   *NO           *NO, *YES                   
Target OS/400 release  . . . . .   *CURRENT      *CURRENT, VxRx              
Format of calculation specs  . .   *FIXED        *FREE, *FIXED               
Examine field attributes . . . .   *YES          *NO, *YES                   
Expand copy members  . . . . . .   *NO           *NO, *YES                   
Redefine data structures . . . .   *YES          *NO, *YES                   
Redefine *LIKE DEFN fields . . .   *YES          *NO, *YES                   
Redefine calc. defined fields  .   *YES          *NO, *YES                   
Convert left hand indicators . .   *YES          *NO, *YES                   
Convert opcodes to BIFs  . . . .   *YES          *NO, *YES                    
Convert key lists (KLIST)  . . .   *NO           *NO, *YES, *YES2             
Insert file I/O BIFs . . . . . .   *YES          *NO, *YES, *YES2             
Convert ADDs/SUBs to EVALs . . .   *YES          *NO, *YES, *YES2             
Convert Z-ADDs/Z-SUBs to EVALs     *YES          *NO, *YES, *YES2             
Convert MULTs to EVALs . . . . .   *YES          *NO, *YES, *YES2             
Convert DIVs to EVALs  . . . . .   *YES          *NO, *YES, *YES2             
Convert MOVE(L)s having *BLANK     *EVAL         *NO, *EVAL, *CLEAR           
Convert MOVE(L)s having *ZERO  .   *EVAL         *NO, *EVAL, *CLEAR           
Convert MOVEs having data  . . .   *EVAL         *NO, *EVAL                   
Convert MOVELs having data . . .   *EVAL         *NO, *EVAL                   
Convert MOVEA operations . . . .   *YES          *NO, *YES                    
Convert CASxx operations . . . .   *YES          *NO, *YES                    
Convert CAT operations . . . . .   *YES          *NO, *YES, *YES2             
Convert DOs to FORs  . . . . . .   *YES          *NO, *YES                    
Convert LOOKUP operations  . . .   *NO           *NO, *YES                    
Convert SCAN operations  . . . .   *NO           *NO, *YES                    
Convert *ENTRY PLIST . . . . . .   *NO           *NO, *YES, *YES2             
Convert Subroutines to Procs . .   *NO           *NO, *YES                    
Convert CALLs and CALLBs . . . .   *NO           *NO, *YES, *YES2             
Convert GOTO operations  . . . .   *YES          *NO, *YES                    
Compress expressions . . . . . .   *NO           *NO, *YES                    
Highlight comments . . . . . . .   *YES          *NO, *YES                    
Fixed-form comment designator  .   *LEAVE        *LEAVE, *ASTERISK, *SLASHES  
Comment specification types  . .   *REMOVE       *LEAVE, *REMOVE              
Comment designator on blanks . .   *LEAVE        *LEAVE, *REMOVE              
Case for specification types . .   *LEAVE        *LEAVE, *LOWER, *UPPER       
Case for unchanged logic . . . .   *LEAVE        *LEAVE, *LOWER, *UPPER...    
Case for changed and new logic     *UPPER        *LOWER, *UPPER, *MIXED...    
Case for in-line comments  . . .   *LEAVE        *LEAVE, *LOWER, *UPPER       
Case for right-hand comments . .   *LEAVE        *LEAVE, *LOWER, *UPPER       
Free-form indent nested logic  .   *LEAVE        *LEAVE, *INDENT0, *INDENT1...
Document nested logic  . . . . .   *NO           *NO, *YES               
Source date on converted lines     *KEEP         *KEEP, *TODAY, *ZEROS   
Save command settings for job  .   *NO           *NO, *YES               


And as Matt said, it's priced pretty good...
P05/P10 = 995
P20/P30 = 1495
P40/P50 = 1995

Plus you can download a free trial that gives you 10 conversions to see how it 
works.

HTH,

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces+cwilt=meaa.mea.com@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces+cwilt=meaa.mea.com@xxxxxxxxxxxx]On Behalf Of
> Tyler, Matt
> Sent: Tuesday, August 09, 2005 5:39 PM
> To: 'RPG programming on the AS400 / iSeries'
> Subject: RE: Mass conversion of MOVE to EVAL.
> 
> 
> Rob,
>       Have you thought about trying Linoma's RPG tool box? We 
> have it and
> I tried the convert tool and told it to translate MOVES and 
> MOVELS with data
> to EVAL statements and it did it with some difference from 
> what some might
> expect. For example MOVE 'NNNN' MYFLD1 5 got converted into EVAL
> %subst(MYFLD1:2:4) = 'NNNN' (MYFLD1 was defined in the 
> D-Specs which is
> required for the above example).   
> 
>       The price is good for iSeries software and it will also convert
> RPGIV code converted by IBM's basic conversion tool into 
> better RPGIV code
> plus you can also convert RPGIV to /FREE format for those 
> statements that
> fit into /FREE.
> http://www.linomasoftware.com/products/rpgtoolbox/index.html
> 
> 
> Thank you,
> Matt Tyler
> WinCo Foods, LLC
> mattt@xxxxxxxxxxxxxx
> 
>