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 2 kB

Quelle cob002.mco Sprache: unbekannt

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

MODULE COB002
LANGUAGE COBOL
AUTHORIZATION HU

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

PROCEDURE SUB1 SQLCODE;
      DELETE FROM TEXT80
               ;

PROCEDURE SUB2 SQLCODE
    :IN80 CHAR(80);
      INSERT
                  INTO TEXT80(TEXXT)
                     VALUES ( :IN80)
               ;

PROCEDURE SUB3 SQLCODE
    :OUT80 CHAR(80);
      SELECT
                  TEXXT INTO  :OUT80 FROM TEXT80
               ;

PROCEDURE SUB4 SQLCODE;
      INSERT INTO TESTREPORT
                          VALUES('0186','pass','MCO');

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                       VALUES('0186','fail','MCO');

PROCEDURE SUB6 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE;
      DELETE
                   FROM TEXT132
               ;

PROCEDURE SUB8 SQLCODE
    :IN132 CHAR(132);
      INSERT
                 INTO TEXT132(TEXXT)
                     VALUES ( :IN132)
               ;

PROCEDURE SUB9 SQLCODE
    :OUT132 CHAR(132);
      SELECT
                  TEXXT INTO  :OUT132 FROM TEXT132
               ;

PROCEDURE SUB10 SQLCODE;
      INSERT INTO TESTREPORT
                        VALUES ('0187','pass','MCO');

PROCEDURE SUB11 SQLCODE;
      INSERT INTO TESTREPORT
                        VALUES ('0187','fail','MCO');

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB13 SQLCODE;
      DELETE
                 FROM TEXT240
               ;

PROCEDURE SUB14 SQLCODE
    :IN240 CHAR(240);
      INSERT
                  INTO TEXT240(TEXXT)
                     VALUES ( :IN240)
               ;

PROCEDURE SUB15 SQLCODE
    :OUT240 CHAR(240);
      SELECT
                  TEXXT INTO  :OUT240 FROM TEXT240
               ;

PROCEDURE SUB16 SQLCODE;
      INSERT INTO TESTREPORT
                        VALUES('0188','pass','MCO');

PROCEDURE SUB17 SQLCODE;
      INSERT INTO TESTREPORT
                        VALUES ('0188','fail','MCO');

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;