×
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.
That's it! I get it now. The compile was actually complaining that I
didn't specify a name for the data structure. I found that you can specify
*N if you really don't want to name it. So, this works.
dcl-ds *n PSDS;
Pgm *PROC;
WSID char(10) pos(244);
User char(10) pos(254);
end-ds;
From: Buck Calabro <kc2hiz@xxxxxxxxx>
To: rpg400-l@xxxxxxxxxxxx
Date: 12/18/2013 02:02 PM
Subject: Re: Free form PSDS *PROC
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
On 12/18/2013 1:42 PM, darren 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
DCL-DS pgm_stat PSDS;
status *STATUS;
routine *ROUTINE;
library CHAR(10) POS(81);
END-DS;
Taken directly from the new RPG manual, page 5-80. I grant you that
locating this wasn't as intuitive as I'd hoped... it's not in the error
handling section with the rest of the PSDS information; it's in chapter
5 'Specifications'. All the new stuff is in there... And there are
also some examples of fully free elsewhere in the manual as well.
--buck
--
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.
midrange.com
