* Enter the following:
abc ifeq xyz
' ' doweq *blank
add 1 abc 5.2
abc add 1 def
enddo
key chain file 80 (info)
move 'A B' fld
'test lokup ary,x 810082 (info)
* Will be converted to:
ABC IFEQ XYZ
' ' DOWEQ *BLANK
ADD 1 ABC 5 2
ABC ADD 1 DEF
ENDDO
KEY CHAIN FILE 80
MOVE 'A B' FLD
'test' LOOKUP ARY,X 81 82
|
Other Examples: RPG 4 D specs DDS RPG 3