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

Quelle dml070.mco Sprache: unbekannt

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

MODULE DML070
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE SCALLOP CURSOR FOR
               SELECT  PNUM, WORKS.EMPNUM, EMPNAME, HOURS
               FROM WORKS,STAFF
               WHERE STAFF.EMPNUM = WORKS.EMPNUM
               ORDER BY 2
DECLARE FISH CURSOR FOR
               SELECT  'ZZ', EMPNUM, EMPNAME, -99
               FROM STAFF
               WHERE NOT EXISTS (SELECT * FROM WORKS
               WHERE WORKS.EMPNUM = STAFF.EMPNUM)
               ORDER BY EMPNUM
DECLARE SMURF CURSOR FOR
               SELECT W1.EMPNUM FROM WORKS W1
               WHERE  W1.PNUM = 'P2'
               AND NOT EXISTS (SELECT * FROM WORKS W2
               WHERE W2.EMPNUM = W1.EMPNUM
               AND W2.PNUM = 'P1')
               ORDER BY 1 ASC
DECLARE BULL CURSOR FOR
               SELECT W1.EMPNUM FROM WORKS W1
               WHERE  W1.PNUM = 'P2'
               AND EXISTS (SELECT * FROM WORKS W2
               WHERE W1.EMPNUM = W2.EMPNUM
               AND W2.PNUM = 'P1')
               ORDER BY EMPNUM ASC

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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO STAFF
                    VALUES ('E6', 'Lendle', 17, 'Potomac');

PROCEDURE SUB2 SQLCODE;
    OPEN SCALLOP;

PROCEDURE SUB3 SQLCODE;
      CLOSE SCALLOP;

PROCEDURE SUB4 SQLCODE;
    OPEN FISH;

PROCEDURE SUB5 SQLCODE
    :PNUM1 CHAR(9)
    :EMPNO1 CHAR(3)
    :EMPNA1 CHAR(20)
    :HOURS1 NUMERIC (9);
      FETCH FISH INTO  :PNUM1,
                     :EMPNO1,  :EMPNA1,  :HOURS1;

PROCEDURE SUB6 SQLCODE
    :PNUM1 CHAR(9)
    :EMPNO1 CHAR(3)
    :EMPNA1 CHAR(20)
    :HOURS1 NUMERIC (9);
      FETCH FISH INTO  :PNUM1,
                     :EMPNO1,  :EMPNA1,  :HOURS1;

PROCEDURE SUB7 SQLCODE
    :PNUM1 CHAR(9)
    :EMPNO1 CHAR(3)
    :EMPNA1 CHAR(20)
    :HOURS1 NUMERIC (9);
      FETCH FISH INTO  :PNUM1,
                     :EMPNO1,  :EMPNA1,  :HOURS1;

PROCEDURE SUB8 SQLCODE;
      CLOSE FISH;

PROCEDURE SUB9 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB10 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0409','pass','MCO');

PROCEDURE SUB11 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0409','fail','MCO');

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE;
    OPEN SMURF;

PROCEDURE SUB22 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH SMURF INTO  :EMPNO1;

PROCEDURE SUB23 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH SMURF INTO  :EMPNO1;

PROCEDURE SUB24 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH SMURF INTO  :EMPNO1;

PROCEDURE SUB25 SQLCODE;
      CLOSE SMURF;

PROCEDURE SUB26 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0411','pass','MCO');

PROCEDURE SUB27 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0411','fail','MCO');

PROCEDURE SUB28 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE;
    OPEN BULL;

PROCEDURE SUB30 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH BULL INTO  :EMPNO1;

PROCEDURE SUB31 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH BULL INTO  :EMPNO1;

PROCEDURE SUB32 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH BULL INTO  :EMPNO1;

PROCEDURE SUB33 SQLCODE;
      CLOSE BULL;

PROCEDURE SUB34 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0412','pass','MCO');

PROCEDURE SUB35 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0412','fail','MCO');

PROCEDURE SUB36 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB37 SQLCODE
    :PNUM1 CHAR(9)
    :EMPNO1 CHAR(3)
    :EMPNA1 CHAR(20)
    :HOURS1 NUMERIC (9);
      FETCH SCALLOP INTO  :PNUM1,
                       :EMPNO1,  :EMPNA1,  :HOURS1;