Untersuchungsergebnis.mco Download desShell {Shell[62] Scala[87] Isabelle[95]}zum Wurzelverzeichnis wechseln
-- SQL Test Suite, V6.0, SQL Module sdl026.mco
-- 59-byte ID
MODULE SDL026BYADDING12CH
LANGUAGE COBOL
AUTHORIZATION CANWEPARSELENGTH18
DECLARE CURSOR18LONGCURSOR CURSOR FOR
SELECT CORRELATIONNAMES18.CHARS18NAME18CHARS
FROM CHARACTER18TABLE18 CORRELATIONNAMES18
WHERE CORRELATIONNAMES18.CHARS18NAME18CHARS
= 'VAL4'
PROCEDURE AUTHCK SQLCODE
:UIDX CHAR(18);
SELECT USER INTO :UIDX FROM HU.ECCO;
PROCEDURE SUB1 SQLCODE;
DELETE FROM CHARACTER18TABLE18;
PROCEDURE SUB2 SQLCODE;
INSERT INTO CHARACTERS18VIEW18 (LONGNAME18LONGNAME)
VALUES ('VALU');
PROCEDURE SUB3 SQLCODE;
COMMIT WORK;
PROCEDURE SUB4 SQLCODE;
UPDATE CHARACTER18TABLE18 SET CHARS18NAME18CHARS =
'VAL4' WHERE CHARS18NAME18CHARS = 'VALU';
PROCEDURE SUB5 SQLCODE;
COMMIT WORK;
PROCEDURE SUB6IS18CHARLENGTH SQLCODE
:MAKE18BYADDING12CH CHAR(4)
:INDIC1BYADDING12CH NUMERIC (4);
SELECT * INTO :MAKE18BYADDING12CH :INDIC1BYADDING12CH FROM
CANWEPARSELENGTH18.CHARACTERS18VIEW18;
PROCEDURE SUB7 SQLCODE;
OPEN CURSOR18LONGCURSOR;
PROCEDURE SUB8 SQLCODE
:TOBE18BYADDING12CH CHAR(4)
:INDIC1BYADDING12CH NUMERIC (4);
FETCH CURSOR18LONGCURSOR INTO
:TOBE18BYADDING12CH :INDIC1BYADDING12CH
;
PROCEDURE SUB9 SQLCODE;
CLOSE CURSOR18LONGCURSOR;
PROCEDURE SUB10 SQLCODE;
DELETE FROM CHARACTER18TABLE18;
PROCEDURE SUB11 SQLCODE;
INSERT INTO HU.TESTREPORT
VALUES('0237','pass','MCO');
PROCEDURE SUB12 SQLCODE;
INSERT INTO HU.TESTREPORT
VALUES('0237','fail','MCO');
PROCEDURE SUB13 SQLCODE;
COMMIT WORK;
[ Dauer der Verarbeitung: 0.93 Sekunden
]
