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 Thinking Intellekt

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/COBOL/Test-Suite/SQL M/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: sdl025.cob Sprache: Unknown

rahmenlose Ansicht.mco DruckansichtPython {Python[110] Lex[128] Fortran[134]}Entwicklung

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

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      INSERT INTO TEST6840C
                    TABLE CL_STANDARD;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN FROM TEST6840C;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :C_NUM1 NUMERIC (9),
    :C_CH1 CHAR(10),
    :C_NUM2 NUMERIC (9),
    :C_CH2 CHAR(10));
      SELECT NUM_C1,CH_C1,NUM_C2,CH_C2
                    INTO :C_NUM1,:C_CH1,:C_NUM2,:C_CH2
                    FROM TEST6840C
                    WHERE NUM_C1 = 1000;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :C_NUM1 NUMERIC (9),
    :C_CH1 CHAR(10),
    :C_NUM2 NUMERIC (9),
    :C_CH2 CHAR(10));
      SELECT NUM_C1,CH_C1,NUM_C2,CH_C2
                    INTO :C_NUM1,:C_CH1,:C_NUM2,:C_CH2
                    FROM TEST6840C
                    WHERE NUM_C1 = 1001;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :C_NUM1 NUMERIC (9),
    :C_CH1 CHAR(10),
    :C_NUM2 NUMERIC (9),
    :C_CH2 CHAR(10));
      SELECT NUM_C1,CH_C1,NUM_C2,CH_C2
                    INTO :C_NUM1,:C_CH1,:C_NUM2,:C_CH2
                    FROM TEST6840C
                    WHERE NUM_C1 = 1002;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :C_NUM1 NUMERIC (9),
    :C_CH1 CHAR(10),
    :C_NUM2 NUMERIC (9),
    :C_CH2 CHAR(10));
      SELECT NUM_C1,CH_C1,NUM_C2,CH_C2
                    INTO :C_NUM1,:C_CH1,:C_NUM2,:C_CH2
                    FROM TEST6840C
                    WHERE NUM_C1 = 1003;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :C_NUM1 NUMERIC (9),
    :C_CH1 CHAR(10),
    :C_NUM2 NUMERIC (9),
    :C_CH2 CHAR(10));
      SELECT NUM_C1,CH_C1,NUM_C2,CH_C2
                    INTO :C_NUM1,:C_CH1,:C_NUM2,:C_CH2
                    FROM TEST6840C
                    WHERE NUM_C1 = 1004;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7027','NOGO','MCO');

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      COMMIT WORK;