Re: API CEEDOD and CEE0502 Missing operational descriptor.

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.