Quelle  cdr003.mco   Sprache: unbekannt

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

MODULE CDR003
LANGUAGE COBOL
AUTHORIZATION SUN



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

PROCEDURE SUB1 SQLCODE;
      DELETE FROM STAFF13;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO STAFF13
                  VALUES('E1','Alice',36,'Deale');

PROCEDURE SUB3 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                  FROM STAFF13;

PROCEDURE SUB4 SQLCODE;
      INSERT INTO STAFF13
                  VALUES('E2',NULL,36,'Newyork');

PROCEDURE SUB5 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                  FROM STAFF13;

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

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

PROCEDURE SUB8 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE;
      INSERT INTO STAFF9
                  VALUES('E1','Thomas',0,'Deale');

PROCEDURE SUB10 SQLCODE;
      INSERT INTO STAFF9
                  VALUES('E2','Tom',22,'Newyork');

PROCEDURE SUB11 SQLCODE;
      INSERT INTO STAFF9
                  VALUES('E3','Susan',11,'Hawaii');

PROCEDURE SUB12 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1
                  FROM STAFF9;

PROCEDURE SUB13 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0307','pass','MCO');

PROCEDURE SUB14 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0307','fail','MCO');

PROCEDURE SUB15 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE;
      INSERT INTO STAFF10
                  VALUES('E1','Thomas',5,'Deale');

PROCEDURE SUB17 SQLCODE;
      INSERT INTO STAFF10
                  VALUES('E2','Tom',22,'Newyork');

PROCEDURE SUB18 SQLCODE;
      INSERT INTO STAFF10
                  VALUES('E3','Susan',11,'Hawaii');

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

PROCEDURE SUB20 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0308','pass','MCO');

PROCEDURE SUB21 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0308','fail','MCO');

PROCEDURE SUB22 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB23 SQLCODE;
      DELETE FROM STAFF4;

PROCEDURE SUB24 SQLCODE
    :NULL1 CHAR(2)
    :INDIC1 NUMERIC (4);
      INSERT INTO STAFF4
                  VALUES(:NULL1 :INDIC1, 'R9',36,'Deale');

PROCEDURE SUB25 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                  FROM STAFF4;

PROCEDURE SUB26 SQLCODE;
      DELETE FROM STAFF11;

PROCEDURE SUB27 SQLCODE
    :LONG1 NUMERIC (9);
      INSERT INTO STAFF11
                  VALUES('R9','Judy', :LONG1,'Deale');

PROCEDURE SUB28 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                  FROM STAFF11;

PROCEDURE SUB29 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB32 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB33 SQLCODE;
      DELETE FROM STAFF5;

PROCEDURE SUB34 SQLCODE;
      INSERT INTO STAFF5
                  VALUES('R9','Alice',15,'Deale');

PROCEDURE SUB35 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                  FROM STAFF5;

PROCEDURE SUB36 SQLCODE
    :LONG1 NUMERIC (9);
      UPDATE STAFF5
                  SET GRADE = 10 *  :LONG1 / 5 + 1
                  WHERE EMPNUM = 'R9';

PROCEDURE SUB37 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                  FROM STAFF5;

PROCEDURE SUB38 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB39 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0374','pass','MCO');

PROCEDURE SUB40 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0374','fail','MCO');

PROCEDURE SUB41 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB50 SQLCODE;
      DELETE FROM STAFF9;

PROCEDURE SUB51 SQLCODE;
      DELETE FROM STAFF10;