Gedichte
Musik
Bilder
Quellcodebibliothek
Diashow
Normaldarstellung
Quellcodebibliothek
Statistik
Leitseite
products
/
Sources
/
formale Sprachen
/
C
/
Firefox
/
browser
/
themes
/
shared
/
icons
/ (
NIST Cobol-85
©
) Datei vom 10.2.2025 mit Größe 680 B
Bilddatei
sdl009.mco
products/Sources/formale Sprachen/COBOL/Test-Suite/SQL M/sdl009.mco
-- SQL Test Suite, V6.0, SQL Module sdl009.mco -- 59-byte ID MODULE SDL009 LANGUAGE COBOL AUTHORIZATION SULLIVAN PROCEDURE AUTHCK SQLCODE :UIDX CHAR(18); SELECT USER INTO :UIDX FROM HU.ECCO; PROCEDURE SUB1 SQLCODE :EMPNO1 CHAR(3) :EMPNA1 CHAR(20) :HOURS1 NUMERIC (9) :USERID CHAR(19); SELECT HU.STAFF.EMPNUM,EMPNAME,HOURS,USER INTO :EMPNO1, :EMPNA1, :HOURS1, :USERID FROM HU.STAFF,HU.WORKS WHERE HU.STAFF.EMPNUM='E1' AND PNUM='P3'; PROCEDURE SUB2 SQLCODE; INSERT INTO HU.TESTREPORT VALUES('0145','pass','MCO'); PROCEDURE SUB3 SQLCODE; INSERT INTO HU.TESTREPORT VALUES('0145','fail','MCO'); PROCEDURE SUB4 SQLCODE; COMMIT WORK;
2026-06-09
