Re: PSDS as parm

["Booth Martin" <booth@xxxxxxxxxxxx>]

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