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