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

-- SQL Test Suite, V6.0, SQL Module xts771.mco
-- 59-byte ID
--
MODULE XTS771
LANGUAGE COBOL
AUTHORIZATION CTS3

DECLARE F  CURSOR
               FOR SELECT COLNUM1,COLSTR1,COLSTR2 FROM TAB771
               ORDER BY COLNUM1

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      CREATE TABLE TAB771
                    (COLNUM1 NUMERIC(5)  PRIMARY KEY,
                    COLSTR1 CHAR(10)    CHARACTER SET ASCII_GRAPHIC,
                    COLSTR2 VARCHAR(12) CHARACTER SET ASCII_GRAPHIC);

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO TAB771
                    VALUES(22,_ASCII_GRAPHIC'!$[\]^`{}~',_ASCII_GRAPHIC'OK')
                 ;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO TAB771
                    VALUES(20,_ASCII_GRAPHIC'`$NIK',_ASCII_GRAPHIC'MAY BE')
                 ;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO TAB771

                  VALUES(21,_ASCII_GRAPHIC'~!KOS{}',_ASCII_GRAPHIC'{ERROR}')
                 ;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN FROM TAB771
                    WHERE COLSTR1 = _ASCII_GRAPHIC '!$[\]^`{}~';

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
    OPEN F;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :C1 NUMERIC (9),
    :CSTR1 CHAR(10) CHARACTER SET ASCII_GRAPHIC,
    :CSTR2 CHAR(12) CHARACTER SET ASCII_GRAPHIC);
      FETCH F INTO :C1,:CSTR1,:CSTR2;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :C1 NUMERIC (9),
    :CSTR1 CHAR(10) CHARACTER SET ASCII_GRAPHIC,
    :CSTR2 CHAR(12) CHARACTER SET ASCII_GRAPHIC);
      FETCH F INTO :C1,:CSTR1,:CSTR2;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :C1 NUMERIC (9),
    :CSTR1 CHAR(10) CHARACTER SET ASCII_GRAPHIC,
    :CSTR2 CHAR(12) CHARACTER SET ASCII_GRAPHIC);
      FETCH F INTO :C1,:CSTR1,:CSTR2;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      CLOSE F;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      DROP TABLE TAB771 CASCADE;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;