Date:         Wed, 30 Nov 2005 14:38:28 -0500
Reply-To:     "Michael S. Zdeb" <msz03@HEALTH.STATE.NY.US>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         "Michael S. Zdeb" <msz03@HEALTH.STATE.NY.US>
Subject:      Re: Code
Comments: To: "Srna, Carol (C.)" <csrna@FORD.COM>
In-Reply-To:  <A3D5552AD7F7BB4A978B8B4A376775F50649DB8F@na1ecm60.dearborn.ford.com>
Content-type: text/plain; charset=US-ASCII

Hi...

if dsn in : ( '    ' 'The ' '----' 'DATA' '04040404'x) then delete;

Mike Zdeb
U@Albany School of Public Health
1 University Drive
Rensselaer, NY   12144-3456
(P)518-402-6479
(F)630-604-1475




             "Srna, Carol
             (C.)"
             <csrna@FORD.COM>                                           To
             Sent by: "SAS(r)          SAS-L@LISTSERV.UGA.EDU
             Discussion"                                                cc
             <SAS-L@LISTSERV.U
             GA.EDU>                                               Subject
                                       Code

             11/30/2005 02:33
             PM


             Please respond to
               "Srna, Carol
                   (C.)"
             <csrna@FORD.COM>






Hi .
This code give me what I want, but it seems as if it could be "cleaner".
Any ideas/tips?  Thanks In Advance, Carol


DATA FILE01;
INFILE IN01;
INPUT @2 dsn $44.
            @49 job_name $8.
            @60 action   $9.  ;

if substr(dsn,1,4) = '    ' then delete;
if substr(dsn,1,4) = 'The ' then delete;
if substr(dsn,1,4) = '----' then delete;
if substr(dsn,1,4) = 'DATA' then delete;
if substr(dsn,1,4) = '04040404'x then delete;
 run;