RE: CEEDOD Error...

Thanks, Kevin, that was it!  I went back and looked at the source I copied
it from and sure enough I missed that part...

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

> -----Original Message-----
> From: Mohondro, Kevin [mailto:KMohondro@SalePoint.com]
> Sent: Monday, January 21, 2002 1:54 PM
> To: 'midrange-l@midrange.com'
> Subject: RE: CEEDOD Error...
>
>
> I believe you'll need to specify OPDESC on your parameter interface:
>
> d #CitySt         pi            27    opdesc
> d  inField                      50    options(*varsize)
> d                                     const
>
> -Moe
> -------------------------------------------------------
> Kevin R Mohondro                kmohondro@salepoint.com
> Software Engineer                         (858)373-2012
> SalePoint Corporate Retail Solutions      San Diego, CA
>
> -----Original Message-----
> From: Joel R. Cochran [mailto:jrc@masi-brac.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
>
> [SNIP-O-RAMA]
> _______________________________________________
> 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.
>