Re: PSDS as parm

[rob@xxxxxxxxx]

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.