Z:\to_server\website\mrdcl-learning.com\mrdcl_files\DAT-102\run12c.stp
start data,
serial number in columns 1,2,3,
card characters 1000,
!
ds $gender=$5/1,2,
x='Gender\Male;
Female',
xt='Gender',
d$11-15=$11-15,
if $11-15/nb,go out to eating,
d$11-15=$16-20,
if $11-15/nb,go out to eating,
d$11-15=$21-25,
if $11-15/nb,go out to eating,
d$11-15=$26-30,
if $11-15/nb,go out to eating,
d$11-15=$31-35,
if $11-15/nb,go out to eating,
d$11-15=$36-40,
if $11-15/nb,go out to eating,
d$11-15=$41-45,
if $11-15/nb,go out to eating,
d$11-15=$46-50,
if $11-15/nb,go out to eating,
d$11-15=$51-55,
if $11-15/nb,go out to eating,
d$11-15=$56-60,
if $11-15/nb,go out to eating,
d$11-15=$61-65,
if $11-15/nb,go out to eating,
d$11-15=$66-70,
if $11-15/nb,go out to eating,
d$11-15=$71-75,
if $11-15/nb,go out to eating,
d$11-15=$76-80,
if $11-15/nb,go out to eating,
go to jumpedto,
@eating,
zero to finish,
ds $where=$11-12/1-10,
x='Restaurant 1;
Rest 2;
Rest 3;
Rest 4;
Rest 5;
Rest 6;
Rest 7;
Rest 8;
Rest 9;
Rest 10',
xt='Restaurant',
ds $type=$13/1,2,
x='Eat in;
Take away',
xt='Type',
ds $cost=$14-15/1..10,11..20,21..30,>30,
x='Up to 10;
11-20;
21-30;
Over 30',
xt='Cost',
ds $level=f,t,
x='Respondent;
Eat out occasion',
xt='Level',
write,
go back,
@jumpedto,
ds $level=t,f,
write,
finish data,
start tables,
global bt#='All respondents',
%jh='<jc>The Project Title<u>',
f=uch,
t#0=$level *,
if $level/1,t#1=$gender *,
ul $level/2,go to next,
global bt#='All eating occasions',
t#2=$where * $gender,
t#3=$type * $gender,
t#4=$cost * $gender,
@next,
finish tables,
