Re: RPG Reference Guide (was: Anybody have an RPGIII program they could send me?)

Is def-subj supposed to be dcl-subf instead? I'm trying to step up my use
of RPG and working hard to do it in free-form. I understand if this was
simply a typo (the Lord knows I make enough of those myself), but I want
to be sure I haven't missed something.

This also begs the question. Where on God's green earth do you find a
decent RPGLE Reference manual? </warning rant> IBM's websites have always
been a little frustrating. Recently, they've gone to catastrophic lengths
of obfuscation to make it virtually unusable--either that or I'm just a
complete failure at using it. Well, I'm a failure at using it no matter
what the cause. Then to frustrate me even more once I find something, the
format is sooooo different than the way IBM Reference manuals were for
decades that I have a hard time understanding how I'm to apply the
information therein. </end rant>

I wish I felt better after then rant, but I really don't.

Michael Quigley
Computer Services
The Way International

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 11/08/2017 07:38:21
AM:

----- Message from Jon Paris <jon.paris@xxxxxxxxxxxxxx> on Wed, 8
Nov 2017 07:38:05 -0500 -----

To:

Rpg400 Rpg400-L <rpg400-l@xxxxxxxxxxxx>

Subject:

Re: Anybody have an RPGIII program they could send me?

Kevin,

You don't have to change the names to avoid "reserved" names in

free-form.

On data declarations in DS for example you simply add dcl-subj in
front of the name.

So this:

D myDS DS
D chain 1a

Becomes:

Dcl-ds myDS;
def-subf chain char(1);
end-ds;

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';


Jon Paris

www.partner400.com
www.SystemiDeveloper.com