Re: Using a D-spec to define an action in the eval

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

hi Booth,

It doesn't compile because the code is wrong.  Here's what you'll have 
to do if you want to implement this (though, I can't think of any reason 
why someone would want to!)

a) Copy/Paste the prototype for XMLRtnAttr, so that you have two copies 
of it.

b) Change the name of the prototype in the 2nd copy to be f (or whatever 
name you want to use)

c) Add EXTPROC('XMLRTNATTR') to the 2nd prototype.  Notice that the name 
is in ALL CAPS.  This is because RPG (by default) translates procedure 
names to all caps when it compiles your program.  The procedure name 
given in quotes in EXTPROC() is case-sensitive.

d) The original procedure may also need to have EXPORT specified on the 
P-spec, I don't remember...   Try it without EXPORT, and if it complains 
about the symbol not being found, add EXPORT to the P-spec.

Good luck




Booth Martin wrote:
> This looks like what I want to do but it won't compile.
>
> Brian Johnson wrote:
> > d RawReading       c       '''RawReading'''
> > d f                               pr     extproc('XMLRtnAttr')
> > c      eval        wRawReading = f (RawReading)