C:\to_server\website\mrdcl-learning.com\mrdcl_files\PRJ-101\run13e.stp
start data,
serial number in columns 1,2,3,
card characters 100,
ds $gender=$5/1,2,
x='Male;
Female',
xt='Gender',
ds $age=$6/1-3,
x='Under 35;
36-54;
55+',
xt='Age',
!
di $price=$7-8,
xt='Cost',
ds $rimext=$gender.by.$age,
dw $weight=$rimext(#rimwt),
xt='Weight',
finish data,
