Re: CEEDOD

Hello Hock-Chai,

You wrote:
>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)


The 3 means the 3rd parameter passed which is defiend as *NOPASS
therefore might not even exist if it was not passed.  You must check
that you received a 3rd parameter before you check whether a descriptor
was passed.  Recode as:

C                   IF        ( %PARMS >= 3)
C                   callp     CEEDOD(3 :DescType :DataType
C                                   :DescInf1 :DescInf2 :DataLen
C                                   :*omit)
C                   ENDIF

Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists

   http://www.flybynight.com.au/
   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------