RE: Code to move left justified alpha to numeric

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

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

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