× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.