Re: Free format H, F, D and P specs

total guess, but from 7.1 ILE RPG Lang Ref I do find "*N" mentioned as a
"null response"

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Steve Richter
Sent: Monday, October 07, 2013 1:14 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Free format H, F, D and P specs

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/We1311
6a562db_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%20
RPG

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

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

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