RE: Code to move left justified alpha to numeric -- MIDRANGE-L


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
+---