Date:         Fri, 30 Aug 2002 10:18:06 -0400
Reply-To:     "John J Genzano, III" <jgenzano@GENZANO.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         "John J Genzano, III" <jgenzano@GENZANO.COM>
Subject:      Re: Efficiency coding - Base
Comments: To: Wendy Branson <kizmet005@HOTMAIL.COM>
In-Reply-To:  <200208301352.g7UDq2X14521@listserv.cc.uga.edu>
Content-Type: text/plain; charset="us-ascii"

Or better yet, try this:

Proc sort data=lparin.cicstran(keep=APPLID TRANNAME IRESPTM SYSTEM
TASCPUTM TDTOTCN
TSTOTCN FCTOTCN SUSPNDTM TASDSPTM WTDISPTM WTTCIOTM UOWTIME TASKNR
TCLASS STRTTIM)
           out=lparin;
 WHERE program ne '########';

Should be much faster.

John J Genzano, III
Principal Consultant
Genzano Software Consulting
610-517-2591
SAS Certified Professional, V6

"The right to be heard does not automatically include the right to be
taken seriously." - Hubert Humphrey



-----Original Message-----
From: SAS(r) Discussion [mailto:SAS-L@LISTSERV.UGA.EDU] On Behalf Of
Wendy Branson
Sent: Friday, August 30, 2002 9:52 AM
To: SAS-L@LISTSERV.UGA.EDU
Subject: Re: Efficiency coding - Base


Hi,

Here's the first thing that springs to mind...

On Fri, 30 Aug 2002 09:24:08 -0400, Abakah Nori (crm1nxa)
<crm1nxa@UPS.COM>
wrote:

Change this:

>13           DATA LPARIN;
>
>14                SET LPARIN.CICSTRAN;
>
>                                                           THE SAS
SYSTEM
>
>
>
>15                KEEP APPLID TRANNAME IRESPTM SYSTEM TASCPUTM TDTOTCN
>TSTOTCN
>16                     FCTOTCN SUSPNDTM TASDSPTM WTDISPTM WTTCIOTM
UOWTIME
>TASKNR
>17                     TCLASS HOUR DATE;
>
>20                IF PROGRAM='########' THEN DELETE;
>
>21

to this:

DATA LPARIN;

  SET LPARIN.CICSTRAN (keep=APPLID TRANNAME IRESPTM SYSTEM TASCPUTM
TDTOTCN
TSTOTCN FCTOTCN SUSPNDTM TASDSPTM WTDISPTM WTTCIOTM UOWTIME TASKNR
TCLASS
HOUR DATE where=(PROGRAM ne '########'));


--Wendy