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

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

MODULE DML048
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE B CURSOR
             FOR SELECT EMPNUM,PNUM
             FROM   WORKS
             ORDER  BY EMPNUM ASC,PNUM ASC
DECLARE D CURSOR
             FOR SELECT CITY
             FROM   STAFF
             WHERE  EMPNUM =  :EMPNO1
DECLARE E CURSOR
             FOR SELECT CITY
             FROM   PROJ
             WHERE  PNUM =  :PNO1
DECLARE F CURSOR
             FOR SELECT SUM(HOURS)
             FROM WORKS
             WHERE EMPNUM =  :EMPNO1
DECLARE G CURSOR
             FOR SELECT SUM(HOURS)
             FROM WORKS
             WHERE PNUM =  :PNO1
DECLARE H CURSOR
             FOR SELECT SUM(GRADE)
             FROM STAFF
             WHERE CITY =  :SCITY
DECLARE I CURSOR
             FOR SELECT SUM(BUDGET)
             FROM PROJ
             WHERE CITY =  :PCITY
DECLARE J CURSOR
             FOR SELECT COUNT(*)
             FROM STAFF
             WHERE CITY =  :SCITY
DECLARE K CURSOR
             FOR SELECT COUNT(*)
             FROM PROJ
             WHERE CITY =  :PCITY
DECLARE L CURSOR
             FOR SELECT MAX(BUDGET)
             FROM PROJ
             WHERE CITY =  :PCITY

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

PROCEDURE SUB1 SQLCODE;
    OPEN B;

PROCEDURE SUB2 SQLCODE
    :EMPNO1 CHAR(3)
    :PNO1 CHAR(3);
      FETCH B INTO  :EMPNO1, :PNO1;

PROCEDURE SUB3 SQLCODE
    :EMPNO1 CHAR(3);
    OPEN D;

PROCEDURE SUB4 SQLCODE
    :PNO1 CHAR(3);
    OPEN E;

PROCEDURE SUB5 SQLCODE
    :SCITY CHAR(15);
      FETCH D INTO  :SCITY;

PROCEDURE SUB6 SQLCODE
    :PCITY CHAR(15);
      FETCH E INTO  :PCITY;

PROCEDURE SUB7 SQLCODE
    :EMPNO1 CHAR(3);
    OPEN F;

PROCEDURE SUB8 SQLCODE
    :PNO1 CHAR(3);
    OPEN G;

PROCEDURE SUB9 SQLCODE
    :SCITY CHAR(15);
    OPEN H;

PROCEDURE SUB10 SQLCODE
    :PCITY CHAR(15);
    OPEN I;

PROCEDURE SUB11 SQLCODE
    :SCITY CHAR(15);
    OPEN J;

PROCEDURE SUB12 SQLCODE
    :PCITY CHAR(15);
    OPEN K;

PROCEDURE SUB13 SQLCODE
    :PCITY CHAR(15);
    OPEN L;

PROCEDURE SUB14 SQLCODE
    :FSUM NUMERIC (9);
      FETCH F INTO  :FSUM;

PROCEDURE SUB15 SQLCODE
    :GSUM NUMERIC (9);
      FETCH G INTO  :GSUM;

PROCEDURE SUB16 SQLCODE
    :HSUM NUMERIC (9);
      FETCH H INTO  :HSUM;

PROCEDURE SUB17 SQLCODE
    :ISUM NUMERIC (9);
      FETCH I INTO  :ISUM;

PROCEDURE SUB18 SQLCODE
    :JCOUNT NUMERIC (9);
      FETCH J INTO  :JCOUNT;

PROCEDURE SUB19 SQLCODE
    :KCOUNT NUMERIC (9);
      FETCH K INTO  :KCOUNT;

PROCEDURE SUB20 SQLCODE
    :LMAX NUMERIC (9);
      FETCH L INTO  :LMAX;

PROCEDURE SUB21 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0224','pass','MCO');

PROCEDURE SUB22 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0224','fail','MCO');

PROCEDURE SUB23 SQLCODE;
      COMMIT WORK;