Re: Free form PSDS *PROC

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.