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: yts753.mco   Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: Python {Python[74] Fortran[92] Ada[106]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

-- SQL Test Suite, V6.0, SQL Module dml156.mco
-- 59-byte ID
-- 
MODULE DML156
LANGUAGE COBOL
AUTHORIZATION FLATER



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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15611 FROM :DSTMT;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15612 FROM :DSTMT;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15613 FROM :DSTMT;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15613A FROM :DSTMT;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15614 FROM :DSTMT;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15615 FROM :DSTMT;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15616 FROM :DSTMT;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15617 FROM :DSTMT;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S15618 FROM :DSTMT;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      DELETE FROM CONCATBUF;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM HU.STAFF' ||
                    ' WHERE (TIME ''07:04:07'', ' ||
                    ' INTERVAL ''5'' HOUR) OVERLAPS' ||
                    ' (TIME ''08:00:00'', ?)'
                    );

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      PREPARE S15619 FROM :LONGST;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S1561A FROM :DSTMT;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S1561B FROM :DSTMT;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      DELETE FROM CONCATBUF;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      INSERT INTO CONCATBUF VALUES (
                    'SELECT GRADE FROM HU.STAFF' ||
                    ' WHERE ? NOT BETWEEN (?) AND (?) OR' ||
                    ' GRADE < 12'
                    );

PROCEDURE SUB20 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB21 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      PREPARE S1561C FROM :LONGST;

PROCEDURE SUB22 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S1561D FROM :DSTMT;

PROCEDURE SUB23 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S1561E FROM :DSTMT;

PROCEDURE SUB24 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S1561F FROM :DSTMT;

PROCEDURE SUB25 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S1561G FROM :DSTMT;

PROCEDURE SUB26 (SQLCODE, SQLSTATE,
    :DSTMT CHAR(50));
      PREPARE S1561H FROM :DSTMT;

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB28 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0855','pass','MCO');

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0855','fail','MCO');

PROCEDURE SUB30 (SQLCODE, SQLSTATE);
      COMMIT WORK;

[ Dauer der Verarbeitung: 0.173 Sekunden  ]