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:   Sprache: Cobol

Untersuchungsergebnis.mco Download desScala {Scala[65] Pl1[104] Latech[121]}zum Wurzelverzeichnis wechseln

-- SQL Test Suite, V6.0, SQL Module mpb011.mco
-- 59-byte ID
-- 
MODULE MPB011
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE C01111  CURSOR FOR S01111
DECLARE C01112  CURSOR FOR S01112
DECLARE C01114  CURSOR FOR S01114
DECLARE C01113  CURSOR FOR S01113
DECLARE C01121  CURSOR FOR S01121
DECLARE C01122  CURSOR FOR S01122


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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :PROGNO NUMERIC (9);
      SELECT TOKEN_NO INTO :INT1 FROM HU.TOKENS
                    WHERE PROG_NO = :PROGNO;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB7 SQLCODE SQLSTATE;
    OPEN C01111;

PROCEDURE SUB8 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C01111 INTO :INT1;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      CLOSE C01111;

PROCEDURE SUB10 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB11 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB12 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB14 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S01112 FROM :DSTMT;

PROCEDURE SUB15 SQLCODE SQLSTATE;
    OPEN C01112;

PROCEDURE SUB16 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C01112 INTO :INT1;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      CLOSE C01112;

PROCEDURE SUB18 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB19 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB20 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB23 SQLCODE SQLSTATE;
    OPEN C01114;

PROCEDURE SUB24 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C01114 INTO :INT1;

PROCEDURE SUB25 SQLCODE SQLSTATE;
      CLOSE C01114;

PROCEDURE SUB26 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB28 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C01114 INTO :INT1;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      CLOSE C01114;

PROCEDURE SUB30 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB31 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S01113 FROM :DSTMT;

PROCEDURE SUB32 SQLCODE SQLSTATE;
    OPEN C01113;

PROCEDURE SUB33 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C01113 INTO :INT1;

PROCEDURE SUB34 SQLCODE SQLSTATE;
      CLOSE C01113;

PROCEDURE SUB35 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB37 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C01114 INTO :INT1;

PROCEDURE SUB38 SQLCODE SQLSTATE;
      CLOSE C01114;

PROCEDURE SUB39 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB40 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB41 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB42 SQLCODE SQLSTATE
    :PROGNO NUMERIC (9);
      UPDATE TOKENS SET TOKEN_NO = TOKEN_NO + 1
                    WHERE PROG_NO = :PROGNO;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB45 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB46 SQLCODE SQLSTATE;
      INSERT INTO TESTREPORT
                      VALUES('0629','pass','MCO');

PROCEDURE SUB47 SQLCODE SQLSTATE;
      INSERT INTO TESTREPORT
                      VALUES('0629','fail','MCO');

PROCEDURE SUB48 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB49 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :PROGNO NUMERIC (9);
      SELECT TOKEN_NO INTO :INT1 FROM HU.TOKENS
                    WHERE PROG_NO = :PROGNO;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB51 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S01121 FROM :DSTMT;

PROCEDURE SUB52 SQLCODE SQLSTATE;
    OPEN C01121;

PROCEDURE SUB53 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C01121 INTO :INT1;

PROCEDURE SUB54 SQLCODE SQLSTATE;
      CLOSE C01121;

PROCEDURE SUB55 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB56 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB57 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB58 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB59 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      PREPARE S01122 FROM :DSTMT;

PROCEDURE SUB60 SQLCODE SQLSTATE;
    OPEN C01122;

PROCEDURE SUB61 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C01122 INTO :INT1;

PROCEDURE SUB62 SQLCODE SQLSTATE;
      CLOSE C01122;

PROCEDURE SUB63 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB64 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB65 SQLCODE SQLSTATE
    :DSTMT CHAR(50);
      EXECUTE IMMEDIATE :DSTMT;

PROCEDURE SUB66 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB67 SQLCODE SQLSTATE
    :PROGNO NUMERIC (9);
      UPDATE TOKENS SET TOKEN_NO = TOKEN_NO + 1
                    WHERE PROG_NO = :PROGNO;

PROCEDURE SUB68 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB69 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB70 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB71 SQLCODE SQLSTATE;
      INSERT INTO TESTREPORT
                      VALUES('0630','pass','MCO');

PROCEDURE SUB72 SQLCODE SQLSTATE;
      INSERT INTO TESTREPORT
                      VALUES('0630','fail','MCO');

PROCEDURE SUB73 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB74 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB75 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      UPDATE HU.WORKS
                    SET HOURS = -1 WHERE HOURS = :INT1;

[ zur Elbe Produktseite wechseln0.114Quellennavigators  ]