cat > script.ff <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
	program sort
EXEC SQL INCLUDE SQLCA;
EXEC SQL WHENEVER SQLERROR GOTO 70;
EXEC SQL BEGIN DECLARE SECTION;
	character *25 name, date *20, amount *9, limit *9
EXEC SQL END DECLARE SECTION;
EXEC SQL INIT;
EXEC SQL DATABASE IS "DATABASE";

EXEC SQL DECLARE c CURSOR FOR SELECT name, credit_limit FROM personnel
		sort by credit_limit ascending;
EXEC SQL OPEN c;
EXEC SQL WHENEVER NOT FOUND GOTO 20;
10	continue 
EXEC SQL FETCH c name, credit_limit INTO :name, :limit;
	write (*,100) name,limit
 100    format (' ', A25, A9)
	goto 10
20	continue
	print *," " 
EXEC SQL CLOSE c;
EXEC SQL DECLARE d CURSOR FOR SELECT FROM loans 
		WHERE amount >= 75 sort by amount descending;
		
EXEC SQL OPEN d;
EXEC SQL WHENEVER NOT FOUND GOTO 40;
30	continue
EXEC SQL FETCH d name, date, amount INTO :name, :date, :amount;
	write (*,101) name,date,amount
 101    format (' ', A25, A20, A8)
	goto 30 
40	continue
	print *," "
EXEC SQL CLOSE d;
EXEC SQL DECLARE e CURSOR FOR SELECT FROM loans where 
		amount >= 55 and amount < 300 order by name ascending, 
		amount descending;
EXEC SQL OPEN e;
EXEC SQL WHENEVER NOT FOUND GOTO 60;
50	continue
EXEC SQL FETCH e name, date, amount INTO :name, :date, :amount;
	write (*,101) name,date,amount
	goto 50
60	continue 
	print *, " "
EXEC SQL EXIT;
	STOP
70	continue
	write (*,1001) SQLRET, sqltxt
 1001	format (' ', "SQLRET number ", I6, "Message is ", A70)
EXEC SQL EXIT ;
	STOP
	END
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script.ff
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Scarlatti                $100.00  
Waldislaw                $200.00  
Peterson                 $250.00  
Kilroy                   $500.00  
Jones                    $500.00  
Mosca                    $750.00  

Jones                    12 August    1981   $300.00 
Kilroy                   16 February  1981   $250.00 
Mosca                    4 May       1981    $200.00 
Mosca                    2 February  1981    $150.00 
Wladislaw                25 June      1981   $75.00  

Kilroy                   16 February  1981   $250.00 
Mosca                    4 May       1981    $200.00 
Mosca                    2 February  1981    $150.00 
Wladislaw                25 June      1981   $75.00  
Wladislaw                27 February  1981   $55.00  

+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Test of sorting on one or two attributes
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
