Quelle  dml074.mco

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

MODULE DML074
LANGUAGE COBOL
AUTHORIZATION HU



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

PROCEDURE SUB1 SQLCODE
    :TMP_2 NUMERIC (9)
    :ENAME CHAR(20);
      SELECT GRADE INTO :TMP_2
                    FROM STAFF
                    WHERE EMPNAME = :ENAME;

PROCEDURE SUB2 SQLCODE
    :ENUM CHAR(3)
    :ENAME CHAR(20)
    :GRDE NUMERIC (9)
    :CTY CHAR(15);
      INSERT INTO STAFF
                    VALUES(:ENUM,:ENAME,:GRDE,:CTY);

PROCEDURE SUB3 SQLCODE
    :TMP1 CHAR(3)
    :ENAME CHAR(20)
    :GRDE NUMERIC (9)
    :CTY CHAR(10);
      SELECT EMPNUM INTO :TMP1
                    FROM STAFF
                    WHERE EMPNAME = :ENAME AND GRADE = :GRDE 
                    AND CITY = :CTY;

PROCEDURE SUB4 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0421','pass','MCO');

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0421','fail','MCO');

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 :TMP1 CHAR(3)
    SQLCODE
    :ENAME CHAR(20)
    :TMP_2 NUMERIC (9)
    :CTY CHAR(15);
      SELECT EMPNUM, EMPNAME, GRADE, CITY
                    INTO :TMP1, :ENAME, :TMP_2, :CTY
                    FROM STAFF
                    WHERE EMPNAME = 'Alice';

PROCEDURE SUB9 :CTY CHAR(15)
    :ENUM CHAR(3)
    :ENAME CHAR(20)
    :GRDE NUMERIC (9)
    SQLCODE;
      SELECT EMPNUM, EMPNAME, GRADE, CITY
                    INTO :ENUM, :ENAME, :GRDE, :CTY
                    FROM STAFF
                    WHERE CITY = 'Akron';

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

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

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

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

PROCEDURE SUB14 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM PROJ;

PROCEDURE SUB15 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM WORKS;

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

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

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;