|
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, On Fri, 2 Feb 2001, Art Tostaine, Jr. wrote: > I have a field called TRZPRO which is defined as 12 char alphanumeric. The > field contains something like this (periods are spaces) > > 1234567..... > > I can have any number of digits and spaces. > > I want to put that into a 12 digit numeric field called ID#. > > I came up with this code (WL is a 2 digit numeric field), TRZPROS is defined > LIKE(TRZPRO) > > c Eval Wl = %len(%Trimr(TrzPro)) > c Eval TrzProS = '000000000000' > c Eval %Subst(TrzPros:13-Wl:wl) = %Trimr(TrzPro) > c Move TrzPros Id# > > We tried all sorts of things with Triml/trimr, Moves, etc. > > Is there a better way? > > Art Tostaine, Jr. > CCA, Inc. > Jackson, NJ 08527 > +--- | 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.