× 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: "Ray, Adam" <aray@xxxxxxx>
  • Date: Fri, 2 Feb 2001 11:11:52 -0600

I'm not sure if the following code is any better than what you are doing,
but I think it does what you want it to do. 
When finished num = 000001234567

D char            S             12A   INZ('1234567     ')

D varchar         S             12A   INZ('000000000000') VARYING
D num             S             12S 0                            
C                   EVAL      varchar = %TRIM(char)              
C                   MOVE      varchar       num                  

Hope this helps
Adam Ray


        -----Original Message-----
        From:   Art Tostaine, Jr. [SMTP:art@link400.com]
        Sent:   Friday, February 02, 2001 9:30 AM
        To:     midrange-l@midrange.com
        Subject:        Code to move left justified alpha to numeric

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