Quelle  basetab.mco   Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module basetab.mco
-- 59-byte ID

MODULE BASETAB
LANGUAGE COBOL
AUTHORIZATION HU



PROCEDURE SUBC SQLCODE;
   DELETE FROM HU.ECCO;
PROCEDURE SUBD SQLCODE;
   INSERT INTO HU.ECCO VALUES ('NL');

PROCEDURE SUB1 SQLCODE;
      DELETE FROM STAFF;

PROCEDURE SUB2 SQLCODE;
      DELETE FROM PROJ;

PROCEDURE SUB3 SQLCODE;
      DELETE FROM WORKS;

PROCEDURE SUB4 SQLCODE;
      INSERT INTO STAFF VALUES ('E1','Alice',12,'Deale')
                 ;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO STAFF VALUES
                  ('E2','Betty',10,'Vienna');

PROCEDURE SUB6 SQLCODE;
      INSERT INTO STAFF VALUES
                  ('E3','Carmen',13,'Vienna');

PROCEDURE SUB7 SQLCODE;
      INSERT INTO STAFF VALUES ('E4','Don',12,'Deale')
                 ;

PROCEDURE SUB8 SQLCODE;
      INSERT INTO STAFF VALUES ('E5','Ed',13,'Akron')
                 ;

PROCEDURE SUB9 SQLCODE;
      INSERT INTO PROJ VALUES 
                  ('P1','MXSS','Design',10000,'Deale');

PROCEDURE SUB10 SQLCODE;
      INSERT INTO PROJ VALUES 
                  ('P2','CALM','Code',30000,'Vienna');

PROCEDURE SUB11 SQLCODE;
      INSERT INTO PROJ VALUES 
                  ('P3','SDP','Test',30000,'Tampa');

PROCEDURE SUB12 SQLCODE;
      INSERT INTO PROJ VALUES 
                  ('P4','SDP','Design',20000,'Deale');

PROCEDURE SUB13 SQLCODE;
      INSERT INTO PROJ VALUES 
                  ('P5','IRM','Test',10000,'Vienna');

PROCEDURE SUB14 SQLCODE;
      INSERT INTO PROJ VALUES 
                  ('P6','PAYR','Design',50000,'Deale');

PROCEDURE SUB15 SQLCODE;
      INSERT INTO WORKS VALUES  ('E1','P1',40);

PROCEDURE SUB16 SQLCODE;
      INSERT INTO WORKS VALUES  ('E1','P2',20);

PROCEDURE SUB17 SQLCODE;
      INSERT INTO WORKS VALUES  ('E1','P3',80);

PROCEDURE SUB18 SQLCODE;
      INSERT INTO WORKS VALUES  ('E1','P4',20);

PROCEDURE SUB19 SQLCODE;
      INSERT INTO WORKS VALUES  ('E1','P5',12);

PROCEDURE SUB20 SQLCODE;
      INSERT INTO WORKS VALUES  ('E1','P6',12);

PROCEDURE SUB21 SQLCODE;
      INSERT INTO WORKS VALUES  ('E2','P1',40);

PROCEDURE SUB22 SQLCODE;
      INSERT INTO WORKS VALUES  ('E2','P2',80);

PROCEDURE SUB23 SQLCODE;
      INSERT INTO WORKS VALUES  ('E3','P2',20);

PROCEDURE SUB24 SQLCODE;
      INSERT INTO WORKS VALUES  ('E4','P2',20);

PROCEDURE SUB25 SQLCODE;
      INSERT INTO WORKS VALUES  ('E4','P4',40);

PROCEDURE SUB26 SQLCODE;
      INSERT INTO WORKS VALUES  ('E4','P5',80);

PROCEDURE SUB27 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*) INTO  :I   FROM PROJ;

PROCEDURE SUB28 SQLCODE
    :II NUMERIC (9);
      SELECT COUNT(*) INTO  :II  FROM STAFF;

PROCEDURE SUB29 SQLCODE
    :III NUMERIC (9);
      SELECT COUNT(*) INTO  :III FROM WORKS;

PROCEDURE SUB30 SQLCODE;
      DELETE FROM STAFF3;

PROCEDURE SUB31 SQLCODE;
      INSERT INTO STAFF3
                    SELECT * 
                    FROM   STAFF;

PROCEDURE SUB32 SQLCODE;
      DELETE FROM VTABLE;

PROCEDURE SUB33 SQLCODE;
      INSERT INTO VTABLE VALUES(10,+20,30,40,10.50)
                 ;

PROCEDURE SUB34 SQLCODE;
      INSERT INTO VTABLE VALUES(0,1,2,3,4.25);

PROCEDURE SUB35 SQLCODE;
      INSERT INTO VTABLE VALUES(100,200,300,400,500.01)
                 ;

PROCEDURE SUB36 SQLCODE;
      INSERT INTO VTABLE
                  VALUES(1000,-2000,3000,NULL,4000.00);

PROCEDURE SUB37 SQLCODE;
      DELETE FROM UPUNIQ;

PROCEDURE SUB38 SQLCODE;
      INSERT INTO UPUNIQ VALUES(1,'A');

PROCEDURE SUB39 SQLCODE;
      INSERT INTO UPUNIQ VALUES(2,'B');

PROCEDURE SUB40 SQLCODE;
      INSERT INTO UPUNIQ VALUES(3,'C');

PROCEDURE SUB41 SQLCODE;
      INSERT INTO UPUNIQ VALUES(4,'D');

PROCEDURE SUB42 SQLCODE;
      INSERT INTO UPUNIQ VALUES(6,'F');

PROCEDURE SUB43 SQLCODE;
      INSERT INTO UPUNIQ VALUES(8,'H');

PROCEDURE SUB44 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*) INTO  :I   FROM STAFF3;

PROCEDURE SUB45 SQLCODE
    :II NUMERIC (9);
      SELECT COUNT(*) INTO  :II  FROM VTABLE;

PROCEDURE SUB46 SQLCODE
    :III NUMERIC (9);
      SELECT COUNT(*) INTO  :III FROM UPUNIQ;

PROCEDURE SUB47 SQLCODE;
      COMMIT WORK;