rahmenlose Ansicht.mco DruckansichtScala {Scala[77] Pl1[94] CS[95]}zum Wurzelverzeichnis wechseln
-- SQL Test Suite, V6.0, SQL Module dml037.mco
-- 59-byte ID
MODULE DML037
LANGUAGE COBOL
AUTHORIZATION HU
DECLARE X CURSOR
FOR SELECT EMPNUM,HOURS
FROM WORKS
WHERE PNUM='P2'
PROCEDURE AUTHCK SQLCODE
:UIDX CHAR(18);
SELECT USER INTO :UIDX FROM HU.ECCO;
PROCEDURE SUB1 SQLCODE;
OPEN X;
PROCEDURE SUB2 SQLCODE
:GRADE NUMERIC (9)
:CITY CHAR(15);
SELECT STAFF.GRADE, STAFF.CITY
INTO :GRADE, :CITY
FROM STAFF
WHERE EMPNUM = 'E2';
PROCEDURE SUB3 SQLCODE;
INSERT INTO TESTREPORT
VALUES('0202','pass','MCO');
PROCEDURE SUB4 SQLCODE;
INSERT INTO TESTREPORT
VALUES('0202','fail','MCO');
PROCEDURE SUB5 SQLCODE;
COMMIT WORK;
PROCEDURE SUB6 SQLCODE;
DELETE -- we empty the table!
FROM TEXT240;
PROCEDURE SUB7 SQLCODE;
INSERT INTO TEXT240 -- This is the test for the rules
VALUES -- for the placement
('SQL-STYLE COMMENTS') --of
-- SQL-style comments
;
PROCEDURE SUB8 SQLCODE
:STR240 CHAR(240);
SELECT * -- There is only one column to select.
INTO
:STR240 -- there is only one row in the table
FROM TEXT240;
PROCEDURE SUB9 SQLCODE;
ROLLBACK WORK;
PROCEDURE SUB10 SQLCODE;
INSERT INTO TESTREPORT
VALUES('0234','pass','MCO');
PROCEDURE SUB11 SQLCODE;
INSERT INTO TESTREPORT
VALUES('0234','fail','MCO');
PROCEDURE SUB12 SQLCODE;
COMMIT WORK;
PROCEDURE SUB13 SQLCODE
:EMPNUM CHAR(3)
:HOURS NUMERIC (9);
FETCH X INTO :EMPNUM, :HOURS;
[ Verzeichnis aufwärts0.172unsichere Verbindung
]
