Programming Languages Suite/ProgramD2.iso/Database Designers/Erwin 3.0/ERWIN/CIS1.ERS

Text File | 1997-02-16 | 39.2 KB | 1,474 lines

CREATE TABLE CI301CMP
      (COMP_CD                  CHAR(18) NOT NULL,
       COMP_NM                  CHAR(18) NULL,
       COMP_ADD1                CHAR(18) NULL,
       COMP_ADD2                CHAR(18) NULL,
       CITY                     CHAR(18) NULL,
       MD_CHAIRMAN              CHAR(18) NULL,
       MD_CHRMAN_DESG           CHAR(18) NULL,
       PO_CD                    CHAR(18) NULL,
       TEL_NO                   CHAR(18) NULL,
       EMAIL_ADD                CHAR(18) NULL,
       NO_EMP                   CHAR(18) NULL,
       BUS_ACT                  CHAR(18) NULL,
       MUL_NAT                  CHAR(18) NULL,
       JOIN_VENT                CHAR(18) NULL,
       GRP_NM                   CHAR(18) NULL,
       NO_BRN                   CHAR(18) NULL
);

CREATE UNIQUE INDEX XPKCI301CMP
  ON CI301CMP
(
COMP_CD                          ASC
);




CREATE TABLE CI302PFM
      (COMP_CD                  CHAR(18) NOT NULL,
       CMP_TYP                  CHAR(18) NOT NULL,
       MODEL                    CHAR(18) NULL,
       PUR_YEAR                 CHAR(18) NULL,
       SPECIFIC                 CHAR(18) NULL,
       MEMORY                   CHAR(18) NULL,
       H_DISK                   CHAR(18) NULL,
       TERM                     CHAR(18) NULL,
       PRINTERS                 CHAR(18) NULL,
       PLOTTERS                 CHAR(18) NULL,
       DISK_DRV                 CHAR(18) NULL,
       TAPE_DRV                 CHAR(18) NULL,
       COMM                     CHAR(18) NULL,
       NO_OF_PCS                CHAR(18) NULL,
       PROCESSOR                CHAR(18) NULL,
       UNITS                    CHAR(18) NULL
);

CREATE UNIQUE INDEX XPKCI302PFM
  ON CI302PFM
(
COMP_CD                          ASC,
CMP_TYP                          ASC
);




CREATE TABLE CI303CMP
      (CMP_TYP                  CHAR(18) NOT NULL,
       CMP_NM                   CHAR(18) NULL
);

CREATE UNIQUE INDEX XPKCI303CMP
  ON CI303CMP
(
CMP_TYP                          ASC
);




CREATE TABLE CI304NET
      (NET_CD                   CHAR(18) NOT NULL,
       COMP_CD                  CHAR(18) NOT NULL,
       NO_OF_TERM               CHAR(18) NULL
);

CREATE UNIQUE INDEX XPKCI304NET
  ON CI304NET
(
NET_CD                           ASC,
COMP_CD                          ASC
);




CREATE TABLE CI305ZON
      (COMP_CD                  CHAR(18) NOT NULL,
       ZON_NM                   CHAR(18) NULL,
       MACHINE                  CHAR(18) NULL,
       MAKE                     CHAR(18) NULL,
       SPECIFIC_2               CHAR(18) NULL,
       NO_OF_USERS              CHAR(18) NULL,
       OPR_SYS                  CHAR(18) NULL,
       LANGUAGE                 CHAR(18) NULL,
       DBS_MANAGMNT             CHAR(18) NULL,
       WORD_PROC                CHAR(18) NULL,
       SPREAD_SHEETS            CHAR(18) NULL
);

CREATE UNIQUE INDEX XPKCI305ZON
  ON CI305ZON
(
COMP_CD                          ASC
);




CREATE TABLE CI306VND
      (COMP_CD                  CHAR(18) NOT NULL,
       CMP_TYP                  CHAR(18) NOT NULL,
       VND_CD                   CHAR(18) NULL,
       VND_NM                   CHAR(18) NULL,
       VND_ADD                  CHAR(18) NULL,
       VND_ADD1                 CHAR(18) NULL,
       VND_TEL                  CHAR(18) NULL,
       VND_FAX                  CHAR(18) NULL,
       YEAR_PUR                 CHAR(18) NULL,
       YEAR_MNT                 CHAR(18) NULL
);

CREATE UNIQUE INDEX XPKCI306VND
  ON CI306VND
(
COMP_CD                          ASC,
CMP_TYP                          ASC
);




CREATE TABLE CI307SFT
      (COMP_CD                  CHAR(18) NOT NULL,
       OPR_SYS_2                CHAR(18) NULL,
       NO_OF_USR                CHAR(18) NULL
);

CREATE UNIQUE INDEX XPKCI307SFT
  ON CI307SFT
(
COMP_CD                          ASC
);




CREATE TABLE CI308APP
      (COMP_CD                  CHAR(18) NOT NULL,
       PRG_LANG                 CHAR(18) NULL,
       DBS_MANGMNT              CHAR(18) NULL,
       WORD_PROC_2              CHAR(18) NULL,
       SPRD_SHT                 CHAR(18) NULL,
       PRESENT                  CHAR(18) NULL,
       DESK_PUBLISH             CHAR(18) NULL,
       COMM_NET                 CHAR(18) NULL,
       OTHERS                   CHAR(18) NULL
);

CREATE UNIQUE INDEX XPKCI308APP
  ON CI308APP
(
COMP_CD                          ASC
);




CREATE TABLE CI309SYS
      (SYS_CD                   CHAR(18) NOT NULL,
       SYS_NM                   CHAR(18) NULL
);

CREATE UNIQUE INDEX XPKCI309SYS
  ON CI309SYS
(
SYS_CD                           ASC
);




CREATE TABLE CI310PKG
      (COMP_CD                  CHAR(18) NOT NULL,
       SYS_CD                   CHAR(18) NOT NULL,
       SOURCE                   CHAR(18) NULL,
       SOFT_HOUSE               CHAR(18) NULL
);

CREATE UNIQUE INDEX XPKCI310PKG
  ON CI310PKG
(
COMP_CD                          ASC,
SYS_CD                           ASC
);




CREATE TABLE CI311DPD
      (COMP_CD                  CHAR(18) NOT NULL,
       NO_EMP_2                 CHAR(18) NULL,
       REP_TO1                  CHAR(18) NULL,
       REP_TO2                  CHAR(18) NULL,
       REP_TO3                  CHAR(18) NULL,
       REP_TO4                  CHAR(18) NULL,
       HIERARCHY1               CHAR(18) NULL,
       HIERARCHY2               CHAR(18) NULL,
       HIERARCHY3               CHAR(18) NULL,
       HIERARCHY4               CHAR(18) NULL,
       REMARKS                  CHAR(18) NULL
);

CREATE UNIQUE INDEX XPKCI311DPD
  ON CI311DPD
(
COMP_CD                          ASC
);




CREATE TABLE CI312STF
      (COMP_CD                  CHAR(18) NOT NULL,
       PERSON_NM                CHAR(18) NULL,
       PERSON_DSG               CHAR(18) NULL,
       PERSON_QLF               CHAR(18) NULL,
       PERSON_TEC_QLF           CHAR(18) NULL,
       PERSON_CO_EXP            CHAR(18) NULL,
       PERSON_OT_EXP            CHAR(18) NULL
);

CREATE UNIQUE INDEX XPKCI312STF
  ON CI312STF
(
COMP_CD                          ASC
);




CREATE TABLE CI313SEC
      (SEC_CD                   CHAR(18) NOT NULL,
       SEC_NM                   CHAR(18) NULL
);

CREATE UNIQUE INDEX XPKCI313SEC
  ON CI313SEC
(
SEC_CD                           ASC
);




CREATE TABLE CI314NET
      (NET_CD                   CHAR(18) NOT NULL,
       NET_NM                   CHAR(18) NULL
);

CREATE UNIQUE INDEX XPKCI314NET
  ON CI314NET
(
NET_CD                           ASC
);




ALTER TABLE CI301CMP
ADD  (  PRIMARY KEY (COMP_CD) )
;

ALTER TABLE CI302PFM
ADD  (  PRIMARY KEY (COMP_CD, CMP_TYP) )
;

ALTER TABLE CI303CMP
ADD  (  PRIMARY KEY (CMP_TYP) )
;

ALTER TABLE CI304NET
ADD  (  PRIMARY KEY (NET_CD, COMP_CD) )
;

ALTER TABLE CI305ZON
ADD  (  PRIMARY KEY (COMP_CD) )
;

ALTER TABLE CI306VND
ADD  (  PRIMARY KEY (COMP_CD, CMP_TYP) )
;

ALTER TABLE CI307SFT
ADD  (  PRIMARY KEY (COMP_CD) )
;

ALTER TABLE CI308APP
ADD  (  PRIMARY KEY (COMP_CD) )
;

ALTER TABLE CI309SYS
ADD  (  PRIMARY KEY (SYS_CD) )
;

ALTER TABLE CI310PKG
ADD  (  PRIMARY KEY (COMP_CD, SYS_CD) )
;

ALTER TABLE CI311DPD
ADD  (  PRIMARY KEY (COMP_CD) )
;

ALTER TABLE CI312STF
ADD  (  PRIMARY KEY (COMP_CD) )
;

ALTER TABLE CI313SEC
ADD  (  PRIMARY KEY (SEC_CD) )
;

ALTER TABLE CI314NET
ADD  (  PRIMARY KEY (NET_CD) )
;


ALTER TABLE CI302PFM
ADD  (  FOREIGN KEY  (CMP_TYP)
               REFERENCES CI303CMP )
;

ALTER TABLE CI302PFM
ADD  (  FOREIGN KEY  (COMP_CD)
               REFERENCES CI301CMP )
;

ALTER TABLE CI304NET
ADD  (  FOREIGN KEY  (NET_CD)
               REFERENCES CI314NET )
;

ALTER TABLE CI304NET
ADD  (  FOREIGN KEY  (COMP_CD)
               REFERENCES CI301CMP )
;

ALTER TABLE CI305ZON
ADD  (  FOREIGN KEY  (COMP_CD)
               REFERENCES CI301CMP )
;

ALTER TABLE CI306VND
ADD  (  FOREIGN KEY  (COMP_CD, CMP_TYP)
               REFERENCES CI302PFM )
;

ALTER TABLE CI306VND
ADD  (  FOREIGN KEY  (COMP_CD)
               REFERENCES CI301CMP )
;

ALTER TABLE CI307SFT
ADD  (  FOREIGN KEY  (COMP_CD)
               REFERENCES CI301CMP )
;

ALTER TABLE CI308APP
ADD  (  FOREIGN KEY  (COMP_CD)
               REFERENCES CI301CMP )
;

ALTER TABLE CI310PKG
ADD  (  FOREIGN KEY  (SYS_CD)
               REFERENCES CI309SYS )
;

ALTER TABLE CI310PKG
ADD  (  FOREIGN KEY  (COMP_CD)
               REFERENCES CI301CMP )
;

ALTER TABLE CI311DPD
ADD  (  FOREIGN KEY  (COMP_CD)
               REFERENCES CI301CMP )
;

ALTER TABLE CI312STF
ADD  (  FOREIGN KEY  (COMP_CD)
               REFERENCES CI301CMP )
;



create trigger tD_CI301CMP after DELETE on CI301CMP for each row
-- ERwin Builtin Sat Feb 15 11:32:13 1997
-- DELETE trigger on CI301CMP
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:13 1997 */
    /* CI301CMP R/19 CI312STF ON PARENT DELETE RESTRICT */
    select count(*) into numrows
      from CI312STF
      where
        /*  %JoinFKPK(CI312STF,:old," = "," and") */
        CI312STF.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20001,
        'Cannot DELETE "CI301CMP" because "CI312STF" exists.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:13 1997 */
    /* CI301CMP R/16 CI311DPD ON PARENT DELETE RESTRICT */
    select count(*) into numrows
      from CI311DPD
      where
        /*  %JoinFKPK(CI311DPD,:old," = "," and") */
        CI311DPD.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20001,
        'Cannot DELETE "CI301CMP" because "CI311DPD" exists.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:13 1997 */
    /* CI301CMP R/14 CI310PKG ON PARENT DELETE RESTRICT */
    select count(*) into numrows
      from CI310PKG
      where
        /*  %JoinFKPK(CI310PKG,:old," = "," and") */
        CI310PKG.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20001,
        'Cannot DELETE "CI301CMP" because "CI310PKG" exists.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:13 1997 */
    /* CI301CMP R/13 CI308APP ON PARENT DELETE RESTRICT */
    select count(*) into numrows
      from CI308APP
      where
        /*  %JoinFKPK(CI308APP,:old," = "," and") */
        CI308APP.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20001,
        'Cannot DELETE "CI301CMP" because "CI308APP" exists.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:13 1997 */
    /* CI301CMP R/12 CI307SFT ON PARENT DELETE RESTRICT */
    select count(*) into numrows
      from CI307SFT
      where
        /*  %JoinFKPK(CI307SFT,:old," = "," and") */
        CI307SFT.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20001,
        'Cannot DELETE "CI301CMP" because "CI307SFT" exists.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:13 1997 */
    /* CI301CMP R/10 CI306VND ON PARENT DELETE RESTRICT */
    select count(*) into numrows
      from CI306VND
      where
        /*  %JoinFKPK(CI306VND,:old," = "," and") */
        CI306VND.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20001,
        'Cannot DELETE "CI301CMP" because "CI306VND" exists.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:13 1997 */
    /* CI301CMP R/9 CI305ZON ON PARENT DELETE RESTRICT */
    select count(*) into numrows
      from CI305ZON
      where
        /*  %JoinFKPK(CI305ZON,:old," = "," and") */
        CI305ZON.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20001,
        'Cannot DELETE "CI301CMP" because "CI305ZON" exists.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:13 1997 */
    /* CI301CMP R/7 CI304NET ON PARENT DELETE RESTRICT */
    select count(*) into numrows
      from CI304NET
      where
        /*  %JoinFKPK(CI304NET,:old," = "," and") */
        CI304NET.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20001,
        'Cannot DELETE "CI301CMP" because "CI304NET" exists.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:13 1997 */
    /* CI301CMP R/5 CI302PFM ON PARENT DELETE RESTRICT */
    select count(*) into numrows
      from CI302PFM
      where
        /*  %JoinFKPK(CI302PFM,:old," = "," and") */
        CI302PFM.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20001,
        'Cannot DELETE "CI301CMP" because "CI302PFM" exists.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:13 1997
end;
/

create trigger tU_CI301CMP after UPDATE on CI301CMP for each row
-- ERwin Builtin Sat Feb 15 11:32:14 1997
-- UPDATE trigger on CI301CMP
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI301CMP R/19 CI312STF ON PARENT UPDATE RESTRICT */
    select count(*) into numrows
      from CI312STF
      where
        /*  %JoinFKPK(CI312STF,:old," = "," and") */
        CI312STF.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20005,
        'Cannot UPDATE "CI301CMP" because "CI312STF" exists.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI301CMP R/16 CI311DPD ON PARENT UPDATE RESTRICT */
    select count(*) into numrows
      from CI311DPD
      where
        /*  %JoinFKPK(CI311DPD,:old," = "," and") */
        CI311DPD.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20005,
        'Cannot UPDATE "CI301CMP" because "CI311DPD" exists.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI301CMP R/14 CI310PKG ON PARENT UPDATE RESTRICT */
    select count(*) into numrows
      from CI310PKG
      where
        /*  %JoinFKPK(CI310PKG,:old," = "," and") */
        CI310PKG.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20005,
        'Cannot UPDATE "CI301CMP" because "CI310PKG" exists.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI301CMP R/13 CI308APP ON PARENT UPDATE RESTRICT */
    select count(*) into numrows
      from CI308APP
      where
        /*  %JoinFKPK(CI308APP,:old," = "," and") */
        CI308APP.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20005,
        'Cannot UPDATE "CI301CMP" because "CI308APP" exists.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI301CMP R/12 CI307SFT ON PARENT UPDATE RESTRICT */
    select count(*) into numrows
      from CI307SFT
      where
        /*  %JoinFKPK(CI307SFT,:old," = "," and") */
        CI307SFT.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20005,
        'Cannot UPDATE "CI301CMP" because "CI307SFT" exists.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI301CMP R/10 CI306VND ON PARENT UPDATE RESTRICT */
    select count(*) into numrows
      from CI306VND
      where
        /*  %JoinFKPK(CI306VND,:old," = "," and") */
        CI306VND.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20005,
        'Cannot UPDATE "CI301CMP" because "CI306VND" exists.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI301CMP R/9 CI305ZON ON PARENT UPDATE RESTRICT */
    select count(*) into numrows
      from CI305ZON
      where
        /*  %JoinFKPK(CI305ZON,:old," = "," and") */
        CI305ZON.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20005,
        'Cannot UPDATE "CI301CMP" because "CI305ZON" exists.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI301CMP R/7 CI304NET ON PARENT UPDATE RESTRICT */
    select count(*) into numrows
      from CI304NET
      where
        /*  %JoinFKPK(CI304NET,:old," = "," and") */
        CI304NET.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20005,
        'Cannot UPDATE "CI301CMP" because "CI304NET" exists.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI301CMP R/5 CI302PFM ON PARENT UPDATE RESTRICT */
    select count(*) into numrows
      from CI302PFM
      where
        /*  %JoinFKPK(CI302PFM,:old," = "," and") */
        CI302PFM.COMP_CD = :old.COMP_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20005,
        'Cannot UPDATE "CI301CMP" because "CI302PFM" exists.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:14 1997
end;
/

create trigger tD_CI302PFM after DELETE on CI302PFM for each row
-- ERwin Builtin Sat Feb 15 11:32:14 1997
-- DELETE trigger on CI302PFM
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI302PFM R/11 CI306VND ON PARENT DELETE RESTRICT */
    select count(*) into numrows
      from CI306VND
      where
        /*  %JoinFKPK(CI306VND,:old," = "," and") */
        CI306VND.COMP_CD = :old.COMP_CD and
        CI306VND.CMP_TYP = :old.CMP_TYP;
    if (numrows > 0)
    then
      raise_application_error(
        -20001,
        'Cannot DELETE "CI302PFM" because "CI306VND" exists.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:14 1997
end;
/

create trigger tI_CI302PFM after INSERT on CI302PFM for each row
-- ERwin Builtin Sat Feb 15 11:32:14 1997
-- INSERT trigger on CI302PFM
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI303CMP R/6 CI302PFM ON CHILD INSERT RESTRICT */
    select count(*) into numrows
      from CI303CMP
      where
        /* %JoinFKPK(:new,CI303CMP," = "," and") */
        :new.CMP_TYP = CI303CMP.CMP_TYP;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20002,
        'Cannot INSERT "CI302PFM" because "CI303CMP" does not exist.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI301CMP R/5 CI302PFM ON CHILD INSERT RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20002,
        'Cannot INSERT "CI302PFM" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:14 1997
end;
/

create trigger tU_CI302PFM after UPDATE on CI302PFM for each row
-- ERwin Builtin Sat Feb 15 11:32:14 1997
-- UPDATE trigger on CI302PFM
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI302PFM R/11 CI306VND ON PARENT UPDATE RESTRICT */
    select count(*) into numrows
      from CI306VND
      where
        /*  %JoinFKPK(CI306VND,:old," = "," and") */
        CI306VND.COMP_CD = :old.COMP_CD and
        CI306VND.CMP_TYP = :old.CMP_TYP;
    if (numrows > 0)
    then
      raise_application_error(
        -20005,
        'Cannot UPDATE "CI302PFM" because "CI306VND" exists.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI303CMP R/6 CI302PFM ON CHILD UPDATE RESTRICT */
    select count(*) into numrows
      from CI303CMP
      where
        /* %JoinFKPK(:new,CI303CMP," = "," and") */
        :new.CMP_TYP = CI303CMP.CMP_TYP;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20007,
        'Cannot UPDATE "CI302PFM" because "CI303CMP" does not exist.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI301CMP R/5 CI302PFM ON CHILD UPDATE RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20007,
        'Cannot UPDATE "CI302PFM" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:14 1997
end;
/

create trigger tD_CI303CMP after DELETE on CI303CMP for each row
-- ERwin Builtin Sat Feb 15 11:32:14 1997
-- DELETE trigger on CI303CMP
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI303CMP R/6 CI302PFM ON PARENT DELETE RESTRICT */
    select count(*) into numrows
      from CI302PFM
      where
        /*  %JoinFKPK(CI302PFM,:old," = "," and") */
        CI302PFM.CMP_TYP = :old.CMP_TYP;
    if (numrows > 0)
    then
      raise_application_error(
        -20001,
        'Cannot DELETE "CI303CMP" because "CI302PFM" exists.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:14 1997
end;
/

create trigger tU_CI303CMP after UPDATE on CI303CMP for each row
-- ERwin Builtin Sat Feb 15 11:32:14 1997
-- UPDATE trigger on CI303CMP
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI303CMP R/6 CI302PFM ON PARENT UPDATE RESTRICT */
    select count(*) into numrows
      from CI302PFM
      where
        /*  %JoinFKPK(CI302PFM,:old," = "," and") */
        CI302PFM.CMP_TYP = :old.CMP_TYP;
    if (numrows > 0)
    then
      raise_application_error(
        -20005,
        'Cannot UPDATE "CI303CMP" because "CI302PFM" exists.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:14 1997
end;
/

create trigger tI_CI304NET after INSERT on CI304NET for each row
-- ERwin Builtin Sat Feb 15 11:32:14 1997
-- INSERT trigger on CI304NET
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI314NET R/8 CI304NET ON CHILD INSERT RESTRICT */
    select count(*) into numrows
      from CI314NET
      where
        /* %JoinFKPK(:new,CI314NET," = "," and") */
        :new.NET_CD = CI314NET.NET_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20002,
        'Cannot INSERT "CI304NET" because "CI314NET" does not exist.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI301CMP R/7 CI304NET ON CHILD INSERT RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20002,
        'Cannot INSERT "CI304NET" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:14 1997
end;
/

create trigger tU_CI304NET after UPDATE on CI304NET for each row
-- ERwin Builtin Sat Feb 15 11:32:14 1997
-- UPDATE trigger on CI304NET
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI314NET R/8 CI304NET ON CHILD UPDATE RESTRICT */
    select count(*) into numrows
      from CI314NET
      where
        /* %JoinFKPK(:new,CI314NET," = "," and") */
        :new.NET_CD = CI314NET.NET_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20007,
        'Cannot UPDATE "CI304NET" because "CI314NET" does not exist.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI301CMP R/7 CI304NET ON CHILD UPDATE RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20007,
        'Cannot UPDATE "CI304NET" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:14 1997
end;
/

create trigger tI_CI305ZON after INSERT on CI305ZON for each row
-- ERwin Builtin Sat Feb 15 11:32:14 1997
-- INSERT trigger on CI305ZON
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI301CMP R/9 CI305ZON ON CHILD INSERT RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20002,
        'Cannot INSERT "CI305ZON" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:14 1997
end;
/

create trigger tU_CI305ZON after UPDATE on CI305ZON for each row
-- ERwin Builtin Sat Feb 15 11:32:14 1997
-- UPDATE trigger on CI305ZON
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI301CMP R/9 CI305ZON ON CHILD UPDATE RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20007,
        'Cannot UPDATE "CI305ZON" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:14 1997
end;
/

create trigger tI_CI306VND after INSERT on CI306VND for each row
-- ERwin Builtin Sat Feb 15 11:32:15 1997
-- INSERT trigger on CI306VND
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI302PFM R/11 CI306VND ON CHILD INSERT RESTRICT */
    select count(*) into numrows
      from CI302PFM
      where
        /* %JoinFKPK(:new,CI302PFM," = "," and") */
        :new.COMP_CD = CI302PFM.COMP_CD and
        :new.CMP_TYP = CI302PFM.CMP_TYP;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20002,
        'Cannot INSERT "CI306VND" because "CI302PFM" does not exist.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:14 1997 */
    /* CI301CMP R/10 CI306VND ON CHILD INSERT RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20002,
        'Cannot INSERT "CI306VND" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:15 1997
end;
/

create trigger tU_CI306VND after UPDATE on CI306VND for each row
-- ERwin Builtin Sat Feb 15 11:32:15 1997
-- UPDATE trigger on CI306VND
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI302PFM R/11 CI306VND ON CHILD UPDATE RESTRICT */
    select count(*) into numrows
      from CI302PFM
      where
        /* %JoinFKPK(:new,CI302PFM," = "," and") */
        :new.COMP_CD = CI302PFM.COMP_CD and
        :new.CMP_TYP = CI302PFM.CMP_TYP;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20007,
        'Cannot UPDATE "CI306VND" because "CI302PFM" does not exist.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI301CMP R/10 CI306VND ON CHILD UPDATE RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20007,
        'Cannot UPDATE "CI306VND" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:15 1997
end;
/

create trigger tI_CI307SFT after INSERT on CI307SFT for each row
-- ERwin Builtin Sat Feb 15 11:32:15 1997
-- INSERT trigger on CI307SFT
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI301CMP R/12 CI307SFT ON CHILD INSERT RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20002,
        'Cannot INSERT "CI307SFT" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:15 1997
end;
/

create trigger tU_CI307SFT after UPDATE on CI307SFT for each row
-- ERwin Builtin Sat Feb 15 11:32:15 1997
-- UPDATE trigger on CI307SFT
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI301CMP R/12 CI307SFT ON CHILD UPDATE RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20007,
        'Cannot UPDATE "CI307SFT" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:15 1997
end;
/

create trigger tI_CI308APP after INSERT on CI308APP for each row
-- ERwin Builtin Sat Feb 15 11:32:15 1997
-- INSERT trigger on CI308APP
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI301CMP R/13 CI308APP ON CHILD INSERT RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20002,
        'Cannot INSERT "CI308APP" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:15 1997
end;
/

create trigger tU_CI308APP after UPDATE on CI308APP for each row
-- ERwin Builtin Sat Feb 15 11:32:15 1997
-- UPDATE trigger on CI308APP
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI301CMP R/13 CI308APP ON CHILD UPDATE RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20007,
        'Cannot UPDATE "CI308APP" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:15 1997
end;
/

create trigger tD_CI309SYS after DELETE on CI309SYS for each row
-- ERwin Builtin Sat Feb 15 11:32:15 1997
-- DELETE trigger on CI309SYS
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI309SYS R/15 CI310PKG ON PARENT DELETE RESTRICT */
    select count(*) into numrows
      from CI310PKG
      where
        /*  %JoinFKPK(CI310PKG,:old," = "," and") */
        CI310PKG.SYS_CD = :old.SYS_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20001,
        'Cannot DELETE "CI309SYS" because "CI310PKG" exists.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:15 1997
end;
/

create trigger tU_CI309SYS after UPDATE on CI309SYS for each row
-- ERwin Builtin Sat Feb 15 11:32:15 1997
-- UPDATE trigger on CI309SYS
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI309SYS R/15 CI310PKG ON PARENT UPDATE RESTRICT */
    select count(*) into numrows
      from CI310PKG
      where
        /*  %JoinFKPK(CI310PKG,:old," = "," and") */
        CI310PKG.SYS_CD = :old.SYS_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20005,
        'Cannot UPDATE "CI309SYS" because "CI310PKG" exists.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:15 1997
end;
/

create trigger tI_CI310PKG after INSERT on CI310PKG for each row
-- ERwin Builtin Sat Feb 15 11:32:15 1997
-- INSERT trigger on CI310PKG
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI309SYS R/15 CI310PKG ON CHILD INSERT RESTRICT */
    select count(*) into numrows
      from CI309SYS
      where
        /* %JoinFKPK(:new,CI309SYS," = "," and") */
        :new.SYS_CD = CI309SYS.SYS_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20002,
        'Cannot INSERT "CI310PKG" because "CI309SYS" does not exist.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI301CMP R/14 CI310PKG ON CHILD INSERT RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20002,
        'Cannot INSERT "CI310PKG" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:15 1997
end;
/

create trigger tU_CI310PKG after UPDATE on CI310PKG for each row
-- ERwin Builtin Sat Feb 15 11:32:15 1997
-- UPDATE trigger on CI310PKG
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI309SYS R/15 CI310PKG ON CHILD UPDATE RESTRICT */
    select count(*) into numrows
      from CI309SYS
      where
        /* %JoinFKPK(:new,CI309SYS," = "," and") */
        :new.SYS_CD = CI309SYS.SYS_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20007,
        'Cannot UPDATE "CI310PKG" because "CI309SYS" does not exist.'
      );
    end if;
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI301CMP R/14 CI310PKG ON CHILD UPDATE RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20007,
        'Cannot UPDATE "CI310PKG" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:15 1997
end;
/

create trigger tI_CI311DPD after INSERT on CI311DPD for each row
-- ERwin Builtin Sat Feb 15 11:32:15 1997
-- INSERT trigger on CI311DPD
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI301CMP R/16 CI311DPD ON CHILD INSERT RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20002,
        'Cannot INSERT "CI311DPD" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:15 1997
end;
/

create trigger tU_CI311DPD after UPDATE on CI311DPD for each row
-- ERwin Builtin Sat Feb 15 11:32:15 1997
-- UPDATE trigger on CI311DPD
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI301CMP R/16 CI311DPD ON CHILD UPDATE RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20007,
        'Cannot UPDATE "CI311DPD" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:15 1997
end;
/

create trigger tI_CI312STF after INSERT on CI312STF for each row
-- ERwin Builtin Sat Feb 15 11:32:15 1997
-- INSERT trigger on CI312STF
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI301CMP R/19 CI312STF ON CHILD INSERT RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20002,
        'Cannot INSERT "CI312STF" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:15 1997
end;
/

create trigger tU_CI312STF after UPDATE on CI312STF for each row
-- ERwin Builtin Sat Feb 15 11:32:15 1997
-- UPDATE trigger on CI312STF
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI301CMP R/19 CI312STF ON CHILD UPDATE RESTRICT */
    select count(*) into numrows
      from CI301CMP
      where
        /* %JoinFKPK(:new,CI301CMP," = "," and") */
        :new.COMP_CD = CI301CMP.COMP_CD;
    if (
      /* %NotnullFK(:new," is not null and") */

      numrows = 0
    )
    then
      raise_application_error(
        -20007,
        'Cannot UPDATE "CI312STF" because "CI301CMP" does not exist.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:15 1997
end;
/

create trigger tD_CI314NET after DELETE on CI314NET for each row
-- ERwin Builtin Sat Feb 15 11:32:15 1997
-- DELETE trigger on CI314NET
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI314NET R/8 CI304NET ON PARENT DELETE RESTRICT */
    select count(*) into numrows
      from CI304NET
      where
        /*  %JoinFKPK(CI304NET,:old," = "," and") */
        CI304NET.NET_CD = :old.NET_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20001,
        'Cannot DELETE "CI314NET" because "CI304NET" exists.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:15 1997
end;
/

create trigger tU_CI314NET after UPDATE on CI314NET for each row
-- ERwin Builtin Sat Feb 15 11:32:15 1997
-- UPDATE trigger on CI314NET
declare numrows INTEGER;
begin
    /* ERwin Builtin Sat Feb 15 11:32:15 1997 */
    /* CI314NET R/8 CI304NET ON PARENT UPDATE RESTRICT */
    select count(*) into numrows
      from CI304NET
      where
        /*  %JoinFKPK(CI304NET,:old," = "," and") */
        CI304NET.NET_CD = :old.NET_CD;
    if (numrows > 0)
    then
      raise_application_error(
        -20005,
        'Cannot UPDATE "CI314NET" because "CI304NET" exists.'
      );
    end if;
-- ERwin Builtin Sat Feb 15 11:32:15 1997
end;
/