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

products/Sources/formale Sprachen/C/Linux/Documentation/userspace-api/media/dvb/   (Open Source Betriebssystem Version 6.17.9©)  Datei vom 24.10.2025 mit Größe 8 kB image not shown  

Bilddatei

cdr024.mco


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

-- SQL Test Suite, V6.0, SQL Module cdr024.mco -- 59-byte ID MODULE CDR024 LANGUAGE COBOL AUTHORIZATION SUN DECLARE MOON CURSOR FOR SELECT COUNT(*) FROM SIZE_TAB WHERE COL4 BETWEEN -1.46E22 AND -1.048575E22 GROUP BY COL1, COL2, COL3 PROCEDURE AUTHCK SQLCODE :UIDX CHAR(18); SELECT USER INTO :UIDX FROM SUN.ECCO; PROCEDURE SUB1 SQLCODE; DELETE FROM CHAR_DEFAULT; PROCEDURE SUB2 SQLCODE; INSERT INTO CHAR_DEFAULT(SEX_CODE) VALUES ('M'); PROCEDURE SUB3 SQLCODE :NICK1 CHAR(20) :INSUR1 CHAR(5); SELECT NICKNAME, INSURANCE1 INTO :NICK1, :INSUR1 FROM CHAR_DEFAULT WHERE SEX_CODE = 'M'; PROCEDURE SUB4 SQLCODE; INSERT INTO CHAR_DEFAULT(NICKNAME, INSURANCE1) VALUES ('Piggy', 'Kaise'); PROCEDURE SUB5 SQLCODE :SEX1 CHAR(1); SELECT SEX_CODE INTO :SEX1 FROM CHAR_DEFAULT WHERE INSURANCE1 = 'Kaise'; PROCEDURE SUB6 SQLCODE; INSERT INTO TESTREPORT VALUES('0385','pass','MCO'); PROCEDURE SUB7 SQLCODE; INSERT INTO TESTREPORT VALUES('0385','fail','MCO'); PROCEDURE SUB8 SQLCODE; COMMIT WORK; PROCEDURE SUB9 SQLCODE; DELETE FROM EXACT_DEF; PROCEDURE SUB10 SQLCODE; INSERT INTO EXACT_DEF VALUES (98.3, -55556, .000001); PROCEDURE SUB11 SQLCODE; INSERT INTO EXACT_DEF(BODY_TEMP) VALUES (99.0); PROCEDURE SUB12 SQLCODE; INSERT INTO EXACT_DEF(MAX_NUM, MIN_NUM) VALUES (100, .2); PROCEDURE SUB13 SQLCODE :CNT NUMERIC (9); SELECT COUNT(*) INTO :CNT FROM EXACT_DEF WHERE BODY_TEMP = 99.0 AND MAX_NUM = -55555 AND MIN_NUM = .000001 OR BODY_TEMP = 98.6 AND MAX_NUM = 100 AND MIN_NUM = .2 ; PROCEDURE SUB14 SQLCODE; INSERT INTO TESTREPORT VALUES('0386','pass','MCO'); PROCEDURE SUB15 SQLCODE; INSERT INTO TESTREPORT VALUES('0386','fail','MCO'); PROCEDURE SUB16 SQLCODE; COMMIT WORK; PROCEDURE SUB17 SQLCODE; DELETE FROM APPROX_DEF; PROCEDURE SUB18 SQLCODE; INSERT INTO APPROX_DEF(X_COUNT) VALUES (5.0E5); PROCEDURE SUB19 SQLCODE; INSERT INTO APPROX_DEF VALUES (1.78E11, -9.9E10, 3.45E-10, 7.6777E-7); PROCEDURE SUB20 SQLCODE; INSERT INTO APPROX_DEF(Y_COUNT, Z_COUNT, ZZ_COUNT) VALUES (1.0E3, 2.0E4, 3.8E6); PROCEDURE SUB21 SQLCODE :CNT NUMERIC (9); SELECT COUNT(*) INTO :CNT FROM APPROX_DEF WHERE (Y_COUNT BETWEEN -9.991E10 AND -9.989E10) AND (Z_COUNT BETWEEN 3.44E-11 AND 3.46E-11) AND (ZZ_COUNT BETWEEN -7.6778E-7 AND -7.6776E-7) OR (X_COUNT BETWEEN 1.77E12 AND 1.79E12); PROCEDURE SUB22 SQLCODE; INSERT INTO TESTREPORT VALUES('0387','pass','MCO'); PROCEDURE SUB23 SQLCODE; INSERT INTO TESTREPORT VALUES('0387','fail','MCO'); PROCEDURE SUB24 SQLCODE; COMMIT WORK; PROCEDURE SUB25 SQLCODE; DELETE FROM SIZE_TAB; PROCEDURE SUB26 SQLCODE; INSERT INTO SIZE_TAB(COL1) VALUES ('ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz0123456789012'); PROCEDURE SUB27 SQLCODE; INSERT INTO SIZE_TAB(COL2, COL3, COL4) VALUES (-999888777, 987654321.123456, -1.45E22); PROCEDURE SUB28 SQLCODE; INSERT INTO SIZE_TAB VALUES('ABCDEFG', 7,7,-1.49E22); PROCEDURE SUB29 SQLCODE; OPEN MOON; PROCEDURE SUB30 SQLCODE :CNT NUMERIC (9); FETCH MOON INTO :CNT; PROCEDURE SUB31 SQLCODE; CLOSE MOON; PROCEDURE SUB32 SQLCODE; INSERT INTO TESTREPORT VALUES('0388','pass','MCO'); PROCEDURE SUB33 SQLCODE; INSERT INTO TESTREPORT VALUES('0388','fail','MCO'); PROCEDURE SUB34 SQLCODE; COMMIT WORK;

                                                                                                                                                                                                                                                                                                                                                                                                     

Neuigkeiten

     Aktuelles
     Motto des Tages

Software

     Produkte
     Quellcodebibliothek

Aktivitäten

     Artikel über Sicherheit
     Anleitung zur Aktivierung von SSL

Muße

     Gedichte
     Musik
     Bilder
Jenseits des Üblichen ....
    

Besucherstatistik

Besucherstatistik

Monitoring

Montastic status badge