Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 2 kB

Quelle dml078.mco Sprache: unbekannt

-- 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;