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 1 kB

Quelle flg006.mco Sprache: unbekannt

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

MODULE FLG006
LANGUAGE COBOL
AUTHORIZATION MCGINN

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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO TABLEFGHIJKLMNOPQ19 VALUES (299)
                 ;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO SHORTTABLE VALUES (299);

PROCEDURE SUB3 SQLCODE;
      INSERT INTO BASETABLE1 VALUES (299);

PROCEDURE SUB4 SQLCODE
    :FLG1 NUMERIC (9);
      SELECT COL2
                    INTO    :FLG1
                    FROM   TABLEFGHIJKLMNOPQ19;

PROCEDURE SUB5 SQLCODE
    :FLG2 NUMERIC (9);
      SELECT COLUMN123456789IS19
                    INTO    :FLG2
                    FROM   SHORTTABLE;

PROCEDURE SUB6 SQLCODE
    :FLG3 NUMERIC (9);
      SELECT COL3
                    INTO    :FLG3
                    FROM   VIEWABCDEFGHIKLMN19;

PROCEDURE SUB7 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB8 SQLCODE;
      INSERT INTO HU.TESTREPORT
                  VALUES('0299','pass','MCO');

PROCEDURE SUB9 SQLCODE;
      INSERT INTO HU.TESTREPORT VALUES
                  ('0299','nogo','MCO');

PROCEDURE SUB10 SQLCODE;
      COMMIT WORK;