Quelle  cdr001.mco

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

MODULE CDR001
LANGUAGE COBOL
AUTHORIZATION SUN



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

PROCEDURE SUB1 SQLCODE;
      DELETE FROM STAFF4;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO STAFF4 (EMPNUM,GRADE)
                  VALUES ('E1',40);

PROCEDURE SUB3 SQLCODE;
      INSERT INTO STAFF4 (EMPNUM,EMPNAME)
                  VALUES ('E2','HUFFMAN');

PROCEDURE SUB4 SQLCODE
    :ENAME CHAR(20);
      SELECT EMPNAME INTO  :ENAME FROM STAFF4
                  WHERE GRADE=0;

PROCEDURE SUB5 SQLCODE
    :EGRD NUMERIC (9);
      SELECT GRADE INTO  :EGRD FROM STAFF4
                  WHERE (EMPNAME IS NULL)
                  AND CITY = '               ';

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0300','pass','MCO');

PROCEDURE SUB7 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0300','fail','MCO');

PROCEDURE SUB8 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE;
      DELETE FROM STAFF14;

PROCEDURE SUB10 SQLCODE;
      INSERT INTO STAFF14 (EMPNUM,GRADE)
                  VALUES ('E1',40);

PROCEDURE SUB11 SQLCODE
    :ENAME CHAR(20);
      SELECT EMPNAME INTO  :ENAME FROM STAFF14
                  WHERE EMPNAME = 'SUN';

PROCEDURE SUB12 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0301','pass','MCO');

PROCEDURE SUB13 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0301','fail','MCO');

PROCEDURE SUB14 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB15 SQLCODE;
      DELETE FROM STAFF16;

PROCEDURE SUB16 SQLCODE;
      INSERT INTO STAFF16 (EMPNUM,GRADE)
                  VALUES ('E1',150);

PROCEDURE SUB17 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1 FROM STAFF16
                  WHERE EMPNAME IS NULL;

PROCEDURE SUB18 SQLCODE;
      INSERT INTO STAFF16 (EMPNUM,EMPNAME,GRADE)
                  VALUES ('E2','Tom',100);

PROCEDURE SUB19 SQLCODE
    :ENAME CHAR(20);
      SELECT EMPNAME INTO  :ENAME FROM STAFF16
                  WHERE EMPNUM = 'E2';

PROCEDURE SUB20 SQLCODE;
      INSERT INTO STAFF16 (EMPNUM,EMPNAME,GRADE)
                  VALUES ('E3','Bill',151);

PROCEDURE SUB21 SQLCODE
    :EGRD NUMERIC (9);
      SELECT GRADE INTO  :EGRD FROM STAFF16
                  WHERE EMPNUM = 'E3';

PROCEDURE SUB22 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0377','pass','MCO');

PROCEDURE SUB23 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0377','fail','MCO');

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;