|
|
|
|
Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
dml127.mco
Sprache: Unknown
Spracherkennung für: .mco vermutete Sprache: Python {Python[81] Lex[109] CS[122]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]
-- SQL Test Suite, V6.0, SQL Module dml127.mco
-- 59-byte ID
--
MODULE DML127
LANGUAGE COBOL
AUTHORIZATION FLATER
DECLARE C12721 CURSOR FOR
SELECT EMPNUM FROM HU.WORKS
DECLARE C12722 CURSOR FOR
SELECT GRADE FROM HU.STAFF
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.ECCO;
PROCEDURE SUB4 SQLCODE SQLSTATE
:INT1 NUMERIC (9)
:YORN CHAR(1)
:CMD CHAR(15);
GET DIAGNOSTICS :INT1 = NUMBER,
:YORN = MORE, :CMD = COMMAND_FUNCTION;
PROCEDURE SUB5 SQLCODE SQLSTATE;
DELETE FROM HU.STAFF WHERE GRADE < 13;
PROCEDURE SUB6 SQLCODE SQLSTATE
:CMD CHAR(15)
:INT2 NUMERIC (9)
:YORN CHAR(1)
:INT1 NUMERIC (9);
GET DIAGNOSTICS :CMD = COMMAND_FUNCTION,
:INT2 = ROW_COUNT,
:YORN = MORE,
:INT1 = NUMBER;
PROCEDURE SUB7 SQLCODE SQLSTATE;
UPDATE HU.STAFF SET GRADE = GRADE - 1;
PROCEDURE SUB8 SQLCODE SQLSTATE
:SMINT1 NUMERIC (4)
:YORN CHAR(1)
:CMD CHAR(15)
:INT2 NUMERIC (9);
GET DIAGNOSTICS :SMINT1 = NUMBER,
:YORN = MORE, :CMD = COMMAND_FUNCTION,
:INT2 = ROW_COUNT;
PROCEDURE SUB9 SQLCODE SQLSTATE;
INSERT INTO HU.STAFF
SELECT PNUM, 'Temp Worker', 4, CITY FROM HU.PROJ;
PROCEDURE SUB10 SQLCODE SQLSTATE
:INT1 NUMERIC (9)
:YORN CHAR(1)
:CMD CHAR(15)
:INT2 NUMERIC (9);
GET DIAGNOSTICS :INT1 = NUMBER,
:YORN = MORE, :CMD = COMMAND_FUNCTION,
:INT2 = ROW_COUNT;
PROCEDURE SUB11 SQLCODE SQLSTATE;
ROLLBACK WORK;
PROCEDURE SUB12 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0665','pass','MCO');
PROCEDURE SUB13 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0665','fail','MCO');
PROCEDURE SUB14 SQLCODE SQLSTATE;
COMMIT WORK;
PROCEDURE SUB15 SQLCODE SQLSTATE
:INT1 NUMERIC (9);
SELECT COUNT(*) INTO :INT1 FROM HU.ECCO;
PROCEDURE SUB16 SQLCODE SQLSTATE
:SMINT1 NUMERIC (4)
: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
:SMINT1 = 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 SUB17 SQLCODE SQLSTATE
:INT1 NUMERIC (9);
INSERT INTO HU.STAFF VALUES (
'000', 'Loser', 1 / :INT1, 'Baltimore');
PROCEDURE SUB18 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 SUB19 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 SUB20 SQLCODE SQLSTATE;
INSERT INTO HU.STAFF VALUES (
'E1', 'Bart', 10, 'Annapolis');
PROCEDURE SUB21 SQLCODE SQLSTATE
:INT2 NUMERIC (9)
:NL5 CHAR(1)
:MTXT CHAR(50)
:CNS CHAR(2)
:SNAM CHAR(6)
:INT1 NUMERIC (9)
:ST CHAR(5)
:CO CHAR(11)
:SCO CHAR(11)
:TNAM CHAR(5)
:NL4 CHAR(1)
:MLEN NUMERIC (9)
:OMLEN NUMERIC (9);
GET DIAGNOSTICS EXCEPTION :INT2
:NL5 = CURSOR_NAME, :MTXT = MESSAGE_TEXT,
:CNS = CONSTRAINT_SCHEMA, :SNAM = SCHEMA_NAME,
:INT1 = CONDITION_NUMBER, :ST = RETURNED_SQLSTATE,
:CO = CLASS_ORIGIN, :SCO = SUBCLASS_ORIGIN,
:TNAM = TABLE_NAME, :NL4 = COLUMN_NAME,
:MLEN = MESSAGE_LENGTH, :OMLEN = MESSAGE_OCTET_LENGTH
;
PROCEDURE SUB22 SQLCODE SQLSTATE;
CLOSE C12721;
PROCEDURE SUB23 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)
:CSRNAM CHAR(6)
: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,
:CSRNAM = CURSOR_NAME, :MTXT = MESSAGE_TEXT,
:MLEN = MESSAGE_LENGTH, :OMLEN = MESSAGE_OCTET_LENGTH
;
PROCEDURE SUB24 SQLCODE SQLSTATE;
INSERT INTO WCOV VALUES (0);
PROCEDURE SUB25 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 SUB26 SQLCODE SQLSTATE;
OPEN C12722;
PROCEDURE SUB27 SQLCODE SQLSTATE
:INT1 NUMERIC (9);
FETCH C12722 INTO :INT1;
PROCEDURE SUB28 SQLCODE SQLSTATE;
DELETE FROM HU.STAFF WHERE CURRENT OF C12722
;
PROCEDURE SUB29 SQLCODE SQLSTATE;
DELETE FROM HU.STAFF;
PROCEDURE SUB30 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)
:CSRNAM CHAR(6)
: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,
:CSRNAM = CURSOR_NAME, :MTXT = MESSAGE_TEXT,
:MLEN = MESSAGE_LENGTH, :OMLEN = MESSAGE_OCTET_LENGTH
;
PROCEDURE SUB31 SQLCODE SQLSTATE;
ROLLBACK WORK;
PROCEDURE SUB32 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0666','pass','MCO');
PROCEDURE SUB33 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0666','fail','MCO');
PROCEDURE SUB34 SQLCODE SQLSTATE;
COMMIT WORK;
[ Dauer der Verarbeitung: 0.79 Sekunden
]
|
|
|
|
|
|
