Quelle  flg008.mco

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

DECLARE GROUPX  CURSOR FOR
               SELECT PTYPE, CITY, SUM (BUDGET), COUNT(*)
               FROM PROJ
               GROUP BY CITY
               ORDER BY CITY


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

PROCEDURE SUB2 SQLCODE;
    OPEN GROUPX;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO TESTREPORT
                  VALUES('0454','pass','MCO');

PROCEDURE SUB4 SQLCODE;
      INSERT INTO TESTREPORT VALUES
                  ('0454','nogo','MCO');

PROCEDURE SUB5 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB6 SQLCODE
    :PTYPE1 CHAR(6)
    :CITY1 CHAR(5)
    :SUM1 NUMERIC (9)
    :COUNT1 NUMERIC (9);
      FETCH GROUPX
                      INTO :PTYPE1, :CITY1, :SUM1, :COUNT1;