Re: PSDS as parm

Well, if you're concerned about the receiving program being able to 
retrieve the sent PSDS without messing up it's own internal PSDS you could 
do this in the called program THISPGM.
D myPsds            DS
...
Although I have the above in a /copy module.
Then add this line

D THISPGM  PR          extpgm(THISPGM)
D THISPGM  PI
D   parm               likeds(myPsds)   out in the comment area put *ENTRY 
plist so the dinosaurs can find it.



Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Booth Martin" <booth@xxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/28/2005 04:31 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: PSDS as parm






Have you tried this without mapping fields?  Why do you need to map the
fields?  The computer already knows, doesn't it? 

 

---------------------------------

Booth Martin

http://www.martinvt.com

---------------------------------

-------Original Message-------

 

From: RPG programming on the AS400 / iSeries

Date: 04/28/05 16:11:50

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?

 

--

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.

 

 

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