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

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

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :COUNST NUMERIC (9),
    :COUND NUMERIC (9),
    :COUNUM NUMERIC (9),
    :CNALL NUMERIC (9));
      SELECT COUNT(ALL 115.5), COUNT(ALL 'ATHINA'),
                  COUNT(ALL 255),
                    COUNT(*) INTO :COUNST,:COUND,:COUNUM,:CNALL FROM
                  CL_DATA_TYPE;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.CL_DATA_TYPE
                  VALUES(NULL,55,225,10);

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.CL_DATA_TYPE
                  VALUES(NULL,15,140,NULL);

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :CNALL NUMERIC (9),
    :COUNUM NUMERIC (9),
    :COUNST NUMERIC (9),
    :CNCOL1 NUMERIC (9),
    :CNCOL2 NUMERIC (9));
      SELECT COUNT(*),COUNT(ALL 119), COUNT(ALL
                  'GIORGOS') ,COUNT(CL_CHAR),
                    COUNT(CL_REAL) INTO :CNALL, :COUNUM, :COUNST, :CNCOL1,
                  :CNCOL2
                    FROM CL_DATA_TYPE;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.CL_DATA_TYPE
                  VALUES(NULL,0,0,NULL);

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :CNALL NUMERIC (9),
    :COUNUM NUMERIC (9),
    :COUNST NUMERIC (9),
    :CNCOL1 NUMERIC (9),
    :CNCOL2 NUMERIC (9));
      SELECT COUNT(*), COUNT(ALL 1000), COUNT(ALL
                  'STEFOS'),COUNT(CL_CHAR),
                    COUNT(CL_REAL) INTO :CNALL, :COUNUM, :COUNST, :CNCOL1,
                  :CNCOL2
                    FROM CL_DATA_TYPE;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;