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: xts756.mco   Sprache: Unknown

Untersuchungsergebnis.mco Download desPython {Python[73] Lex[89] Fortran[133]}zum Wurzelverzeichnis wechseln

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

DECLARE S1  CURSOR FOR SEL1


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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE INS1 FROM :DSTMT;

PROCEDURE SUB4 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC2 NUMERIC (4)
    :CH15 CHAR(15);
      EXECUTE INS1 USING :CH3, :CH20 :INDIC1,
                  :INT1:INDIC2, :CH15;

PROCEDURE SUB5 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC2 NUMERIC (4)
    :CH15 CHAR(15);
      SELECT * INTO :CH3, :CH20:INDIC1, :INT1 :INDIC2,
                  :CH15
                    FROM HU.STAFF WHERE EMPNUM = 'E6';

PROCEDURE SUB6 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
               'INSERT INTO HU.STAFF SELECT PNUM,' ||
               ' CAST (? AS CHAR (20)),'          ||
               ' CAST (? AS DECIMAL (4)),'        ||
               ' CAST (? AS CHAR (15))'           ||
                    ' FROM HU.PROJ'
                    );

PROCEDURE SUB8 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB9 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE INS2 FROM :LONGST;

PROCEDURE SUB10 SQLCODE SQLSTATE
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC2 NUMERIC (4)
    :CH15 CHAR(15);
      EXECUTE INS2 USING :CH20:INDIC1, :INT1 :INDIC2,
                  :CH15;

PROCEDURE SUB11 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE EMPNUM = 'P3' AND EMPNAME = 'Madonna of the Woods'
                    AND GRADE IS NULL AND CITY = 'MinneapolisPaul';

PROCEDURE SUB12 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB14 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'SELECT * FROM HU.STAFF WHERE EMPNUM = ?' ||
                    ' OR EMPNAME = ? OR GRADE = ?'
                    );

PROCEDURE SUB15 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB16 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE SEL1 FROM :LONGST;

PROCEDURE SUB17 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC2 NUMERIC (4);
      OPEN S1 USING :CH3, :CH20:INDIC1, :INT1:INDIC2
                 ;

PROCEDURE SUB18 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC2 NUMERIC (4)
    :CH15 CHAR(15);
      FETCH S1 INTO :CH3, :CH20:INDIC1, :INT1:INDIC2,
                  :CH15;

PROCEDURE SUB19 SQLCODE SQLSTATE
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4);
      UPDATE HU.STAFF SET EMPNAME = :CH20:INDIC1 WHERE
                  CURRENT OF S1;

PROCEDURE SUB20 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC2 NUMERIC (4)
    :CH15 CHAR(15);
      FETCH S1 INTO :CH3, :CH20:INDIC1, :INT1:INDIC2,
                  :CH15;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      DELETE FROM HU.STAFF WHERE CURRENT OF S1;

PROCEDURE SUB22 SQLCODE SQLSTATE;
      CLOSE S1;

PROCEDURE SUB23 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC2 NUMERIC (4);
      OPEN S1 USING :CH3, :CH20:INDIC1, :INT1:INDIC2
                 ;

PROCEDURE SUB24 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC2 NUMERIC (4)
    :CH15 CHAR(15);
      FETCH S1 INTO :CH3, :CH20:INDIC1, :INT1:INDIC2,
                  :CH15;

PROCEDURE SUB25 SQLCODE SQLSTATE
    :CH15 CHAR(15)
    :INDIC1 NUMERIC (4);
      UPDATE HU.STAFF SET CITY = :CH15:INDIC1 WHERE
                  CURRENT OF S1;

PROCEDURE SUB26 SQLCODE SQLSTATE;
      CLOSE S1;

PROCEDURE SUB27 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE EMPNAME = 'Madonna of the Woods';

PROCEDURE SUB28 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE EMPNAME IS NULL
                    AND (CITY IS NULL OR GRADE IS NULL);

PROCEDURE SUB29 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB30 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'DELETE FROM HU.STAFF WHERE EMPNUM=?' ||
                    ' OR GRADE=? OR CITY=?'
                    );

PROCEDURE SUB31 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB32 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE MOD1 FROM :LONGST;

PROCEDURE SUB33 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :CH15 CHAR(15)
    :INDIC2 NUMERIC (4);
      EXECUTE MOD1 USING :CH3, :INT1:INDIC1,
                  :CH15:INDIC2;

PROCEDURE SUB34 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF;

PROCEDURE SUB35 SQLCODE SQLSTATE
    :CH3 CHAR(3)
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :CH15 CHAR(15)
    :INDIC2 NUMERIC (4);
      EXECUTE MOD1 USING :CH3, :INT1:INDIC1,
                  :CH15:INDIC2;

PROCEDURE SUB36 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF;

PROCEDURE SUB37 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB38 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES (
                    'UPDATE HU.STAFF SET EMPNAME = ?, CITY = ?' ||
                    ' WHERE EMPNUM = ? OR GRADE = ?'
                    );

PROCEDURE SUB39 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB40 SQLCODE SQLSTATE
    :LONGST CHAR(240);
      PREPARE MOD1 FROM :LONGST;

PROCEDURE SUB41 SQLCODE SQLSTATE
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :CH15 CHAR(15)
    :INDIC2 NUMERIC (4)
    :CH3 CHAR(3)
    :INDIC3 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC4 NUMERIC (4);
      EXECUTE MOD1 USING                           
                    :CH20:INDIC1,
                    :CH15:INDIC2,
                    :CH3:INDIC3,
                    :INT1:INDIC4;

PROCEDURE SUB42 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE EMPNAME = 'Flash in the pan';

PROCEDURE SUB43 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE CITY = 'Migrane';

PROCEDURE SUB44 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE EMPNAME IS NULL;

PROCEDURE SUB45 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE CITY IS NULL;

PROCEDURE SUB46 SQLCODE SQLSTATE
    :CH20 CHAR(20)
    :INDIC1 NUMERIC (4)
    :CH15 CHAR(15)
    :INDIC2 NUMERIC (4)
    :CH3 CHAR(3)
    :INDIC3 NUMERIC (4)
    :INT1 NUMERIC (9)
    :INDIC4 NUMERIC (4);
      EXECUTE MOD1 USING                           
                    :CH20:INDIC1,
                    :CH15:INDIC2,
                    :CH3:INDIC3,
                    :INT1:INDIC4;

PROCEDURE SUB47 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE EMPNAME = 'Flash in the pan';

PROCEDURE SUB48 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE CITY = 'Migrane';

PROCEDURE SUB49 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE EMPNAME IS NULL;

PROCEDURE SUB50 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF
                    WHERE CITY IS NULL;

PROCEDURE SUB51 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB54 SQLCODE SQLSTATE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.94Quellennavigators  ]