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: dml044.cob   Sprache: Cobol

Untersuchungsergebnis.mco Download desLex {Lex[58] Fortran[100] CS[125]}zum Wurzelverzeichnis wechseln

-- SQL Test Suite, V6.0, SQL Module dml074.mco
-- 59-byte ID

MODULE DML074
LANGUAGE COBOL
AUTHORIZATION HU



PROCEDURE AUTHCK SQLCODE
  :UIDX CHAR(18);
      SELECT USER INTO :UIDX FROM HU.ECCO;

PROCEDURE SUB1 SQLCODE
    :TMP_2 NUMERIC (9)
    :ENAME CHAR(20);
      SELECT GRADE INTO :TMP_2
                    FROM STAFF
                    WHERE EMPNAME = :ENAME;

PROCEDURE SUB2 SQLCODE
    :ENUM CHAR(3)
    :ENAME CHAR(20)
    :GRDE NUMERIC (9)
    :CTY CHAR(15);
      INSERT INTO STAFF
                    VALUES(:ENUM,:ENAME,:GRDE,:CTY);

PROCEDURE SUB3 SQLCODE
    :TMP1 CHAR(3)
    :ENAME CHAR(20)
    :GRDE NUMERIC (9)
    :CTY CHAR(10);
      SELECT EMPNUM INTO :TMP1
                    FROM STAFF
                    WHERE EMPNAME = :ENAME AND GRADE = :GRDE 
                    AND CITY = :CTY;

PROCEDURE SUB4 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0421','pass','MCO');

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0421','fail','MCO');

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 :TMP1 CHAR(3)
    SQLCODE
    :ENAME CHAR(20)
    :TMP_2 NUMERIC (9)
    :CTY CHAR(15);
      SELECT EMPNUM, EMPNAME, GRADE, CITY
                    INTO :TMP1, :ENAME, :TMP_2, :CTY
                    FROM STAFF
                    WHERE EMPNAME = 'Alice';

PROCEDURE SUB9 :CTY CHAR(15)
    :ENUM CHAR(3)
    :ENAME CHAR(20)
    :GRDE NUMERIC (9)
    SQLCODE;
      SELECT EMPNUM, EMPNAME, GRADE, CITY
                    INTO :ENUM, :ENAME, :GRDE, :CTY
                    FROM STAFF
                    WHERE CITY = 'Akron';

PROCEDURE SUB10 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0422','pass','MCO');

PROCEDURE SUB11 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0422','fail','MCO');

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB13 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM STAFF;

PROCEDURE SUB14 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM PROJ;

PROCEDURE SUB15 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM WORKS;

PROCEDURE SUB16 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0423','pass','MCO');

PROCEDURE SUB17 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0423','fail','MCO');

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.105Quellennavigators  ]