RE: Code to move left justified alpha to numeric

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