RE: Code to move left justified alpha to numeric

I got an email from Barbara that was supposed to contain attachments of the
correct source.  She thinks maybe the web site was missing something.

Problem is there were no attachments.  I'm waiting for them.

I don't know how many times I've sent an email and forgot to attach the
document.

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 09, 2001 3:47 AM
To: MIDRANGE-L@midrange.com
Subject: RE: Code to move left justified alpha to numeric



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

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