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

Impressum cdr023.mco Sprache: unbekannt

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

MODULE CDR023
LANGUAGE COBOL
AUTHORIZATION SCHANZLE

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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO ACR_SCH_F
                  VALUES(1,'DOG');

PROCEDURE SUB2 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1 FROM ACR_SCH_F;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO ACR_SCH_F
                  VALUES(2,'PIG');

PROCEDURE SUB4 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT2 FROM ACR_SCH_F;

PROCEDURE SUB5 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB6 SQLCODE;
      INSERT INTO SUN.TESTREPORT
                    VALUES('0382','pass','MCO');

PROCEDURE SUB7 SQLCODE;
      INSERT INTO SUN.TESTREPORT
                    VALUES('0382','fail','MCO');

PROCEDURE SUB8 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE;
      INSERT INTO TAB5
                  VALUES('E1','DOG');

PROCEDURE SUB10 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1 FROM TAB5;

PROCEDURE SUB11 SQLCODE;
      INSERT INTO TAB5
                  VALUES('E9','PIG');

PROCEDURE SUB12 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT2 FROM TAB5;

PROCEDURE SUB13 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB14 SQLCODE;
      INSERT INTO SUN.TESTREPORT
                    VALUES('0383','pass','MCO');

PROCEDURE SUB15 SQLCODE;
      INSERT INTO SUN.TESTREPORT
                    VALUES('0383','fail','MCO');

PROCEDURE SUB16 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB17 SQLCODE;
      INSERT INTO TAB6
                  VALUES(1,'DOG');

PROCEDURE SUB18 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1 FROM TAB6;

PROCEDURE SUB19 SQLCODE;
      INSERT INTO TAB6
                  VALUES(2,'PIG');

PROCEDURE SUB20 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT2 FROM TAB6;

PROCEDURE SUB21 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO SUN.TESTREPORT
                    VALUES('0384','pass','MCO');

PROCEDURE SUB23 SQLCODE;
      INSERT INTO SUN.TESTREPORT
                    VALUES('0384','fail','MCO');

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;