Re: Operational Descriptors

["Bob Cozzi" <cozzi@xxxxxxxxx>]

OPCODE is a PI and PR level keyword. It is not specified on the parms
themselves.

Bob

-----Original Message-----
From: rpg400-l-bounces@midrange.com
[mailto:rpg400-l-bounces@midrange.com] On Behalf Of M. Lazarus
Sent: Sunday, January 12, 2003 11:29 AM
To: RPG programming on the AS400 / iSeries
Subject: {Spam?} Re: Operational Descriptors


Bob,

  I prefer just passing %Size( Field ) because:
A) It's not supported for all data types
B) It's not worth all the extra code required to extract that one value
C) It seems to be a little flaky

  Putting those aside, doesn't szEntry require OPDESC on that line (not 
just on the PI line)?  Since it seems to work when called from a
procedure, 
maybe not, but that's my gut reaction.

  -mark

At 1/11/03 01:16 AM, you wrote:
>I'm using the OPDESC keyword on a procedure.
>The 3rd parameter of that procedure is defined as follows (well 
>actually, here's the entire proc interface):
>
>      D GetNextEntry    PI            10I 0 OPDESC
>      D  szUserSpace                  20A   Const
>      D  nRefPos                      10I 0
>      D  szEntry                    4096A   OPTIONS(*VARSIZE)
>
>Upon entering the procedure, I call CEEDOD, or CEEGSI.
>I do that to extract the length of parameter 3.
>
>Upon calling either of these APIs, I get a "CEE0502 Missing operational

>descriptor" message.
>
>Now here's the strange part:
>If I call this procedure from within another procedure, I don't get the

>error and the APIs work fine. But if I call the exact same procedure 
>from the mainline calcs in a program, I get the above mentioned error.

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@midrange.com To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.