Date:         Tue, 24 May 2005 10:22:52 -0700
Reply-To:     Alex Pavluck <apavluck@GMAIL.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         Alex Pavluck <apavluck@GMAIL.COM>
Organization: http://groups.google.com
Subject:      character to numeric with array
Comments: To: sas-l@uga.edu
Content-Type: text/plain; charset="iso-8859-1"

Can someone let me know if there is an easier way to do this:


******(Convert from character values to numeric)********;
array CHARS(*)  $1 WALK92 JOG92 SWIM92 TENNIS92 AEROB92 DANCE92 BIKE92
                WALK97 JOG97 SWIM97 TENNIS97 AEROB97 DANCE97 BIKE97
                WALK99 JOG99 SWIM99 TENNIS99 AEROB99 DANCE99 BIKE99
                WALK01 JOG01 SWIM01 TENNIS01 AEROB01 DANCE01 BIKE01;
array NUMS(*)WALK92N JOG92N SWIM92N TENNIS92N AEROB92N DANCE92N BIKE92N
             WALK97N JOG97N SWIM97N TENNIS97N AEROB97N DANCE97N BIKE97N
             WALK99N JOG99N SWIM99N TENNIS99N AEROB99N DANCE99N BIKE99N
             WALK01N JOG01N SWIM01N TENNIS01N AEROB01N DANCE01N BIKE01N;
        DO f=1 to 28;
                NUMS(f) = INPUT(CHARS(f),1.);
DROP f  WALK92 JOG92 SWIM92 TENNIS92 AEROB92 DANCE92 BIKE92
                WALK97 JOG97 SWIM97 TENNIS97 AEROB97 DANCE97 BIKE97
                WALK99 JOG99 SWIM99 TENNIS99 AEROB99 DANCE99 BIKE99
                WALK01 JOG01 SWIM01 TENNIS01 AEROB01 DANCE01 BIKE01;
        END;