Quelle  flg009.mco

-- SQL Test Suite, V6.0, SQL Module flg009.mco
-- 59-byte ID
-- 
MODULE FLG009
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE C1  CURSOR FOR
               SELECT EMPNUM, CITY FROM STAFF
               UNION
               SELECT PTYPE, CITY FROM PROJ
DECLARE C2  CURSOR FOR
               SELECT EMPNUM, CITY FROM STAFF
               UNION
               SELECT 'e1', CITY FROM PROJ
DECLARE C3  CURSOR FOR
               SELECT EMPNUM, GRADE FROM STAFF
               UNION
               SELECT EMPNUM, HOURS FROM WORKS


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

PROCEDURE SUB2 SQLCODE;
    OPEN C1;

PROCEDURE SUB3 SQLCODE;
    OPEN C2;

PROCEDURE SUB4 SQLCODE;
    OPEN C3;

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

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT VALUES
                  ('0455','nogo','MCO');

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE
    :CHAR3 CHAR(3)
    :CHAR15 CHAR(15);
      FETCH C1 INTO :CHAR3, :CHAR15;

PROCEDURE SUB9 SQLCODE
    :CHAR3 CHAR(3)
    :CHAR15 CHAR(15);
      FETCH C2 INTO :CHAR3, :CHAR15;

PROCEDURE SUB10 SQLCODE
    :CHAR3 CHAR(3)
    :INT5 NUMERIC (9);
      FETCH C3 INTO :CHAR3, :INT5;