Re: Free form PSDS *PROC

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

Darren

The message is a little curious - I don't see anything called "name"

Here is the sample from the updated RPG Reference -

|   DCL-DS pgm_stat PSDS;
     status *STATUS;
     routine *ROUTINE;
     library CHAR(10) POS(81);
  END-DS;

The DS name is optional, I guess, but the reference says to use *N for the name.

Then I think if you need to take char(10) out of the first subfield.

So your example could be like this -

|
|        dcl-ds *n PSDS;
         Pgm *PROC;
         WSID char(10) pos(244);
         User char(10) pos(254);
       end-ds;



HTH
Vern
|

On 12/18/2013 10:07 AM, Gary Thompson wrote:
> Darren,
> Have not yet done that in free - but maybe omit "char(10)" and just specify *PROC ?
> Also, in traditional fixed column, it is "SDS" - but sounds like you're ahead of me on this.
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of darren@xxxxxxxxx
> Sent: Wednesday, December 18, 2013 8:51 AM
> To: midrange-RPG RPG message board
> Subject: Free form PSDS *PROC
>
>
> 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.