| 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: mpb011.cob Sprache: Unknown
|
Untersuchungsergebnis.mco Download desLex {Lex[82] Fortran[126] Ada[132]}zum Wurzelverzeichnis wechseln -- SQL Test Suite, V6.0, SQL Module dml152.mco -- 59-byte ID -- MODULE DML152 LANGUAGE COBOL AUTHORIZATION FLATER DECLARE C12741 CURSOR FOR SELECT ZZ FROM CONCATBUF PROCEDURE SUB1 SQLCODE SQLSTATE :UIDX CHAR(18); SELECT USER INTO :UIDX FROM HU.ECCO; PROCEDURE SUB2 SQLCODE SQLSTATE; ROLLBACK WORK; PROCEDURE SUB3 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM HU.STAFF2; PROCEDURE SUB4 SQLCODE SQLSTATE :INT1 NUMERIC (9) :ST CHAR(5) :CO CHAR(11) :SCO CHAR(11) :NL1 CHAR(1) :SNAM CHAR(6) :TNAM CHAR(5) :NL4 CHAR(1) :NL5 CHAR(1) :MTXT CHAR(50) :MLEN NUMERIC (9) :OMLEN NUMERIC (9); GET DIAGNOSTICS EXCEPTION 1 :INT1 = CONDITION_NUMBER, :ST = RETURNED_SQLSTATE, :CO = CLASS_ORIGIN, :SCO = SUBCLASS_ORIGIN, :NL1 = CONSTRAINT_SCHEMA, :SNAM = SCHEMA_NAME, :TNAM = TABLE_NAME, :NL4 = COLUMN_NAME, :NL5 = CURSOR_NAME, :MTXT = MESSAGE_TEXT, :MLEN = MESSAGE_LENGTH, :OMLEN = MESSAGE_OCTET_LENGTH ; PROCEDURE SUB5 SQLCODE SQLSTATE; DELETE FROM HU.PROJ; PROCEDURE SUB6 SQLCODE SQLSTATE :INT1 NUMERIC (9) :ST CHAR(5) :CO CHAR(11) :SCO CHAR(11) :NL1 CHAR(1) :SNAM CHAR(6) :TNAM CHAR(5) :NL4 CHAR(1) :NL5 CHAR(1) :MTXT CHAR(50) :MLEN NUMERIC (9) :OMLEN NUMERIC (9); GET DIAGNOSTICS EXCEPTION 1 :INT1 = CONDITION_NUMBER, :ST = RETURNED_SQLSTATE, :CO = CLASS_ORIGIN, :SCO = SUBCLASS_ORIGIN, :NL1 = CONSTRAINT_SCHEMA, :SNAM = SCHEMA_NAME, :TNAM = TABLE_NAME, :NL4 = COLUMN_NAME, :NL5 = CURSOR_NAME, :MTXT = MESSAGE_TEXT, :MLEN = MESSAGE_LENGTH, :OMLEN = MESSAGE_OCTET_LENGTH ; PROCEDURE SUB7 SQLCODE SQLSTATE; UPDATE HU.VTABLE SET COL2 = 5; PROCEDURE SUB8 SQLCODE SQLSTATE :INT1 NUMERIC (9) :ST CHAR(5) :CO CHAR(11) :SCO CHAR(11) :NL1 CHAR(1) :SNAM CHAR(6) :TNAM CHAR(5) :CNAM CHAR(4) :NL5 CHAR(1) :MTXT CHAR(50) :MLEN NUMERIC (9) :OMLEN NUMERIC (9); GET DIAGNOSTICS EXCEPTION 1 :INT1 = CONDITION_NUMBER, :ST = RETURNED_SQLSTATE, :CO = CLASS_ORIGIN, :SCO = SUBCLASS_ORIGIN, :NL1 = CONSTRAINT_SCHEMA, :SNAM = SCHEMA_NAME, :TNAM = TABLE_NAME, :CNAM = COLUMN_NAME, :NL5 = CURSOR_NAME, :MTXT = MESSAGE_TEXT, :MLEN = MESSAGE_LENGTH, :OMLEN = MESSAGE_OCTET_LENGTH ; PROCEDURE SUB9 SQLCODE SQLSTATE; UPDATE HU.VTABLE SET COL1 = 5 WHERE COL1 = 0; PROCEDURE SUB10 SQLCODE SQLSTATE :INT1 NUMERIC (9) :ST CHAR(5) :CO CHAR(11) :SCO CHAR(11) :NL1 CHAR(1) :SNAM CHAR(6) :TNAM CHAR(5) :CNAM CHAR(4) :NL5 CHAR(1) :MTXT CHAR(50) :MLEN NUMERIC (9) :OMLEN NUMERIC (9); GET DIAGNOSTICS EXCEPTION 1 :INT1 = CONDITION_NUMBER, :ST = RETURNED_SQLSTATE, :CO = CLASS_ORIGIN, :SCO = SUBCLASS_ORIGIN, :NL1 = CONSTRAINT_SCHEMA, :SNAM = SCHEMA_NAME, :TNAM = TABLE_NAME, :CNAM = COLUMN_NAME, :NL5 = CURSOR_NAME, :MTXT = MESSAGE_TEXT, :MLEN = MESSAGE_LENGTH, :OMLEN = MESSAGE_OCTET_LENGTH ; PROCEDURE SUB11 SQLCODE SQLSTATE; ROLLBACK WORK; PROCEDURE SUB12 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0667','pass','MCO'); PROCEDURE SUB13 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0667','fail','MCO'); PROCEDURE SUB14 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB15 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB16 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB17 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM USIG; PROCEDURE SUB18 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB19 SQLCODE SQLSTATE; DELETE FROM CONCATBUF; PROCEDURE SUB20 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB21 SQLCODE SQLSTATE; INSERT INTO CONCATBUF VALUES ('fnord'); PROCEDURE SUB22 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB23 SQLCODE SQLSTATE; UPDATE CONCATBUF SET ZZ = 'moby' WHERE ZZ = 'fnord'; PROCEDURE SUB24 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB25 SQLCODE SQLSTATE; OPEN C12741; PROCEDURE SUB26 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB27 SQLCODE SQLSTATE :CMD CHAR(15); FETCH C12741 INTO :CMD; PROCEDURE SUB28 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB29 SQLCODE SQLSTATE; UPDATE CONCATBUF SET ZZ = 'clobber' WHERE CURRENT OF C12741; PROCEDURE SUB30 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB31 SQLCODE SQLSTATE; DELETE FROM CONCATBUF WHERE CURRENT OF C12741 ; PROCEDURE SUB32 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB33 SQLCODE SQLSTATE; CLOSE C12741; PROCEDURE SUB34 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB35 SQLCODE SQLSTATE; FROB; PROCEDURE SUB36 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB37 SQLCODE SQLSTATE; ROLLBACK WORK; PROCEDURE SUB38 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB39 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0668','pass','MCO'); PROCEDURE SUB40 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0668','fail','MCO'); PROCEDURE SUB41 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB42 SQLCODE SQLSTATE; SET TRANSACTION ISOLATION LEVEL SERIALIZABLE ; PROCEDURE SUB43 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB44 SQLCODE SQLSTATE; CREATE VIEW BEABLE AS SELECT ZZ FROM CONCATBUF; PROCEDURE SUB45 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB46 SQLCODE SQLSTATE; CREATE TABLE SLACK ( NAAM CHAR (10), DONATION DECIMAL (5, 2)); PROCEDURE SUB47 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB48 SQLCODE SQLSTATE; ALTER TABLE SLACK ADD COLUMN KIBO_NUMBER INT; PROCEDURE SUB49 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB50 SQLCODE SQLSTATE; GRANT ALL PRIVILEGES ON SLACK TO PUBLIC; PROCEDURE SUB51 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB52 SQLCODE SQLSTATE; REVOKE INSERT ON SLACK FROM PUBLIC CASCADE ; PROCEDURE SUB53 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB54 SQLCODE SQLSTATE; DROP TABLE SLACK RESTRICT; PROCEDURE SUB55 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB56 SQLCODE SQLSTATE; DROP VIEW BEABLE RESTRICT; PROCEDURE SUB57 SQLCODE SQLSTATE :CMD CHAR(15); GET DIAGNOSTICS :CMD = COMMAND_FUNCTION; PROCEDURE SUB58 SQLCODE SQLSTATE; ROLLBACK WORK; PROCEDURE SUB59 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0669','pass','MCO'); PROCEDURE SUB60 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0669','fail','MCO'); PROCEDURE SUB61 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB62 SQLCODE SQLSTATE; CREATE TABLE DOUBLE_TROUBLE ( TOO_LITTLE CHAR (10), TOO_LATE CHAR (10)); PROCEDURE SUB63 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB64 SQLCODE SQLSTATE; INSERT INTO DOUBLE_TROUBLE VALUES ('Albatross!', NULL); PROCEDURE SUB65 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB66 SQLCODE SQLSTATE :INT1 NUMERIC (9); SET TRANSACTION DIAGNOSTICS SIZE :INT1; PROCEDURE SUB67 SQLCODE SQLSTATE :NL1 CHAR(1) :MTXT CHAR(50); SELECT * INTO :NL1, :MTXT FROM DOUBLE_TROUBLE ; PROCEDURE SUB68 SQLCODE SQLSTATE :NUM NUMERIC (9); GET DIAGNOSTICS :NUM = NUMBER; PROCEDURE SUB69 SQLCODE SQLSTATE :INT1 NUMERIC (9) :ST CHAR(5) :CO CHAR(11) :SCO CHAR(11) :NL1 CHAR(1) :NL2 CHAR(1) :NL3 CHAR(1) :NL4 CHAR(1) :NL5 CHAR(1) :MTXT CHAR(50) :MLEN NUMERIC (9) :OMLEN NUMERIC (9); GET DIAGNOSTICS EXCEPTION 1 :INT1 = CONDITION_NUMBER, :ST = RETURNED_SQLSTATE, :CO = CLASS_ORIGIN, :SCO = SUBCLASS_ORIGIN, :NL1 = CONSTRAINT_SCHEMA, :NL2 = SCHEMA_NAME, :NL3 = TABLE_NAME, :NL4 = COLUMN_NAME, :NL5 = CURSOR_NAME, :MTXT = MESSAGE_TEXT, :MLEN = MESSAGE_LENGTH, :OMLEN = MESSAGE_OCTET_LENGTH ; PROCEDURE SUB70 SQLCODE SQLSTATE :INT2 NUMERIC (9) :INT1 NUMERIC (9) :ST CHAR(5) :CO CHAR(11) :SCO CHAR(11) :NL1 CHAR(1) :NL2 CHAR(1) :NL3 CHAR(1) :NL4 CHAR(1) :NL5 CHAR(1) :MTXT CHAR(50) :MLEN NUMERIC (9) :OMLEN NUMERIC (9); GET DIAGNOSTICS EXCEPTION :INT2 :INT1 = CONDITION_NUMBER, :ST = RETURNED_SQLSTATE, :CO = CLASS_ORIGIN, :SCO = SUBCLASS_ORIGIN, :NL1 = CONSTRAINT_SCHEMA, :NL2 = SCHEMA_NAME, :NL3 = TABLE_NAME, :NL4 = COLUMN_NAME, :NL5 = CURSOR_NAME, :MTXT = MESSAGE_TEXT, :MLEN = MESSAGE_LENGTH, :OMLEN = MESSAGE_OCTET_LENGTH ; PROCEDURE SUB71 SQLCODE SQLSTATE; ROLLBACK WORK; PROCEDURE SUB72 SQLCODE SQLSTATE; SET TRANSACTION DIAGNOSTICS SIZE 2; PROCEDURE SUB73 SQLCODE SQLSTATE; ROLLBACK WORK; PROCEDURE SUB74 SQLCODE SQLSTATE; DROP TABLE DOUBLE_TROUBLE CASCADE; PROCEDURE SUB75 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB76 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0672','pass','MCO'); PROCEDURE SUB77 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0672','fail','MCO'); PROCEDURE SUB78 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB79 SQLCODE SQLSTATE :INT2 NUMERIC (9); GET DIAGNOSTICS EXCEPTION 0 :INT2 = CONDITION_NUMBER; PROCEDURE SUB80 SQLCODE SQLSTATE :INT1 NUMERIC (9) :INT2 NUMERIC (9); GET DIAGNOSTICS EXCEPTION :INT1 :INT2 = CONDITION_NUMBER; PROCEDURE SUB81 SQLCODE SQLSTATE; ROLLBACK WORK; PROCEDURE SUB82 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0673','pass','MCO'); PROCEDURE SUB83 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0673','fail','MCO'); PROCEDURE SUB84 SQLCODE SQLSTATE; COMMIT WORK; [ zur Elbe Produktseite wechseln0.95Quellennavigators ] |