Quelle  xts799.mco

-- SQL Test Suite, V6.0, SQL Module xts799.mco
-- 59-byte ID
-- 
MODULE XTS799
LANGUAGE COBOL
AUTHORIZATION CTS1

DECLARE A  CURSOR FOR SELECT EMPNUM,
             COALESCE(SALARY,GRADE,HOURS),
               COALESCE(EMPNAME,LOC,DEPTNO) 
               FROM CTS1.CL_EMPLOYEE
               ORDER BY EMPNUM


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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      DELETE FROM CL_EMPLOYEE;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO CL_EMPLOYEE
                  VALUES(5000,NULL,NULL,NULL,NULL,NULL,NULL);

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO CL_EMPLOYEE
                  VALUES(6000,NULL,'CRETA','JIM',NULL,4,130);

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO CL_EMPLOYEE
                  VALUES(7000,'P2',NULL,NULL,NULL,NULL,150);

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO CL_EMPLOYEE 
                    VALUES(8000,'P2','HALKIDA',NULL,30000,6,NULL);

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO CL_EMPLOYEE
                    VALUES(9000,'P1','SANTORINH','ANDREWS',15000,5,125)
                 ;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
    OPEN a;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :HMPNUM NUMERIC (9),
    :NUMHST NUMERIC (9),
    :INDIC2 NUMERIC (4),
    :STRHST CHAR(20),
    :INDIC1 NUMERIC (4));
      FETCH a INTO :HMPNUM, :NUMHST:INDIC2
                  ,:STRHST:INDIC1;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :HMPNUM NUMERIC (9),
    :NUMHST NUMERIC (9),
    :STRHST CHAR(20));
      FETCH a INTO :HMPNUM, :NUMHST ,:STRHST;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :HMPNUM NUMERIC (9),
    :NUMHST NUMERIC (9),
    :STRHST CHAR(20));
      FETCH a INTO :HMPNUM, :NUMHST ,:STRHST;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :HMPNUM NUMERIC (9),
    :NUMHST NUMERIC (9),
    :STRHST CHAR(20));
      FETCH a INTO :HMPNUM, :NUMHST ,:STRHST;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :HMPNUM NUMERIC (9),
    :NUMHST NUMERIC (9),
    :STRHST CHAR(20));
      FETCH a INTO :HMPNUM, :NUMHST ,:STRHST;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :STRHST CHAR(20),
    :NUMHST NUMERIC (9),
    :HMPNUM NUMERIC (9),
    :HV1 CHAR(20),
    :HV2 NUMERIC (9));
      SELECT EMPNUM, COALESCE(DEPTNO,LOC,:STRHST), 
                    COALESCE(SALARY,:NUMHST,GRADE) INTO :HMPNUM, :HV1, :HV2
                    FROM CL_EMPLOYEE
                    WHERE EMPNUM = 5000;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :HMPNUM NUMERIC (9),
    :HV1 CHAR(20),
    :HV2 NUMERIC (9));
      SELECT EMPNUM, COALESCE('NICKOS',DEPTNO,LOC), 
                    COALESCE(SALARY,GRADE,47000) INTO :HMPNUM, :HV1, :HV2
                    FROM CL_EMPLOYEE
                    WHERE EMPNUM = 7000;

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :STRHST CHAR(20),
    :NUMHST NUMERIC (9),
    :HMPNUM NUMERIC (9),
    :HV1 CHAR(20),
    :HV2 NUMERIC (9));
      SELECT EMPNUM, COALESCE(EMPNAME,:STRHST,LOC), 
                    COALESCE(:NUMHST,SALARY,GRADE) INTO :HMPNUM, :HV1, :HV2
                    FROM CL_EMPLOYEE
                    WHERE EMPNUM = 8000;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7003','pass','MCO');

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7003','fail','MCO');

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      COMMIT WORK;