CEEDOD -- MIDRANGE-L

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

Subject: CEEDOD
From: "Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxx>
Date: Tue, 17 Dec 2002 08:52:01 -0600
List-archive: <http://archive.midrange.com/midrange-l/>
List-help: <mailto:midrange-l-request@midrange.com?subject=help>
List-id: Midrange Systems Technical Discussion <midrange-l.midrange.com>
List-post: <mailto:midrange-l@midrange.com>
List-subscribe: <http://lists.midrange.com/cgi-bin/listinfo/midrange-l>,<mailto:midrange-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <http://lists.midrange.com/cgi-bin/listinfo/midrange-l>,<mailto:midrange-l-request@midrange.com?subject=unsubscribe>
Thread-index: AcKl226S73m8whHIEdeslQDQt0DAcg==
Thread-topic: CEEDOD

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

As an Amazon Associate we earn from qualifying purchases.

Follow-Ups:

Re: CEEDOD , Marco Facchinetti
Re: CEEDOD , Marco Facchinetti

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.