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 Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 10 kB

Quelle cdr029.mco Sprache: unbekannt

-- 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;