× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: RE: Code to move left justified alpha to numeric
  • From: "Art Tostaine, Jr." <art@xxxxxxxxxxx>
  • Date: Thu, 8 Feb 2001 09:37:05 -0500
  • Importance: Normal

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.