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 Thinking Intellekt

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/COBOL/Test-Suite/SQL M/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: mpa006.cob Sprache: Cobol

Untersuchungsergebnis.mco Download desScala {Scala[60] Pl1[75] CS[120]}zum Wurzelverzeichnis wechseln

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

MODULE CDR016
LANGUAGE COBOL
AUTHORIZATION SUN

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

PROCEDURE SUB1 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                  FROM SIZ1_P
                  WHERE S1 = 'E1' AND S2 = 'TTS' AND S3 = 1;

PROCEDURE SUB2 SQLCODE;
      UPDATE SIZ1_P
                  SET S2 = 'TTT'
                  WHERE S1 = 'E1' AND S2 = 'TTS' AND S3 = 1;

PROCEDURE SUB3 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                  FROM SIZ1_P
                  WHERE S1 = 'E1' AND S2 = 'TTT' AND S3 = 1;

PROCEDURE SUB4 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE;
      UPDATE SIZ1_F
                  SET F1 = 'E9'
                  WHERE F1 = 'E2';

PROCEDURE SUB9 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1
                  FROM SIZ1_F
                  WHERE F1 = 'E2';

PROCEDURE SUB10 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB13 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB14 SQLCODE;
      UPDATE SIZ1_F
                  SET F1 = 'E1'
                  WHERE F1 = 'E2' AND F6 = 'RRR';

PROCEDURE SUB15 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1
                  FROM SIZ1_F
                  WHERE F1 = 'E1';

PROCEDURE SUB16 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB19 SQLCODE;
      COMMIT WORK;