AtabEgRpg3.jpg (5183 bytes)

* Entering the following:



abc ifeq xyz
' ' doweq *blank
add 1 abc 5.2
abc add 1 def
enddo
key chain file 80
move 'A B' fld
'test lokup ary,x 810082

* Will be converted to:



     ABC         IFEQ XYZ
     ' '         DOWEQ*BLANK
                 ADD   1               ABC       52
     ABC         ADD  1                DEF
                 ENDDO
     KEY         CHAINFILE                                 80
                 MOVE 'A B'            FLD
     'test'      LOKUPARY,X                                81   82

Other Examples:        RPG 4 D specs                     RPG 4 C specs                   DDS