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



Hi, Darren:

I see now that my "guess" was incorrect. The correct syntax would appear to be:

dcl-ds PSDS;
Pgm *PROC;
. . .

All the best,

Mark

> On 12/18/2013 1:42 PM, darren@xxxxxxxxx wrote:
The other suggestions, omitting the data types I had tried and failed in
the compiler. This was one I had not tried yet, but sadly, it also fails.
Pgm char(10) pos(*PROC);

RNF0202: THE PARAMETER FOR KEYWORD POS MUST BE A NUMERIC CONSTANT BETWEEN 1
AND 16773104




From: Mark S Waterbury <mark.s.waterbury@xxxxxxxxxxxxx>
To: "RPG programming on the IBM i (AS/400 and iSeries)"
<rpg400-l@xxxxxxxxxxxx>
Date: 12/18/2013 11:41 AM
Subject: Re: Free form PSDS *PROC
Sent by: rpg400-l-bounces@xxxxxxxxxxxx



Hi, Darren:

Perhaps try something like:

Pgm char(10) pos(*PROC);

Let us know if that works ...

All the best,

Mark S. Waterbury

> On 12/18/2013 10:50 AM, darren@xxxxxxxxx wrote:
When I'm converting my program status data structure from fixed format to
free form, I expect this to work, but it doesn't. Is there a syntax
issue,
or do I just have to specify the position for these keywords?

dcl-ds PSDS;
Pgm char(10) *PROC;
RNF3308: Keyword name is not valid; the keyword is ignored.
WSID char(10) pos(244);
User char(10) pos(254);
end-ds;



Work-around is:

dcl-ds PSDS;
Pgm char(10) pos(1);
WSID char(10) pos(244);
User char(10) pos(254);
end-ds;

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