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: dml069.cob   Sprache: Unknown

rahmenlose Ansicht.mco DruckansichtPython {Python[88] Pl1[122] Latech[125]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

-- SQL Test Suite, V6.0, SQL Module xts732.mco
-- 59-byte ID
-- 
MODULE XTS732
LANGUAGE COBOL
AUTHORIZATION CTS1

DECLARE ALPHA  CURSOR
               FOR TEST6740A NATURAL FULL JOIN TEST6740B FOR READ ONLY
            
DECLARE BETA  CURSOR
               FOR TEST6740B NATURAL FULL JOIN TEST6740A FOR READ ONLY
            
DECLARE GAMMA  CURSOR
               FOR SELECT * FROM TESTV6740 ORDER BY VNUM1


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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT  COUNT(*) INTO :COUN
                    FROM TEST6740A NATURAL FULL OUTER JOIN TEST6740B;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN
                    FROM TEST6740A NATURAL FULL JOIN TEST6740B;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO TEST6740A VALUES (1,'AA');

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
    OPEN alpha;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :XTNUM1 NUMERIC (9),
    :XTCHAR1 CHAR(10),
    :XTCHAR2 CHAR(10),
    :INDIC1 NUMERIC (4));
      FETCH alpha 
                    INTO :XTNUM1, :XTCHAR1, :XTCHAR2:INDIC1;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      CLOSE alpha;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
    OPEN beta;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :XTNUM1 NUMERIC (9),
    :XTCHAR1 CHAR(10),
    :INDIC1 NUMERIC (4),
    :XTCHAR2 CHAR(10));
      FETCH beta 
                    INTO :XTNUM1, :XTCHAR1:INDIC1, :XTCHAR2;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      CLOSE beta;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      INSERT INTO TEST6740B VALUES (1,'WW');

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      INSERT INTO TEST6740B VALUES (3,'ZZ');

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN
                    FROM TEST6740A NATURAL FULL OUTER JOIN TEST6740B;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN
                    FROM TEST6740B NATURAL FULL JOIN TEST6740A;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      INSERT INTO TEST6740C VALUES(6,'PP');

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      INSERT INTO TEST6740C VALUES(7,'QQ');

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      CREATE VIEW TESTV6740 (VNUM1, VCHAR1, VNUM2,
                  VCHAR2)
                    AS TEST6740C NATURAL FULL OUTER JOIN TEST6740A;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
    OPEN gamma;

PROCEDURE SUB23 (SQLCODE, SQLSTATE,
    :XTNUM1 NUMERIC (9),
    :XTCHAR1 CHAR(10),
    :XTNUM2 NUMERIC (9),
    :XTCHAR2 CHAR(10));
      FETCH gamma INTO :XTNUM1, :XTCHAR1, :XTNUM2,
                  :XTCHAR2;

PROCEDURE SUB24 (SQLCODE, SQLSTATE,
    :XTNUM1 NUMERIC (9),
    :XTCHAR1 CHAR(10),
    :XTNUM2 NUMERIC (9),
    :XTCHAR2 CHAR(10));
      FETCH gamma INTO :XTNUM1, :XTCHAR1, :XTNUM2,
                  :XTCHAR2;

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      CLOSE gamma;

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      DELETE FROM TEST6740A;

PROCEDURE SUB28 (SQLCODE, SQLSTATE);
      DELETE FROM TEST6740B;

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      DELETE FROM TEST6740C;

PROCEDURE SUB30 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB31 (SQLCODE, SQLSTATE);
      DROP VIEW TESTV6740 CASCADE;

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB33 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7032','pass','MCO');

PROCEDURE SUB34 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7032','fail','MCO');

PROCEDURE SUB35 (SQLCODE, SQLSTATE);
      COMMIT WORK;

[ Verzeichnis aufwärts0.83unsichere Verbindung  ]