Quelle  dml008.mco

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

MODULE DML008
LANGUAGE COBOL
AUTHORIZATION HU



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

PROCEDURE SUB1 SQLCODE
    :EMPNO1 CHAR(3);
      SELECT ALL EMPNUM
                  INTO    :EMPNO1
                  FROM   WORKS
                  WHERE  HOURS=12;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0016','pass','MCO');

PROCEDURE SUB3 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0016','fail','MCO');

PROCEDURE SUB4 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE
    :EMPNO1 CHAR(3);
      SELECT EMPNUM
                  INTO    :EMPNO1
                  FROM   WORKS
                  WHERE  HOURS=12;

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

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

PROCEDURE SUB8 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE
    :EMPNO1 CHAR(3);
      SELECT DISTINCT EMPNUM
                  INTO    :EMPNO1
                  FROM   WORKS
                  WHERE  HOURS=12;

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

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

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB13 SQLCODE
    :EMPNO1 CHAR(3)
    :PNO1 CHAR(3);
      SELECT EMPNUM,PNUM
                  INTO    :EMPNO1, :PNO1
                  FROM   WORKS
                  WHERE  EMPNUM='E16';

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

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

PROCEDURE SUB16 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB17 SQLCODE
    :EMPNO1 CHAR(3)
    :HOURS1 NUMERIC (9);
      SELECT EMPNUM,HOURS
                  INTO    :EMPNO1, :HOURS1
                  FROM   WORKS
                  WHERE  EMPNUM='E1' AND PNUM='P4';

PROCEDURE SUB18 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0019','pass','MCO');

PROCEDURE SUB19 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0019','fail','MCO');

PROCEDURE SUB20 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE;
      INSERT INTO WORKS
                  VALUES('E18','P18',NULL);

PROCEDURE SUB22 SQLCODE
    :EMPNO1 CHAR(3)
    :HOURS1 NUMERIC (9)
    :INDIC2 NUMERIC (4);
      SELECT EMPNUM,HOURS
                  INTO    :EMPNO1, :HOURS1 :INDIC2  
                  FROM   WORKS
                  WHERE  EMPNUM='E18' AND PNUM='P18';

PROCEDURE SUB23 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB24 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0020','pass','MCO');

PROCEDURE SUB25 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0020','fail','MCO');

PROCEDURE SUB26 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB27 SQLCODE
    :CITY1 CHAR(4)
    :INDIC1 NUMERIC (4);
      SELECT CITY
                  INTO    :CITY1 :INDIC1  
                  FROM   STAFF
                  WHERE  EMPNUM='E5';

PROCEDURE SUB28 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0021','pass','MCO');

PROCEDURE SUB29 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0021','fail','MCO');

PROCEDURE SUB30 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB31 SQLCODE
    :CITY1 CHAR(4)
    :INDIC1 NUMERIC (4);
      SELECT CITY
                  INTO    :CITY1 :INDIC1  
                  FROM   STAFF
                  WHERE  EMPNUM='E5';

PROCEDURE SUB32 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0165','pass','MCO');

PROCEDURE SUB33 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0165','fail','MCO');

PROCEDURE SUB34 SQLCODE;
      COMMIT WORK;