Quelle  dml156.mco

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



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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15611 FROM :DSTMT;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15612 FROM :DSTMT;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15613 FROM :DSTMT;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15613A FROM :DSTMT;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15614 FROM :DSTMT;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15615 FROM :DSTMT;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15616 FROM :DSTMT;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15617 FROM :DSTMT;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15618 FROM :DSTMT;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      DELETE FROM CONCATBUF;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM HU.STAFF' ||
                    '  WHERE (TIME ''07:04:07'', ' ||
                    '  INTERVAL ''5'' HOUR) OVERLAPS' ||
                    '  (TIME ''08:00:00'', ?)'
                    );

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      PREPARE S15619 FROM :LONGST;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S1561A FROM :DSTMT;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S1561B FROM :DSTMT;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      DELETE FROM CONCATBUF;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      INSERT INTO CONCATBUF VALUES (
                    'SELECT GRADE FROM HU.STAFF' ||
                    '  WHERE ? NOT BETWEEN (?) AND (?) OR' ||
                    '  GRADE < 12'
                    );

PROCEDURE SUB20 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB21 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      PREPARE S1561C FROM :LONGST;

PROCEDURE SUB22 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S1561D FROM :DSTMT;

PROCEDURE SUB23 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S1561E FROM :DSTMT;

PROCEDURE SUB24 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S1561F FROM :DSTMT;

PROCEDURE SUB25 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S1561G FROM :DSTMT;

PROCEDURE SUB26 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S1561H FROM :DSTMT;

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB28 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0855','pass','MCO');

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0855','fail','MCO');

PROCEDURE SUB30 (SQLCODE, SQLSTATE);
      COMMIT WORK;