products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: dml077.mco   Sprache: Unknown

Untersuchungsergebnis.mco Download desPython {Python[57] Fortran[115] Ada[153]}zum Wurzelverzeichnis wechseln

-- SQL Test Suite, V6.0, SQL Module xts703.mco
-- 59-byte ID
-- 
MODULE XTS703
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,
    :COUN NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   STAFF
                    WHERE  UNIQUE(SELECT * FROM STAFF);

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN FROM STAFF AS X
                    WHERE UNIQUE (SELECT * FROM STAFF AS Y
                    WHERE X.EMPNUM = Y.EMPNUM
                    AND X.EMPNAME  = Y.EMPNAME
                    AND X.GRADE    = Y.GRADE
                    AND X.CITY     = Y.CITY);

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7010','pass','MCO');

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7010','fail','MCO');

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   STAFF
                    WHERE  UNIQUE(SELECT GRADE FROM STAFF);

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :NAAM CHAR(24),
    :GRADE NUMERIC (4));
      SELECT EMPNUM, GRADE INTO :NAAM, :GRADE FROM STAFF
                  X
                    WHERE (UNIQUE(SELECT GRADE FROM STAFF Y
                    WHERE X.GRADE = Y.GRADE));

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT (*) INTO :COUN FROM STAFF X
                    WHERE NOT UNIQUE (SELECT GRADE FROM STAFF Y
                    WHERE X.GRADE = Y.GRADE);

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7011','pass','MCO');

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7011','fail','MCO');

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      INSERT INTO STAFFC (EMPNUM,EMPNAME,GRADE,CITY)
                    VALUES('E9','Terry',13,NULL);

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      INSERT INTO STAFFC (EMPNUM,EMPNAME,GRADE,CITY)
                    VALUES('E8','Nick',13,NULL);

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   STAFFC AS X
                    WHERE UNIQUE(SELECT CITY, MGR FROM STAFFC AS Y
                    WHERE X.GRADE = Y.GRADE);

PROCEDURE SUB19 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   STAFFC AS X
                    WHERE NOT UNIQUE(SELECT GRADE, CITY FROM STAFFC AS Y
                    WHERE X.GRADE = Y.GRADE);

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7012','pass','MCO');

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7012','fail','MCO');

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.175Quellennavigators  ]