::~:: NOTE: IF YOU REPLY, ALL TEXT FOLLOWING THIS LINE WILL BE IGNORED.

     Trknum: us6408149
    Sitenum: 0000000000
    Company:
      Phone:

         OS: unknown       Product: base
 OS Release:                 Topic: logic
Product Rel: unknown      Subtopic:
    TSLevel: unknown  

<=== Page: 1 === SAS Consultant === emailed w/answer === 06Jun2006 09:03:40 ===>

Kazuaki,

Here is some new data and revised code.

data a;
input x $;
cards;
a
.
.
.
.
b
.
.
.
.
c
.
.
.
.
run;

data b(keep=x);
  set a;
  if  x ne ' ' then temp=x;
  retain temp;
  if x=' ' then x=temp;
  else temp=x;
proc print;run;