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: dml025.mco Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: Python {Python[94] Pl1[110] Latech[125]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

-- SQL Test Suite, V6.0, SQL Module dml025.mco
-- 59-byte ID

MODULE DML025
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE S1 CURSOR FOR
             SELECT SUM(HOURS),AVG(HOURS),MIN(HOURS),MAX(HOURS)
             FROM    WORKS
             WHERE   EMPNUM='E1'
DECLARE S2 CURSOR FOR
             SELECT PNUM,AVG(HOURS),MIN(HOURS),MAX(HOURS)
             FROM    WORKS
             WHERE   EMPNUM='E8'
             GROUP BY PNUM
DECLARE S3 CURSOR FOR
             SELECT SUM(HOURS),AVG(HOURS),MIN(HOURS),MAX(HOURS)
             FROM    WORKS
             WHERE   EMPNUM='E8'
             GROUP BY PNUM
DECLARE S4 CURSOR FOR
             SELECT PNUM,AVG(HOURS),MIN(HOURS),MAX(HOURS)
             FROM    WORKS
             GROUP BY PNUM

PROCEDURE AUTHCK SQLCODE
  :UIDX CHAR(18);
      SELECT USER INTO :UIDX FROM HU.ECCO;

PROCEDURE SUB1 SQLCODE;
    OPEN S1;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0114','pass','MCO');

PROCEDURE SUB3 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0114','fail','MCO');

PROCEDURE SUB4 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE;
    OPEN S2;

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0115','pass','MCO');

PROCEDURE SUB7 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0115','fail','MCO');

PROCEDURE SUB8 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE;
    OPEN S3;

PROCEDURE SUB10 SQLCODE
    :SUMH NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :AVGH NUMERIC (9)
    :INDIC2 NUMERIC (4)
    :MINH NUMERIC (9)
    :INDIC3 NUMERIC (4)
    :MAXH NUMERIC (9)
    :INDIC4 NUMERIC (4);
      FETCH S3 INTO
                   :SUMH :INDIC1, :AVGH :INDIC2, :MINH :INDIC3, :MAXH :INDIC4
                 ;

PROCEDURE SUB11 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0116','pass','MCO');

PROCEDURE SUB12 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0116','fail','MCO');

PROCEDURE SUB13 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB14 SQLCODE;
    OPEN S4;

PROCEDURE SUB15 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0117','pass','MCO');

PROCEDURE SUB16 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0117','fail','MCO');

PROCEDURE SUB17 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB18 SQLCODE
    :SUMH NUMERIC (9)
    :AVGH NUMERIC (9)
    :MINH NUMERIC (9)
    :MAXH NUMERIC (9);
      FETCH S1 INTO
                     :SUMH, :AVGH, :MINH, :MAXH;

PROCEDURE SUB19 SQLCODE
    :WPNUM CHAR(3)
    :AVGH NUMERIC (9)
    :MINH NUMERIC (9)
    :MAXH NUMERIC (9);
      FETCH S2 INTO
                     :WPNUM, :AVGH, :MINH, :MAXH;

PROCEDURE SUB20 SQLCODE
    :WPNUM CHAR(3)
    :AVGH NUMERIC (9)
    :MINH NUMERIC (9)
    :MAXH NUMERIC (9);
      FETCH S4 INTO
                     :WPNUM, :AVGH, :MINH, :MAXH;