Quelle  dml136.mco   Sprache: unbekannt

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

DECLARE C13631  CURSOR FOR
               SELECT * FROM NORMALIZED_AVGS
               ORDER BY PLAYER_NO
               FOR READ ONLY


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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      CREATE TABLE FOOM (
                    PLAYER_NO Int,
                    LEVL Int,
                    PCT_BLOWN_UP Decimal (12, 8),
                    TIME_TO_FINISH Interval Minute to Second);

PROCEDURE SUB4 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB6 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      CREATE TALBE SPLAT_EM (
                    PLAYER_NO Int,
                    MAX_LEVEL Int,
                    SCORE Decimal (6));

PROCEDURE SUB8 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB10 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB11 SQLCODE SQLSTATE;
      CREATE VIEW FOOM_AVG
                    (PLAYER_NO, FOOM_SCORE1, FOOM_SCORE2) AS
                    SELECT PLAYER_NO,
                    AVG (PCT_BLOWN_UP),
                    1.0 / AVG (EXTRACT (SECOND FROM
                    CAST (TIME_TO_FINISH AS INTERVAL SECOND)))
                    FROM FOOM GROUP BY PLAYER_NO;

PROCEDURE SUB12 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB14 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      CREATE VIEW SPLAT_AVG
                    (PLAYER_NO, SPLAT_SCORE) AS
                    SELECT PLAYER_NO, AVG (SCORE)
                    FROM SPLAT_EM GROUP BY PLAYER_NO;

PROCEDURE SUB16 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB18 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      CREATE VIEW MAXIMA
                    (MAX_FOOM_SCORE1, MAX_FOOM_SCORE2, MAX_SPLAT_SCORE) AS
                    SELECT MAX (FOOM_SCORE1), MAX (FOOM_SCORE2),
                    MAX (SPLAT_SCORE) FROM FOOM_AVG, SPLAT_AVG;

PROCEDURE SUB20 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB22 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      CREATE VIEW ALLSCORES
                    (PLAYER_NO, SPLAT_SCORE, FOOM_SCORE1, FOOM_SCORE2,
                    MAX_FOOM_SCORE1, MAX_FOOM_SCORE2, MAX_SPLAT_SCORE) AS
                    SELECT PLAYER_NO, SPLAT_AVG.*, FOOM_AVG.*, MAXIMA.*
                    FROM FOOM_AVG NATURAL JOIN SPLAT_AVG, MAXIMA;

PROCEDURE SUB24 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB25 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB26 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB27 SQLCODE SQLSTATE;
      CREATE VIEW NORMALIZED_AVGS
                    (PLAYER_NO, GENERIC_AVG) AS
                    SELECT PLAYER_NO,
                    (SPLAT_SCORE / MAX_SPLAT_SCORE +
                    FOOM_SCORE1 / MAX_FOOM_SCORE1 +
                    FOOM_SCORE2 / MAX_FOOM_SCORE2) / 3.0
                    FROM ALLSCORES;

PROCEDURE SUB28 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB30 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB31 SQLCODE SQLSTATE;
      ALLOCATE DESCRIPTOR 'D13611' WITH MAX 4;

PROCEDURE SUB32 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB33 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB34 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT PLAYER_NO, LEVL, PCT_BLOWN_UP,' ||
                    '  CAST (TIME_TO_FINISH AS CHAR (70))'  ||
                    '  FROM FOOM'
                    );

PROCEDURE SUB35 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB36 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE S13611 FROM :LONGST;

PROCEDURE SUB37 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB38 SQLCODE SQLSTATE;
      DESCRIBE S13611 USING SQL DESCRIPTOR 'D13611'
                 ;

PROCEDURE SUB39 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB40 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S13612 FROM :DSTMT;

PROCEDURE SUB41 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB42 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SET DESCRIPTOR 'D13611' VALUE 1
                            TYPE = 2, PRECISION = 9, DATA = :INT1
                 ;

PROCEDURE SUB43 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB44 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SET DESCRIPTOR 'D13611' VALUE 2
                            TYPE = 2, PRECISION = 9, DATA = :INT1
                 ;

PROCEDURE SUB45 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB46 SQLCODE SQLSTATE
    :FLT1 NUMERIC (8,4);
      SET DESCRIPTOR 'D13611' VALUE 3 TYPE = 2,
                           PRECISION = 10, SCALE = 6, DATA = :FLT1
                 ;

PROCEDURE SUB47 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB48 SQLCODE SQLSTATE
    :CH40 CHAR(40);
      SET DESCRIPTOR 'D13611' VALUE 4 LENGTH = 40, DATA
                  = :CH40;

PROCEDURE SUB49 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      EXECUTE S13612 USING SQL DESCRIPTOR 'D13611'
                 ;

PROCEDURE SUB51 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB52 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SET DESCRIPTOR 'D13611' VALUE 1 DATA = :INT1
                 ;

PROCEDURE SUB53 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB54 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SET DESCRIPTOR 'D13611' VALUE 2 DATA = :INT1
                 ;

PROCEDURE SUB55 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB56 SQLCODE SQLSTATE
    :FLT1 NUMERIC (8,4);
      SET DESCRIPTOR 'D13611' VALUE 3 DATA = :FLT1
                 ;

PROCEDURE SUB57 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB58 SQLCODE SQLSTATE
    :CH40 CHAR(40);
      SET DESCRIPTOR 'D13611' VALUE 4 DATA = :CH40
                 ;

PROCEDURE SUB59 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB60 SQLCODE SQLSTATE;
      EXECUTE S13612 USING SQL DESCRIPTOR 'D13611'
                 ;

PROCEDURE SUB61 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB62 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SET DESCRIPTOR 'D13611' VALUE 1 DATA = :INT1
                 ;

PROCEDURE SUB63 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB64 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SET DESCRIPTOR 'D13611' VALUE 2 DATA = :INT1
                 ;

PROCEDURE SUB65 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB66 SQLCODE SQLSTATE
    :FLT1 NUMERIC (8,4);
      SET DESCRIPTOR 'D13611' VALUE 3 DATA = :FLT1
                 ;

PROCEDURE SUB67 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB68 SQLCODE SQLSTATE
    :CH40 CHAR(40);
      SET DESCRIPTOR 'D13611' VALUE 4 DATA = :CH40
                 ;

PROCEDURE SUB69 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB70 SQLCODE SQLSTATE;
      EXECUTE S13612 USING SQL DESCRIPTOR 'D13611'
                 ;

PROCEDURE SUB71 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB72 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SET DESCRIPTOR 'D13611' VALUE 1 DATA = :INT1
                 ;

PROCEDURE SUB73 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB74 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SET DESCRIPTOR 'D13611' VALUE 2 DATA = :INT1
                 ;

PROCEDURE SUB75 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB76 SQLCODE SQLSTATE
    :FLT1 NUMERIC (8,4);
      SET DESCRIPTOR 'D13611' VALUE 3 DATA = :FLT1
                 ;

PROCEDURE SUB77 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB78 SQLCODE SQLSTATE
    :CH40 CHAR(40);
      SET DESCRIPTOR 'D13611' VALUE 4 DATA = :CH40
                 ;

PROCEDURE SUB79 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB80 SQLCODE SQLSTATE;
      EXECUTE S13612 USING SQL DESCRIPTOR 'D13611'
                 ;

PROCEDURE SUB81 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB82 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SET DESCRIPTOR 'D13611' VALUE 2 DATA = :INT1
                 ;

PROCEDURE SUB83 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB84 SQLCODE SQLSTATE
    :FLT1 NUMERIC (8,4);
      SET DESCRIPTOR 'D13611' VALUE 3 DATA = :FLT1
                 ;

PROCEDURE SUB85 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB86 SQLCODE SQLSTATE
    :CH40 CHAR(40);
      SET DESCRIPTOR 'D13611' VALUE 4 DATA = :CH40
                 ;

PROCEDURE SUB87 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB88 SQLCODE SQLSTATE;
      EXECUTE S13612 USING SQL DESCRIPTOR 'D13611'
                 ;

PROCEDURE SUB89 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB90 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SET DESCRIPTOR 'D13611' VALUE 1 DATA = :INT1
                 ;

PROCEDURE SUB91 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB92 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SET DESCRIPTOR 'D13611' VALUE 2 DATA = :INT1
                 ;

PROCEDURE SUB93 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB94 SQLCODE SQLSTATE
    :FLT1 NUMERIC (8,4);
      SET DESCRIPTOR 'D13611' VALUE 3 DATA = :FLT1
                 ;

PROCEDURE SUB95 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB96 SQLCODE SQLSTATE
    :CH40 CHAR(40);
      SET DESCRIPTOR 'D13611' VALUE 4 DATA = :CH40
                 ;

PROCEDURE SUB97 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB98 SQLCODE SQLSTATE;
      EXECUTE S13612 USING SQL DESCRIPTOR 'D13611'
                 ;

PROCEDURE SUB99 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB100 SQLCODE SQLSTATE;
      INSERT INTO SPLAT_EM VALUES (1, 5, 10820);

PROCEDURE SUB101 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB102 SQLCODE SQLSTATE;
      INSERT INTO SPLAT_EM VALUES (1, 6, 14220);

PROCEDURE SUB103 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB104 SQLCODE SQLSTATE;
      INSERT INTO SPLAT_EM VALUES (2, 8, 58762);

PROCEDURE SUB105 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB106 SQLCODE SQLSTATE;
      INSERT INTO SPLAT_EM VALUES (2, 8, 62900);

PROCEDURE SUB107 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB108 SQLCODE SQLSTATE;
      INSERT INTO SPLAT_EM VALUES (2, 7, 40282);

PROCEDURE SUB109 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB110 SQLCODE SQLSTATE;
    OPEN C13631;

PROCEDURE SUB111 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB112 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :FLT1 NUMERIC (8,4);
      FETCH C13631 INTO :INT1, :FLT1;

PROCEDURE SUB113 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB114 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :FLT1 NUMERIC (8,4);
      FETCH C13631 INTO :INT1, :FLT1;

PROCEDURE SUB115 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB116 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :FLT1 NUMERIC (8,4);
      FETCH C13631 INTO :INT1, :FLT1;

PROCEDURE SUB117 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB118 SQLCODE SQLSTATE;
      CLOSE C13631;

PROCEDURE SUB119 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB120 SQLCODE SQLSTATE;
      ROLLBACK;

PROCEDURE SUB121 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB122 SQLCODE SQLSTATE;
      DROP TABLE FOOM CASCADE;

PROCEDURE SUB123 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB124 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB125 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB126 SQLCODE SQLSTATE;
      DROP TABLE SPLAT_EM CASCADE;

PROCEDURE SUB127 SQLCODE SQLSTATE
    :ST CHAR(5)
    :MTXT CHAR(50);
      GET DIAGNOSTICS EXCEPTION 1
                    :ST = RETURNED_SQLSTATE,
                    :MTXT = MESSAGE_TEXT;

PROCEDURE SUB128 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB131 SQLCODE SQLSTATE;
      COMMIT WORK;