C:\to_server\website\mrdcl-learning.com\mrdcl_files\DAT-104\read_data_2.stp
start data,
serial number in columns 1-3,
card characters 200,
read(a) $1-100,
read(b) $101-200,
if $1-3.ne.$101-103,list 'Error'.$1-3.$101-103,
ds $q1=$4/1-5,
x='Code 1;
Code 2;
Code 3;
Code 4;
Code 5',
xt='Q1',
ds $q99=$104/1-5,
x=$q1,
xt='Q99',
finish data,
start tables,
t#1=$q1 *,
t#2=$q99 *,
finish tables,
