Quelle  cob009.mco

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

MODULE COB009
LANGUAGE COBOL
AUTHORIZATION HU



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

PROCEDURE SUB1 SQLCODE;
      DELETE FROM EE;

PROCEDURE SUB2 SQLCODE;
      DELETE FROM TEMP_S;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO TEMP_S
                  VALUES ('SMH',-55,'NA');

PROCEDURE SUB4 SQLCODE
    :V2 NUMERIC (1);
      INSERT INTO EE
                  VALUES ( :V2);

PROCEDURE SUB5 SQLCODE
    :INTTST1 NUMERIC (1);
      SELECT INTTEST
                  INTO  :INTTST1 FROM EE
                  WHERE INTTEST = 5;

PROCEDURE SUB6 SQLCODE
    :EMPNO1 CHAR(3)
    :V1 CHAR(3);
      SELECT EMPNUM 
                  INTO  :EMPNO1 FROM TEMP_S
                  WHERE EMPNUM =  :V1;

PROCEDURE SUB7 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB8 SQLCODE;
      INSERT INTO TESTREPORT
                VALUES('0292','pass','MCO');

PROCEDURE SUB9 SQLCODE;
      INSERT INTO TESTREPORT
                     VALUES('0292','fail','MCO');

PROCEDURE SUB10 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB11 SQLCODE;
      DELETE FROM FF;

PROCEDURE SUB12 SQLCODE;
      DELETE FROM EE;

PROCEDURE SUB13 SQLCODE;
      INSERT INTO EE VALUES (1);

PROCEDURE SUB14 SQLCODE
      :HOURS1 NUMERIC (9);
      SELECT HOURS INTO  :HOURS1
                              FROM WORKS 
                              WHERE EMPNUM = 'E3';

PROCEDURE SUB15 SQLCODE;
      INSERT INTO FF
                            VALUES (9);

PROCEDURE SUB16 SQLCODE;
      DELETE FROM EE;

PROCEDURE SUB17 SQLCODE;
      INSERT INTO EE
                         VALUES (4);

PROCEDURE SUB18 SQLCODE
    :J6 NUMERIC (3);
      SELECT INTTEST INTO  :J6
                     FROM EE;

PROCEDURE SUB19 SQLCODE;
      INSERT INTO TESTREPORT
                VALUES('0293','pass','MCO');

PROCEDURE SUB20 SQLCODE;
      INSERT INTO TESTREPORT
                     VALUES('0293','fail','MCO');

PROCEDURE SUB21 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB22 SQLCODE
    :J5 NUMERIC (9);
      SELECT INTTEST INTO  :J5
                     FROM FF;