Date:         Tue, 16 Nov 1999 08:40:51 -0500
Reply-To:     RAITHEM <RAITHEM@WESTAT.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         RAITHEM <RAITHEM@WESTAT.COM>
Subject:      MVS: Re[666]: **** Test Your Code ****
Content-Type: text/plain; charset=US-ASCII

Dear SAS-L-ers,

What a fascinating thread!

I want to take this time to thank each and every one of you who has contributed
his or her time posting answers on SAS-L.  I _DO_ appreciate your effort, your
intellect, your slant, and your expertise.  I love it when the answers are 100%
accurate; I understand completely when they are not.

My overall opinion about SAS-L can be summarized in the execution of the
"UNTESTED" SAS code below.  I sure hope that you do not
cut-and-paste-and-execute it, and then blast me for its inaccuracies:-)

options nodate nonumber;

data untested;

input @1 linenum 2.
      @4 words $char8.
      ;

cards;
3  always
19 what
5  what
12 sometime
7  want.
8  But
9  if
2  can't
11 try
15 will
14 you
10 you
1  You
6  you
17 you
20 you
21 need!
13 then
16 find
18 get
4  get

run;

proc sort;
     by linenum;
run;


data untested;
set  untested end=eof;

retain message;
retain  z 1;

substr(message,z,8) = words;
z + 9;

if eof then do;
      message=compbl(message);
      output;
end;
else delete;

run;


proc print noobs label;
var message;
label message = 'Generally, on SAS-L I find that: ';
run;

I hope that this suggestion proves helpful now, and in the future!

 Of course, all of these opinions and insights are my own, and do not
 reflect those of my organization or my associates.

 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 Michael A. Raithel
 E-mail: maraithel@mcimail.com
 Author: Tuning SAS Applications in the MVS Environment
 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 It's nice to be good; but it is good to be nice. --  I can't remember where I
got this one!
 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++