Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
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: LBProc.dcu   Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: Python {Python[82] Pl1[92] CS[115]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

-- SQL Test Suite, V6.0, SQL Module dml142.mco
-- 59-byte ID
-- 
MODULE DML142
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE C14221  CURSOR FOR
               SELECT GRADE FROM TEMP_S
DECLARE C14222  CURSOR FOR
               SELECT GRADE FROM TEMP_S ORDER BY GRADE


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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM FLATER.USIG
                 ;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      INSERT INTO FLATER.USIG VALUES (2, 4);

PROCEDURE SUB5 SQLCODE SQLSTATE;
      UPDATE FLATER.USIG SET C1 = 0;

PROCEDURE SUB6 SQLCODE SQLSTATE;
      DELETE FROM FLATER.USIG;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB10 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB11 SQLCODE SQLSTATE;
      DELETE FROM TEMP_S;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      INSERT INTO TEMP_S
                    SELECT EMPNUM, GRADE, CITY FROM STAFF;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      INSERT INTO TEMP_S
                    SELECT EMPNUM, GRADE, CITY FROM STAFF
                    WHERE GRADE = 12;

PROCEDURE SUB14 SQLCODE SQLSTATE;
    OPEN C14221;

PROCEDURE SUB15 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14221 INTO :INT1;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      CLOSE C14221;

PROCEDURE SUB17 SQLCODE SQLSTATE;
    OPEN C14222;

PROCEDURE SUB18 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB19 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB20 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB21 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB22 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB23 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB24 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB25 SQLCODE SQLSTATE;
      CLOSE C14222;

PROCEDURE SUB27 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14221 INTO :INT1;

PROCEDURE SUB28 SQLCODE SQLSTATE;
      DELETE FROM TEMP_S WHERE CURRENT OF C14221
                 ;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      CLOSE C14221;

PROCEDURE SUB31 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14221 INTO :INT1;

PROCEDURE SUB32 SQLCODE SQLSTATE;
      CLOSE C14221;

PROCEDURE SUB34 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB35 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB36 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB37 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB38 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB39 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB40 SQLCODE SQLSTATE;
      CLOSE C14222;

PROCEDURE SUB42 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14221 INTO :INT1;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      UPDATE TEMP_S SET GRADE = 13 WHERE CURRENT OF
                  C14221;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      CLOSE C14221;

PROCEDURE SUB46 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14221 INTO :INT1;

PROCEDURE SUB47 SQLCODE SQLSTATE;
      CLOSE C14221;

PROCEDURE SUB49 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB50 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB51 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB52 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB53 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB54 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C14222 INTO :INT1;

PROCEDURE SUB55 SQLCODE SQLSTATE;
      CLOSE C14222;

PROCEDURE SUB56 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB59 SQLCODE SQLSTATE;
      COMMIT WORK;

[ Dauer der Verarbeitung: 0.155 Sekunden  ]