----- Message from Jon Paris <jon.paris@xxxxxxxxxxxxxx> on Wed, 8free-form.
Nov 2017 07:38:05 -0500 -----
Rpg400 Rpg400-L <rpg400-l@xxxxxxxxxxxx>
Re: Anybody have an RPGIII program they could send me?
You don't have to change the names to avoid "reserved" names in
On data declarations in DS for example you simply add dcl-subj in
front of the name.
D myDS DS
D chain 1a
def-subf chain char(1);
Similar options exist for procedure interface and prototype
parameters. It is basically the same scenario as being able to omit
EVAL in cals. You can omit it if the filed name does not match an
opcode name. So you have to code:
EVAL chain = 'Y';