C:\to_server\website\mrdcl-learning.com\mrdcl_files\DAT-108\run_counts.stp
start data,
serial number in columns 1-4,
card characters binary 100,
if ct($5:1..2)/n1,list $iobs.'Count not 1'.$5,
dm $var=$5/1,2,
x='Yes;
No',
xt='Variable',
if $var/nc1,list $5,
if $5/c1,list 'Single code'.$5,
ds $newvar=$var/c0-2, !! same as c0, c1, c2
x='Blank;
1 answer;
2 answers',
xt='New var',
dm $multi=$6-15,
ds $count_multi=$multi/c0,c1,c2..4,c5..10,
x='Count 0;
Count 1;
Count 2 to 4;
Count 5 or more',
xt='Count multi',
finish data,
start tables,
t#1=$newvar *,
t#2=$count_multi *,
finish tables,
