• Subject: Re: CEETSTA - Wipes out variables.
  • From: David Morris <dmorris@xxxxxxxxxxxxx>
  • Date: Thu, 26 Mar 1998 17:05:25 -0700

I think we have finally found a solution to this problem.  The CEETSTA 
prototype must include
the feedback code parameter.  It needs to specify OPTIONS(*OMIT).  Specifying 
OPTIONS(*NOPASS) 
and not passing the parameter appears to have contributed to this problem.  
Since the original post 
this problem has shown up in 2 more modules.  The ILE RPG reference manual 
example for V3R7 
does not pass this parameter or declare it on the prototype.  This will cause 
problems such as 
variables in previously called and active programs being updated when CEETSTA 
is called.

David Morris  

>>> David Morris <dmorris@plumcreek.com> 02/10 10:02 AM >>>
We have over 100 programs RPGIV programs that use the CEETSTA API.  In two of 
those 
programs CEETSTA wipes out unrelated variables.  In this latest case we call a 
subprocedure 
that is in a service program and a global variable is set to zero when the 
procedure calls CEETSTA 
to see if a parameter was omitted.  Because the parameter specifies CONST we 
cannot test the 
address to see if it is null (this makes no sense).  Removing the CONST and 
testing the address 
fixes the problem.  Who knows what other variables are corrupted in our other 
100 programs.  If this 
is happening at least 2% of the time it must be fairly prevalent.

We have also had some problems using the CEEDOD API.  On occasion it says 
operational descriptors 
were not passed when OPDESC was specified on a prototype.

Has anyone else reported a problems with these APIs?

It is a real pain to report problems like this because if it has been reported 
we get billed.  If it hasn't they 
usually ask us to reduce our code to the bare minimum that can duplicate the 
error.  In this case that could 
easily take a day.  Several years back we implemented a reporting system that 
used SQL extensively.  We 
reported 5 or 6 problems that required APARs to be opened.  We spent over 100 
hours documenting and 
reporting these errors.  Then we had to agree to test the fixes.  It seems like 
IBM should offer a reward to the customer to compensate for the time that goes 
into reporting these types of errors.  Netscape does.

David Morris
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                               !
                                                                                
                                                                                
                                                
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
     
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 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.