Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
sdl017.mco
Sprache: Cobol
Untersuchungsergebnis.mco Download desHaskell {Haskell[283] BAT[373] Ada[472]}zum Wurzelverzeichnis wechseln
-- SQL Test Suite, V6.0, SQL Module dml148.mco
-- 59-byte ID
--
MODULE DML148
LANGUAGE COBOL
AUTHORIZATION FLATER
DECLARE C14811 CURSOR FOR
SELECT * FROM HU.WORKS NATURAL LEFT JOIN HU.PROJ
ORDER BY EMPNUM DESC, PNUM
DECLARE C14812 CURSOR FOR
SELECT * FROM HU.WORKS JOIN HU.PROJ USING (PNUM)
ORDER BY EMPNUM DESC, PNUM
DECLARE C14813 CURSOR FOR
SELECT * FROM HU.WORKS RIGHT JOIN HU.PROJ
ON HU.WORKS.PNUM = HU.PROJ.PNUM
ORDER BY 1 DESC, 2
DECLARE C14821 CURSOR FOR
SELECT EMPNAME, CITY, T_DECIMAL
FROM HU.STAFF LEFT OUTER JOIN SEVEN_TYPES
ON -GRADE / 11 BETWEEN T_REAL AND T_DECIMAL
ORDER BY EMPNAME
DECLARE C14822 CURSOR FOR
SELECT T_INT, T_CHAR, EMPNAME, EMPNUM, GRADE
FROM SEVEN_TYPES RIGHT JOIN HU.STAFF
ON GRADE IN (:int1, 11, 13) AND EMPNUM = T_CHAR
ORDER BY EMPNAME, T_INT
DECLARE C14823 CURSOR FOR
SELECT XX.PNUM, BUDGET, HOURS, EMPNUM
FROM HU.PROJ XX LEFT JOIN HU.WORKS YY
ON XX.PNUM = YY.PNUM AND
HOURS * BUDGET / 160000 > (SELECT GRADE FROM HU.STAFF
WHERE YY.EMPNUM = HU.STAFF.EMPNUM)
ORDER BY 1
DECLARE C14824 CURSOR FOR
SELECT HU.STAFF.CITY,EMPNAME,PNAME,BUDGET
FROM HU.STAFF LEFT JOIN HU.PROJ
ON HU.STAFF.CITY = HU.PROJ.CITY
AND HU.STAFF.CITY <> 'Vienna'
AND EMPNAME <> 'Don'
WHERE BUDGET > 15000 OR BUDGET IS NULL
ORDER BY HU.STAFF.CITY, EMPNAME, BUDGET
DECLARE C14825 CURSOR FOR
SELECT HU.STAFF.CITY,EMPNAME,PNAME,BUDGET
FROM HU.STAFF LEFT JOIN HU.PROJ
ON HU.STAFF.CITY = HU.PROJ.CITY
AND HU.STAFF.CITY <> 'Vienna'
WHERE (BUDGET > 15000 OR BUDGET IS NULL)
AND EMPNAME <> 'Don'
ORDER BY HU.STAFF.CITY, EMPNAME, BUDGET
DECLARE C14826 CURSOR FOR
SELECT XX.T_INT, YY.T_INT
FROM SEVEN_TYPES XX RIGHT OUTER JOIN SEVEN_TYPES YY
ON XX.T_INT = YY.T_INT +1
ORDER BY YY.T_INT
DECLARE C14827 CURSOR FOR
SELECT GRADE, T_NUMERIC, DECIMAL6_6
FROM HU.STAFF LEFT JOIN SEVEN_TYPES T7
ON GRADE * -40 > T7.T_NUMERIC
OR (DECIMAL6_6 -542.5 < GRADE
AND DECIMAL6_6 -541.5 > GRADE)
ORDER BY GRADE
PROCEDURE SUB1 SQLCODE SQLSTATE
:UIDX CHAR(18);
SELECT USER INTO :UIDX FROM HU.ECCO;
PROCEDURE SUB2 SQLCODE SQLSTATE;
ROLLBACK WORK;
PROCEDURE SUB3 SQLCODE SQLSTATE;
OPEN C14811;
PROCEDURE SUB4 SQLCODE SQLSTATE
:PN CHAR(3)
:EN CHAR(3)
:HR NUMERIC (9)
:PNAME CHAR(20)
:PT CHAR(6)
:BU NUMERIC (9)
:CT CHAR(15);
FETCH C14811 INTO :PN, :EN, :HR, :PNAME, :PT, :BU,
:CT;
PROCEDURE SUB5 SQLCODE SQLSTATE
:PN CHAR(3)
:EN CHAR(3)
:HR NUMERIC (9)
:PNAME CHAR(20)
:PT CHAR(6)
:BU NUMERIC (9)
:CT CHAR(15);
FETCH C14811 INTO :PN, :EN, :HR, :PNAME, :PT, :BU,
:CT;
PROCEDURE SUB6 SQLCODE SQLSTATE;
CLOSE C14811;
PROCEDURE SUB7 SQLCODE SQLSTATE;
OPEN C14812;
PROCEDURE SUB8 SQLCODE SQLSTATE
:PN CHAR(3)
:EN CHAR(3)
:HR NUMERIC (9)
:PNAME CHAR(20)
:PT CHAR(6)
:BU NUMERIC (9)
:CT CHAR(15);
FETCH C14812 INTO :PN, :EN, :HR, :PNAME, :PT, :BU,
:CT;
PROCEDURE SUB9 SQLCODE SQLSTATE
:PN CHAR(3)
:EN CHAR(3)
:HR NUMERIC (9)
:PNAME CHAR(20)
:PT CHAR(6)
:BU NUMERIC (9)
:CT CHAR(15);
FETCH C14812 INTO :PN, :EN, :HR, :PNAME, :PT, :BU,
:CT;
PROCEDURE SUB10 SQLCODE SQLSTATE;
CLOSE C14812;
PROCEDURE SUB11 SQLCODE SQLSTATE;
OPEN C14813;
PROCEDURE SUB12 SQLCODE SQLSTATE
:EN CHAR(3)
:PN CHAR(3)
:HR NUMERIC (9)
:PN2 CHAR(3)
:PNAME CHAR(20)
:PT CHAR(6)
:BU NUMERIC (9)
:CT CHAR(15);
FETCH C14813 INTO :EN, :PN, :HR, :PN2, :PNAME,
:PT, :BU, :CT;
PROCEDURE SUB13 SQLCODE SQLSTATE
:EN CHAR(3)
:PN CHAR(3)
:HR NUMERIC (9)
:PN2 CHAR(3)
:PNAME CHAR(20)
:PT CHAR(6)
:BU NUMERIC (9)
:CT CHAR(15);
FETCH C14813 INTO :EN, :PN, :HR, :PN2, :PNAME,
:PT, :BU, :CT;
PROCEDURE SUB14 SQLCODE SQLSTATE;
ROLLBACK WORK;
PROCEDURE SUB15 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0843','pass','MCO');
PROCEDURE SUB16 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0843','fail','MCO');
PROCEDURE SUB17 SQLCODE SQLSTATE;
COMMIT WORK;
PROCEDURE SUB18 SQLCODE SQLSTATE;
CREATE TABLE SEVEN_TYPES (
T_INT INTEGER,
T_CHAR CHAR(10),
T_SMALL SMALLINT,
T_DECIMAL DECIMAL(10,2),
T_REAL REAL,
T_NUMERIC NUMERIC(8,4),
DECIMAL6_6 DECIMAL (12,6));
PROCEDURE SUB19 SQLCODE SQLSTATE;
COMMIT WORK;
PROCEDURE SUB20 SQLCODE SQLSTATE;
DELETE FROM SEVEN_TYPES;
PROCEDURE SUB21 SQLCODE SQLSTATE;
INSERT INTO SEVEN_TYPES VALUES (1, 'E1',-11, 2,
3, 4, 5);
PROCEDURE SUB22 SQLCODE SQLSTATE;
INSERT INTO SEVEN_TYPES VALUES (2, 'E2', -5, 13,
33,-444, -55);
PROCEDURE SUB23 SQLCODE SQLSTATE;
INSERT INTO SEVEN_TYPES VALUES (3, 'E6',
-3,-222,333, 44, 555);
PROCEDURE SUB24 SQLCODE SQLSTATE;
INSERT INTO SEVEN_TYPES VALUES (12,'DUP', 0, 0,
-1, 1,1E+1);
PROCEDURE SUB25 SQLCODE SQLSTATE;
INSERT INTO SEVEN_TYPES VALUES (12,'DUP', 0, 0,
-1, 1,1E+1);
PROCEDURE SUB26 SQLCODE SQLSTATE;
OPEN C14821;
PROCEDURE SUB27 SQLCODE SQLSTATE
:ENAME CHAR(20)
:CT CHAR(15)
:INT1 NUMERIC (9)
:INDIC1 NUMERIC (4);
FETCH C14821 INTO :ENAME, :CT, :INT1:INDIC1
;
PROCEDURE SUB28 SQLCODE SQLSTATE
:ENAME CHAR(20)
:CT CHAR(15)
:INT1 NUMERIC (9)
:INDIC1 NUMERIC (4);
FETCH C14821 INTO :ENAME, :CT, :INT1:INDIC1
;
PROCEDURE SUB29 SQLCODE SQLSTATE
:ENAME CHAR(20)
:CT CHAR(15)
:INT1 NUMERIC (9)
:INDIC1 NUMERIC (4);
FETCH C14821 INTO :ENAME, :CT, :INT1:INDIC1
;
PROCEDURE SUB30 SQLCODE SQLSTATE
:ENAME CHAR(20)
:CT CHAR(15)
:INT1 NUMERIC (9)
:INDIC1 NUMERIC (4);
FETCH C14821 INTO :ENAME, :CT, :INT1:INDIC1
;
PROCEDURE SUB31 SQLCODE SQLSTATE
:ENAME CHAR(20)
:CT CHAR(15)
:INT1 NUMERIC (9)
:INDIC1 NUMERIC (4);
FETCH C14821 INTO :ENAME, :CT, :INT1:INDIC1
;
PROCEDURE SUB32 SQLCODE SQLSTATE
:ENAME CHAR(20)
:CT CHAR(15)
:INT1 NUMERIC (9)
:INDIC1 NUMERIC (4);
FETCH C14821 INTO :ENAME, :CT, :INT1:INDIC1
;
PROCEDURE SUB33 SQLCODE SQLSTATE
:ENAME CHAR(20)
:CT CHAR(15)
:INT1 NUMERIC (9)
:INDIC1 NUMERIC (4);
FETCH C14821 INTO :ENAME, :CT, :INT1:INDIC1
;
PROCEDURE SUB34 SQLCODE SQLSTATE;
CLOSE C14821;
PROCEDURE SUB35 SQLCODE SQLSTATE
:INT1 NUMERIC (9);
OPEN C14822;
PROCEDURE SUB36 SQLCODE SQLSTATE
:INT1 NUMERIC (9)
:INDIC1 NUMERIC (4)
:TC CHAR(10)
:INDIC2 NUMERIC (4)
:ENAME CHAR(20)
:EN CHAR(3)
:GR NUMERIC (9);
FETCH C14822 INTO :INT1:INDIC1, :TC:INDIC2,
:ENAME, :EN, :GR;
PROCEDURE SUB37 SQLCODE SQLSTATE
:INT1 NUMERIC (9)
:INDIC1 NUMERIC (4)
:TC CHAR(10)
:INDIC2 NUMERIC (4)
:ENAME CHAR(20)
:EN CHAR(3)
:GR NUMERIC (9);
FETCH C14822 INTO :INT1:INDIC1, :TC:INDIC2,
:ENAME, :EN, :GR;
PROCEDURE SUB38 SQLCODE SQLSTATE
:INT1 NUMERIC (9)
:INDIC1 NUMERIC (4)
:TC CHAR(10)
:INDIC2 NUMERIC (4)
:ENAME CHAR(20)
:EN CHAR(3)
:GR NUMERIC (9);
FETCH C14822 INTO :INT1:INDIC1, :TC:INDIC2,
:ENAME, :EN, :GR;
PROCEDURE SUB39 SQLCODE SQLSTATE;
CLOSE C14822;
PROCEDURE SUB40 SQLCODE SQLSTATE;
OPEN C14823;
PROCEDURE SUB41 SQLCODE SQLSTATE
:PN CHAR(3)
:BU NUMERIC (9)
:HR NUMERIC (9)
:INDIC1 NUMERIC (4)
:EN CHAR(3)
:INDIC2 NUMERIC (4);
FETCH C14823 INTO :PN, :BU, :HR:INDIC1, :EN:INDIC2
;
PROCEDURE SUB42 SQLCODE SQLSTATE
:PN CHAR(3)
:BU NUMERIC (9)
:HR NUMERIC (9)
:INDIC1 NUMERIC (4)
:EN CHAR(3)
:INDIC2 NUMERIC (4);
FETCH C14823 INTO :PN, :BU, :HR:INDIC1, :EN:INDIC2
;
PROCEDURE SUB43 SQLCODE SQLSTATE
:PN CHAR(3)
:BU NUMERIC (9)
:HR NUMERIC (9)
:INDIC1 NUMERIC (4)
:EN CHAR(3)
:INDIC2 NUMERIC (4);
FETCH C14823 INTO :PN, :BU, :HR:INDIC1, :EN:INDIC2
;
PROCEDURE SUB44 SQLCODE SQLSTATE
:PN CHAR(3)
:BU NUMERIC (9)
:HR NUMERIC (9)
:INDIC1 NUMERIC (4)
:EN CHAR(3)
:INDIC2 NUMERIC (4);
FETCH C14823 INTO :PN, :BU, :HR:INDIC1, :EN:INDIC2
;
PROCEDURE SUB45 SQLCODE SQLSTATE
:PN CHAR(3)
:BU NUMERIC (9)
:HR NUMERIC (9)
:INDIC1 NUMERIC (4)
:EN CHAR(3)
:INDIC2 NUMERIC (4);
FETCH C14823 INTO :PN, :BU, :HR:INDIC1, :EN:INDIC2
;
PROCEDURE SUB46 SQLCODE SQLSTATE
:PN CHAR(3)
:BU NUMERIC (9)
:HR NUMERIC (9)
:INDIC1 NUMERIC (4)
:EN CHAR(3)
:INDIC2 NUMERIC (4);
FETCH C14823 INTO :PN, :BU, :HR:INDIC1, :EN:INDIC2
;
PROCEDURE SUB47 SQLCODE SQLSTATE
:PN CHAR(3)
:BU NUMERIC (9)
:HR NUMERIC (9)
:INDIC1 NUMERIC (4)
:EN CHAR(3)
:INDIC2 NUMERIC (4);
FETCH C14823 INTO :PN, :BU, :HR:INDIC1, :EN:INDIC2
;
PROCEDURE SUB48 SQLCODE SQLSTATE;
CLOSE C14823;
PROCEDURE SUB49 SQLCODE SQLSTATE;
OPEN C14824;
PROCEDURE SUB50 SQLCODE SQLSTATE
:CT CHAR(15)
:ENAME CHAR(20)
:PNAME CHAR(20)
:INDIC1 NUMERIC (4)
:BU NUMERIC (9)
:INDIC2 NUMERIC (4);
FETCH C14824 INTO :CT, :ENAME, :PNAME:INDIC1,
:BU:INDIC2;
PROCEDURE SUB51 SQLCODE SQLSTATE
:CT CHAR(15)
:ENAME CHAR(20)
:PNAME CHAR(20)
:INDIC1 NUMERIC (4)
:BU NUMERIC (9)
:INDIC2 NUMERIC (4);
FETCH C14824 INTO :CT, :ENAME, :PNAME:INDIC1,
:BU:INDIC2;
PROCEDURE SUB52 SQLCODE SQLSTATE
:CT CHAR(15)
:ENAME CHAR(20)
:PNAME CHAR(20)
:INDIC1 NUMERIC (4)
:BU NUMERIC (9)
:INDIC2 NUMERIC (4);
FETCH C14824 INTO :CT, :ENAME, :PNAME:INDIC1,
:BU:INDIC2;
PROCEDURE SUB53 SQLCODE SQLSTATE
:CT CHAR(15)
:ENAME CHAR(20)
:PNAME CHAR(20)
:INDIC1 NUMERIC (4)
:BU NUMERIC (9)
:INDIC2 NUMERIC (4);
FETCH C14824 INTO :CT, :ENAME, :PNAME:INDIC1,
:BU:INDIC2;
PROCEDURE SUB54 SQLCODE SQLSTATE
:CT CHAR(15)
:ENAME CHAR(20)
:PNAME CHAR(20)
:INDIC1 NUMERIC (4)
:BU NUMERIC (9)
:INDIC2 NUMERIC (4);
FETCH C14824 INTO :CT, :ENAME, :PNAME:INDIC1,
:BU:INDIC2;
PROCEDURE SUB55 SQLCODE SQLSTATE
:CT CHAR(15)
:ENAME CHAR(20)
:PNAME CHAR(20)
:INDIC1 NUMERIC (4)
:BU NUMERIC (9)
:INDIC2 NUMERIC (4);
FETCH C14824 INTO :CT, :ENAME, :PNAME:INDIC1,
:BU:INDIC2;
PROCEDURE SUB56 SQLCODE SQLSTATE
:CT CHAR(15)
:ENAME CHAR(20)
:PNAME CHAR(20)
:INDIC1 NUMERIC (4)
:BU NUMERIC (9)
:INDIC2 NUMERIC (4);
FETCH C14824 INTO :CT, :ENAME, :PNAME:INDIC1,
:BU:INDIC2;
PROCEDURE SUB57 SQLCODE SQLSTATE;
CLOSE C14824;
PROCEDURE SUB58 SQLCODE SQLSTATE;
OPEN C14825;
PROCEDURE SUB59 SQLCODE SQLSTATE
:CT CHAR(15)
:ENAME CHAR(20)
:PNAME CHAR(20)
:INDIC1 NUMERIC (4)
:BU NUMERIC (9)
:INDIC2 NUMERIC (4);
FETCH C14825 INTO :CT, :ENAME, :PNAME:INDIC1,
:BU:INDIC2;
PROCEDURE SUB60 SQLCODE SQLSTATE
:CT CHAR(15)
:ENAME CHAR(20)
:PNAME CHAR(20)
:INDIC1 NUMERIC (4)
:BU NUMERIC (9)
:INDIC2 NUMERIC (4);
FETCH C14825 INTO :CT, :ENAME, :PNAME:INDIC1,
:BU:INDIC2;
PROCEDURE SUB61 SQLCODE SQLSTATE
:CT CHAR(15)
:ENAME CHAR(20)
:PNAME CHAR(20)
:INDIC1 NUMERIC (4)
:BU NUMERIC (9)
:INDIC2 NUMERIC (4);
FETCH C14825 INTO :CT, :ENAME, :PNAME:INDIC1,
:BU:INDIC2;
PROCEDURE SUB62 SQLCODE SQLSTATE
:CT CHAR(15)
:ENAME CHAR(20)
:PNAME CHAR(20)
:INDIC1 NUMERIC (4)
:BU NUMERIC (9)
:INDIC2 NUMERIC (4);
FETCH C14825 INTO :CT, :ENAME, :PNAME:INDIC1,
:BU:INDIC2;
PROCEDURE SUB63 SQLCODE SQLSTATE
:CT CHAR(15)
:ENAME CHAR(20)
:PNAME CHAR(20)
:INDIC1 NUMERIC (4)
:BU NUMERIC (9)
:INDIC2 NUMERIC (4);
FETCH C14825 INTO :CT, :ENAME, :PNAME:INDIC1,
:BU:INDIC2;
PROCEDURE SUB64 SQLCODE SQLSTATE
:CT CHAR(15)
:ENAME CHAR(20)
:PNAME CHAR(20)
:INDIC1 NUMERIC (4)
:BU NUMERIC (9)
:INDIC2 NUMERIC (4);
FETCH C14825 INTO :CT, :ENAME, :PNAME:INDIC1,
:BU:INDIC2;
PROCEDURE SUB65 SQLCODE SQLSTATE;
CLOSE C14825;
PROCEDURE SUB66 SQLCODE SQLSTATE;
OPEN C14826;
PROCEDURE SUB67 SQLCODE SQLSTATE
:INT1 NUMERIC (9)
:INDIC1 NUMERIC (4)
:INT2 NUMERIC (9);
FETCH C14826 INTO :INT1:INDIC1, :INT2;
PROCEDURE SUB68 SQLCODE SQLSTATE
:INT1 NUMERIC (9)
:INDIC1 NUMERIC (4)
:INT2 NUMERIC (9);
FETCH C14826 INTO :INT1:INDIC1, :INT2;
PROCEDURE SUB69 SQLCODE SQLSTATE
:INT1 NUMERIC (9)
:INDIC1 NUMERIC (4)
:INT2 NUMERIC (9);
FETCH C14826 INTO :INT1:INDIC1, :INT2;
PROCEDURE SUB70 SQLCODE SQLSTATE;
CLOSE C14826;
PROCEDURE SUB71 SQLCODE SQLSTATE;
OPEN C14827;
PROCEDURE SUB72 SQLCODE SQLSTATE
:GR NUMERIC (9)
:FLT1 NUMERIC (8,4)
:INDIC1 NUMERIC (4)
:FLT2 NUMERIC (8,4)
:INDIC2 NUMERIC (4);
FETCH C14827 INTO :GR, :FLT1:INDIC1, :FLT2:INDIC2
;
PROCEDURE SUB73 SQLCODE SQLSTATE
:GR NUMERIC (9)
:FLT1 NUMERIC (8,4)
:INDIC1 NUMERIC (4)
:FLT2 NUMERIC (8,4)
:INDIC2 NUMERIC (4);
FETCH C14827 INTO :GR, :FLT1:INDIC1, :FLT2:INDIC2
;
PROCEDURE SUB74 SQLCODE SQLSTATE
:GR NUMERIC (9)
:FLT1 NUMERIC (8,4)
:INDIC1 NUMERIC (4)
:FLT2 NUMERIC (8,4)
:INDIC2 NUMERIC (4);
FETCH C14827 INTO :GR, :FLT1:INDIC1, :FLT2:INDIC2
;
PROCEDURE SUB75 SQLCODE SQLSTATE
:GR NUMERIC (9)
:FLT1 NUMERIC (8,4)
:INDIC1 NUMERIC (4)
:FLT2 NUMERIC (8,4)
:INDIC2 NUMERIC (4);
FETCH C14827 INTO :GR, :FLT1:INDIC1, :FLT2:INDIC2
;
PROCEDURE SUB76 SQLCODE SQLSTATE
:GR NUMERIC (9)
:FLT1 NUMERIC (8,4)
:INDIC1 NUMERIC (4)
:FLT2 NUMERIC (8,4)
:INDIC2 NUMERIC (4);
FETCH C14827 INTO :GR, :FLT1:INDIC1, :FLT2:INDIC2
;
PROCEDURE SUB77 SQLCODE SQLSTATE
:GR NUMERIC (9)
:FLT1 NUMERIC (8,4)
:INDIC1 NUMERIC (4)
:FLT2 NUMERIC (8,4)
:INDIC2 NUMERIC (4);
FETCH C14827 INTO :GR, :FLT1:INDIC1, :FLT2:INDIC2
;
PROCEDURE SUB78 SQLCODE SQLSTATE;
ROLLBACK WORK;
PROCEDURE SUB79 SQLCODE SQLSTATE;
DROP TABLE SEVEN_TYPES CASCADE;
PROCEDURE SUB80 SQLCODE SQLSTATE;
COMMIT WORK;
PROCEDURE SUB81 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0844','pass','MCO');
PROCEDURE SUB82 SQLCODE SQLSTATE;
INSERT INTO HU.TESTREPORT
VALUES('0844','fail','MCO');
PROCEDURE SUB83 SQLCODE SQLSTATE;
COMMIT WORK;
[ zur Elbe Produktseite wechseln0.159Quellennavigators
]
|
|
