RE: Code to move left justified alpha to numeric

[Scott Klement <klemscot@xxxxxxxxxxxx>]

Hmmm... sounds like you added a 2nd P-spec defining the subprocedure.
All you needed to do was add the word "export" to the exisitng P-spec,
not add a whole new P-spec.

If you didn't add a new P-spec, then take a look at the /COPY line, and
make sure that it's referencing themember with the prototypes, not the
member with the actual procedures in it.


On Thu, 8 Feb 2001, Art Tostaine, Jr. wrote:

> If I put that in module GETNUM I get a compiler message:
> 
> RNF1504 30 a      010700  The subprocedure has already been defined.
> 
> Thanks.
> 
> Art Tostaine, Jr.
> CCA, Inc.
> Jackson, NJ 08527
> 
> -----Original Message-----
> From: owner-midrange-l@midrange.com
> [mailto:owner-midrange-l@midrange.com]On Behalf Of Scott Klement
> Sent: Wednesday, February 07, 2001 1:38 AM
> To: MIDRANGE-L@midrange.com
> Subject: RE: Code to move left justified alpha to numeric
> 
> 
> 
> Sounds like you're not exporting the procedure (to make it callable from
> other modules)
> 
> To do this, add the "export" keyword to the P spec, like so:
> 
> p getnum          b                   EXPORT
> 
> 
> 
> On Tue, 6 Feb 2001, Art Tostaine, Jr. wrote:
> 
> > Now, I always hate to post problems I run into when dealing with ILE
> > (because I'm not too cool with it), but when I run this:
> >
> > First I did a CRTRPGMOD on both GETNUM and GETNUM_T and they finished OK.
> >
> > Then I tried this:
> >
> > CRTPGM PGM(GETNUM_T) MODULE(GETNUM_T GETNUM)
> >
> > I get this:
> >
> > Message ID . . . . . . :   CPD5D02       Severity . . . . . . . :   30
> > Message type . . . . . :   Diagnostic
> > Date sent  . . . . . . :   02/06/01      Time sent  . . . . . . :
> 20:59:56
> >
> > Message . . . . :   Definition not found for symbol 'GETNUM'.
> > Cause . . . . . :   No definition was found for reference GETNUM in
> *MODULE
> >   object GETNUM_T in library CCALIB. The definition either does not exist
> or
> >   is not of the same data or procedure type as the reference.
> > Recovery  . . . :   Try the Create Program (CRTPGM) command again,
> supplying
> >   an object that contains a definition for symbol GETNUM.
> >
> > Art Tostaine, Jr.
> > CCA, Inc.
> > Jackson, NJ 08527
> >
> > -----Original Message-----
> > From: owner-midrange-l@midrange.com
> > [mailto:owner-midrange-l@midrange.com]On Behalf Of Scott Klement
> > Sent: Tuesday, February 06, 2001 5:34 PM
> > To: MIDRANGE-L@midrange.com
> > Subject: RE: Code to move left justified alpha to numeric
> >
> >
> >
> > If you get stuck, let me know and I'll try to help.  (and let me know why
> > it won't compile -- what error message, etc)
> >
> >
> > On Tue, 6 Feb 2001, Art Tostaine, Jr. wrote:
> >
> > > Scott:
> > >
> > > Thanks for the very helpful reply.  I am still trying to compile the
> > > Barbara's getnum example.
> > >
> > > Art Tostaine, Jr.
> > > CCA, Inc.
> > > Jackson, NJ 08527
> > >
> > > -----Original Message-----
> > > From: owner-midrange-l@midrange.com
> > > [mailto:owner-midrange-l@midrange.com]On Behalf Of Scott Klement
> > > Sent: Friday, February 02, 2001 6:07 PM
> > > To: MIDRANGE-L@midrange.com
> > > Subject: Re: Code to move left justified alpha to numeric
> > >
> > >
> > >
> > > Hi Art,
> > >
> > > Parsing numeric values from character fields has been discussed
> > > extensively on the RPG400-L list, also at Midrange.com.
> > >
> > > The technique that I've used is to grab Barbara Morris' GetNum
> procedure,
> > > make a few minor modifications, and place it in a service program so
> that
> > > I can use it from any program on the system.  You might consider doing
> > > the same thing.
> > >
> > > Other options for character to numeric conversion have also been
> discussed
> > > on RPG400-L.  MI functions, C functions, etc can all be called from
> > > RPG IV.
> > >
> > > Browsing through the archives, I found these messages which I have found
> > > to be helpful:
> > >
> > > http://archive.midrange.com/rpg400-l/200012/msg00018.html
> > > http://archive.midrange.com/rpg400-l/200012/msg00047.html
> > >
> > > For a more extensive discussion, here are some threads on the subject:
> > >
> > > http://archive.midrange.com/rpg400-l/200002/threads.html#00183
> > > http://archive.midrange.com/rpg400-l/200008/threads.html#00293
> > > http://archive.midrange.com/rpg400-l/200012/threads.html#00018
> > >
> > > You can probably find even more info by searching the archives.
> > >
> > > Good luck,
> > >
> > >
> 

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---