home *** CD-ROM | disk | FTP | other *** search
- SYSTEM/MANAGER
- rem IADTABLE.SQL
-
- set termout on
- spool iadtables.lis
- rem drop table iapapp;
- rem drop table iapblk;
- rem drop table iapfld;
- rem drop table iaptrigger;
- rem drop table iapsqltxt;
- rem drop table iaptrg;
- rem drop table iapmap;
- rem drop table iapcomment;
- create table iapapp
- (
- appid number not null,
- appowner char(30),
- appname char(30) not null,
- apptitle char(80),
- appwksize number
- )
- /
- insert into iapapp values( 1, null, 'Next ID', null, null )
- /
- COMMIT
- create table iapblk
- (
- blkappid number not null,
- blkname char(30) not null,
- blkdesc char(60),
- blkhide char(1),
- blkseq number,
- blkunqkey char(1),
- blkctrl char(1),
- blktowner char(30),
- blktname char(30),
- blknorec number,
- blknobuf number,
- blkblin number,
- blklnrc number,
- blkobysql number
- )
- /
- create table iapfld
- (
- fldappid number not null,
- fldblk char(30) not null,
- fldname char(30) not null,
- fldseq number,
- fldtype char(7),
- fldlen number,
- flddlen number,
- fldqlen number,
- fldbtab char(1),
- fldkey char(1),
- fldckblk char(30),
- fldckfld char(30),
- flddflt char(80),
- flddisp char(1),
- fldpage number,
- fldline number,
- fldcol number,
- fldprompt char(80),
- fldprabov char(1),
- fldprrpt char(1),
- fldenter char(1),
- fldquery char(1),
- fldupdate char(1),
- fldupdnul char(1),
- fldmand char(1),
- fldfixed char(1),
- fldskip char(1),
- fldhide char(1),
- fldautohlp char(1),
- fldupper char(1),
- fldlovt char(61),
- fldlovc char(30),
- fldlow char(30),
- fldhi char(30),
- fldhelp char(80)
- )
- /
- create table iaptrigger
- (
- trigappid number not null,
- trigblk char(30),
- trigfld char(30),
- trigtype char(30) not null,
- trigdesc char(20),
- trighide char(1)
- )
- /
- create table iaptrg
- (
- trgappid number not null,
- trgblk char(30),
- trgfld char(30),
- trgtype char(30),
- trgseq number,
- trglabel char(30),
- trgsql number,
- trgcurs char(1),
- trgmve char(1),
- trginv char(1),
- trgroll char(1),
- trgslab char(30),
- trgflab char(30),
- trgmsg char(80)
- )
- /
- create table iapsqltxt
- (
- sqtappid number not null,
- sqtno number not null,
- sqtline number,
- sqttext char(80)
- )
- /
- create table iapmap
- (
- mapappid number not null,
- mappage number not null,
- mapline number,
- mapgrph char(1),
- maptext char(132)
- )
- /
- create table iapcomment
- (
- cmtappid number not null,
- cmtblk char(30),
- cmtfld char(30),
- cmttrgtyp char(30),
- cmttrgseq number,
- cmtline number,
- cmttext char(80)
- )
- /
- REM Now you may start SETUPIAD
- EXIT