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 4 kB

Quelle xts738.mco Sprache: unbekannt

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

DECLARE B  SCROLL CURSOR
               FOR SELECT EMPNUM,EMPNAME,GRADE,CITY
               FROM STAFF ORDER BY GRADE DESC, EMPNAME
DECLARE A  SCROLL CURSOR
               FOR SELECT EMPNUM,EMPNAME,GRADE,CITY
               FROM STAFF ORDER BY EMPNAME DESC
DECLARE C  CURSOR
               FOR SELECT EMPNUM,EMPNAME,GRADE,CITY
               FROM STAFF ORDER BY EMPNUM

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 b;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :HENUM CHAR(3),
    :HENAME CHAR(20),
    :HGRADE NUMERIC (9),
    :HCITY CHAR(15));
      FETCH LAST FROM b INTO
                  :HENUM,:HENAME,:HGRADE,:HCITY;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :HENUM CHAR(3),
    :HENAME CHAR(20),
    :HGRADE NUMERIC (9),
    :HCITY CHAR(15));
      FETCH PRIOR FROM b INTO
                  :HENUM,:HENAME,:HGRADE,:HCITY;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :HENUM CHAR(3),
    :HENAME CHAR(20),
    :HGRADE NUMERIC (9),
    :HCITY CHAR(15));
      FETCH PRIOR FROM b INTO
                  :HENUM,:HENAME,:HGRADE,:HCITY;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :HENUM CHAR(3),
    :HENAME CHAR(20),
    :HGRADE NUMERIC (9),
    :HCITY CHAR(15));
      FETCH PRIOR FROM b INTO
                  :HENUM,:HENAME,:HGRADE,:HCITY;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :HENUM CHAR(3),
    :HENAME CHAR(20),
    :HGRADE NUMERIC (9),
    :HCITY CHAR(15));
      FETCH PRIOR FROM b INTO
                  :HENUM,:HENAME,:HGRADE,:HCITY;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :HENUM CHAR(3),
    :HENAME CHAR(20),
    :HGRADE NUMERIC (9),
    :HCITY CHAR(15));
      FETCH PRIOR FROM b INTO
                  :HENUM,:HENAME,:HGRADE,:HCITY;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      CLOSE b;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
    OPEN a;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :HENUM CHAR(3),
    :HENAME CHAR(20),
    :HGRADE NUMERIC (9),
    :HCITY CHAR(15));
      FETCH LAST FROM a INTO
                  :HENUM,:HENAME,:HGRADE,:HCITY;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :HENUM CHAR(3),
    :HENAME CHAR(20),
    :HGRADE NUMERIC (9),
    :HCITY CHAR(15));
      FETCH PRIOR FROM a INTO
                  :HENUM,:HENAME,:HGRADE,:HCITY;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :HENUM CHAR(3),
    :HENAME CHAR(20),
    :HGRADE NUMERIC (9),
    :HCITY CHAR(15));
      FETCH PRIOR FROM a INTO
                  :HENUM,:HENAME,:HGRADE,:HCITY;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :HENUM CHAR(3),
    :HENAME CHAR(20),
    :HGRADE NUMERIC (9),
    :HCITY CHAR(15));
      FETCH PRIOR FROM a INTO
                  :HENUM,:HENAME,:HGRADE,:HCITY;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :HENUM CHAR(3),
    :HENAME CHAR(20),
    :HGRADE NUMERIC (9),
    :HCITY CHAR(15));
      FETCH PRIOR FROM a INTO
                  :HENUM,:HENAME,:HGRADE,:HCITY;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :HENUM CHAR(3),
    :HENAME CHAR(20),
    :HGRADE NUMERIC (9),
    :HCITY CHAR(15));
      FETCH PRIOR FROM a INTO
                  :HENUM,:HENAME,:HGRADE,:HCITY;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      CLOSE a;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
    OPEN c;

PROCEDURE SUB20 (SQLCODE, SQLSTATE,
    :HENUM CHAR(3),
    :HENAME CHAR(20),
    :HGRADE NUMERIC (9),
    :HCITY CHAR(15));
      FETCH c INTO :HENUM,:HENAME,:HGRADE,:HCITY
                 ;

PROCEDURE SUB21 (SQLCODE, SQLSTATE,
    :HENUM CHAR(3),
    :HENAME CHAR(20),
    :HGRADE NUMERIC (9),
    :HCITY CHAR(15));
      FETCH c INTO :HENUM,:HENAME,:HGRADE,:HCITY
                 ;

PROCEDURE SUB22 (SQLCODE, SQLSTATE,
    :HENUM CHAR(3),
    :HENAME CHAR(20),
    :HGRADE NUMERIC (9),
    :HCITY CHAR(15));
      FETCH c INTO :HENUM,:HENAME,:HGRADE,:HCITY
                 ;

PROCEDURE SUB23 (SQLCODE, SQLSTATE,
    :HENUM CHAR(3),
    :HENAME CHAR(20),
    :HGRADE NUMERIC (9),
    :HCITY CHAR(15));
      FETCH c INTO :HENUM,:HENAME,:HGRADE,:HCITY
                 ;

PROCEDURE SUB24 (SQLCODE, SQLSTATE,
    :HENUM CHAR(3),
    :HENAME CHAR(20),
    :HGRADE NUMERIC (9),
    :HCITY CHAR(15));
      FETCH c INTO :HENUM,:HENAME,:HGRADE,:HCITY
                 ;

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      CLOSE c;

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      COMMIT WORK;