RE: PSDS as parm

If you have CODE400, it has a tool that creates a PSDS for you.  Another
thing that can be handy is a dummy physical file that exists solely to
define the PSDS fields  so you can have an externally defined data
structure mapped to it.

I don't use CODE much any more, but I copied the PSDS and INFDS stuff
out of CODE into my skeleton program.  The annoying thing about CODE's
and the manual's PSDS is that both use the from to subfield definitions.


I think Rob's suggestion of a parm defined likeds is probably the
smallest amount of work.

> -----Original Message-----
> From: rpg400-l-bounces+jfritz=sharperimage.com@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces+jfritz=sharperimage.com@xxxxxxxxxxxx]
>  On Behalf Of Rick.Chevalier@xxxxxxxxxxxxxxx
> Sent: Thursday, April 28, 2005 2:58 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: RE: PSDS as parm
>
>
> The actual positions are shown in the RPG reference manual I
> believe.  If not it's the programmers guide.  Search the PDF for PSDS.
>
> Can't help with the passing as a parm question.
>
> Rick
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Malchow, Grizzly
> Sent: Thursday, April 28, 2005 3:55 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: PSDS as parm
>
>
> Is it possible to pass the PSDS as a parm? If so can anyone
> tell me how I would map out the *PROC, *STATUS, *ROUTINE,
> *PARMS subfields?
>
>
>
> I was hoping I could do something like this
>
>
>
> D MyPSDS      SDS
>
> (pretend I have all of the subfields defined)
>
>
>
> D ErrProto        PR                     10I 0
>
> D   ErrDS                                           Like(MYPSDS)
>
>
>
> D RC               S                        10I 0
>
>
>
> /Free
>
>
>
>    RC = ErrProto(MYPSDS);
>
>
>
> /End-Free
>
>
>
>
>
> P ErrProto               B
>
>
>
> D ErrProto                PI
>
> D   ErrDS                                 353A
>
>
>
> D  ProcDS                                    *       Inz(%addr(ErrDS))
>
>
>
> D   ProcDS_1          DS                          Based(ProcDS)
>
>
>
> This is about as far as I got when I realized I don't know if
> I can map out the fields I listed above.
>
> Any ideas?
>
>
> Privileged and Confidential.  This e-mail, and any
> attachments there to, is intended only for use by the
> addressee(s) named herein and may contain privileged or
> confidential information.  If you have received this e-mail
> in error, please notify me immediately by a return e-mail and
> delete this e-mail.  You are hereby notified that any
> dissemination, distribution or copying of this e-mail and/or
> any attachments thereto, is strictly prohibited.
>
> --
> This is the RPG programming on the AS400 / 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.
>
>

*****************************
NOTICE:
All e-mail sent to or from this e-mail address will be received or otherwise 
recorded by
The Sharper Image corporate e-mail system and is subject to archival, 
monitoring,
and review by and/or disclosure to Sharper Image security and other management.
This message is intended only for the use of the addressee and may contain 
information
that is privileged and confidential.

The contents of this message may contain personal views which are not the views 
of The Sharper Image.
If you are not the intended recipient, dissemination of this communication is 
prohibited.
*****************************