RE: CEEDOD -- MIDRANGE-L

The caller did pass all three parms when I was testing it.  However, the parm I 
passed is a data structure.  I did later find an discussion about CEEDOD wILL 
not work if the parm being passed is a data structure.  That particular 
discussion was date Jul 1999.  I wonder if IBM has corrected the problem.

-----Original Message-----
From: Marco Facchinetti [mailto:facchinetti@yahoo.com]
Sent: Wednesday, December 18, 2002 8:08 AM
To: midrange-l@midrange.com
Subject: Re: CEEDOD


If the error you receive is CEE0502 you should test with
%parms or with CEETSTA Ile API if the parameter is passed
or not.

Marco
--- Lim Hock-Chai <Lim.Hock-Chai@arch.com> wrote:
> anybody have any idea why I'm getting the "Missing
> operational descriptor" when doing prototype call to
> CEEDOD?
>
> $rtvRef is a service program procedure that run in a
> different activation group.
>
> Here is the PR and PI that uses the CEEDOD
>
> D $rtvRef         pr              N   opdesc
> D  pRefCat                       3    value
> D  pRefKey                      27    value
> D  pRefDat                      90    options(*nopass
> :*varSize)
>
>  * CEEDOD prototype
> DCEEDOD           PR
> D Pr_Argnum                     10I 0  Const
> D Pr_Dsctyp                     10I 0
> D Pr_Dtatyp                     10I 0
> D Pr_Dscinf1                    10I 0
> D Pr_Dscinf2                    10I 0
> D Pr_Arglen                     10I 0
> D Pr_FBcod                      12A    Options(*Omit)
> * CEEDOD parm fields
> D ParmPos         S             10I 0
> D DescType        S             10I 0
> D DataType        S             10I 0
> D DescInf1        S             10I 0
> D DescInf2        S             10I 0
> D DataLen         S             10I 0
> D Dataerror       S             12A
>
> P $rtvRef         B                   export
> D  $rtvRef        pi              N    opdesc
> D  pRefCat                             value like(REFCAT)
> D  pRefKey                             value like(REFKEY)
> D  pRefDat                             like(REFDAT)
> D                                      options(*noPass
> :*varSize)
>
>  *
> * get the pRefDat length
> C                   callp     CEEDOD(3 :DescType
> :DataType
> C                                   :DescInf1 :DescInf2
> :DataLen
> C                                   :*omit)
>
>
> P $rtvRef         E
>
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion
> (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit:
> http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/midrange-l.
>


__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.