Eine aufbereitete Darstellung der Quelle

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

products/Sources/formale Sprachen/C/Gnome/testsuite/svg/renderer/   (Gnome Linux Desktop Version 4.23.2©)  Datei vom 30.5.2026 mit Größe 535 B image not shown  

Bilddatei

yts752.mco


products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/yts752.mco

-- SQL Test Suite, V6.0, SQL Module yts752.mco -- 59-byte ID -- MODULE YTS752 LANGUAGE COBOL AUTHORIZATION CTS1 PROCEDURE SUB1 (SQLCODE, SQLSTATE, :UIDX CHAR(18)); SELECT USER INTO :UIDX FROM CTS1.ECCO; PROCEDURE SUB2 (SQLCODE, SQLSTATE); ROLLBACK WORK; PROCEDURE SUB3 (SQLCODE, SQLSTATE); CREATE DOMAIN sintdom AS SMALLINT CHECK (VALUE > 5) CHECK (VALUE < 24000); PROCEDURE SUB4 (SQLCODE, SQLSTATE); COMMIT WORK; PROCEDURE SUB5 (SQLCODE, SQLSTATE); CREATE TABLE shorttab (keycol integer, domcol sintdom); PROCEDURE SUB6 (SQLCODE, SQLSTATE); COMMIT WORK; PROCEDURE SUB7 (SQLCODE, SQLSTATE, :HOST1 NUMERIC (4)); INSERT INTO shorttab VALUES (1,:HOST1); PROCEDURE SUB8 (SQLCODE, SQLSTATE, :HOST2 NUMERIC (4)); INSERT INTO shorttab VALUES (2,:HOST2); PROCEDURE SUB9 (SQLCODE, SQLSTATE, :HOST3 NUMERIC (9)); INSERT INTO shorttab VALUES (3, :HOST3); PROCEDURE SUB10 (SQLCODE, SQLSTATE, :HOST4 NUMERIC (4)); INSERT INTO shorttab VALUES (4,:HOST4); PROCEDURE SUB11 (SQLCODE, SQLSTATE); COMMIT WORK; PROCEDURE SUB12 (SQLCODE, SQLSTATE, :HOST1 NUMERIC (4)); SELECT COUNT(*) INTO :HOST1 FROM shorttab; PROCEDURE SUB13 (SQLCODE, SQLSTATE, :HOST2 NUMERIC (4)); SELECT domcol INTO :HOST2 FROM shorttab WHERE keycol = 1; PROCEDURE SUB14 (SQLCODE, SQLSTATE, :HOST3 NUMERIC (9)); SELECT domcol INTO :HOST3 FROM shorttab WHERE keycol = 4; PROCEDURE SUB15 (SQLCODE, SQLSTATE); ROLLBACK WORK; PROCEDURE SUB16 (SQLCODE, SQLSTATE); DROP TABLE shorttab CASCADE; PROCEDURE SUB17 (SQLCODE, SQLSTATE); COMMIT WORK; PROCEDURE SUB18 (SQLCODE, SQLSTATE); DROP DOMAIN sintdom CASCADE; PROCEDURE SUB19 (SQLCODE, SQLSTATE); COMMIT WORK; PROCEDURE SUB20 (SQLCODE, SQLSTATE); INSERT INTO CTS1.TESTREPORT VALUES('7502','pass','MCO'); PROCEDURE SUB21 (SQLCODE, SQLSTATE); INSERT INTO CTS1.TESTREPORT VALUES('7502','fail','MCO'); PROCEDURE SUB22 (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=141584
#Domains=752002