× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.