cat > script <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
set '"Smith"', '8 June 1985', 100.00;
set tab loans;
set nam to 'Mosca';
select from $tab;
insert into $tab values $1, '$2', $3;
update $tab (name) '${nam}tts' where name match '$nam';
select from $tab;
unset tab;
select from $tab;
set 1;
select from loans where name = $2;
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 755 script
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
* * * * name                                    date        amount

Mosca                       2 February  1981       $150.00
Jones                       7 February  1981        $33.95
Kilroy                     16 February  1981       $250.00
Wladislaw                  27 February  1981        $55.00
Jones                       3 April     1981        $25.00
Mosca                       4 May       1981       $200.00
Wladislaw                  12 May       1981        $25.00
Peterson                    6 June      1981        $50.00
Wladislaw                  25 June      1981        $75.00
Jones                      12 August    1981       $300.00
* * * name                                    date        amount

Moscatts                    2 February  1981       $150.00
Jones                       7 February  1981        $33.95
Kilroy                     16 February  1981       $250.00
Wladislaw                  27 February  1981        $55.00
Jones                       3 April     1981        $25.00
Moscatts                    4 May       1981       $200.00
Wladislaw                  12 May       1981        $25.00
Peterson                    6 June      1981        $50.00
Wladislaw                  25 June      1981        $75.00
Jones                      12 August    1981       $300.00
Smith                       8 June      1985       $100.00
* * *** Unknown Variable: 'tab'
Error detected near the end of:
select from 
Actual input read was:
select from $tab;
* * *** Unknown Variable: '02'
Error detected near the end of:
select from loans where name = 
Actual input read was:
select from loans where name = $2;
* 
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Test for "set" command
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
cat > stdout.jp_euc <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
* * * * name                                    date        amount

Mosca                       2 February  1981       $150.00
Jones                       7 February  1981        $33.95
Kilroy                     16 February  1981       $250.00
Wladislaw                  27 February  1981        $55.00
Jones                       3 April     1981        $25.00
Mosca                       4 May       1981       $200.00
Wladislaw                  12 May       1981        $25.00
Peterson                    6 June      1981        $50.00
Wladislaw                  25 June      1981        $75.00
Jones                      12 August    1981       $300.00
* * * name                                    date        amount

Moscatts                    2 February  1981       $150.00
Jones                       7 February  1981        $33.95
Kilroy                     16 February  1981       $250.00
Wladislaw                  27 February  1981        $55.00
Jones                       3 April     1981        $25.00
Moscatts                    4 May       1981       $200.00
Wladislaw                  12 May       1981        $25.00
Peterson                    6 June      1981        $50.00
Wladislaw                  25 June      1981        $75.00
Jones                      12 August    1981       $300.00
Smith                       8 June      1985       $100.00
* * *** ѿ̵Ǥ: 'tab'
顼ζ᤯ǵƤޤ:
select from 
ºݤɤ߹:
select from $tab;
* * *** ѿ̵Ǥ: '02'
顼ζ᤯ǵƤޤ:
select from loans where name = 
ºݤɤ߹:
select from loans where name = $2;
* 
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout.jp_euc
