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


  1.  Home
  2. RPG400-L
  3. April 2000

Re: Convert Alpha to Numeric

  • Subject: Re: Convert Alpha to Numeric
  • From: "End of the Trail" <endofthetrail@xxxxxxxxxxx>
  • Date: Fri, 14 Apr 2000 21:44:36 -0500
Title: Convert Alpha to Numeric
This assumes that alpha field is already right justified.  Most alpha fields are left justified.
-----Original Message-----
From: Gary Monnier <GaryMon@powertechgroup.com>
To: RPG400-L@midrange.com <RPG400-L@midrange.com>
Date: Friday, April 14, 2000 8:25 PM
Subject: Re: Convert Alpha to Numeric

Have you tried the Move op-code?  It should do what you want to do.
 
    MOVE     AlphaField            NumericFld
 
Another way is to define a data structure
 
DSName        DS
  AlphaField                 1   20
  NumericFld              11   20  3
 
or
 
DSName        DS
  AlphaField                 1   20
  NumericFld                     10  3      Overlay(AlphaField:11)
----- Original Message -----
Sent: Friday, April 14, 2000 2:00 PM
Subject: Convert Alpha to Numeric

Hello.  I may be asking a basic question but what is the best way to convert an alpha field into a numeric?  In my situation I have a 20-Alpha where the values are whole numbers.  I need to get that whole number into a 10.3 field.

Any suggestions would be greatly appreciated!  Thanks!

--------------------------------------------------------
Kevin Baltus - Programmer/Analyst
(651) 290-6179   kbaltus@automaticproducts.com
Gross-Given Mfg/Automatic Products International
http://www.automaticproducts.com

Blatant Band Plug
http://www.twitch.org




As an Amazon Associate we earn from qualifying purchases.

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