Spracherkennung für: .mco vermutete Sprache: Scala {Scala[67] Pl1[94] Latech[121]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]
-- SQL Test Suite, V6.0, SQL Module dml144.mco
-- 59-byte ID
--
MODULE DML144
LANGUAGE COBOL
AUTHORIZATION FLATER
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 GRUB (C1 VARCHAR (10));
PROCEDURE SUB4 SQLCODE SQLSTATE;
COMMIT WORK;
PROCEDURE SUB5 SQLCODE SQLSTATE
:INT1 NUMERIC (9);
SELECT CHAR_LENGTH (EMPNAME) INTO :INT1
FROM HU.STAFF WHERE GRADE = 10;
PROCEDURE SUB6 SQLCODE SQLSTATE
:INT1 NUMERIC (9);
SELECT CHARACTER_LENGTH ('HI' || 'THERE')
INTO :INT1 FROM HU.ECCO;
PROCEDURE SUB7 SQLCODE SQLSTATE;
INSERT INTO GRUB VALUES ('Hi ');
PROCEDURE SUB8 SQLCODE SQLSTATE
:INT1 NUMERIC (9);
SELECT CHARACTER_LENGTH (C1)
INTO :INT1 FROM GRUB;
PROCEDURE SUB9 SQLCODE SQLSTATE
:INT1 NUMERIC (9);
SELECT OCTET_LENGTH (C1)
INTO :INT1 FROM GRUB;
PROCEDURE SUB10 SQLCODE SQLSTATE;
UPDATE GRUB SET C1 = NULL;
PROCEDURE SUB11 SQLCODE SQLSTATE
:INT1 NUMERIC (9)
:INDIC1 NUMERIC (4);
SELECT CHARACTER_LENGTH (C1)
INTO :INT1:INDIC1 FROM GRUB;
PROCEDURE SUB12 SQLCODE SQLSTATE
:INT1 NUMERIC (9)
:INDIC1 NUMERIC (4);
SELECT OCTET_LENGTH (C1)
INTO :INT1:INDIC1 FROM GRUB;
PROCEDURE SUB13 SQLCODE SQLSTATE;
ROLLBACK WORK;
PROCEDURE SUB14 SQLCODE SQLSTATE;
DROP TABLE GRUB CASCADE;
PROCEDURE SUB15 SQLCODE SQLSTATE;
COMMIT WORK;
PROCEDURE SUB16 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0834','pass','MCO');
PROCEDURE SUB17 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0834','fail','MCO');
PROCEDURE SUB18 SQLCODE SQLSTATE;
COMMIT WORK;
PROCEDURE SUB19 SQLCODE SQLSTATE;
CREATE TABLE MOREGRUB (C1 VARCHAR (10), ID INT)
;
PROCEDURE SUB20 SQLCODE SQLSTATE;
COMMIT WORK;
PROCEDURE SUB21 SQLCODE SQLSTATE;
CREATE VIEW X4 (S1, S2, ID) AS
SELECT SUBSTRING (C1 FROM 6),
SUBSTRING (C1 FROM 2 FOR 4), ID
FROM MOREGRUB;
PROCEDURE SUB22 SQLCODE SQLSTATE;
COMMIT WORK;
PROCEDURE SUB23 SQLCODE SQLSTATE
:CH1 CHAR(10);
SELECT SUBSTRING (CITY FROM 4 FOR 10)
INTO :CH1 FROM HU.STAFF WHERE EMPNAME = 'Ed';
PROCEDURE SUB24 SQLCODE SQLSTATE
:CH1 CHAR(10);
SELECT SUBSTRING (CITY FROM 4)
INTO :CH1 FROM HU.STAFF WHERE EMPNAME = 'Ed';
PROCEDURE SUB25 SQLCODE SQLSTATE
:CH1 CHAR(10);
SELECT SUBSTRING (CITY FROM 4 FOR -1)
INTO :CH1 FROM HU.STAFF WHERE EMPNAME = 'Ed';
PROCEDURE SUB26 SQLCODE SQLSTATE
:CH1 CHAR(10);
SELECT SUBSTRING (CITY FROM 0 FOR 10)
INTO :CH1 FROM HU.STAFF WHERE EMPNAME = 'Ed';
PROCEDURE SUB27 SQLCODE SQLSTATE
:INT1 NUMERIC (9)
:CH1 CHAR(10);
SELECT SUBSTRING (CITY FROM :INT1 FOR 100)
INTO :CH1 FROM HU.STAFF WHERE EMPNAME = 'Ed';
PROCEDURE SUB28 SQLCODE SQLSTATE
:CH1 CHAR(10);
SELECT SUBSTRING (CITY FROM 1 FOR 1)
INTO :CH1 FROM HU.STAFF WHERE EMPNAME = 'Ed';
PROCEDURE SUB29 SQLCODE SQLSTATE
:CH1 CHAR(10);
SELECT SUBSTRING (CITY FROM 1 FOR 0)
INTO :CH1 FROM HU.STAFF WHERE EMPNAME = 'Ed';
PROCEDURE SUB30 SQLCODE SQLSTATE
:CH1 CHAR(10);
SELECT SUBSTRING (CITY FROM 12 FOR 1)
INTO :CH1 FROM HU.STAFF WHERE EMPNAME = 'Ed';
PROCEDURE SUB31 SQLCODE SQLSTATE;
INSERT INTO MOREGRUB VALUES ('Pretzels', 1)
;
PROCEDURE SUB32 SQLCODE SQLSTATE;
INSERT INTO MOREGRUB VALUES (NULL, 2);
PROCEDURE SUB33 SQLCODE SQLSTATE;
INSERT INTO MOREGRUB VALUES ('Chips', 3);
PROCEDURE SUB34 SQLCODE SQLSTATE
:CH1 CHAR(10);
SELECT S1 INTO :CH1
FROM X4 WHERE ID = 1;
PROCEDURE SUB35 SQLCODE SQLSTATE
:CH1 CHAR(10);
SELECT S1 INTO :CH1
FROM X4 WHERE ID = 3;
PROCEDURE SUB36 SQLCODE SQLSTATE
:CH1 CHAR(10);
SELECT S2 INTO :CH1
FROM X4 WHERE ID = 1;
PROCEDURE SUB37 SQLCODE SQLSTATE
:CH1 CHAR(10);
SELECT S2 INTO :CH1
FROM X4 WHERE ID = 3;
PROCEDURE SUB38 SQLCODE SQLSTATE
:CH1 CHAR(10);
SELECT SUBSTRING (C1 FROM ID)
INTO :CH1 FROM MOREGRUB
WHERE C1 LIKE 'Ch%';
PROCEDURE SUB39 SQLCODE SQLSTATE
:CH1 CHAR(10);
SELECT SUBSTRING (C1 FROM 1 FOR ID)
INTO :CH1 FROM MOREGRUB
WHERE C1 LIKE 'Ch%';
PROCEDURE SUB40 SQLCODE SQLSTATE
:CH1 CHAR(10)
:INT1 NUMERIC (9)
:CH1 CHAR(10);
SELECT SUBSTRING (C1 || ' with ' || :CH1
FROM 4 FOR :INT1 + 1)
INTO :CH1 FROM MOREGRUB
WHERE C1 LIKE 'Ch%';
PROCEDURE SUB41 SQLCODE SQLSTATE
:CH1 CHAR(10)
:INDIC1 NUMERIC (4);
SELECT S1 INTO :CH1:INDIC1
FROM X4 WHERE ID = 2;
PROCEDURE SUB42 SQLCODE SQLSTATE;
DELETE FROM MOREGRUB;
PROCEDURE SUB43 SQLCODE SQLSTATE;
INSERT INTO MOREGRUB VALUES ('Tacos', NULL)
;
PROCEDURE SUB44 SQLCODE SQLSTATE
:CH1 CHAR(10)
:INDIC1 NUMERIC (4);
SELECT SUBSTRING (C1 FROM 1 FOR ID)
INTO :CH1:INDIC1 FROM MOREGRUB;
PROCEDURE SUB45 SQLCODE SQLSTATE
:CH1 CHAR(10)
:INDIC1 NUMERIC (4);
SELECT SUBSTRING (C1 FROM ID FOR 1)
INTO :CH1:INDIC1 FROM MOREGRUB;
PROCEDURE SUB46 SQLCODE SQLSTATE;
UPDATE MOREGRUB SET C1 = NULL;
PROCEDURE SUB47 SQLCODE SQLSTATE
:CH1 CHAR(10)
:INDIC1 NUMERIC (4);
SELECT SUBSTRING (C1 FROM ID FOR ID)
INTO :CH1:INDIC1 FROM MOREGRUB;
PROCEDURE SUB48 SQLCODE SQLSTATE;
ROLLBACK WORK;
PROCEDURE SUB49 SQLCODE SQLSTATE;
DROP TABLE MOREGRUB CASCADE;
PROCEDURE SUB50 SQLCODE SQLSTATE;
COMMIT WORK;
PROCEDURE SUB51 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0835','pass','MCO');
PROCEDURE SUB52 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0835','fail','MCO');
PROCEDURE SUB53 SQLCODE SQLSTATE;
COMMIT WORK;
PROCEDURE SUB54 SQLCODE SQLSTATE
:INT1 NUMERIC (9);
SELECT CHAR_LENGTH (SUBSTRING
(CITY FROM 4 FOR 4)) INTO :INT1
FROM HU.STAFF WHERE EMPNAME = 'Ed';
PROCEDURE SUB55 SQLCODE SQLSTATE
:INT1 NUMERIC (9);
SELECT CHARACTER_LENGTH (SUBSTRING
(EMPNUM FROM 1)) INTO :INT1
FROM HU.STAFF WHERE EMPNAME = 'Ed';
PROCEDURE SUB56 SQLCODE SQLSTATE;
COMMIT WORK;
PROCEDURE SUB57 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0839','pass','MCO');
PROCEDURE SUB58 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0839','fail','MCO');
PROCEDURE SUB59 SQLCODE SQLSTATE;
COMMIT WORK;
[ Dauer der Verarbeitung: 0.175 Sekunden
]
