Search code examples
ibm-midrangedb2-400rpgle

IBM i RPG Code to procedure


I am looking at an RPG program. there are some subroutines like this: are there any tools which would create this as a procedure, that could be used in separate process?

C                   Eval      FinQty# = 0                           
C                   Eval      OdCom# = OhCom#                       
C                   Eval      OdOrd# = OhOrd#                       
C     OdKey         Setll     OeOrd1                                
C     OdKey         Reade     OeOrd1                                
C                   Dow       %eof = *off                           
 *                                                                  
C                   If        OdPrt# = OdAls# and                   
c                             %subst(odprt#:1:3) <> 'FRT'           
C                   Eval      FinQty# += OdQty#                     
C                   Endif                                           
 *                                                                  
C     OdKey         Reade     OeOrd1                                
C                   Enddo                                           
 *                                                      

Solution

  • Yes

    I'm particularly fond of Linoma's RPG Wizard http://www.linomasoftware.com/products/rpgtoolbox/rpgwizard

    Arcad has another tool, but it has more functionality and is more $$$. http://www.arcadsoftware.com/products/arcad-transformer-ibm-i-refactoring-tools/

    Note that Linoma will convert the syntax from internal subroutine to internal procedure; but it'd be a manual process to move the procedure externally.

    Whereas I believe Arcard's toolset can build an external procedure.