Date:         Sat, 13 Jul 2002 12:12:09 -0700
Reply-To:     Roger DeAngelis <xlr82sas@AOL.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         Roger DeAngelis <xlr82sas@AOL.COM>
Organization: http://groups.google.com/
Subject:      Worked in 6.12 but not 8.2 - SASNAME functionality undocumented
              functions
Content-Type: text/plain; charset=ISO-8859-1

/* will check for valid SAS 6.12 name - but not SAS 7-8 */

 data _null_;    /* $n class is valid SAS name class */

   rx = rxparse ( "` $n " ); /* $n sasname class  */

   length SAS_Name  $40;

   SAS_Name='SAS_Nam';

   call rxsubstr  ( rx, SAS_Name,Position,LengthName);

   If   Length(Trim(Left(SAS_Name))) = LengthName
        then put SAS_Name "is a Valid SAS Name.";

   Else Put SAS_Name "is an Invalid SAS Name.";

   call rxfree ( rx );

  run;


          /* SCL function still not avliable in macro language */

%let rc=%sysfunc(sasname(VALID));
%put rc=;