Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
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: yts795.cob   Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: Python {Python[181] Lex[229] BAT[236]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

-- SQL Test Suite, V6.0, SQL Module xts700.mco
-- 59-byte ID
-- 
MODULE XTS700
LANGUAGE COBOL
AUTHORIZATION CTS1

DECLARE ALPHA  CURSOR FOR SELECT SALARY, EMPNAME,
             HOURS, CITY
               FROM CTS1.STAFFb
               WHERE NULLIF(SALARY,HOURS) IS NULL
               ORDER BY EMPNAME
DECLARE BETA  CURSOR FOR SELECT
             SALARY,PNUM,HOURS,NULLIF(EMPNAME,CITY)
               FROM CTS1.STAFFb
               WHERE EMPNAME = CITY OR EMPNAME IS NULL 
               ORDER BY PNUM


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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      INSERT INTO STAFFb
                  VALUES(10000,'Kilroy',10000,'P4','Athens','M');

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      INSERT INTO STAFFb
                  VALUES(15000,'Nickos',20000,'P6','Nickos','M');

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO STAFFb
                  VALUES(NULL,'Nickos',NULL,'P5','Rhodes','M');

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO STAFFb
                  VALUES(10010,'George',NULL,'P7','Georgia','M');

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO STAFFb
                  VALUES(10005,NULL,30000,'P8',NULL,'M');

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO STAFFb
                  VALUES(10001,'Gregory',12000,'P9',NULL,'M');

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
    OPEN ALPHA;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :SAL NUMERIC (9),
    :ENAME CHAR(20),
    :EHOURS NUMERIC (9),
    :ECITY CHAR(15));
      FETCH ALPHA INTO :SAL, :ENAME, :EHOURS, :ECITY
                 ;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :SAL NUMERIC (9),
    :INDIC1 NUMERIC (4),
    :ENAME CHAR(20),
    :EHOURS NUMERIC (9),
    :INDIC2 NUMERIC (4),
    :ECITY CHAR(15));
      FETCH ALPHA INTO
                  :SAL:INDIC1,:ENAME,:EHOURS:INDIC2,:ECITY;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :SAL NUMERIC (9),
    :ENAME CHAR(20),
    :EHOURS NUMERIC (9),
    :ECITY CHAR(15));
      FETCH ALPHA INTO :SAL, :ENAME, :EHOURS, :ECITY
                 ;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      CLOSE ALPHA;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
    OPEN BETA;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :SAL NUMERIC (9),
    :EPNUM CHAR(3),
    :EHOURS NUMERIC (9),
    :NLRES CHAR(15),
    :INDIC1 NUMERIC (4));
      FETCH BETA INTO :SAL,:EPNUM,:EHOURS,:NLRES:INDIC1
                 ;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :SAL NUMERIC (9),
    :EPNUM CHAR(3),
    :EHOURS NUMERIC (9),
    :NLRES CHAR(15),
    :INDIC1 NUMERIC (4));
      FETCH BETA INTO :SAL,:EPNUM,:EHOURS,:NLRES:INDIC1
                 ;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :SAL NUMERIC (9),
    :EPNUM CHAR(3),
    :EHOURS NUMERIC (9),
    :NLRES CHAR(15),
    :INDIC1 NUMERIC (4));
      FETCH BETA INTO :SAL,:EPNUM,:EHOURS,:NLRES:INDIC1
                 ;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      CLOSE BETA;

PROCEDURE SUB19 (SQLCODE, SQLSTATE,
    :CNIF NUMERIC (9));
      SELECT SUM(NULLIF(NULLIF(SALARY,10000),20000))
                    INTO :CNIF FROM STAFFb;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7001','pass','MCO');

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7001','fail','MCO');

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      COMMIT WORK;

[ Dauer der Verarbeitung: 0.137 Sekunden  ]