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



Hmm . . . seems like a good idea, fewer fatfinger bugs

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

It is a placeholder for the name in the PI. I In this case the name of the program.

In a scenario like this:

dcl-proc getCurUser export;

dcl-pi *n char(10) end-pi;

It saves you typing it twice and takes the name from the dcl-proc.



On 2013-10-07, at 3:28 PM, Gary Thompson <gthompson@xxxxxxxxxxx> wrote:

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/We131
1 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#!/wik
i
/We13116a562db_467e_bcd4_882013aec57a/page/New%20with%20IBM%20i%207.1
%
20TR%207%20-%20Free-form%20H,%20F,%20D%20and%20P%20statements%20for%2
0
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.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com




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

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.