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

Untersuchungsergebnis.mco Download desPython {Python[76] Pl1[116] CS[131]}zum Wurzelverzeichnis wechseln

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

DECLARE BRAD  CURSOR FOR
               SELECT EMPNUM, EMPNAME, GRADE, CITY
               FROM HU.VSTAFF3 WHERE EMPNUM = 'E1'
DECLARE MAGENTA  CURSOR FOR
               SELECT EMPNUM, EMPNAME
               FROM HU.VSTAFF3


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

PROCEDURE SUB2 SQLCODE
    :MPNM CHAR(3)
    :MPNA CHAR(20)
    :GRD NUMERIC (9)
    :CTY CHAR(15);
      SELECT EMPNUM, EMPNAME, GRADE, CITY
                    INTO :MPNM, :MPNA, :GRD, :CTY
                    FROM HU.STAFF3 WHERE EMPNUM = 'E1';

PROCEDURE SUB3 SQLCODE;
      UPDATE HU.STAFF3
                    SET EMPNUM = 'E0'
                    WHERE EMPNUM = 'E1';

PROCEDURE SUB4 SQLCODE;
      UPDATE HU.STAFF3
                    SET EMPNAME = 'Larry'
                    WHERE EMPNUM = 'E0';

PROCEDURE SUB5 SQLCODE;
      UPDATE HU.STAFF3
                    SET GRADE = 15;

PROCEDURE SUB6 SQLCODE;
      UPDATE HU.STAFF3
                    SET CITY = 'Greenmount';

PROCEDURE SUB7 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM HU.STAFF3 WHERE CITY = 'Greenmount'
                    OR GRADE = 15;

PROCEDURE SUB8 SQLCODE;
      INSERT INTO HU.STAFF3
                    VALUES ('E6','Mickey',12,'Nice');

PROCEDURE SUB9 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT FROM HU.STAFF3
                 ;

PROCEDURE SUB10 SQLCODE;
      DELETE FROM HU.STAFF3;

PROCEDURE SUB11 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT FROM HU.STAFF3
                 ;

PROCEDURE SUB12 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB13 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0472','pass','MCO');

PROCEDURE SUB14 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0472','fail','MCO');

PROCEDURE SUB15 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE
    :MPNM CHAR(3)
    :MPNA CHAR(20)
    :GRD NUMERIC (9)
    :CTY CHAR(15);
      SELECT EMPNUM, EMPNAME, GRADE, CITY
                    INTO :MPNM, :MPNA, :GRD, :CTY
                    FROM HU.VSTAFF3 WHERE EMPNUM = 'E1';

PROCEDURE SUB17 SQLCODE;
      UPDATE HU.VSTAFF3
                    SET EMPNUM = 'E0'
                    WHERE EMPNUM = 'E1';

PROCEDURE SUB18 SQLCODE;
      UPDATE HU.VSTAFF3
                    SET EMPNAME = 'Larry'
                    WHERE EMPNUM = 'E0';

PROCEDURE SUB19 SQLCODE;
      UPDATE HU.VSTAFF3
                    SET GRADE = 15;

PROCEDURE SUB20 SQLCODE;
      UPDATE HU.VSTAFF3
                    SET CITY = 'Greenmount';

PROCEDURE SUB21 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM HU.VSTAFF3 WHERE CITY = 'Greenmount'
                    OR GRADE = 15;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO HU.VSTAFF3
                    VALUES ('E6','Mickey',12,'Nice');

PROCEDURE SUB23 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT FROM HU.VSTAFF3
                 ;

PROCEDURE SUB24 SQLCODE;
      DELETE FROM HU.VSTAFF3;

PROCEDURE SUB25 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT FROM HU.VSTAFF3
                 ;

PROCEDURE SUB26 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB27 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0484','pass','MCO');

PROCEDURE SUB28 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0484','fail','MCO');

PROCEDURE SUB29 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB30 SQLCODE;
    OPEN BRAD;

PROCEDURE SUB31 SQLCODE
    :MPNM CHAR(3)
    :MPNA CHAR(20)
    :GRD NUMERIC (9)
    :CTY CHAR(15);
      FETCH BRAD INTO :MPNM, :MPNA, :GRD, :CTY;

PROCEDURE SUB32 SQLCODE;
      CLOSE BRAD;

PROCEDURE SUB33 SQLCODE;
    OPEN MAGENTA;

PROCEDURE SUB34 SQLCODE
    :MPNM CHAR(3)
    :MPNA CHAR(20);
      FETCH MAGENTA INTO :MPNM, :MPNA;

PROCEDURE SUB35 SQLCODE;
      UPDATE HU.VSTAFF3
                    SET EMPNUM = 'E0' WHERE CURRENT OF MAGENTA;

PROCEDURE SUB36 SQLCODE;
      UPDATE HU.VSTAFF3
                    SET EMPNAME = 'Janet'
                    WHERE CURRENT OF MAGENTA;

PROCEDURE SUB37 SQLCODE;
      UPDATE HU.VSTAFF3
                    SET GRADE = 15
                    WHERE CURRENT OF MAGENTA;

PROCEDURE SUB38 SQLCODE;
      UPDATE HU.VSTAFF3
                    SET CITY = 'Denton'
                    WHERE CURRENT OF MAGENTA;

PROCEDURE SUB39 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM HU.VSTAFF3 WHERE CITY = 'Denton'
                    OR GRADE = 15;

PROCEDURE SUB40 SQLCODE;
      DELETE FROM HU.VSTAFF3
                    WHERE CURRENT OF MAGENTA;

PROCEDURE SUB41 SQLCODE;
      CLOSE MAGENTA;

PROCEDURE SUB42 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT FROM HU.VSTAFF3
                 ;

PROCEDURE SUB43 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB44 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0485','pass','MCO');

PROCEDURE SUB45 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0485','fail','MCO');

PROCEDURE SUB46 SQLCODE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.111Quellennavigators  ]