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

Quelle mpa011.mco Sprache: unbekannt

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

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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :PROGNO NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM HU.TOKENS WHERE PROG_NO = :PROGNO;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE
    :PROGNO NUMERIC (9);
      DELETE FROM HU.TOKENS WHERE PROG_NO = :PROGNO
                 ;

PROCEDURE SUB6 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB10 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB11 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB12 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB14 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE SQLSTATE
    :PROGNO NUMERIC (9);
      INSERT INTO HU.TOKENS VALUES (:PROGNO, 1);

PROCEDURE SUB17 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB18 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB20 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :PROGNO NUMERIC (9);
      SELECT TOKEN_NO INTO :INT1 FROM HU.TOKENS
                    WHERE PROG_NO = :PROGNO;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB22 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB23 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB24 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB25 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB26 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB27 SQLCODE SQLSTATE
    :PROGNO NUMERIC (9);
      UPDATE HU.TOKENS SET TOKEN_NO = TOKEN_NO + 1
                    WHERE PROG_NO = :PROGNO;

PROCEDURE SUB28 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB30 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB31 SQLCODE SQLSTATE
    :PROGNO NUMERIC (9);
      DELETE FROM HU.TOKENS WHERE PROG_NO = :PROGNO
                 ;

PROCEDURE SUB32 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB35 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB36 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :PROGNO NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM HU.TOKENS WHERE PROG_NO = :PROGNO;

PROCEDURE SUB37 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB38 SQLCODE SQLSTATE
    :PROGNO NUMERIC (9);
      DELETE FROM HU.TOKENS WHERE PROG_NO = :PROGNO
                 ;

PROCEDURE SUB39 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB40 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB41 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB42 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'REVOKE SELECT, UPDATE, DELETE ON GRANT011' ||
                    ' FROM HU CASCADE'
                    );

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

PROCEDURE SUB45 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB46 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      EXECUTE IMMEDIATE :LONGST;

PROCEDURE SUB47 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB48 SQLCODE SQLSTATE
    :PROGNO NUMERIC (9);
      INSERT INTO HU.TOKENS VALUES (:PROGNO, 1);

PROCEDURE SUB49 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB51 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB52 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :PROGNO NUMERIC (9);
      SELECT TOKEN_NO INTO :INT1 FROM HU.TOKENS
                    WHERE PROG_NO = :PROGNO;

PROCEDURE SUB53 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB54 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB55 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB56 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB57 SQLCODE SQLSTATE
    :PROGNO NUMERIC (9);
      UPDATE HU.TOKENS SET TOKEN_NO = TOKEN_NO + 1
                    WHERE PROG_NO = :PROGNO;

PROCEDURE SUB58 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB59 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB60 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB61 SQLCODE SQLSTATE
    :PROGNO NUMERIC (9);
      DELETE FROM HU.TOKENS WHERE PROG_NO = :PROGNO
                 ;

PROCEDURE SUB62 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB65 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB66 SQLCODE SQLSTATE
    :PROGNO NUMERIC (9);
      DELETE FROM HU.TOKENS WHERE PROG_NO = :PROGNO
                 ;

PROCEDURE SUB67 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB68 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB69 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      UPDATE HU.STAFF
                    SET GRADE = -1 WHERE GRADE = :INT1;