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

rahmenlose Ansicht.mco DruckansichtLex {Lex[77] Fortran[105] CS[112]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

-- SQL Test Suite, V6.0, SQL Module cdr020.mco
-- 59-byte ID

MODULE CDR020
LANGUAGE COBOL
AUTHORIZATION SUN



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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO SIZ3_P3
                  VALUES (0,'CC');

PROCEDURE SUB2 SQLCODE;
      UPDATE SIZ3_P3
                  SET F1 = F1 + 1;

PROCEDURE SUB3 SQLCODE
    :MAX1 NUMERIC (9)
    :MIN1 NUMERIC (9);
      SELECT MAX(F1),MIN(F1) INTO  :MAX1, :MIN1 FROM SIZ3_P3
                 ;

PROCEDURE SUB4 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0369','pass','MCO');

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0369','fail','MCO');

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE;
      UPDATE SIZ2_F3
                  SET F1 = F1 + 1;

PROCEDURE SUB9 SQLCODE
    :MAX1 NUMERIC (9)
    :MIN1 NUMERIC (9);
      SELECT MAX(F1),MIN(F1) INTO  :MAX1, :MIN1 FROM SIZ2_F3
                 ;

PROCEDURE SUB10 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB11 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0370','pass','MCO');

PROCEDURE SUB12 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0370','fail','MCO');

PROCEDURE SUB13 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB14 SQLCODE;
      INSERT INTO MID1
                  VALUES(1,1);

PROCEDURE SUB15 SQLCODE;
      INSERT INTO MID1
                  VALUES(2,1);

PROCEDURE SUB16 SQLCODE;
      INSERT INTO MID1
                  VALUES(3,2);

PROCEDURE SUB17 SQLCODE;
      INSERT INTO MID1
                  VALUES(4,3);

PROCEDURE SUB18 SQLCODE;
      INSERT INTO MID1
                  VALUES(5,1);

PROCEDURE SUB19 SQLCODE;
      UPDATE MID1
                  SET P_KEY = P_KEY + 1,
                  F_KEY = F_KEY + 1;

PROCEDURE SUB20 SQLCODE
    :MAX1 NUMERIC (9)
    :MIN1 NUMERIC (9)
    :MAX2 NUMERIC (9)
    :MIN2 NUMERIC (9);
      SELECT MAX(F_KEY),MIN(F_KEY),MAX(P_KEY),MIN(P_KEY)
                  INTO  :MAX1, :MIN1, :MAX2, :MIN2 FROM MID1;

PROCEDURE SUB21 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0371','pass','MCO');

PROCEDURE SUB23 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0371','fail','MCO');

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB25 SQLCODE;
      DELETE FROM STAFF_C
                  WHERE EMPNUM = 'E2' OR MGR = 'E2';

PROCEDURE SUB26 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*)
                  INTO  :COUNT1 FROM STAFF_C;

PROCEDURE SUB27 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB28 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0372','pass','MCO');

PROCEDURE SUB29 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0372','fail','MCO');

PROCEDURE SUB30 SQLCODE;
      COMMIT WORK;

[ Verzeichnis aufwärts0.65unsichere Verbindung  ]