Quelle  suntab1.mco

-- 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;