cat > script <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
parameters
	char	dbname;
end

let database = dbname;
let dx = database;
let attr1 = "date";

select var.attr1, description from 'var.dx':worked sort by date;

for each week of attr "date" ending tuesday
	print "-------------------", newline;
	for each record
		print attr "date" picture "wwwwwwwwww dd aaaaaaaaaa, yyyy",
		      column 30,
		      description width 30,
		      newline;
		end;
	end;

end;
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 755 script
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
-------------------
Monday 28 February, 1983     Bent Rear Fender
Monday 28 February, 1983     Lube and grease
Monday 28 February, 1983     Tire repair
Monday 28 February, 1983     Sparks & tune
Monday 28 February, 1983     Oil change
Monday 28 February, 1983     Exhaust pipe
Monday 28 February, 1983     Repair trans
Monday 28 February, 1983     Replace windshield
Monday 28 February, 1983     Bent front fender
Monday 28 February, 1983     Change muffler
Tuesday 1 March, 1983        Sparks & tune
Tuesday 1 March, 1983        Replace rear wheel
Tuesday 1 March, 1983        Wheel alignment
Tuesday 1 March, 1983        Adjust carburettor
Tuesday 1 March, 1983        Sparks & tune
Tuesday 1 March, 1983        Bent door
Tuesday 1 March, 1983        Wheel alignment
Tuesday 1 March, 1983        Fill battery
Tuesday 1 March, 1983        Major body work
Tuesday 1 March, 1983        Replace rear wheels
Tuesday 1 March, 1983        Lube & grease
-------------------
Wednesday 2 March, 1983      Repair transmission
Wednesday 2 March, 1983      Replace headlights
Wednesday 2 March, 1983      Bent left door
Wednesday 2 March, 1983      Change trans fluid
Wednesday 2 March, 1983      Recharge battery
Wednesday 2 March, 1983      Change tires
Wednesday 2 March, 1983      Wheel alignment
Wednesday 2 March, 1983      Bent rear fender
Wednesday 2 March, 1983      Sparks & tune
Wednesday 2 March, 1983      Tire repair
Wednesday 2 March, 1983      Bent doors
Thursday 3 March, 1983       Major body work
Thursday 3 March, 1983       Replace windshield
Thursday 3 March, 1983       Tune up
Thursday 3 March, 1983       Repair brakes
Thursday 3 March, 1983       Replace shocks
Thursday 3 March, 1983       Bent fender
Thursday 3 March, 1983       Tune up
Thursday 3 March, 1983       Synch pistons
Thursday 3 March, 1983       Change muffler
Thursday 3 March, 1983       Check battery
Thursday 3 March, 1983       Lube & grease
Thursday 3 March, 1983       Radiator repair
Thursday 3 March, 1983       Exhaust pipe
Thursday 3 March, 1983       Wheel alignment
Thursday 3 March, 1983       Bent front fender
Friday 4 March, 1983         Oil change
Friday 4 March, 1983         Change battery
Friday 4 March, 1983         Sparks & tune
Friday 4 March, 1983         Replace taillight
Friday 4 March, 1983         Oil change
Friday 4 March, 1983         Oil change
Friday 4 March, 1983         Recharge battery
Friday 4 March, 1983         Ignition repair
Friday 4 March, 1983         Sparks & tune
Friday 4 March, 1983         Change tires
Saturday 5 March, 1983       Radiator repair
Saturday 5 March, 1983       Ignition repair
Saturday 5 March, 1983       Tune up
Saturday 5 March, 1983       Recharge battery
Saturday 5 March, 1983       Change tires
Saturday 5 March, 1983       Change muffler
Saturday 5 March, 1983       Adjust carburettor
Saturday 5 March, 1983       Check brakes
Saturday 5 March, 1983       Replace taillights
Saturday 5 March, 1983       Tune up
Saturday 5 March, 1983       Repair brakes
Saturday 5 March, 1983       Change muffler





























































+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
test var. and var.{}
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
