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

I am trying to retrieve the String length of an incoming parameter in a
Procedural parm defined with *varsize.  I am receiving the following error:

Message ID . . . . . . :   CEE0502       Severity . . . . . . . :   30
Message type . . . . . :   Diagnostic
Date sent  . . . . . . :   01/21/02      Time sent  . . . . . . :   14:24:56

Message . . . . :   Missing operational descriptor.
Cause . . . . . :   The specified operational descriptor location in
procedure
  CEEDOD does not contain a valid operational descriptor.
Recovery  . . . :   Specify a valid operational descriptor location and
ensure
  that an operational descriptor exists at the location.


Forgive my ignorance, but I have no idea what this means.  Here is the
code...

/copy prototype...
D #getOps         PR                  EXTPROC('CEEDOD')
D  ParmPos                      10I 0 Const
D  o_descType                   10I 0
D  o_dataType                   10I 0
D  o_descInf1                   10I 0
D  o_descInf2                   10I 0
D  o_fieldLen                   10I 0
D  o_errors                     12A   OPTIONS(*OMIT)

...

d #CitySt         pi            27
d  inField                      50    options(*varsize)
d                                     const

...

d nDescType      s             10I 0
d nDataType       s             10I 0
d nDescInf1         s             10I 0
d nDescInf2         s             10I 0
d nLength            s             10I 0
...

c                   callp     #getOps( 1 : nDescType : nDataType :
c                                          nDescInf1 : nDescInf2 :
c                                          nLength : *OMIT )


This is the line receiving the error.

Does anyone know what this error means?


Joel R. Cochran
Director of Internet Services
VamaNet.com
(800)480-8810
mailto:custservice@vamanet.com

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.