Quelle  cdr004.mco

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

MODULE CDR004
LANGUAGE COBOL
AUTHORIZATION SUN



PROCEDURE AUTHCK SQLCODE
  :UIDX CHAR(18);
      SELECT USER INTO :UIDX FROM SUN.ECCO;

PROCEDURE SUB1 SQLCODE;
      DELETE FROM STAFF11;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO STAFF11
                  VALUES('E1','Thomas',0,'Deale');

PROCEDURE SUB3 SQLCODE;
      INSERT INTO STAFF11
                  VALUES('E2','Tom',22,'Newyork');

PROCEDURE SUB4 SQLCODE;
      INSERT INTO STAFF11
                  VALUES('E3','Susan',11,'Hawaii');

PROCEDURE SUB5 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1
                  FROM STAFF11;

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0309','pass','MCO');

PROCEDURE SUB7 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0309','fail','MCO');

PROCEDURE SUB8 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE;
      DELETE FROM STAFF12;

PROCEDURE SUB10 SQLCODE;
      INSERT INTO STAFF12
                  VALUES('E1','Thomas',0,'Deale');

PROCEDURE SUB11 SQLCODE;
      INSERT INTO STAFF12
                  VALUES('E2','Tom',22,'Newyork');

PROCEDURE SUB12 SQLCODE;
      INSERT INTO STAFF12
                  VALUES('E3','Susan',11,'Hawaii');

PROCEDURE SUB13 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1
                  FROM STAFF12;

PROCEDURE SUB14 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0310','pass','MCO');

PROCEDURE SUB15 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0310','fail','MCO');

PROCEDURE SUB16 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB17 SQLCODE;
      DELETE FROM STAFF15;

PROCEDURE SUB18 SQLCODE;
      INSERT INTO STAFF15
                  VALUES('E1','Alice',52,'Deale');

PROCEDURE SUB19 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1
                  FROM STAFF15;

PROCEDURE SUB20 SQLCODE;
      INSERT INTO STAFF15
                  VALUES('E2',NULL,52,'Newyork');

PROCEDURE SUB21 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT2
                  FROM STAFF15;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0311','pass','MCO');

PROCEDURE SUB23 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0311','fail','MCO');

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB25 SQLCODE;
      DELETE FROM STAFF15;

PROCEDURE SUB26 SQLCODE;
      INSERT INTO STAFF15
                  VALUES('E1','Alice',52,'Deale');

PROCEDURE SUB27 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1
                  FROM STAFF15;

PROCEDURE SUB28 SQLCODE;
      INSERT INTO STAFF15(EMPNUM,GRADE,CITY)
                  VALUES('E2',52,'Newyork');

PROCEDURE SUB29 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT2
                  FROM STAFF15;

PROCEDURE SUB30 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0312','pass','MCO');

PROCEDURE SUB31 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0312','fail','MCO');

PROCEDURE SUB32 SQLCODE;
      COMMIT WORK;