C:\to_server\website\mrdcl-learning.com\mrdcl_files\DAT-104\read_data_1.stp
start data,
serial number in columns 1-3,
card characters 100,
read $1-100,
ds $q1=$4/1-5,
x='Code 1;
Code 2;
Code 3;
Code 4;
Code 5',
xt='Q1',
if $q1/5,elist 'Outside my sample',
di $xierr=0,
write,
finish data,
start tables,
t#1=$q1 *,
finish tables,
