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

Untersuchungsergebnis.mco Download desPython {Python[60] Fortran[106] Ada[118]}zum Wurzelverzeichnis wechseln

-- SQL Test Suite, V6.0, SQL Module dml151.mco
-- 59-byte ID
-- 
MODULE DML151
LANGUAGE COBOL
AUTHORIZATION FLATER

DECLARE C15122  CURSOR FOR
               SELECT EMPNAME, GRADE FROM HU.STAFF
               ORDER BY GRADE, EMPNAME DESC
DECLARE C15123  CURSOR FOR
               SELECT EMPNUM, GRADE / (GRADE - 10)
               FROM HU.STAFF ORDER BY EMPNUM


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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      UPDATE HU.STAFF SET EMPNAME = NULL WHERE GRADE =
                  10;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
    OPEN C15122;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :ENAAM CHAR(20),
    :INT1 NUMERIC (9));
      FETCH C15122 INTO :ENAAM, :INT1;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :ENAAM CHAR(20),
    :INT1 NUMERIC (9));
      FETCH C15122 INTO :ENAAM, :INT1;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
    OPEN C15123;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :ENUUM CHAR(3),
    :FLT1 NUMERIC (8,4));
      FETCH C15123 INTO :ENUUM, :FLT1;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :ENUUM CHAR(3),
    :FLT1 NUMERIC (8,4));
      FETCH C15123 INTO :ENUUM, :FLT1;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :ENUUM CHAR(3),
    :FLT1 NUMERIC (8,4));
      FETCH C15123 INTO :ENUUM, :FLT1;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      UPDATE HU.STAFF
                    SET GRADE = 500 / (GRADE - 13)
                    WHERE CURRENT OF C15123;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :ENUUM CHAR(3),
    :FLT1 NUMERIC (8,4));
      FETCH C15123 INTO :ENUUM, :FLT1;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :ENUUM CHAR(3),
    :FLT1 NUMERIC (8,4));
      FETCH C15123 INTO :ENUUM, :FLT1;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0853','pass','MCO');

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0853','fail','MCO');

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.88Quellennavigators  ]