/* SAMPLE SAS PROGRAM "WT93B.SAS" */

/* Data Extraction from World Tables of Economic
   and Social Indicators 1950-1992  */

filename in1 'U:\ArchiveData\sind\059\da6159' lrecl = 937;
libname ssd  'U:\Users\your_netid\';
options ls=79;

data ssd.data1;
 infile in1 lrecl=937;

 retain agnp71-agnp91 cgnp71-cgnp91 pop71-pop91
        agnp cgnp pop;

 input country $1-3 unit $5-34@;
 if unit='KP.L.GNP.MP' then do; input
   @476 (agnp71-agnp91)(21.); agnp=unit; end;
 else if unit='CP.L.NETFCTY' then do; input
   @476 (cgnp71-cgnp91)(21.); cgnp=unit; end;
 else if unit='PR.POPN' then do; input
   @476 (pop71-pop91)(21.); pop=unit; end;
 else delete;
 drop unit;
 output;
run;

 proc print data=ssd.data1;
 run;