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: xts746.cob   Sprache: Cobol

rahmenlose Ansicht.mco DruckansichtPython {Python[90] Pl1[94] Latech[129]}zum Wurzelverzeichnis wechseln

-- SQL Test Suite, V6.0, SQL Module cdr029.mco
-- 59-byte ID
-- 
MODULE CDR029
LANGUAGE COBOL
AUTHORIZATION SCHANZLE

DECLARE KURSOR  CURSOR FOR SELECT KC, JUNK2
               FROM CPBASE, CPREF ORDER BY JUNK2, KC


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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      DELETE FROM CPBASE;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      DELETE FROM CPREF;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      INSERT INTO CPBASE VALUES (0, 'Zero');

PROCEDURE SUB5 SQLCODE SQLSTATE;
      INSERT INTO CPBASE VALUES (1, 'One');

PROCEDURE SUB6 SQLCODE SQLSTATE;
      INSERT INTO CPREF VALUES (0, 'Zero 2');

PROCEDURE SUB7 SQLCODE SQLSTATE;
      INSERT INTO CPREF VALUES (1, 'One 2');

PROCEDURE SUB8 SQLCODE SQLSTATE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM CPBASE, CPREF;

PROCEDURE SUB9 SQLCODE SQLSTATE;
    OPEN KURSOR;

PROCEDURE SUB10 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

PROCEDURE SUB12 SQLCODE SQLSTATE;
      INSERT INTO SUN.TESTREPORT
                      VALUES('0522','fail','MCO');

PROCEDURE SUB13 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB14 SQLCODE SQLSTATE;
      DELETE FROM RET_CATALOG;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 0, NULL, 100.00, NULL, 'D1', NULL);

PROCEDURE SUB17 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB18 SQLCODE SQLSTATE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1 FROM RET_CATALOG
                 ;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      DELETE FROM RET_CATALOG;

PROCEDURE SUB20 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 0, 80.00, 100.00, 20.00, 'D1', 'Jan 20 1993')
                 ;

PROCEDURE SUB22 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 1, 80.00, 100.00, 20.00, NULL, 'Jan 20 1993')
                 ;

PROCEDURE SUB24 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB25 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 2, 80.00, 100.00, 20.00, 'D1', NULL);

PROCEDURE SUB26 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB27 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 3, 80.00, 100.00, 20.00, NULL, NULL);

PROCEDURE SUB28 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 4, 80.00, 100.00, 20.00, 'F1', 'Jan 20 1993')
                 ;

PROCEDURE SUB30 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB31 SQLCODE SQLSTATE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1 FROM RET_CATALOG
                 ;

PROCEDURE SUB32 SQLCODE SQLSTATE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1 FROM RET_CATALOG
                    WHERE PRODUCT_ID = 0;

PROCEDURE SUB33 SQLCODE SQLSTATE;
      DELETE FROM RET_CATALOG;

PROCEDURE SUB34 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB35 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 0, 80.00, 100.00, 20.00, 'F2', 'Jan 20 1993')
                 ;

PROCEDURE SUB36 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB37 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 1, 80.00, 100.00, 20.00, NULL, 'Jan 20 1993')
                 ;

PROCEDURE SUB38 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB39 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 2, NULL, 100.00, NULL, 'F2', 'Jan 20 1993');

PROCEDURE SUB40 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB41 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 3, NULL, 100.00, NULL, NULL, 'Jan 20 1993');

PROCEDURE SUB42 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 4, 10010.00, 10110.00, 100.00, 'F2', 'Jan 20 1993')
                 ;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB45 SQLCODE SQLSTATE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1 FROM RET_CATALOG
                 ;

PROCEDURE SUB46 SQLCODE SQLSTATE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1 FROM RET_CATALOG
                    WHERE PRODUCT_ID = 0;

PROCEDURE SUB47 SQLCODE SQLSTATE;
      DELETE FROM RET_CATALOG;

PROCEDURE SUB48 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB49 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 0, 100.01, 100.00, -0.01, 'F3', 'Jan 20 1993')
                 ;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB51 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 1, 80.00, NULL, NULL, 'F3', 'Jan 20 1993');

PROCEDURE SUB52 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB53 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 2, NULL, 100.00, NULL, 'F3', 'Jan 20 1993');

PROCEDURE SUB54 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB55 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 3, NULL, NULL, NULL, 'F3', 'Jan 20 1993');

PROCEDURE SUB56 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB57 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 4, 10010.00, 10110.00, 100.00, 'F3', 'Jan 20 1993')
                 ;

PROCEDURE SUB58 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB59 SQLCODE SQLSTATE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1 FROM RET_CATALOG
                 ;

PROCEDURE SUB60 SQLCODE SQLSTATE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1 FROM RET_CATALOG
                    WHERE PRODUCT_ID = 0;

PROCEDURE SUB61 SQLCODE SQLSTATE;
      DELETE FROM RET_CATALOG;

PROCEDURE SUB62 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB63 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 0, 100.01, 100.00, 0.00, 'F3', 'Jan 20 1993')
                 ;

PROCEDURE SUB64 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB65 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 1, NULL, 100.00, 20.00, 'F3', 'Jan 20 1993');

PROCEDURE SUB66 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB67 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 2, 80.00, NULL, 20.00, 'F3', 'Jan 20 1993');

PROCEDURE SUB68 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB69 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 3, 80.00, 100.00, NULL, 'F3', 'Jan 20 1993');

PROCEDURE SUB70 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB71 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 4, NULL, NULL, 20.00, 'F3', 'Jan 20 1993');

PROCEDURE SUB72 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB73 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 5, 80.00, NULL, NULL, 'F3', 'Jan 20 1993');

PROCEDURE SUB74 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB75 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 6, NULL, 100.00, NULL, 'F3', 'Jan 20 1993');

PROCEDURE SUB76 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB77 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 7, NULL, NULL, NULL, 'F3', 'Jan 20 1993');

PROCEDURE SUB78 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB79 SQLCODE SQLSTATE;
      INSERT INTO RET_CATALOG VALUES
                    (0, 8, 80.00, 100.00, 20.00, 'F3', 'Jan 20 1993')
                 ;

PROCEDURE SUB80 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB81 SQLCODE SQLSTATE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1 FROM RET_CATALOG
                 ;

PROCEDURE SUB82 SQLCODE SQLSTATE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1 FROM RET_CATALOG
                    WHERE PRODUCT_ID = 0;

PROCEDURE SUB83 SQLCODE SQLSTATE;
      DELETE FROM RET_CATALOG;

PROCEDURE SUB84 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB85 SQLCODE SQLSTATE;
      INSERT INTO SUN.TESTREPORT
                      VALUES('0537','pass','MCO');

PROCEDURE SUB86 SQLCODE SQLSTATE;
      INSERT INTO SUN.TESTREPORT
                      VALUES('0537','fail','MCO');

PROCEDURE SUB87 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB88 SQLCODE SQLSTATE;
      DELETE FROM RET_CATALOG;

PROCEDURE SUB89 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB90 SQLCODE SQLSTATE;
      INSERT INTO SALE_ITEMS VALUES
                    (0, 0, NULL, 100.00, NULL, 'D1', NULL);

PROCEDURE SUB91 SQLCODE SQLSTATE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1 FROM RET_CATALOG
                 ;

PROCEDURE SUB92 SQLCODE SQLSTATE;
      INSERT INTO SALE_ITEMS VALUES
                    (0, 0, 80.00, 100.00, 20.00, 'D1', NULL);

PROCEDURE SUB93 SQLCODE SQLSTATE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1 FROM RET_CATALOG
                 ;

PROCEDURE SUB94 SQLCODE SQLSTATE;
      INSERT INTO SALE_ITEMS VALUES
                    (0, 0, 99.00, 100.00, 1.00, 'D1', NULL);

PROCEDURE SUB95 SQLCODE SQLSTATE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1 FROM RET_CATALOG
                 ;

PROCEDURE SUB96 SQLCODE SQLSTATE;
      DELETE FROM RET_CATALOG;

PROCEDURE SUB97 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB98 SQLCODE SQLSTATE;
      INSERT INTO SUN.TESTREPORT
                      VALUES('0538','pass','MCO');

PROCEDURE SUB99 SQLCODE SQLSTATE;
      INSERT INTO SUN.TESTREPORT
                      VALUES('0538','fail','MCO');

PROCEDURE SUB100 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB101 SQLCODE SQLSTATE
    :CPNUM1 NUMERIC (9)
    :JUNKIT CHAR(10);
      FETCH KURSOR INTO :CPNUM1, :JUNKIT;

[ Verzeichnis aufwärts0.180unsichere Verbindung  ]