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

rahmenlose Ansicht.mco DruckansichtLatech {Latech[93] Ada[164] Abap[247]}zum Wurzelverzeichnis wechseln

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

MODULE DML060
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE SUN CURSOR 
             FOR   SELECT COL1, COL2
             FROM VTABLE
             WHERE ( :INT3 * (COL3 - COL2)) BETWEEN 5 AND 200
             ORDER BY COL1
DECLARE SUN1 CURSOR 
             FOR   SELECT COL1, COL2
             FROM VTABLE
             WHERE (COL3 * COL2 / COL1) > ALL
             (SELECT HOURS FROM WORKS)
             OR -(COL3 * COL2 /COL1) > ANY
             (SELECT HOURS FROM WORKS)
             ORDER BY COL1
DECLARE SUN2 CURSOR 
             FOR   SELECT COL1, (COL3 * COL2 /COL1 - COL2 + 10)
             FROM VTABLE
             WHERE COL1 > 0
             ORDER BY 2
DECLARE DIPER CURSOR
             FOR SELECT EMPNUM,PNUM,HOURS
             FROM   SUBSP
DECLARE DOVE CURSOR
             FOR SELECT EMPNUM,PNUM,HOURS
             FROM   SUBSP
DECLARE PANDA CURSOR 
             FOR   SELECT DISTINCT PX.PNUM,PY.PNUM
             FROM WORKS PX, WORKS PY
             ORDER BY 2 DESC


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

PROCEDURE SUB1 SQLCODE
    :INT3 NUMERIC (9);
    OPEN SUN;

PROCEDURE SUB2 SQLCODE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH SUN INTO  :INT1, :INT2;

PROCEDURE SUB3 SQLCODE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH SUN INTO  :INT1, :INT2;

PROCEDURE SUB4 SQLCODE;
      CLOSE SUN;

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

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

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE;
      UPDATE VTABLE
                  SET COL1 = 1
                  WHERE COL1 = 0;

PROCEDURE SUB9 SQLCODE;
    OPEN SUN1;

PROCEDURE SUB10 SQLCODE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH SUN1 INTO  :INT1, :INT2;

PROCEDURE SUB11 SQLCODE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH SUN1 INTO  :INT1, :INT2;

PROCEDURE SUB12 SQLCODE;
      CLOSE SUN1;

PROCEDURE SUB13 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB14 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0262','pass','MCO');

PROCEDURE SUB15 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0262','fail','MCO');

PROCEDURE SUB16 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB17 SQLCODE;
    OPEN SUN2;

PROCEDURE SUB18 SQLCODE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH SUN2 INTO  :INT1, :INT2;

PROCEDURE SUB19 SQLCODE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH SUN2 INTO  :INT1, :INT2;

PROCEDURE SUB20 SQLCODE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      FETCH SUN2 INTO  :INT1, :INT2;

PROCEDURE SUB21 SQLCODE;
      CLOSE SUN2;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0263','pass','MCO');

PROCEDURE SUB23 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0263','fail','MCO');

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB25 SQLCODE;
      INSERT INTO WORKS
                  VALUES ('E3','P4',50);

PROCEDURE SUB26 SQLCODE;
    OPEN DIPER;

PROCEDURE SUB27 SQLCODE
    :EMPNO1 CHAR(3)
    :PNO1 CHAR(3)
    :HOURS1 NUMERIC (9);
      FETCH DIPER INTO  :EMPNO1, :PNO1, :HOURS1;

PROCEDURE SUB28 SQLCODE;
      UPDATE SUBSP
                  SET EMPNUM='E9'
                  WHERE CURRENT OF DIPER;

PROCEDURE SUB29 SQLCODE;
      CLOSE DIPER;

PROCEDURE SUB30 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB31 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0265','pass','MCO');

PROCEDURE SUB32 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0265','fail','MCO');

PROCEDURE SUB33 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB34 SQLCODE;
      INSERT INTO WORKS
                  VALUES ('E3','P4',50);

PROCEDURE SUB35 SQLCODE;
    OPEN DOVE;

PROCEDURE SUB36 SQLCODE
    :EMPNO1 CHAR(3)
    :PNO1 CHAR(3)
    :HOURS1 NUMERIC (9);
      FETCH DOVE INTO  :EMPNO1, :PNO1, :HOURS1;

PROCEDURE SUB37 SQLCODE;
      UPDATE SUBSP
                  SET PNUM='P6'
                  WHERE CURRENT OF DOVE;

PROCEDURE SUB38 SQLCODE
    :EMPNO1 CHAR(3)
    :PNO1 CHAR(3)
    :HOURS1 NUMERIC (9);
      FETCH DOVE INTO  :EMPNO1, :PNO1, :HOURS1;

PROCEDURE SUB39 SQLCODE;
      UPDATE SUBSP
                  SET PNUM='P6'
                  WHERE CURRENT OF DOVE;

PROCEDURE SUB40 SQLCODE;
      CLOSE DOVE;

PROCEDURE SUB41 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB42 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0266','pass','MCO');

PROCEDURE SUB43 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0266','fail','MCO');

PROCEDURE SUB44 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB45 SQLCODE;
      DELETE FROM WORKS1;

PROCEDURE SUB46 SQLCODE;
    OPEN PANDA;

PROCEDURE SUB47 SQLCODE;
      CLOSE PANDA;

PROCEDURE SUB48 SQLCODE;
      UPDATE WORKS1
                  SET PNUM = EMPNUM, EMPNUM = PNUM;

PROCEDURE SUB49 SQLCODE
    :HOURS1 NUMERIC (9);
      SELECT COUNT(*)  
                  INTO  :HOURS1 FROM WORKS1
                  WHERE EMPNUM = 'P1' AND HOURS > 30;

PROCEDURE SUB50 SQLCODE;
      CLOSE PANDA;

PROCEDURE SUB51 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB52 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0267','pass','MCO');

PROCEDURE SUB53 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0267','fail','MCO');

PROCEDURE SUB54 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB55 SQLCODE
    :PNO1 CHAR(3)
    :PNO2 CHAR(3);
      FETCH PANDA INTO  :PNO1, :PNO2;

PROCEDURE SUB56 SQLCODE
    :PNO1 CHAR(3)
    :PNO2 CHAR(3)
    :II NUMERIC (9);
      INSERT INTO WORKS1
                    VALUES( :PNO1, :PNO2, :II);

[ Verzeichnis aufwärts0.112unsichere Verbindung  ]