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: dml148.cob Sprache: Cobol

Untersuchungsergebnis.mco Download desPython {Python[62] Pl1[116] Fortran[122]}zum Wurzelverzeichnis wechseln

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

DECLARE ACURS  SCROLL CURSOR FOR SELECT
             WORKERS,CITCOUN
               FROM VA759 ORDER BY WORKERS

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 VIEW VA759 (WORKERS,CITCOUN)
                    AS SELECT EMPNAME,COUNT(CITY)
                    FROM CTS1.STAFFc
                    GROUP BY EMPNAME;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
    OPEN ACURS;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :ROWPTR NUMERIC (9),
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH ABSOLUTE :ROWPTR FROM ACURS INTO :COL1,:COL2
                 ;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH FIRST FROM ACURS INTO :COL1,:COL2;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :ROWPTR NUMERIC (9),
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH RELATIVE :ROWPTR FROM ACURS INTO :COL1,:COL2
                 ;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :ROWPTR NUMERIC (9),
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH RELATIVE :ROWPTR FROM ACURS INTO :COL1,:COL2
                 ;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :ROWPTR NUMERIC (9),
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH RELATIVE :ROWPTR FROM ACURS INTO :COL1,:COL2
                 ;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :ROWPTR NUMERIC (9),
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH RELATIVE :ROWPTR FROM ACURS INTO :COL1,:COL2
                 ;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :ROWPTR NUMERIC (9),
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH RELATIVE :ROWPTR FROM ACURS INTO :COL1,:COL2
                 ;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :ROWPTR NUMERIC (9),
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH RELATIVE :ROWPTR FROM ACURS INTO :COL1,:COL2
                 ;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :ROWPTR NUMERIC (9),
    :COL1 CHAR(20),
    :COL2 NUMERIC (9));
      FETCH RELATIVE :ROWPTR FROM ACURS INTO :COL1,:COL2
                 ;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      CLOSE ACURS;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      DROP VIEW VA759 CASCADE;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      COMMIT WORK;