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 cugtab.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module cugtab.mco
-- 59-byte ID
--
MODULE CUGTAB
LANGUAGE COBOL
AUTHORIZATION CUGINI

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

PROCEDURE SUB2 SQLCODE;
      DELETE FROM AA;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO AA VALUES('Twenty Characters...')
                 ;

PROCEDURE SUB4 SQLCODE;
      DELETE FROM BB;

PROCEDURE SUB5 SQLCODE;
      DELETE FROM CC;

PROCEDURE SUB6 SQLCODE;
      INSERT INTO CC VALUES('Twenty Characters...')
                 ;

PROCEDURE SUB7 SQLCODE;
      DELETE FROM DD;

PROCEDURE SUB8 SQLCODE;
      INSERT INTO DD VALUES('a');

PROCEDURE SUB9 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*) INTO :I   FROM AA;

PROCEDURE SUB10 SQLCODE
    :IV NUMERIC (9);
      SELECT COUNT(*) INTO :IV  FROM BB;

PROCEDURE SUB11 SQLCODE
    :II NUMERIC (9);
      SELECT COUNT(*) INTO :II  FROM CC;

PROCEDURE SUB12 SQLCODE
    :III NUMERIC (9);
      SELECT COUNT(*) INTO :III FROM DD;

PROCEDURE SUB13 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB14 SQLCODE;
      DELETE FROM EE;

PROCEDURE SUB15 SQLCODE;
      INSERT INTO EE VALUES(0);

PROCEDURE SUB16 SQLCODE;
      DELETE FROM FF;

PROCEDURE SUB17 SQLCODE;
      DELETE FROM GG;

PROCEDURE SUB18 SQLCODE;
      INSERT INTO GG VALUES(1);

PROCEDURE SUB19 SQLCODE;
      DELETE FROM HH;

PROCEDURE SUB20 SQLCODE;
      INSERT INTO HH VALUES(2);

PROCEDURE SUB21 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*) INTO :I   FROM EE;

PROCEDURE SUB22 SQLCODE
    :IV NUMERIC (9);
      SELECT COUNT(*) INTO :IV  FROM FF;

PROCEDURE SUB23 SQLCODE
    :II NUMERIC (9);
      SELECT COUNT(*) INTO :II  FROM GG;

PROCEDURE SUB24 SQLCODE
    :III NUMERIC (9);
      SELECT COUNT(*) INTO :III FROM HH;

PROCEDURE SUB25 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB26 SQLCODE;
      DELETE FROM SRCH1;

PROCEDURE SUB27 SQLCODE;
      INSERT INTO SRCH1 VALUES (0);

PROCEDURE SUB28 SQLCODE;
      INSERT INTO SRCH1 VALUES (1);

PROCEDURE SUB29 SQLCODE;
      DELETE FROM BADG1;

PROCEDURE SUB30 SQLCODE;
      INSERT INTO BADG1 VALUES (2);

PROCEDURE SUB31 SQLCODE;
      DELETE FROM BADG2;

PROCEDURE SUB32 SQLCODE;
      INSERT INTO BADG2 VALUES (2);

PROCEDURE SUB33 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*) INTO :I   FROM SRCH1;

PROCEDURE SUB34 SQLCODE
    :II NUMERIC (9);
      SELECT COUNT(*) INTO :II  FROM BADG1;

PROCEDURE SUB35 SQLCODE
    :III NUMERIC (9);
      SELECT COUNT(*) INTO :III FROM BADG2;

PROCEDURE SUB36 SQLCODE;
      COMMIT WORK;