cat > script <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
alter personnel add newdate date (5);
alter personnel change sint longinteger, dollar2 dollar (3,3) not null;
alter loans add flakey char (15,3) not null;
alter loans add flakey char (15,3);
alter loans change flakey text (1, 1, 1) not null;
alter personnel delete unknown;
select tab_name, attr_name, attr_dtname from sys_attrs, sys_tables
	where sys_tables.tab_name = 'personnel'
	and sys_tables.tab_number = sys_attrs.attr_tabnum
	group by sys_tables.tab_name
	order by tab_name, attr_name;
select tab_name, attr_name, attr_dtname from sys_attrs, sys_tables
	where sys_tables.tab_name = 'loans'
	and sys_tables.tab_number = sys_attrs.attr_tabnum
	group by sys_tables.tab_name
	order by tab_name, attr_name;
alter loans delete flakey;
alter personnel delete newdate
	change sint shortinteger
	change dollar2 dollar (7,2);
select tab_name, attr_name, attr_dtname from sys_attrs, sys_tables
	where sys_tables.tab_name = 'personnel'
	and sys_tables.tab_number = sys_attrs.attr_tabnum
	group by sys_tables.tab_name
	order by tab_name, attr_name;
select tab_name, attr_name, attr_dtname from sys_attrs, sys_tables
	where sys_tables.tab_name = 'loans'
	and sys_tables.tab_number = sys_attrs.attr_tabnum
	group by sys_tables.tab_name
	order by tab_name, attr_name;
create test set big longinteger, small shortinteger;
select tab_name, attr_name, attr_dtname from sys_attrs, sys_tables
	where sys_tables.tab_name = 'test'
	and sys_tables.tab_number = sys_attrs.attr_tabnum
	group by sys_tables.tab_name
	order by tab_name, attr_name;
alter test delete big, small;
alter test add medium integer not null;
select tab_name, attr_name, attr_dtname from sys_attrs, sys_tables
	where sys_tables.tab_name = 'test'
	and sys_tables.tab_number = sys_attrs.attr_tabnum
	group by sys_tables.tab_name
	order by tab_name, attr_name;
drop test;
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 755 script
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
* * * 
*** Error: cannot add 'not null' attribute to non-empty table
* * 
*** Error: null value for attribute 'flakey'
* 
*** Error: attribute 'unknown' does not exist
* . . . . tab_name                          attr_name                         attr_dtname

personnel                         char2                             character
                                  char3                             character
                                  credit_limit                      dollar
                                  date1                             date
                                  date2                             date
                                  date3                             date
                                  date4                             date
                                  date5                             date
                                  date6                             date
                                  date7                             date
                                  date8                             date
                                  dollar2                           dollar
                                  name                              character
                                  newdate                           date
                                  number                            integer
                                  phone                             longinteger
                                  sint                              longinteger
* . . . . tab_name                          attr_name                         attr_dtname

loans                             amount                            dollar
                                  date                              date
                                  flakey                            character
                                  name                              character
* * . . * . . . . tab_name                          attr_name                         attr_dtname

personnel                         char2                             character
                                  char3                             character
                                  credit_limit                      dollar
                                  date1                             date
                                  date2                             date
                                  date3                             date
                                  date4                             date
                                  date5                             date
                                  date6                             date
                                  date7                             date
                                  date8                             date
                                  dollar2                           dollar
                                  name                              character
                                  number                            integer
                                  phone                             longinteger
                                  sint                              smallint
* . . . . tab_name                          attr_name                         attr_dtname

loans                             amount                            dollar
                                  date                              date
                                  name                              character
* * . . . . tab_name                          attr_name                         attr_dtname

test                              big                               longinteger
                                  small                             smallint
* 
*** Error: no attributes left in table 'test'
* * . . . . tab_name                          attr_name                         attr_dtname

test                              big                               longinteger
                                  medium                            integer
                                  small                             smallint
* * 
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Test for "alter" command
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
cat > stdout.jp_euc <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
* * * 
*** Error: 쥳ɤ¸ߤơ֥ 'not null' ȥӥ塼ɲäϤǤޤ
* * 
*** Error: ȥӥ塼 'flakey' ͤϥ̥(NULL)Ǥ
* 
*** Error: ȥӥ塼 'unknown' ¸ߤޤ
* . . . . tab_name                          attr_name                         attr_dtname

personnel                         char2                             character
                                  char3                             character
                                  credit_limit                      dollar
                                  date1                             date
                                  date2                             date
                                  date3                             date
                                  date4                             date
                                  date5                             date
                                  date6                             date
                                  date7                             date
                                  date8                             date
                                  dollar2                           dollar
                                  name                              character
                                  newdate                           date
                                  number                            integer
                                  phone                             longinteger
                                  sint                              longinteger
* . . . . tab_name                          attr_name                         attr_dtname

loans                             amount                            dollar
                                  date                              date
                                  flakey                            character
                                  name                              character
* * . . * . . . . tab_name                          attr_name                         attr_dtname

personnel                         char2                             character
                                  char3                             character
                                  credit_limit                      dollar
                                  date1                             date
                                  date2                             date
                                  date3                             date
                                  date4                             date
                                  date5                             date
                                  date6                             date
                                  date7                             date
                                  date8                             date
                                  dollar2                           dollar
                                  name                              character
                                  number                            integer
                                  phone                             longinteger
                                  sint                              smallint
* . . . . tab_name                          attr_name                         attr_dtname

loans                             amount                            dollar
                                  date                              date
                                  name                              character
* * . . . . tab_name                          attr_name                         attr_dtname

test                              big                               longinteger
                                  small                             smallint
* 
*** Error: ơ֥ 'test' ˥ȥӥ塼Ȥ¸ߤޤ
* * . . . . tab_name                          attr_name                         attr_dtname

test                              big                               longinteger
                                  medium                            integer
                                  small                             smallint
* * 
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout.jp_euc
