Quelle  dml065.mco

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

MODULE DML065
LANGUAGE COBOL
AUTHORIZATION HU



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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO STAFF(EMPNUM,EMPNAME)
                  VALUES ('E6','Ed');

PROCEDURE SUB2 SQLCODE;
      INSERT INTO STAFF(EMPNUM,EMPNAME)
                  VALUES ('E7','Ed ');

PROCEDURE SUB3 SQLCODE;
      INSERT INTO STAFF(EMPNUM,EMPNAME)
                  VALUES ('E8','Ed                  ');

PROCEDURE SUB4 SQLCODE
    :EMPNA2 CHAR(2);
      INSERT INTO STAFF(EMPNUM,EMPNAME)
                  VALUES ('E9', :EMPNA2);

PROCEDURE SUB5 SQLCODE
    :EMPNA1 CHAR(20);
      INSERT INTO STAFF(EMPNUM,EMPNAME)
                  VALUES ('E10', :EMPNA1);

PROCEDURE SUB6 SQLCODE
    :EMPNA1 CHAR(20);
      INSERT INTO STAFF(EMPNUM,EMPNAME)
                  VALUES ('E11', :EMPNA1);

PROCEDURE SUB7 SQLCODE
    :EMPNA1 CHAR(20);
      INSERT INTO STAFF(EMPNUM,EMPNAME)
                  VALUES ('E12', :EMPNA1);

PROCEDURE SUB8 SQLCODE
    :GRADE1 NUMERIC (9)
    :EMPNA1 CHAR(20);
      SELECT COUNT(*) INTO  :GRADE1
                  FROM STAFF
                  WHERE EMPNAME =  :EMPNA1;

PROCEDURE SUB9 SQLCODE
    :GRADE2 NUMERIC (9)
    :EMPNA1 CHAR(20);
      SELECT COUNT(*) INTO  :GRADE2
                  FROM STAFF
                  WHERE EMPNAME =  :EMPNA1;

PROCEDURE SUB10 SQLCODE
    :GRADE3 NUMERIC (9)
    :EMPNA1 CHAR(20);
      SELECT COUNT(*) INTO  :GRADE3
                  FROM STAFF
                  WHERE EMPNAME =  :EMPNA1;

PROCEDURE SUB11 SQLCODE
    :EMPNA2 CHAR(2);
      SELECT EMPNAME INTO  :EMPNA2
                  FROM STAFF
                  WHERE EMPNUM = 'E10';

PROCEDURE SUB12 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB15 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE;
      INSERT INTO STAFF(EMPNUM,GRADE)
                  VALUES ('E6',25);

PROCEDURE SUB17 SQLCODE;
      INSERT INTO STAFF(EMPNUM,GRADE)
                  VALUES ('E7',25.0);

PROCEDURE SUB18 SQLCODE;
      INSERT INTO STAFF(EMPNUM,GRADE)
                  VALUES ('E8',-25);

PROCEDURE SUB19 SQLCODE;
      INSERT INTO STAFF(EMPNUM,GRADE)
                  VALUES ('E9',25.000);

PROCEDURE SUB20 SQLCODE
    :GRADE1 NUMERIC (9);
      INSERT INTO STAFF(EMPNUM,GRADE)
                  VALUES ('E10', :GRADE1);

PROCEDURE SUB21 SQLCODE
    :GRADE1 NUMERIC (9);
      INSERT INTO STAFF(EMPNUM,GRADE)
                  VALUES ('E11', :GRADE1);

PROCEDURE SUB22 SQLCODE;
      UPDATE STAFF
                  SET GRADE = -GRADE
                  WHERE GRADE < 0;

PROCEDURE SUB23 SQLCODE
    :GRADE1 NUMERIC (9)
    :GRADE2 NUMERIC (9);
      SELECT COUNT(*) INTO  :GRADE1
                  FROM STAFF
                  WHERE GRADE =  :GRADE2;

PROCEDURE SUB24 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB25 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0285','pass','MCO');

PROCEDURE SUB26 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0285','fail','MCO');

PROCEDURE SUB27 SQLCODE;
      COMMIT WORK;