| products/sources/formale sprachen/Cobol/Test-Suite/SQL M/ |
|
Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei: dml104.cob Sprache: Cobol
|
Untersuchungsergebnis.mco Download desSQL {SQL[75] Scala[80] Pl1[85]}zum Wurzelverzeichnis wechseln -- 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; [ zur Elbe Produktseite wechseln0.133Quellennavigators ] |