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

Quelle suntab1.mco Sprache: unbekannt

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

MODULE SUNTAB1
LANGUAGE COBOL
AUTHORIZATION SUN

PROCEDURE SUB1 SQLCODE;
      UPDATE STAFF_M
                    SET PRI_WK = NULL;

PROCEDURE SUB2 SQLCODE;
      UPDATE PROJ_M
                    SET MGR = NULL;

PROCEDURE SUB3 SQLCODE;
      DELETE FROM PROJ_M;

PROCEDURE SUB4 SQLCODE;
      DELETE FROM STAFF_M;

PROCEDURE SUB5 SQLCODE;
      UPDATE STAFF_C
                    SET MGR = NULL;

PROCEDURE SUB6 SQLCODE;
      DELETE FROM STAFF_C;

PROCEDURE SUB7 SQLCODE;
      INSERT INTO STAFF_M
                    VALUES('E1','Alice',12,'Deale',NULL);

PROCEDURE SUB8 SQLCODE;
      INSERT INTO STAFF_M
                    VALUES('E2','Betty',10,'Vienna',NULL);

PROCEDURE SUB9 SQLCODE;
      INSERT INTO STAFF_M
                    VALUES('E3','Carmen',13,'Vienna',NULL);

PROCEDURE SUB10 SQLCODE;
      INSERT INTO STAFF_M
                    VALUES('E5','Don',12,'Deale',NULL);

PROCEDURE SUB11 SQLCODE;
      INSERT INTO STAFF_M
                    VALUES('E4','Don',12,'Deale',NULL);

PROCEDURE SUB12 SQLCODE;
      INSERT INTO PROJ_M
                    VALUES('P1','MXSS','Design',10000,'Deale',NULL);

PROCEDURE SUB13 SQLCODE;
      INSERT INTO PROJ_M
                    VALUES('P2','CALM','Code',30000,'Vienna',NULL);

PROCEDURE SUB14 SQLCODE;
      INSERT INTO PROJ_M
                    VALUES('P4','SDP','Design',20000,'Deale',NULL);

PROCEDURE SUB15 SQLCODE;
      INSERT INTO PROJ_M
                    VALUES('P3','SDP','Test',30000,'Tample',NULL);

PROCEDURE SUB16 SQLCODE;
      INSERT INTO PROJ_M
                    VALUES('P5','IRM','Test',10000,'Vienna',NULL);

PROCEDURE SUB17 SQLCODE;
      INSERT INTO PROJ_M
                    VALUES('P6','PAYR','Design',50000,'Deale',NULL);

PROCEDURE SUB18 SQLCODE;
      UPDATE STAFF_M
                    SET PRI_WK = 'P1'
                    WHERE EMPNUM = 'E1';

PROCEDURE SUB19 SQLCODE;
      UPDATE STAFF_M
                    SET PRI_WK = 'P1'
                    WHERE EMPNUM = 'E2';

PROCEDURE SUB20 SQLCODE;
      UPDATE STAFF_M
                    SET PRI_WK = 'P1'
                    WHERE EMPNUM = 'E3';

PROCEDURE SUB21 SQLCODE;
      UPDATE STAFF_M
                    SET PRI_WK = 'P2'
                    WHERE EMPNUM = 'E4';

PROCEDURE SUB22 SQLCODE;
      UPDATE STAFF_M
                    SET PRI_WK = 'P4'
                    WHERE EMPNUM = 'E5';

PROCEDURE SUB23 SQLCODE;
      UPDATE PROJ_M
                    SET MGR = 'E2'
                    WHERE PNUM = 'P1';

PROCEDURE SUB24 SQLCODE;
      UPDATE PROJ_M
                    SET MGR = 'E2'
                    WHERE PNUM = 'P2';

PROCEDURE SUB25 SQLCODE;
      UPDATE PROJ_M
                    SET MGR = 'E3'
                    WHERE PNUM = 'P3';

PROCEDURE SUB26 SQLCODE;
      UPDATE PROJ_M
                    SET MGR = 'E4'
                    WHERE PNUM = 'P4';

PROCEDURE SUB27 SQLCODE;
      UPDATE PROJ_M
                    SET MGR = 'E4'
                    WHERE PNUM = 'P5';

PROCEDURE SUB28 SQLCODE;
      INSERT INTO STAFF_C
                    VALUES('E1','Alice',12,'Deale',NULL);

PROCEDURE SUB29 SQLCODE;
      INSERT INTO STAFF_C
                    VALUES('E2','Betty',10,'Vienna','E1');

PROCEDURE SUB30 SQLCODE;
      INSERT INTO STAFF_C
                    VALUES('E3','Carmen',13,'Vienna','E2');

PROCEDURE SUB31 SQLCODE;
      INSERT INTO STAFF_C
                    VALUES('E4','Don',12,'Deale','E2');

PROCEDURE SUB32 SQLCODE;
      INSERT INTO STAFF_C
                    VALUES('E5','Don',12,'Deale','E1');

PROCEDURE SUB33 SQLCODE;
      INSERT INTO STAFF_C
                    VALUES('E6','Tom',14,'Gettysburg','E5');

PROCEDURE SUB34 SQLCODE;
      INSERT INTO STAFF_C
                    VALUES('E7','Kingdom',18,'Gettysburg','E7');

PROCEDURE SUB35 SQLCODE
    :CNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :CNT1
                    FROM STAFF_M;

PROCEDURE SUB36 SQLCODE
    :CNT4 NUMERIC (9);
      SELECT COUNT(*) INTO  :CNT4
                    FROM STAFF_M
                    WHERE PRI_WK IS NOT NULL;

PROCEDURE SUB37 SQLCODE
    :CNT2 NUMERIC (9);
      SELECT COUNT(*) INTO  :CNT2
                    FROM PROJ_M;

PROCEDURE SUB38 SQLCODE
    :CNT5 NUMERIC (9);
      SELECT COUNT(*) INTO  :CNT5
                    FROM PROJ_M
                    WHERE MGR IS NULL;

PROCEDURE SUB39 SQLCODE
    :CNT3 NUMERIC (9);
      SELECT COUNT(*) INTO  :CNT3
                    FROM STAFF_C;

PROCEDURE SUB40 SQLCODE;
      COMMIT WORK;