Übersicht der Quellen

 
     
 
 
Anforderungen  |   Konzepte  |   Entwurf  |   Entwicklung  |   Qualitätssicherung  |   Lebenszyklus  |   Steuerung
 
 
 
 
Benutzer

products/Sources/formale Sprachen/C/Firefox/intl/icu/source/data/unit/   (Android Betriebssystem Version 17©)  Datei vom 27.6.2026 mit Größe 96 kB image not shown  

Bilddatei

dml106.mco


products/Sources/formale Sprachen/COBOL/Test-Suite/SQL M/dml106.mco

-- SQL Test Suite, V6.0, SQL Module dml106.mco -- 59-byte ID -- MODULE DML106 LANGUAGE COBOL AUTHORIZATION FLATER DECLARE UNION1 CURSOR FOR SELECT * FROM ABOVE_AVERAGE ORDER BY COLUMN_1 DECLARE UNION2 CURSOR FOR SELECT EMPNUM, CITY FROM STAFF_DUP ORDER BY CITY DECLARE UNION3 CURSOR FOR SELECT C2, C1, C3 FROM FOUR_CITIES ORDER BY C3, C2 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 VIEW UUSIG (U1) AS SELECT C1 FROM USIG UNION SELECT C_1 FROM USIG; PROCEDURE SUB4 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB5 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM UUSIG; PROCEDURE SUB6 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(DISTINCT U1) INTO :INT1 FROM UUSIG ; PROCEDURE SUB7 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM UUSIG WHERE U1 < 0 OR U1 > 3 OR U1 IS NULL; PROCEDURE SUB8 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB9 SQLCODE SQLSTATE; CREATE VIEW ABOVE_AVERAGE (COLUMN_1, COLUMN_2, COLUMN_3) AS SELECT PNUM, BUDGET, CITY FROM HU.PROJ OUTER_REF WHERE BUDGET >= (SELECT AVG(BUDGET) FROM HU.PROJ INNER_REF WHERE OUTER_REF.CITY = INNER_REF.CITY) UNION SELECT 'MAX', MAX(BUDGET), MIN(CITY) FROM HU.PROJ WHERE CITY > 'Deale'; PROCEDURE SUB10 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB11 SQLCODE SQLSTATE; OPEN UNION1; PROCEDURE SUB12 SQLCODE SQLSTATE :CH3 CHAR(3) :INT1 NUMERIC (9) :CH15 CHAR(15); FETCH UNION1 INTO :CH3, :INT1, :CH15; PROCEDURE SUB13 SQLCODE SQLSTATE :CH3 CHAR(3) :INT1 NUMERIC (9) :CH15 CHAR(15); FETCH UNION1 INTO :CH3, :INT1, :CH15; PROCEDURE SUB14 SQLCODE SQLSTATE :CH3 CHAR(3) :INT1 NUMERIC (9) :CH15 CHAR(15); FETCH UNION1 INTO :CH3, :INT1, :CH15; PROCEDURE SUB15 SQLCODE SQLSTATE :CH3 CHAR(3) :INT1 NUMERIC (9) :CH15 CHAR(15); FETCH UNION1 INTO :CH3, :INT1, :CH15; PROCEDURE SUB16 SQLCODE SQLSTATE :CH3 CHAR(3) :INT1 NUMERIC (9) :CH15 CHAR(15); FETCH UNION1 INTO :CH3, :INT1, :CH15; PROCEDURE SUB17 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB18 SQLCODE SQLSTATE; CREATE VIEW STAFF_DUP AS SELECT EMPNUM, EMPNAME, GRADE, CITY FROM HU.STAFF UNION ALL SELECT * FROM HU.STAFF3; PROCEDURE SUB19 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB20 SQLCODE SQLSTATE; OPEN UNION2; PROCEDURE SUB21 SQLCODE SQLSTATE :CH3 CHAR(3) :CH15 CHAR(15); FETCH UNION2 INTO :CH3, :CH15; PROCEDURE SUB22 SQLCODE SQLSTATE :CH3 CHAR(3) :CH15 CHAR(15); FETCH UNION2 INTO :CH3, :CH15; PROCEDURE SUB23 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM STAFF_DUP; PROCEDURE SUB24 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB25 SQLCODE SQLSTATE; CREATE VIEW FOUR_CITIES (C1, C2, C3) AS SELECT 'P', CITY, 666 FROM HU.PROJ WHERE BUDGET <> 30000 UNION SELECT 'S', CITY, 777 FROM HU.STAFF WHERE EMPNAME <> 'Ed' UNION SELECT 'T', CITY, -999 FROM HU.STAFF3 WHERE CITY NOT LIKE 'V%' UNION SELECT 'X', CITY, -1 FROM HU.STAFF3 WHERE CITY = 'Vienna'; PROCEDURE SUB26 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB27 SQLCODE SQLSTATE; OPEN UNION3; PROCEDURE SUB28 SQLCODE SQLSTATE :CH15 CHAR(15) :CH3 CHAR(3) :INT1 NUMERIC (9); FETCH UNION3 INTO :CH15, :CH3, :INT1; PROCEDURE SUB29 SQLCODE SQLSTATE :CH15 CHAR(15) :CH3 CHAR(3) :INT1 NUMERIC (9); FETCH UNION3 INTO :CH15, :CH3, :INT1; PROCEDURE SUB30 SQLCODE SQLSTATE :CH15 CHAR(15) :CH3 CHAR(3) :INT1 NUMERIC (9); FETCH UNION3 INTO :CH15, :CH3, :INT1; PROCEDURE SUB31 SQLCODE SQLSTATE :CH15 CHAR(15) :CH3 CHAR(3) :INT1 NUMERIC (9); FETCH UNION3 INTO :CH15, :CH3, :INT1; PROCEDURE SUB32 SQLCODE SQLSTATE :CH15 CHAR(15) :CH3 CHAR(3) :INT1 NUMERIC (9); FETCH UNION3 INTO :CH15, :CH3, :INT1; PROCEDURE SUB33 SQLCODE SQLSTATE :CH15 CHAR(15) :CH3 CHAR(3) :INT1 NUMERIC (9); FETCH UNION3 INTO :CH15, :CH3, :INT1; PROCEDURE SUB34 SQLCODE SQLSTATE :CH15 CHAR(15) :CH3 CHAR(3) :INT1 NUMERIC (9); FETCH UNION3 INTO :CH15, :CH3, :INT1; PROCEDURE SUB35 SQLCODE SQLSTATE :CH15 CHAR(15) :CH3 CHAR(3) :INT1 NUMERIC (9); FETCH UNION3 INTO :CH15, :CH3, :INT1; PROCEDURE SUB36 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT (*) INTO :INT1 FROM FOUR_CITIES ; PROCEDURE SUB37 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM FOUR_CITIES WHERE C3 > 0; PROCEDURE SUB38 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM FOUR_CITIES WHERE C2 = 'Vienna'; PROCEDURE SUB39 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB40 SQLCODE SQLSTATE; DROP VIEW ABOVE_AVERAGE CASCADE; PROCEDURE SUB41 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB42 SQLCODE SQLSTATE; DROP VIEW STAFF_DUP CASCADE; PROCEDURE SUB43 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB44 SQLCODE SQLSTATE; DROP VIEW FOUR_CITIES CASCADE; PROCEDURE SUB45 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB46 SQLCODE SQLSTATE; DROP VIEW UUSIG CASCADE; PROCEDURE SUB47 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB48 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0599','pass','MCO'); PROCEDURE SUB49 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0599','fail','MCO'); PROCEDURE SUB50 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB51 SQLCODE SQLSTATE; CREATE TABLE TEMPUS (TDATE DATE, TTIME TIME, TTIMESTAMP TIMESTAMP, TINT1 INTERVAL YEAR TO MONTH, TINT2 INTERVAL DAY TO SECOND); PROCEDURE SUB52 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB53 SQLCODE SQLSTATE; INSERT INTO TEMPUS VALUES ( DATE '1993-08-24', TIME '16:03:00', TIMESTAMP '1993-08-24 16:03:00', INTERVAL -'1-6' YEAR TO MONTH, INTERVAL '13 0:10' DAY TO SECOND); PROCEDURE SUB54 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT EXTRACT (DAY FROM TDATE) INTO :INT1 FROM TEMPUS; PROCEDURE SUB55 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM TEMPUS WHERE (TTIMESTAMP - TIMESTAMP '1995-02-24 16:03:00') YEAR TO MONTH = TINT1; PROCEDURE SUB56 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM TEMPUS WHERE (TTIMESTAMP, TINT1) OVERLAPS (TIMESTAMP '1995-02-24 16:03:00', INTERVAL '1-6' YEAR TO MONTH); PROCEDURE SUB57 SQLCODE SQLSTATE; ROLLBACK WORK; PROCEDURE SUB58 SQLCODE SQLSTATE; DROP TABLE TEMPUS CASCADE; PROCEDURE SUB59 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB60 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0601','pass','MCO'); PROCEDURE SUB61 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0601','fail','MCO'); PROCEDURE SUB62 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB63 SQLCODE SQLSTATE; CREATE TABLE TSFIPS ( FIPS1 TIME, FIPS2 TIMESTAMP, FIPS3 INTERVAL YEAR (2) TO MONTH, FIPS4 INTERVAL DAY (2) TO SECOND (6)); PROCEDURE SUB64 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB65 SQLCODE SQLSTATE; INSERT INTO TSFIPS VALUES ( TIME '16:03:00', TIMESTAMP '1996-08-24 16:03:00.999999', INTERVAL -'99-6' YEAR (2) TO MONTH, INTERVAL '99 0:10:00.999999' DAY (2) TO SECOND (6)) ; PROCEDURE SUB66 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT EXTRACT (SECOND FROM FIPS2) * 1000000 - 999990 INTO :INT1 FROM TSFIPS; PROCEDURE SUB67 SQLCODE SQLSTATE :INT1 NUMERIC (9) :INT2 NUMERIC (9); SELECT EXTRACT (YEAR FROM FIPS3), EXTRACT (MONTH FROM FIPS3) INTO :INT1, :INT2 FROM TSFIPS; PROCEDURE SUB68 SQLCODE SQLSTATE :INT1 NUMERIC (9) :INT2 NUMERIC (9); SELECT EXTRACT (DAY FROM FIPS4), EXTRACT (SECOND FROM FIPS4) * 1000000 - 999990 INTO :INT1, :INT2 FROM TSFIPS; PROCEDURE SUB69 SQLCODE SQLSTATE; ROLLBACK WORK; PROCEDURE SUB70 SQLCODE SQLSTATE; DROP TABLE TSFIPS CASCADE; PROCEDURE SUB71 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB72 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0611','pass','MCO'); PROCEDURE SUB73 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0611','fail','MCO'); PROCEDURE SUB74 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB75 SQLCODE SQLSTATE; CREATE TABLE TSSMALL ( SMALLD DATE, SMALLT TIME, SMALLTS TIMESTAMP); PROCEDURE SUB76 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB77 SQLCODE SQLSTATE; INSERT INTO TSSMALL VALUES ( CURRENT_DATE, CURRENT_TIME, CURRENT_TIMESTAMP); PROCEDURE SUB78 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM TSSMALL WHERE EXTRACT (YEAR FROM SMALLD) = EXTRACT (YEAR FROM SMALLTS) ; PROCEDURE SUB79 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM TSSMALL WHERE EXTRACT (MONTH FROM SMALLD) = EXTRACT (MONTH FROM SMALLTS); PROCEDURE SUB80 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM TSSMALL WHERE EXTRACT (DAY FROM SMALLD) = EXTRACT (DAY FROM SMALLTS) ; PROCEDURE SUB81 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM TSSMALL WHERE EXTRACT (HOUR FROM SMALLT) = EXTRACT (HOUR FROM SMALLTS) ; PROCEDURE SUB82 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM TSSMALL WHERE EXTRACT (MINUTE FROM SMALLT) = EXTRACT (MINUTE FROM SMALLTS); PROCEDURE SUB83 SQLCODE SQLSTATE :INT1 NUMERIC (9); SELECT COUNT(*) INTO :INT1 FROM TSSMALL WHERE EXTRACT (SECOND FROM SMALLT) - EXTRACT (SECOND FROM SMALLTS) > -1 AND EXTRACT (SECOND FROM SMALLT) - EXTRACT (SECOND FROM SMALLTS) < 1; PROCEDURE SUB84 SQLCODE SQLSTATE; ROLLBACK WORK; PROCEDURE SUB85 SQLCODE SQLSTATE; DROP TABLE TSSMALL CASCADE; PROCEDURE SUB86 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB87 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0613','pass','MCO'); PROCEDURE SUB88 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0613','fail','MCO'); PROCEDURE SUB89 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB90 SQLCODE SQLSTATE; CREATE TABLE TSERR ( BADINT INTERVAL YEAR (2) TO MONTH, BADDATE DATE); PROCEDURE SUB91 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB92 SQLCODE SQLSTATE; INSERT INTO TSERR VALUES ( INTERVAL '0-11' YEAR TO MONTH, DATE '9999-01-01' + INTERVAL '1-00' YEAR TO MONTH) ; PROCEDURE SUB93 SQLCODE SQLSTATE; INSERT INTO TSERR VALUES ( INTERVAL '9999-11' YEAR TO MONTH, DATE '1984-01-01'); PROCEDURE SUB94 SQLCODE SQLSTATE; INSERT INTO TSERR VALUES ( INTERVAL '1-11' YEAR TO MONTH, CAST ('DATE ''1993-02-30''' AS DATE)); PROCEDURE SUB95 SQLCODE SQLSTATE; INSERT INTO TSERR VALUES ( INTERVAL '1-11' YEAR TO MONTH, CAST ('1993-02-30' AS DATE)); PROCEDURE SUB96 SQLCODE SQLSTATE; ROLLBACK WORK; PROCEDURE SUB97 SQLCODE SQLSTATE; DROP TABLE TSERR CASCADE; PROCEDURE SUB98 SQLCODE SQLSTATE; COMMIT WORK; PROCEDURE SUB99 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0615','pass','MCO'); PROCEDURE SUB100 SQLCODE SQLSTATE; INSERT INTO HU.TESTREPORT VALUES('0615','fail','MCO'); PROCEDURE SUB101 SQLCODE SQLSTATE; COMMIT WORK;

                                                                                                                                                                                                                                                                                                                                                                                                     

Neuigkeiten

     Aktuelles
     Motto des Tages

Open Source Software

     Quellcodebibliothek
     Eigene Quellcodes
     Fremde Quellcodes
     Suchen
Jenseits des Üblichen ....

Besucherstatistik

Besucherstatistik
Statistik
#Sources=1126864
#Domains=2039723