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

Quelle dml150.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module dml150.mco
-- 59-byte ID
--
MODULE DML150
LANGUAGE COBOL
AUTHORIZATION FLATER

DECLARE S1  CURSOR FOR SEL1

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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE INS1 FROM :DSTMT;

PROCEDURE SUB4 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC2 NUMERIC (4)
    :CH15 CHAR(15);
      EXECUTE INS1 USING :CH3, :CH20 :INDIC1,
                  :INT1:INDIC2, :CH15;

PROCEDURE SUB5 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC2 NUMERIC (4)
    :CH15 CHAR(15);
      SELECT * INTO :CH3, :CH20:INDIC1, :INT1 :INDIC2,
                  :CH15
                    FROM HU.STAFF WHERE EMPNUM = 'E6';

PROCEDURE SUB6 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
               'INSERT INTO HU.STAFF SELECT PNUM,' ||
               '  CAST (? AS CHAR (20)),'          ||
               '  CAST (? AS DECIMAL (4)),'        ||
               '  CAST (? AS CHAR (15))'           ||
                    ' FROM HU.PROJ'
                    );

PROCEDURE SUB8 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB9 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE INS2 FROM :LONGST;

PROCEDURE SUB10 SQLCODE SQLSTATE
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC2 NUMERIC (4)
    :CH15 CHAR(15);
      EXECUTE INS2 USING :CH20:INDIC1, :INT1 :INDIC2,
                  :CH15;

PROCEDURE SUB11 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE EMPNUM = 'P3' AND EMPNAME = 'Madonna of the Woods'
                    AND GRADE IS NULL AND CITY = 'MinneapolisPaul';

PROCEDURE SUB12 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB14 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT * FROM HU.STAFF WHERE EMPNUM = ?' ||
                    ' OR EMPNAME = ? OR GRADE = ?'
                    );

PROCEDURE SUB15 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB16 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE SEL1 FROM :LONGST;

PROCEDURE SUB17 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC2 NUMERIC (4);
      OPEN S1 USING :CH3, :CH20:INDIC1, :INT1:INDIC2
                 ;

PROCEDURE SUB18 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC2 NUMERIC (4)
    :CH15 CHAR(15);
      FETCH S1 INTO :CH3, :CH20:INDIC1, :INT1:INDIC2,
                  :CH15;

PROCEDURE SUB19 SQLCODE SQLSTATE
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4);
      UPDATE HU.STAFF SET EMPNAME = :CH20:INDIC1 WHERE
                  CURRENT OF S1;

PROCEDURE SUB20 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC2 NUMERIC (4)
    :CH15 CHAR(15);
      FETCH S1 INTO :CH3, :CH20:INDIC1, :INT1:INDIC2,
                  :CH15;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      DELETE FROM HU.STAFF WHERE CURRENT OF S1;

PROCEDURE SUB22 SQLCODE SQLSTATE;
      CLOSE S1;

PROCEDURE SUB23 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC2 NUMERIC (4);
      OPEN S1 USING :CH3, :CH20:INDIC1, :INT1:INDIC2
                 ;

PROCEDURE SUB24 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC2 NUMERIC (4)
    :CH15 CHAR(15);
      FETCH S1 INTO :CH3, :CH20:INDIC1, :INT1:INDIC2,
                  :CH15;

PROCEDURE SUB25 SQLCODE SQLSTATE
    :CH15 CHAR(15)
    :INDIC1 NUMERIC (4);
      UPDATE HU.STAFF SET CITY = :CH15:INDIC1 WHERE
                  CURRENT OF S1;

PROCEDURE SUB26 SQLCODE SQLSTATE;
      CLOSE S1;

PROCEDURE SUB27 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE EMPNAME = 'Madonna of the Woods';

PROCEDURE SUB28 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE EMPNAME IS NULL
                    AND (CITY IS NULL OR GRADE IS NULL);

PROCEDURE SUB29 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB30 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'DELETE FROM HU.STAFF WHERE EMPNUM=?' ||
                    ' OR GRADE=? OR CITY=?'
                    );

PROCEDURE SUB31 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB32 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE MOD1 FROM :LONGST;

PROCEDURE SUB33 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :CH15 CHAR(15)
    :INDIC2 NUMERIC (4);
      EXECUTE MOD1 USING :CH3, :INT1:INDIC1,
                  :CH15:INDIC2;

PROCEDURE SUB34 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF;

PROCEDURE SUB35 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :CH15 CHAR(15)
    :INDIC2 NUMERIC (4);
      EXECUTE MOD1 USING :CH3, :INT1:INDIC1,
                  :CH15:INDIC2;

PROCEDURE SUB36 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF;

PROCEDURE SUB37 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB38 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'UPDATE HU.STAFF SET EMPNAME = ?, CITY = ?' ||
                    ' WHERE EMPNUM = ? OR GRADE = ?'
                    );

PROCEDURE SUB39 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB40 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE MOD1 FROM :LONGST;

PROCEDURE SUB41 SQLCODE SQLSTATE
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :CH15 CHAR(15)
    :INDIC2 NUMERIC (4)
    :CH3 CHAR(3)
    :INDIC3 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC4 NUMERIC (4);
      EXECUTE MOD1 USING
                    :CH20:INDIC1,
                    :CH15:INDIC2,
                    :CH3:INDIC3,
                    :INT1:INDIC4;

PROCEDURE SUB42 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE EMPNAME = 'Flash in the pan';

PROCEDURE SUB43 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE CITY = 'Migrane';

PROCEDURE SUB44 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE EMPNAME IS NULL;

PROCEDURE SUB45 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE CITY IS NULL;

PROCEDURE SUB46 SQLCODE SQLSTATE
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :CH15 CHAR(15)
    :INDIC2 NUMERIC (4)
    :CH3 CHAR(3)
    :INDIC3 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC4 NUMERIC (4);
      EXECUTE MOD1 USING
                    :CH20:INDIC1,
                    :CH15:INDIC2,
                    :CH3:INDIC3,
                    :INT1:INDIC4;

PROCEDURE SUB47 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE EMPNAME = 'Flash in the pan';

PROCEDURE SUB48 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE CITY = 'Migrane';

PROCEDURE SUB49 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE EMPNAME IS NULL;

PROCEDURE SUB50 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE CITY IS NULL;

PROCEDURE SUB51 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB52 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0845','pass','MCO');

PROCEDURE SUB53 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0845','fail','MCO');

PROCEDURE SUB54 SQLCODE SQLSTATE;
      COMMIT WORK;