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

-- SQL Test Suite, V6.0, SQL Module yts799.mco
-- 59-byte ID
--
MODULE YTS799
LANGUAGE COBOL
AUTHORIZATION CTS1

DECLARE CRA  CURSOR FOR
               SELECT TTA, TTB, TTC FROM CTS1.TT
               WHERE (SELECT TUD FROM TU WHERE TU.TUE = TT.TTA)
               IS NULL ORDER BY TTA DESC
DECLARE CRB  CURSOR FOR
               SELECT TTA, TTB, TTC FROM CTS1.TT
               WHERE (SELECT TUD FROM TU WHERE TU.TUE = TT.TTA)
               IS NOT NULL ORDER BY TTA

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
    OPEN CRA;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (4),
    :COL2 NUMERIC (4),
    :COL3 NUMERIC (4));
      FETCH CRA INTO :COL1, :COL2, :COL3;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (4),
    :COL2 NUMERIC (4),
    :INDIC2 NUMERIC (4),
    :COL3 NUMERIC (4),
    :INDIC1 NUMERIC (4));
      FETCH CRA INTO :COL1, :COL2:INDIC2, :COL3:INDIC1
                 ;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (4),
    :COL2 NUMERIC (4),
    :INDIC2 NUMERIC (4),
    :COL3 NUMERIC (4),
    :INDIC1 NUMERIC (4));
      FETCH CRA INTO :COL1, :COL2:INDIC2, :COL3:INDIC1
                 ;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
    OPEN CRB;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (4),
    :COL2 NUMERIC (4),
    :INDIC1 NUMERIC (4),
    :COL3 NUMERIC (4),
    :INDIC2 NUMERIC (4));
      FETCH CRB INTO :COL1, :COL2:INDIC1, :COL3:INDIC2
                 ;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (4),
    :COL2 NUMERIC (4),
    :INDIC1 NUMERIC (4),
    :COL3 NUMERIC (4),
    :INDIC2 NUMERIC (4));
      FETCH CRB INTO :COL1, :COL2:INDIC1, :COL3:INDIC2
                 ;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO FROM CTS1.TT
                    WHERE TTB IS NULL OR TTC IS NULL;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO FROM CTS1.TT
                    WHERE TTB IS NOT NULL AND TTC IS NOT NULL;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO FROM CTS1.TT
                    WHERE NOT (TTB IS NULL AND TTC IS NULL);

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7531','pass','MCO');

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7531','fail','MCO');

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      COMMIT WORK;