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
*