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: README.html Sprache: Cobol

Untersuchungsergebnis.mco Download desPython {Python[75] Fortran[117] CS[130]}zum Wurzelverzeichnis wechseln

-- SQL Test Suite, V6.0, SQL Module xts701.mco
-- 59-byte ID
--
MODULE XTS701
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 T4
                    VALUES('This is the first compound character
                  literal.',1,NULL,NULL);

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      INSERT INTO T4
                    VALUES('Second character literal.',2,NULL,NULL);

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO T4
                    VALUES('Third character literal.',3,NULL,NULL);

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :NUM NUMERIC (9));
      SELECT NUM6
                    INTO   :NUM
                    FROM   T4
                    WHERE  STR110 = 'This is the compound '
                    'character literal.';

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   T4
                    WHERE  STR110 <> 'This is the first compound '
                    'character literal.';

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :NUM NUMERIC (9));
      SELECT NUM6
                    INTO   :NUM
                    FROM   T4
                    WHERE  NUM6 = 2 AND STR110 <= 'Second character
                  '--Comments here
                    'literal.';

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :NUM NUMERIC (9));
      SELECT NUM6
                    INTO   :NUM
                    FROM   T4
                    WHERE  STR110 = 'Third character literal.'--Comments here
                    'second fragment'
                    'third fragment.';

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :NUM NUMERIC (9));
      SELECT NUM6
                    INTO   :NUM
                    FROM   T4
                    WHERE  STR110 = 'First fragment'
                    'another fragment'--Comments
                    'Second character literal.'--Comments here
                    'fourth fragment.';

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :NUM NUMERIC (9));
      SELECT NUM6
                    INTO   :NUM
                    FROM   T4
                    WHERE  STR110 <= 'Second '
                    'chara'--Comments
                    'cter liter'--Comments here
                    'al.'
                    ' ';

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :NUM NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :NUM
                    FROM   T4
                    WHERE  STR110 < 'An indifferent'--Comments
                    ' charac'
                    'ter literal.';

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :NUM1 NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :NUM1
                    FROM   T4
                    WHERE  STR110 >= 'An indifferent'--Comments
                    ' charac'
                    'ter literal.';

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :NUM NUMERIC (9));
      SELECT NUM6
                    INTO   :NUM
                    FROM   T4
                    WHERE  STR110 = 'Second '
                    'chara'--Comments
                    'cter liter'--Comments here
                    'al.'
                    ' '--Comments
                    ' ';

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :NUM NUMERIC (9));
      SELECT NUM6
                    INTO   :NUM
                    FROM   T4
                    WHERE  NUM6 = 2 AND STR110 < 'Second '
                    'chara'--Comments
                    'cter literal.';

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      INSERT INTO T4
                    VALUES('This is the first fragment of a compound
                  character literal,' --Comments
                    ' and this is the second part.',11,NULL,'Compound '

                    --Comments

                    'literal.');

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      INSERT INTO T4
                    VALUES('This is a comp'
                    'ound character literal,'
                    ' in the second table row.',12,NULL,NULL);

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      INSERT INTO T4
                    VALUES('This is '
                    'a comp'
                    'ound '
                    'char'
                    'acter lit' -- Comments
                    'eral, '
                    -- Comments

                    'in the th'
                    'ird '
                    'table '
                    'row.',13,NULL,NULL);

PROCEDURE SUB23 (SQLCODE, SQLSTATE,
    :CCL1 CHAR(215),
    :CCL2 CHAR(209));
      SELECT STR110, COL4 INTO :CCL1, :CCL2 FROM T4
                  WHERE NUM6 = 11;

PROCEDURE SUB24 (SQLCODE, SQLSTATE,
    :CCL1 CHAR(215));
      SELECT STR110 INTO :CCL1 FROM T4 WHERE  NUM6 = 12
                 ;

PROCEDURE SUB25 (SQLCODE, SQLSTATE,
    :CCL1 CHAR(215));
      SELECT STR110
                    INTO   :CCL1
                    FROM   T4
                    WHERE  NUM6 = 13;

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB30 (SQLCODE, SQLSTATE,
    :CCL1 CHAR(215),
    :CCL2 CHAR(209));
      SELECT 'First fragment of a compound character
                  literal, '
                    --Comment1


                    --Comment2
                    'and second part.',
                    'This is the first fragment of a compound character
                  literal,'--...
                    ' this is the second,'


                    ' and this is the third part.'
                    INTO   :CCL1, :CCL2
                    FROM   CTS1.ECCO;

PROCEDURE SUB31 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB34 (SQLCODE, SQLSTATE);
      COMMIT WORK;