Quelle  dml013.mco   Sprache: unbekannt

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

MODULE DML013
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE X CURSOR
             FOR SELECT EMPNUM
             FROM   STAFF
             WHERE  GRADE =
             (SELECT MAX( GRADE )
             FROM   STAFF )
             ORDER BY EMPNUM


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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO WORKS
                  VALUES('E5','P5',NULL);

PROCEDURE SUB2 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(DISTINCT HOURS)
                  INTO    :I
                  FROM   WORKS;

PROCEDURE SUB3 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB4 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0039','pass','MCO');

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0039','fail','MCO');

PROCEDURE SUB6 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE;
      INSERT INTO WORKS
                  VALUES('E5','P5',NULL);

PROCEDURE SUB8 SQLCODE
    :I NUMERIC (9);
      SELECT SUM(ALL HOURS)
                  INTO    :I
                  FROM   WORKS;

PROCEDURE SUB9 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB10 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0167','pass','MCO');

PROCEDURE SUB11 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0167','fail','MCO');

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB13 SQLCODE;
      INSERT INTO WORKS
                  VALUES('E5','P5',NULL);

PROCEDURE SUB14 SQLCODE
    :I NUMERIC (9);
      SELECT SUM(HOURS)
                  INTO    :I
                  FROM   WORKS;

PROCEDURE SUB15 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB16 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0168','pass','MCO');

PROCEDURE SUB17 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0168','fail','MCO');

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE;
      INSERT INTO WORKS
                  VALUES('E5','P5',NULL);

PROCEDURE SUB20 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*)
                  INTO    :I
                  FROM   WORKS;

PROCEDURE SUB21 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB25 SQLCODE
    :I NUMERIC (9);
      SELECT SUM(HOURS)
                  INTO    :I
                  FROM   WORKS
                  WHERE  PNUM='P2';

PROCEDURE SUB26 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0040','pass','MCO');

PROCEDURE SUB27 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0040','fail','MCO');

PROCEDURE SUB28 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE
    :I NUMERIC (9);
      SELECT SUM (DISTINCT HOURS)
                  INTO    :I
                  FROM   WORKS
                  WHERE  PNUM='P2';

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

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

PROCEDURE SUB32 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB33 SQLCODE
    :I NUMERIC (9);
      SELECT SUM(HOURS)+10
                  INTO    :I
                  FROM   WORKS
                  WHERE  PNUM='P2';

PROCEDURE SUB34 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0171','pass','MCO');

PROCEDURE SUB35 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0171','fail','MCO');

PROCEDURE SUB36 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB37 SQLCODE;
    OPEN X;

PROCEDURE SUB38 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH X INTO  :EMPNO1;

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

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

PROCEDURE SUB41 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB42 SQLCODE
    :EMPNO1 CHAR(3);
      SELECT EMPNUM
                  INTO    :EMPNO1
                  FROM   STAFF
                  WHERE  GRADE =
                  (SELECT MIN(GRADE) FROM STAFF);

PROCEDURE SUB43 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0042','pass','MCO');

PROCEDURE SUB44 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0042','fail','MCO');

PROCEDURE SUB45 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB46 SQLCODE
    :I NUMERIC (9);
      SELECT AVG(GRADE)
                  INTO    :I
                  FROM   STAFF;

PROCEDURE SUB47 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0043','pass','MCO');

PROCEDURE SUB48 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0043','fail','MCO');

PROCEDURE SUB49 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB50 SQLCODE;
      DELETE FROM TEMP_S;

PROCEDURE SUB51 SQLCODE
    :NULL1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      SELECT AVG(GRADE)
                  INTO    :NULL1 :INDIC1
                  FROM   TEMP_S;

PROCEDURE SUB52 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0044','pass','MCO');

PROCEDURE SUB53 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0044','fail','MCO');

PROCEDURE SUB54 SQLCODE;
      COMMIT WORK;