RE: CEEDOD

["Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxx>]

Thanks Simon.

The code does check for number of parms pass to the procedure.  I just did not 
included it in the e-mail.  However, I think I found the problem already.  It 
is because CEEDOD does not work correctly if the caller declare the parm as a 
data structure.  Another word if pRefDat is declare as a data structure on the 
caller, it will not work.

I'm assuming that there is no PTF for this yet.


-----Original Message-----
From: Simon Coulter [mailto:shc@flybynight.com.au]
Sent: Tuesday, December 17, 2002 11:27 PM
To: midrange-l@midrange.com
Subject: 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  / \
--------------------------------------------------------------------

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