IBM i RPG Code to procedure

Ada*_*ams 2 rpgle db2-400 ibm-midrange

我正在看一个RPG计划.有一些这样的子程序:是否有任何工具可以将其创建为一个过程,可以在单独的过程中使用?

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                                           
 *                                                      
Run Code Online (Sandbox Code Playgroud)

Buc*_*bro 7

是的,有工具.我不会用它们.

可以说,子过程的主要好处是局部变量和参数化接口.没有自动化工具能够梳理出界面,并确定哪些全局变量应该被制作成局部变量是一项艰巨的任务.

对于我的钱,所有自动化工具都将把语法从EXSR转换为CALLP.'subprocedure'仍在使用全局变量,界面仍然对程序员隐藏.重点是什么?