Quelle  dml087.mco   Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module dml087.mco
-- 59-byte ID
-- 
MODULE DML087
LANGUAGE COBOL
AUTHORIZATION FLATER

DECLARE POIU  CURSOR FOR 
               SELECT HOURS FROM DV1
               ORDER BY HOURS DESC
DECLARE UCRSR  CURSOR FOR
               SELECT COUNT(*) FROM HU.STAFF WHERE GRADE > 10
DECLARE U_CRSR  CURSOR FOR
               SELECT COUNT(*) FROM HU.STAFF WHERE GRADE < 10


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

PROCEDURE SUB2 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT FROM DV1;

PROCEDURE SUB3 SQLCODE;
    OPEN POIU;

PROCEDURE SUB4 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0518','pass','MCO');

PROCEDURE SUB6 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0518','fail','MCO');

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM VS2 WHERE C1 = 0;

PROCEDURE SUB9 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM VS2 WHERE C1 = 1;

PROCEDURE SUB10 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM VS3;

PROCEDURE SUB11 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM VS4;

PROCEDURE SUB12 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM VS5;

PROCEDURE SUB13 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM VS6;

PROCEDURE SUB14 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB15 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0519','pass','MCO');

PROCEDURE SUB16 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0519','fail','MCO');

PROCEDURE SUB17 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB18 SQLCODE
    :CNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :CNT1 FROM USIG WHERE C1 = 0
                 ;

PROCEDURE SUB19 SQLCODE
    :CNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :CNT2 FROM USIG WHERE C1 = 2
                 ;

PROCEDURE SUB20 SQLCODE
    :CNT3 NUMERIC (9);
      SELECT COUNT(*) INTO :CNT3 FROM USIG WHERE C_1 = 0
                 ;

PROCEDURE SUB21 SQLCODE
    :CNT4 NUMERIC (9);
      SELECT COUNT(*) INTO :CNT4 FROM USIG WHERE C_1 = 2
                 ;

PROCEDURE SUB22 SQLCODE
    :CNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :CNT1 FROM USIG WHERE C1 = 4
                 ;

PROCEDURE SUB23 SQLCODE
    :CNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :CNT2 FROM U_SIG WHERE C1 = 0
                 ;

PROCEDURE SUB24 SQLCODE
    :CNT3 NUMERIC (9);
      SELECT COUNT(*) INTO :CNT3 FROM U_SIG WHERE C1 = 4
                 ;

PROCEDURE SUB25 SQLCODE
    :CNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :CNT1 FROM HU.STAFF U_CN
                    WHERE U_CN.GRADE IN (SELECT UCN.GRADE FROM HU.STAFF UCN
                    WHERE UCN.GRADE > 10);

PROCEDURE SUB26 SQLCODE;
    OPEN UCRSR;

PROCEDURE SUB27 SQLCODE
    :CNT2 NUMERIC (9);
      FETCH UCRSR INTO :CNT2;

PROCEDURE SUB28 SQLCODE;
      CLOSE UCRSR;

PROCEDURE SUB29 SQLCODE;
    OPEN U_CRSR;

PROCEDURE SUB30 SQLCODE
    :CNT3 NUMERIC (9);
      FETCH U_CRSR INTO :CNT3;

PROCEDURE SUB31 SQLCODE;
      CLOSE U_CRSR;

PROCEDURE SUB32 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB33 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0520','pass','MCO');

PROCEDURE SUB34 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0520','fail','MCO');

PROCEDURE SUB35 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB36 SQLCODE
    :CNT1 NUMERIC (9);
      FETCH POIU INTO :CNT1;