createtable.sql

用COBOL语言基于IBM大型机实现的一系列样例程序。

create table saving(
  acct  char(10) not null primary key,
  custnm char(10) not null,
  bal   decimal(13,2) not null,
  passwd char(6) not null,
  stat   char(1) not null);
insert into saving values('4201111001','WISTRONITS',1000,'111111','0');
insert into saving values('4201111002','WISTRONITS',1000,'111111','9');
insert into saving values('4201111003','WISTRONITS',1,'111111','0');