Quelle  dml051.mco

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

MODULE DML051
LANGUAGE COBOL
AUTHORIZATION HU



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

PROCEDURE SUB1 SQLCODE
    :PNO1 CHAR(3);
      SELECT PNUM
                  INTO    :PNO1
                  FROM   PROJ
                  WHERE  PNAME BETWEEN 'A' AND 'F';

PROCEDURE SUB2 SQLCODE
    :PNO2 CHAR(3);
      SELECT PNUM
                  INTO    :PNO2
                  FROM   PROJ
                  WHERE PNAME >= 'A' AND PNAME <= 'F';

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

PROCEDURE SUB4 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0227','fail','MCO');

PROCEDURE SUB5 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB6 SQLCODE
    :CITY1 CHAR(15);
      SELECT CITY
                  INTO    :CITY1
                  FROM   STAFF
                  WHERE  EMPNAME NOT BETWEEN 'A' AND 'E';

PROCEDURE SUB7 SQLCODE
    :CITY2 CHAR(15);
      SELECT CITY
                  INTO    :CITY2
                  FROM   STAFF
                  WHERE  NOT( EMPNAME BETWEEN 'A' AND 'E' );

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

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

PROCEDURE SUB10 SQLCODE;
      COMMIT WORK;