Quelle  sdl028.mco

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

MODULE SDL028
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE ST CURSOR FOR SELECT EMP1, EMP_AVG,
             EMP_MAX 
               FROM SET_TEST
               ORDER BY EMP1


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

PROCEDURE SUB1 SQLCODE;
    OPEN ST;

PROCEDURE SUB2 SQLCODE
    :EMPNO1 CHAR(3)
    :AVG1 NUMERIC (9)
    :MAX1 NUMERIC (9);
      FETCH ST 
                    INTO :EMPNO1, :AVG1, :MAX1;

PROCEDURE SUB3 SQLCODE;
      CLOSE ST;

PROCEDURE SUB4 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0397','pass','MCO');

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0397','fail','MCO');

PROCEDURE SUB6 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE
    :EMPNO1 CHAR(3)
    :H1 NUMERIC (9)
    :H2 NUMERIC (9);
      SELECT EMP1, HOURS, HOURS_2 
                    INTO :EMPNO1, :H1, :H2
                    FROM DUP_COL
                    WHERE EMP1 = 'E3';

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

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

PROCEDURE SUB10 SQLCODE;
      COMMIT WORK;