Quelle  dml148.mco

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

DECLARE C14811  CURSOR FOR
               SELECT * FROM HU.WORKS NATURAL LEFT JOIN HU.PROJ
               ORDER BY EMPNUM DESC, PNUM
DECLARE C14812  CURSOR FOR
               SELECT * FROM HU.WORKS JOIN HU.PROJ USING (PNUM)
               ORDER BY EMPNUM DESC, PNUM
DECLARE C14813  CURSOR FOR
               SELECT * FROM HU.WORKS RIGHT JOIN HU.PROJ
               ON HU.WORKS.PNUM = HU.PROJ.PNUM
               ORDER BY 1 DESC, 2
DECLARE C14821  CURSOR FOR
               SELECT EMPNAME, CITY, T_DECIMAL
               FROM HU.STAFF LEFT OUTER JOIN SEVEN_TYPES 
               ON -GRADE / 11 BETWEEN T_REAL AND T_DECIMAL
               ORDER BY EMPNAME
DECLARE C14822  CURSOR FOR
               SELECT T_INT, T_CHAR, EMPNAME, EMPNUM, GRADE 
               FROM SEVEN_TYPES RIGHT JOIN HU.STAFF
               ON GRADE IN (:int1, 11, 13) AND EMPNUM = T_CHAR
               ORDER BY EMPNAME, T_INT
DECLARE C14823  CURSOR FOR
               SELECT XX.PNUM, BUDGET, HOURS, EMPNUM
               FROM HU.PROJ XX LEFT JOIN HU.WORKS YY
               ON  XX.PNUM = YY.PNUM AND
               HOURS * BUDGET / 160000 > (SELECT GRADE FROM HU.STAFF
               WHERE YY.EMPNUM = HU.STAFF.EMPNUM)
               ORDER BY 1
DECLARE C14824  CURSOR FOR
               SELECT HU.STAFF.CITY,EMPNAME,PNAME,BUDGET
               FROM HU.STAFF LEFT JOIN HU.PROJ
               ON HU.STAFF.CITY = HU.PROJ.CITY
               AND HU.STAFF.CITY <> 'Vienna'
               AND EMPNAME <> 'Don'
               WHERE BUDGET > 15000 OR BUDGET IS NULL
               ORDER BY HU.STAFF.CITY, EMPNAME, BUDGET
DECLARE C14825  CURSOR FOR
               SELECT HU.STAFF.CITY,EMPNAME,PNAME,BUDGET
               FROM HU.STAFF LEFT JOIN HU.PROJ
               ON HU.STAFF.CITY = HU.PROJ.CITY
               AND HU.STAFF.CITY <> 'Vienna'
               WHERE (BUDGET > 15000 OR BUDGET IS NULL)
               AND EMPNAME <> 'Don'
               ORDER BY HU.STAFF.CITY, EMPNAME, BUDGET
DECLARE C14826  CURSOR FOR
               SELECT XX.T_INT, YY.T_INT
               FROM SEVEN_TYPES XX RIGHT OUTER JOIN SEVEN_TYPES YY
               ON XX.T_INT = YY.T_INT +1
               ORDER BY YY.T_INT
DECLARE C14827  CURSOR FOR
               SELECT GRADE, T_NUMERIC, DECIMAL6_6
               FROM HU.STAFF LEFT JOIN SEVEN_TYPES T7
               ON GRADE * -40 > T7.T_NUMERIC
               OR (DECIMAL6_6 -542.5 < GRADE
                      AND DECIMAL6_6 -541.5 > GRADE)
               ORDER BY GRADE


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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE;
    OPEN C14811;

PROCEDURE SUB4 SQLCODE SQLSTATE
    :PN CHAR(3)
    :EN CHAR(3)
    :HR NUMERIC (9)
    :PNAME CHAR(20)
    :PT CHAR(6)
    :BU NUMERIC (9)
    :CT CHAR(15);
      FETCH C14811 INTO :PN, :EN, :HR, :PNAME, :PT, :BU,
                  :CT;

PROCEDURE SUB5 SQLCODE SQLSTATE
    :PN CHAR(3)
    :EN CHAR(3)
    :HR NUMERIC (9)
    :PNAME CHAR(20)
    :PT CHAR(6)
    :BU NUMERIC (9)
    :CT CHAR(15);
      FETCH C14811 INTO :PN, :EN, :HR, :PNAME, :PT, :BU,
                  :CT;

PROCEDURE SUB6 SQLCODE SQLSTATE;
      CLOSE C14811;

PROCEDURE SUB7 SQLCODE SQLSTATE;
    OPEN C14812;

PROCEDURE SUB8 SQLCODE SQLSTATE
    :PN CHAR(3)
    :EN CHAR(3)
    :HR NUMERIC (9)
    :PNAME CHAR(20)
    :PT CHAR(6)
    :BU NUMERIC (9)
    :CT CHAR(15);
      FETCH C14812 INTO :PN, :EN, :HR, :PNAME, :PT, :BU,
                  :CT;

PROCEDURE SUB9 SQLCODE SQLSTATE
    :PN CHAR(3)
    :EN CHAR(3)
    :HR NUMERIC (9)
    :PNAME CHAR(20)
    :PT CHAR(6)
    :BU NUMERIC (9)
    :CT CHAR(15);
      FETCH C14812 INTO :PN, :EN, :HR, :PNAME, :PT, :BU,
                  :CT;

PROCEDURE SUB10 SQLCODE SQLSTATE;
      CLOSE C14812;

PROCEDURE SUB11 SQLCODE SQLSTATE;
    OPEN C14813;

PROCEDURE SUB12 SQLCODE SQLSTATE
    :EN CHAR(3)
    :PN CHAR(3)
    :HR NUMERIC (9)
    :PN2 CHAR(3)
    :PNAME CHAR(20)
    :PT CHAR(6)
    :BU NUMERIC (9)
    :CT CHAR(15);
      FETCH C14813 INTO :EN, :PN, :HR, :PN2, :PNAME,
                  :PT, :BU, :CT;

PROCEDURE SUB13 SQLCODE SQLSTATE
    :EN CHAR(3)
    :PN CHAR(3)
    :HR NUMERIC (9)
    :PN2 CHAR(3)
    :PNAME CHAR(20)
    :PT CHAR(6)
    :BU NUMERIC (9)
    :CT CHAR(15);
      FETCH C14813 INTO :EN, :PN, :HR, :PN2, :PNAME,
                  :PT, :BU, :CT;

PROCEDURE SUB14 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB17 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB18 SQLCODE SQLSTATE;
      CREATE TABLE SEVEN_TYPES (
                    T_INT     INTEGER,
                    T_CHAR    CHAR(10),
                    T_SMALL   SMALLINT,
                    T_DECIMAL DECIMAL(10,2),
                    T_REAL    REAL,
                    T_NUMERIC   NUMERIC(8,4),
                    DECIMAL6_6  DECIMAL (12,6));

PROCEDURE SUB19 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB20 SQLCODE SQLSTATE;
      DELETE FROM SEVEN_TYPES;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      INSERT INTO SEVEN_TYPES VALUES (1, 'E1',-11,   2, 
                  3,   4,   5);

PROCEDURE SUB22 SQLCODE SQLSTATE;
      INSERT INTO SEVEN_TYPES VALUES (2, 'E2', -5,  13,
                  33,-444, -55);

PROCEDURE SUB23 SQLCODE SQLSTATE;
      INSERT INTO SEVEN_TYPES VALUES (3, 'E6',
                  -3,-222,333,  44, 555);

PROCEDURE SUB24 SQLCODE SQLSTATE;
      INSERT INTO SEVEN_TYPES VALUES (12,'DUP', 0,   0,
                  -1,   1,1E+1);

PROCEDURE SUB25 SQLCODE SQLSTATE;
      INSERT INTO SEVEN_TYPES VALUES (12,'DUP', 0,   0,
                  -1,   1,1E+1);

PROCEDURE SUB26 SQLCODE SQLSTATE;
    OPEN C14821;

PROCEDURE SUB27 SQLCODE SQLSTATE
    :ENAME CHAR(20)
    :CT CHAR(15)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14821 INTO :ENAME, :CT, :INT1:INDIC1
                 ;

PROCEDURE SUB28 SQLCODE SQLSTATE
    :ENAME CHAR(20)
    :CT CHAR(15)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14821 INTO :ENAME, :CT, :INT1:INDIC1
                 ;

PROCEDURE SUB29 SQLCODE SQLSTATE
    :ENAME CHAR(20)
    :CT CHAR(15)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14821 INTO :ENAME, :CT, :INT1:INDIC1
                 ;

PROCEDURE SUB30 SQLCODE SQLSTATE
    :ENAME CHAR(20)
    :CT CHAR(15)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14821 INTO :ENAME, :CT, :INT1:INDIC1
                 ;

PROCEDURE SUB31 SQLCODE SQLSTATE
    :ENAME CHAR(20)
    :CT CHAR(15)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14821 INTO :ENAME, :CT, :INT1:INDIC1
                 ;

PROCEDURE SUB32 SQLCODE SQLSTATE
    :ENAME CHAR(20)
    :CT CHAR(15)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14821 INTO :ENAME, :CT, :INT1:INDIC1
                 ;

PROCEDURE SUB33 SQLCODE SQLSTATE
    :ENAME CHAR(20)
    :CT CHAR(15)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14821 INTO :ENAME, :CT, :INT1:INDIC1
                 ;

PROCEDURE SUB34 SQLCODE SQLSTATE;
      CLOSE C14821;

PROCEDURE SUB35 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
    OPEN C14822;

PROCEDURE SUB36 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :TC CHAR(10)
    :INDIC2 NUMERIC (4)
    :ENAME CHAR(20)
    :EN CHAR(3)
    :GR NUMERIC (9);
      FETCH C14822 INTO :INT1:INDIC1, :TC:INDIC2,
                  :ENAME, :EN, :GR;

PROCEDURE SUB37 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :TC CHAR(10)
    :INDIC2 NUMERIC (4)
    :ENAME CHAR(20)
    :EN CHAR(3)
    :GR NUMERIC (9);
      FETCH C14822 INTO :INT1:INDIC1, :TC:INDIC2,
                  :ENAME, :EN, :GR;

PROCEDURE SUB38 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :TC CHAR(10)
    :INDIC2 NUMERIC (4)
    :ENAME CHAR(20)
    :EN CHAR(3)
    :GR NUMERIC (9);
      FETCH C14822 INTO :INT1:INDIC1, :TC:INDIC2,
                  :ENAME, :EN, :GR;

PROCEDURE SUB39 SQLCODE SQLSTATE;
      CLOSE C14822;

PROCEDURE SUB40 SQLCODE SQLSTATE;
    OPEN C14823;

PROCEDURE SUB41 SQLCODE SQLSTATE
    :PN CHAR(3)
    :BU NUMERIC (9)
    :HR NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :EN CHAR(3)
    :INDIC2 NUMERIC (4);
      FETCH C14823 INTO :PN, :BU, :HR:INDIC1, :EN:INDIC2
                 ;

PROCEDURE SUB42 SQLCODE SQLSTATE
    :PN CHAR(3)
    :BU NUMERIC (9)
    :HR NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :EN CHAR(3)
    :INDIC2 NUMERIC (4);
      FETCH C14823 INTO :PN, :BU, :HR:INDIC1, :EN:INDIC2
                 ;

PROCEDURE SUB43 SQLCODE SQLSTATE
    :PN CHAR(3)
    :BU NUMERIC (9)
    :HR NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :EN CHAR(3)
    :INDIC2 NUMERIC (4);
      FETCH C14823 INTO :PN, :BU, :HR:INDIC1, :EN:INDIC2
                 ;

PROCEDURE SUB44 SQLCODE SQLSTATE
    :PN CHAR(3)
    :BU NUMERIC (9)
    :HR NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :EN CHAR(3)
    :INDIC2 NUMERIC (4);
      FETCH C14823 INTO :PN, :BU, :HR:INDIC1, :EN:INDIC2
                 ;

PROCEDURE SUB45 SQLCODE SQLSTATE
    :PN CHAR(3)
    :BU NUMERIC (9)
    :HR NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :EN CHAR(3)
    :INDIC2 NUMERIC (4);
      FETCH C14823 INTO :PN, :BU, :HR:INDIC1, :EN:INDIC2
                 ;

PROCEDURE SUB46 SQLCODE SQLSTATE
    :PN CHAR(3)
    :BU NUMERIC (9)
    :HR NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :EN CHAR(3)
    :INDIC2 NUMERIC (4);
      FETCH C14823 INTO :PN, :BU, :HR:INDIC1, :EN:INDIC2
                 ;

PROCEDURE SUB47 SQLCODE SQLSTATE
    :PN CHAR(3)
    :BU NUMERIC (9)
    :HR NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :EN CHAR(3)
    :INDIC2 NUMERIC (4);
      FETCH C14823 INTO :PN, :BU, :HR:INDIC1, :EN:INDIC2
                 ;

PROCEDURE SUB48 SQLCODE SQLSTATE;
      CLOSE C14823;

PROCEDURE SUB49 SQLCODE SQLSTATE;
    OPEN C14824;

PROCEDURE SUB50 SQLCODE SQLSTATE
    :CT CHAR(15)
    :ENAME CHAR(20)
    :PNAME CHAR(20)
    :INDIC1 NUMERIC (4)
    :BU NUMERIC (9)
    :INDIC2 NUMERIC (4);
      FETCH C14824 INTO :CT, :ENAME, :PNAME:INDIC1,
                  :BU:INDIC2;

PROCEDURE SUB51 SQLCODE SQLSTATE
    :CT CHAR(15)
    :ENAME CHAR(20)
    :PNAME CHAR(20)
    :INDIC1 NUMERIC (4)
    :BU NUMERIC (9)
    :INDIC2 NUMERIC (4);
      FETCH C14824 INTO :CT, :ENAME, :PNAME:INDIC1,
                  :BU:INDIC2;

PROCEDURE SUB52 SQLCODE SQLSTATE
    :CT CHAR(15)
    :ENAME CHAR(20)
    :PNAME CHAR(20)
    :INDIC1 NUMERIC (4)
    :BU NUMERIC (9)
    :INDIC2 NUMERIC (4);
      FETCH C14824 INTO :CT, :ENAME, :PNAME:INDIC1,
                  :BU:INDIC2;

PROCEDURE SUB53 SQLCODE SQLSTATE
    :CT CHAR(15)
    :ENAME CHAR(20)
    :PNAME CHAR(20)
    :INDIC1 NUMERIC (4)
    :BU NUMERIC (9)
    :INDIC2 NUMERIC (4);
      FETCH C14824 INTO :CT, :ENAME, :PNAME:INDIC1,
                  :BU:INDIC2;

PROCEDURE SUB54 SQLCODE SQLSTATE
    :CT CHAR(15)
    :ENAME CHAR(20)
    :PNAME CHAR(20)
    :INDIC1 NUMERIC (4)
    :BU NUMERIC (9)
    :INDIC2 NUMERIC (4);
      FETCH C14824 INTO :CT, :ENAME, :PNAME:INDIC1,
                  :BU:INDIC2;

PROCEDURE SUB55 SQLCODE SQLSTATE
    :CT CHAR(15)
    :ENAME CHAR(20)
    :PNAME CHAR(20)
    :INDIC1 NUMERIC (4)
    :BU NUMERIC (9)
    :INDIC2 NUMERIC (4);
      FETCH C14824 INTO :CT, :ENAME, :PNAME:INDIC1,
                  :BU:INDIC2;

PROCEDURE SUB56 SQLCODE SQLSTATE
    :CT CHAR(15)
    :ENAME CHAR(20)
    :PNAME CHAR(20)
    :INDIC1 NUMERIC (4)
    :BU NUMERIC (9)
    :INDIC2 NUMERIC (4);
      FETCH C14824 INTO :CT, :ENAME, :PNAME:INDIC1,
                  :BU:INDIC2;

PROCEDURE SUB57 SQLCODE SQLSTATE;
      CLOSE C14824;

PROCEDURE SUB58 SQLCODE SQLSTATE;
    OPEN C14825;

PROCEDURE SUB59 SQLCODE SQLSTATE
    :CT CHAR(15)
    :ENAME CHAR(20)
    :PNAME CHAR(20)
    :INDIC1 NUMERIC (4)
    :BU NUMERIC (9)
    :INDIC2 NUMERIC (4);
      FETCH C14825 INTO :CT, :ENAME, :PNAME:INDIC1,
                  :BU:INDIC2;

PROCEDURE SUB60 SQLCODE SQLSTATE
    :CT CHAR(15)
    :ENAME CHAR(20)
    :PNAME CHAR(20)
    :INDIC1 NUMERIC (4)
    :BU NUMERIC (9)
    :INDIC2 NUMERIC (4);
      FETCH C14825 INTO :CT, :ENAME, :PNAME:INDIC1,
                  :BU:INDIC2;

PROCEDURE SUB61 SQLCODE SQLSTATE
    :CT CHAR(15)
    :ENAME CHAR(20)
    :PNAME CHAR(20)
    :INDIC1 NUMERIC (4)
    :BU NUMERIC (9)
    :INDIC2 NUMERIC (4);
      FETCH C14825 INTO :CT, :ENAME, :PNAME:INDIC1,
                  :BU:INDIC2;

PROCEDURE SUB62 SQLCODE SQLSTATE
    :CT CHAR(15)
    :ENAME CHAR(20)
    :PNAME CHAR(20)
    :INDIC1 NUMERIC (4)
    :BU NUMERIC (9)
    :INDIC2 NUMERIC (4);
      FETCH C14825 INTO :CT, :ENAME, :PNAME:INDIC1,
                  :BU:INDIC2;

PROCEDURE SUB63 SQLCODE SQLSTATE
    :CT CHAR(15)
    :ENAME CHAR(20)
    :PNAME CHAR(20)
    :INDIC1 NUMERIC (4)
    :BU NUMERIC (9)
    :INDIC2 NUMERIC (4);
      FETCH C14825 INTO :CT, :ENAME, :PNAME:INDIC1,
                  :BU:INDIC2;

PROCEDURE SUB64 SQLCODE SQLSTATE
    :CT CHAR(15)
    :ENAME CHAR(20)
    :PNAME CHAR(20)
    :INDIC1 NUMERIC (4)
    :BU NUMERIC (9)
    :INDIC2 NUMERIC (4);
      FETCH C14825 INTO :CT, :ENAME, :PNAME:INDIC1,
                  :BU:INDIC2;

PROCEDURE SUB65 SQLCODE SQLSTATE;
      CLOSE C14825;

PROCEDURE SUB66 SQLCODE SQLSTATE;
    OPEN C14826;

PROCEDURE SUB67 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :INT2 NUMERIC (9);
      FETCH C14826 INTO :INT1:INDIC1, :INT2;

PROCEDURE SUB68 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :INT2 NUMERIC (9);
      FETCH C14826 INTO :INT1:INDIC1, :INT2;

PROCEDURE SUB69 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :INT2 NUMERIC (9);
      FETCH C14826 INTO :INT1:INDIC1, :INT2;

PROCEDURE SUB70 SQLCODE SQLSTATE;
      CLOSE C14826;

PROCEDURE SUB71 SQLCODE SQLSTATE;
    OPEN C14827;

PROCEDURE SUB72 SQLCODE SQLSTATE
    :GR NUMERIC (9)
    :FLT1 NUMERIC (8,4)
    :INDIC1 NUMERIC (4)
    :FLT2 NUMERIC (8,4)
    :INDIC2 NUMERIC (4);
      FETCH C14827 INTO :GR, :FLT1:INDIC1, :FLT2:INDIC2
                 ;

PROCEDURE SUB73 SQLCODE SQLSTATE
    :GR NUMERIC (9)
    :FLT1 NUMERIC (8,4)
    :INDIC1 NUMERIC (4)
    :FLT2 NUMERIC (8,4)
    :INDIC2 NUMERIC (4);
      FETCH C14827 INTO :GR, :FLT1:INDIC1, :FLT2:INDIC2
                 ;

PROCEDURE SUB74 SQLCODE SQLSTATE
    :GR NUMERIC (9)
    :FLT1 NUMERIC (8,4)
    :INDIC1 NUMERIC (4)
    :FLT2 NUMERIC (8,4)
    :INDIC2 NUMERIC (4);
      FETCH C14827 INTO :GR, :FLT1:INDIC1, :FLT2:INDIC2
                 ;

PROCEDURE SUB75 SQLCODE SQLSTATE
    :GR NUMERIC (9)
    :FLT1 NUMERIC (8,4)
    :INDIC1 NUMERIC (4)
    :FLT2 NUMERIC (8,4)
    :INDIC2 NUMERIC (4);
      FETCH C14827 INTO :GR, :FLT1:INDIC1, :FLT2:INDIC2
                 ;

PROCEDURE SUB76 SQLCODE SQLSTATE
    :GR NUMERIC (9)
    :FLT1 NUMERIC (8,4)
    :INDIC1 NUMERIC (4)
    :FLT2 NUMERIC (8,4)
    :INDIC2 NUMERIC (4);
      FETCH C14827 INTO :GR, :FLT1:INDIC1, :FLT2:INDIC2
                 ;

PROCEDURE SUB77 SQLCODE SQLSTATE
    :GR NUMERIC (9)
    :FLT1 NUMERIC (8,4)
    :INDIC1 NUMERIC (4)
    :FLT2 NUMERIC (8,4)
    :INDIC2 NUMERIC (4);
      FETCH C14827 INTO :GR, :FLT1:INDIC1, :FLT2:INDIC2
                 ;

PROCEDURE SUB78 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB79 SQLCODE SQLSTATE;
      DROP TABLE SEVEN_TYPES CASCADE;

PROCEDURE SUB80 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB83 SQLCODE SQLSTATE;
      COMMIT WORK;