Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 1 kB

SSL sdl026.mco Sprache: unbekannt

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

MODULE SDL026BYADDING12CH
LANGUAGE COBOL
AUTHORIZATION CANWEPARSELENGTH18

DECLARE CURSOR18LONGCURSOR CURSOR FOR
             SELECT CORRELATIONNAMES18.CHARS18NAME18CHARS
             FROM CHARACTER18TABLE18 CORRELATIONNAMES18
             WHERE CORRELATIONNAMES18.CHARS18NAME18CHARS
             = 'VAL4'

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

PROCEDURE SUB1 SQLCODE;
      DELETE FROM CHARACTER18TABLE18;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO CHARACTERS18VIEW18 (LONGNAME18LONGNAME)
                  VALUES ('VALU');

PROCEDURE SUB3 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB4 SQLCODE;
      UPDATE CHARACTER18TABLE18 SET CHARS18NAME18CHARS =
                  'VAL4' WHERE CHARS18NAME18CHARS = 'VALU';

PROCEDURE SUB5 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB6IS18CHARLENGTH SQLCODE
    :MAKE18BYADDING12CH CHAR(4)
    :INDIC1BYADDING12CH NUMERIC (4);
      SELECT * INTO  :MAKE18BYADDING12CH  :INDIC1BYADDING12CH  FROM
                  CANWEPARSELENGTH18.CHARACTERS18VIEW18;

PROCEDURE SUB7 SQLCODE;
    OPEN CURSOR18LONGCURSOR;

PROCEDURE SUB8 SQLCODE
    :TOBE18BYADDING12CH CHAR(4)
    :INDIC1BYADDING12CH NUMERIC (4);
      FETCH CURSOR18LONGCURSOR INTO
            :TOBE18BYADDING12CH  :INDIC1BYADDING12CH
                 ;

PROCEDURE SUB9 SQLCODE;
      CLOSE CURSOR18LONGCURSOR;

PROCEDURE SUB10 SQLCODE;
      DELETE FROM CHARACTER18TABLE18;

PROCEDURE SUB11 SQLCODE;
      INSERT INTO HU.TESTREPORT
                    VALUES('0237','pass','MCO');

PROCEDURE SUB12 SQLCODE;
      INSERT INTO HU.TESTREPORT
                    VALUES('0237','fail','MCO');

PROCEDURE SUB13 SQLCODE;
      COMMIT WORK;