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



Nope. The difference is Omissible vs Optional.
*NOPASS = Optional
*OMIT = Omissible. Meaning you must specify *OMIT if no value is passed.


-Bob Cozzi
www.RPGxTools.com
RPG xTools - Enjoy programming again.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On
Behalf Of Michael_Schutte@xxxxxxxxxxxx
Sent: Thursday, May 04, 2006 1:07 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: API CEEDOD and CEE0502 Missing operational descriptor.

I'm not familiar with CEEDOD.  but could you do this.

D CEEDOD          PR
D  ParmNum                      10i 0 CONST
D  DescType                     10i 0
D  DataType                     10i 0
D  DescInfo1                    10i 0
D  DescInfo2                    10i 0
D  ParmLen                      10i 0
D  FeedBack                     12a   OPTIONS(*NoPass)

CEEDOD(1 : Od.DescType : Od.DataType
     : Od.DescInfo1 : Od.DescInfo2 : MaxLen );

I've never had much luck with *OMIT Thing.

Michael Schutte



                                                                           
             Michael_Schutte@b                                             
             obevans.com                                                   
             Sent by:                                                   To 
             rpg400-l-bounces@         RPG programming on the AS400 /      
             midrange.com              iSeries <rpg400-l@xxxxxxxxxxxx>     
                                                                        cc 
                                                                           
             05/04/2006 01:44                                      Subject 
             PM                        Re: API CEEDOD and CEE0502  Missing 
                                       operational descriptor.             
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




It's been awhile since I've worked with this but don't you need to add the
CEEDOD_Parms qualifier?

Od.CEEDOD_Parms.ParmNum   etc...

Just for a comparison... here's what I have done.

D MTD             DS                  Qualified Dim(4)
D  Unit                               LikeDS(Variables)
D  Area                               LikeDS(Variables) Dim(2)
D  Regn                               LikeDS(Variables) Dim(2)
D  Comp                               LikeDS(Variables) Dim(2)

D Variables       DS                  Qualified
D  Surveys                       8  0
D  AskedIfProb                   8  0
D  ProblemsYes                   8  0
D  AskedIfRptd                   8  0
D  ReportedYes                   8  0
D  AskedIfResd                   8  0
D  ResolvedYes                   8  0
D  AskedCLI                      8  0 Dim(99)
D  CLITVAns                      8  0 Dim(99)

MTD(iY).Unit.Surveys += 1;
MTD(iY).Area(iZ).Surveys += 1;
MTD(iY).Regn(iZ).Surveys += 1;
MTD(iY).Comp(iZ).Surveys += 1;

Well, I guess not.  I don't see anything wrong with your code. Sorry.

Michael Schutte




             "Andy Hautamaki"
             <ahautamaki@tstov
             erland.com>                                                To
             Sent by:                  "RPG400-L@xxxxxxxxxxxx"
             rpg400-l-bounces@         <RPG400-L@xxxxxxxxxxxx>
             midrange.com                                               cc

                                                                   Subject
             05/04/2006 01:28          API CEEDOD and CEE0502  Missing
             PM                        operational descriptor.


             Please respond to
              RPG programming
              on the AS400 /
                  iSeries
             <rpg400-l@midrang
                  e.com>






I created a NOMAIN module to try out an example Barbara Morris had in an
article called 'Write or Call RPG procedures with Ease' and when I try to
use the API CEEDOD am getting a CEE0502 error 'Missing operational
descriptor'.


D Pr_SrchRepl     PR                  opdesc
D  String                    65535a   varying Options(*VarSize)
D  Srch                        500a   Const varying
D  Repl                        500a   Const varying

D CEEDOD          PR
D  ParmNum                      10i 0 CONST
D  DescType                     10i 0
D  DataType                     10i 0
D  DescInfo1                    10i 0
D  DescInfo2                    10i 0
D  ParmLen                      10i 0
D  FeedBack                     12a   OPTIONS(*OMIT)

D CEEDOD_Parms    DS                  Qualified
D                                     Based(Type_Def_Dummy)
D  ParmNum                      10i 0
D  DescType                     10i 0
D  DataType                     10i 0
D  DescInfo1                    10i 0
D  DescInfo2                    10i 0
D  ParmLen                      10i 0
D  FeedBack                     12a



P Pr_SrchRepl     B                   export
D Pr_SrchRepl     PI                  Opdesc
D  String                    65535a   varying Options(*VarSize)
D  Srch                        500a   Const varying
D  Repl                        500a   Const varying

D MaxLen          S             10i 0
D Od              DS                  Likeds(CEEDOD_Parms)



CEEDOD(1 : Od.DescType : Od.DataType
     : Od.DescInfo1 : Od.DescInfo2 : MaxLen : *Omit);

What have I done wrong?

Thanks
Andy

--

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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

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.