Quelle  dml078.mco

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

MODULE DML078
LANGUAGE COBOL
AUTHORIZATION HU



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

PROCEDURE SUB2 SQLCODE;
      DELETE
                  FROM TEXT256
               ;

PROCEDURE SUB3 SQLCODE
    :IN256 CHAR(256);
      INSERT
                  INTO TEXT256(TEXXT)
                     VALUES (:IN256)
               ;

PROCEDURE SUB4 SQLCODE
    :OUT256 CHAR(256);
      SELECT
                  TEXXT INTO :OUT256 FROM TEXT256
               ;

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

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                     VALUES('0189','fail','MCO');

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE;
      DELETE
                  FROM TEXT512
               ;

PROCEDURE SUB9 SQLCODE
    :IN512 CHAR(512);
      INSERT
                 INTO TEXT512(TEXXT)
                     VALUES (:IN512)
               ;

PROCEDURE SUB10 SQLCODE
    :OUT512 CHAR(512);
      SELECT
                  TEXXT INTO :OUT512 FROM TEXT512
               ;

PROCEDURE SUB11 SQLCODE;
      INSERT INTO TESTREPORT
                     VALUES('0190','pass','MCO');

PROCEDURE SUB12 SQLCODE;
      INSERT INTO TESTREPORT
                     VALUES('0190','fail','MCO');

PROCEDURE SUB13 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB14 SQLCODE;
      DELETE
                 FROM TEXT1024
               ;

PROCEDURE SUB15 SQLCODE
    :IN1024 CHAR(1024);
      INSERT
                 INTO TEXT1024(TEXXT)
                     VALUES (:IN1024)
               ;

PROCEDURE SUB16 SQLCODE
    :OU1024 CHAR(1024);
      SELECT
                 TEXXT INTO :OU1024 FROM TEXT1024
               ;

PROCEDURE SUB17 SQLCODE;
      INSERT INTO TESTREPORT
                     VALUES('0191','pass','MCO');

PROCEDURE SUB18 SQLCODE;
      INSERT INTO TESTREPORT
                         VALUES('0191','fail','MCO');

PROCEDURE SUB19 SQLCODE;
      COMMIT WORK;