× 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.



ctl-opt dftactgrp(*no);
dcl-pi *n;
caller_name char(10) const;
end-pi;
dcl-c RECORD_LEN 80;
dcl-f qprint printer(RECORD_LEN);
dcl-ds prtDs len(RECORD_LEN) qualified;
*n char(6) inz('Hello');
name char(50);
end-ds;
prtDs.name = transform(caller_name);
write qprint prtDs;
*inlr = '1';
dcl-proc transform;
dcl-pi *n varchar(50);
name varchar(10) const options(*trim);
end-pi;
return '*** ' + name + ' ***';
end-proc;
It looks good. Esp since it is optional.

I don't follow the *n in the first dcl_pi. Is that because there is only
one procedure in the source member?

Can procedures be defined within procedures?

too bad the dcl-proc cant be rolled into the dcl-pi. All you need dcl-proc
for is to export the procedure.

if we had namespaces then you could specify "file" in place of "dcl-f" and
"con" in place of "dcl-c". If there was a name clash with file or con then
you would qualify with the namespace.

The big thing still missing is referenced types like you get with C# and
java. That would be terrific.

-Steve




On Mon, Oct 7, 2013 at 1:46 PM, CRPence <CRPbottle@xxxxxxxxx> wrote:

On 07 Oct 2013 08:47, Scott Klement wrote:
IBM has announced support for free format in the H, F, D and P specs
this morning. Check it out
https://ibm.biz/BdDMwB

Oh! It's not April Fool's day ;-)

FWiW only; offered for the text [for searching] and the navigation,
should any links end up broken... most likely for someone perusing the
archives in the future:

That "Free-form H F D P announcement" link is available from the
"Welcome to the RPG Cafe wiki" page, where some _additional links_ about
RPG may be of interest; short URL first, expanded URL second:
RPG Cafe Community -> RPG Cafe Wiki -> Welcome
https://www.ibm.com/developerworks/ibmi/rpg/welcome
<
https://www.ibm.com/developerworks/community/wikis/home?#!/wiki/We13116a562db_467e_bcd4_882013aec57a/page/Welcome


The navigation and expanded link for the "ibm.biz" link given above:
RPG Cafe Community -> RPG Cafe Wiki -> Welcome -> New with IBM i
7.1 TR 7 - Free-form H, F, D and P statements for RPG
<
https://www.ibm.com/developerworks/community/wikis/home?lang=en#!/wiki/We13116a562db_467e_bcd4_882013aec57a/page/New%20with%20IBM%20i%207.1%20TR%207%20-%20Free-form%20H,%20F,%20D%20and%20P%20statements%20for%20RPG


--
Regards, Chuck
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

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.