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

Untersuchungsergebnis.mco Download desScala {Scala[93] Latech[105] CS[171]}zum Wurzelverzeichnis wechseln

-- SQL Test Suite, V6.0, SQL Module dml112.mco
-- 59-byte ID
-- 
MODULE DML112
LANGUAGE COBOL
AUTHORIZATION FLATER

DECLARE C11211  CURSOR FOR
               SELECT ITEMKEY FROM MERCH WHERE SOLD IS NOT NULL
DECLARE C11212  CURSOR FOR
               SELECT EXTRACT (HOUR FROM AVG (DWAIT))
               FROM MERCH, TURNAROUND WHERE
               MERCH.ITEMKEY = TURNAROUND.ITEMKEY OR
               TURNAROUND.ITEMKEY NOT IN
               (SELECT ITEMKEY FROM MERCH)
DECLARE WWW  CURSOR FOR
               SELECT TRIM ('X' FROM SPONSOR)
               FROM WEIRDPAD
               WHERE TRIM (NAAM) = 'KEITH'


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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      CREATE TABLE MERCH (
                    ITEMKEY INT,
                    ORDERED DATE,
                    RDATE DATE,
                    RTIME TIME,
                    SOLD TIMESTAMP);

PROCEDURE SUB4 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      CREATE TABLE TURNAROUND (
                    ITEMKEY INT,
                    MWAIT INTERVAL MONTH,
                    DWAIT INTERVAL DAY TO HOUR);

PROCEDURE SUB6 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      CREATE VIEW INVENTORY AS
                    SELECT MERCH.ITEMKEY AS ITEMKEY, ORDERED,
                    MWAIT, DWAIT FROM MERCH, TURNAROUND COR1 WHERE RDATE
                    IS NOT NULL AND SOLD IS NULL AND
                    MERCH.ITEMKEY = COR1.ITEMKEY
                    UNION
                    SELECT ITEMKEY, ORDERED,
                    CAST (NULL AS INTERVAL MONTH),
                    CAST (NULL AS INTERVAL DAY TO HOUR) FROM
                    MERCH WHERE RDATE IS NOT NULL AND SOLD IS NULL
                    AND MERCH.ITEMKEY NOT IN (SELECT ITEMKEY
                    FROM TURNAROUND);

PROCEDURE SUB8 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      INSERT INTO MERCH VALUES (
                    0, DATE '1993-11-23',
                    NULL, NULL, NULL);

PROCEDURE SUB10 SQLCODE SQLSTATE
    :CHTIME CHAR(8)
    :INDIC1 NUMERIC (4);
      INSERT INTO MERCH VALUES (
                    1, DATE '1993-12-10',
                    DATE '1994-01-03',
                    CAST (:CHTIME:INDIC1 AS TIME), NULL);

PROCEDURE SUB11 SQLCODE SQLSTATE;
      INSERT INTO MERCH VALUES (
                    2, DATE '1993-12-11',
                    NULL, NULL,
                    CAST ('TIMESTAMP ''1993-12-11 13:00:00''' AS TIMESTAMP))
                 ;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      INSERT INTO MERCH VALUES (
                    4, DATE '1993-01-26', DATE '1993-01-27',
                    NULL, NULL);

PROCEDURE SUB13 SQLCODE SQLSTATE;
      INSERT INTO TURNAROUND VALUES (
                    2, INTERVAL '1' MONTH, INTERVAL '20:0' DAY TO HOUR)
                 ;

PROCEDURE SUB14 SQLCODE SQLSTATE
    :CHTIME CHAR(8)
    :INDIC1 NUMERIC (4);
      INSERT INTO TURNAROUND VALUES (
                    5, INTERVAL '5' MONTH,
                    CAST (:CHTIME:INDIC1 AS INTERVAL DAY TO HOUR));

PROCEDURE SUB15 SQLCODE SQLSTATE;
      INSERT INTO TURNAROUND VALUES (
                    6, INTERVAL '2' MONTH, NULL);

PROCEDURE SUB16 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM
                    MERCH A, MERCH B WHERE A.SOLD = B.SOLD;

PROCEDURE SUB17 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM
                    MERCH A, MERCH B WHERE A.RTIME = B.RTIME;

PROCEDURE SUB18 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM
                    MERCH WHERE RDATE IS NULL;

PROCEDURE SUB19 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM
                    TURNAROUND WHERE DWAIT IS NOT NULL;

PROCEDURE SUB20 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      SELECT EXTRACT (DAY FROM RDATE) INTO :INT1:INDIC1
                    FROM MERCH, TURNAROUND WHERE MERCH.ITEMKEY =
                    TURNAROUND.ITEMKEY;

PROCEDURE SUB21 SQLCODE SQLSTATE;
    OPEN C11211;

PROCEDURE SUB22 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C11211 INTO :INT1;

PROCEDURE SUB23 SQLCODE SQLSTATE;
    OPEN C11212;

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

PROCEDURE SUB25 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM INVENTORY WHERE MWAIT IS NULL
                    AND DWAIT IS NULL;

PROCEDURE SUB26 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB27 SQLCODE SQLSTATE;
      DROP TABLE MERCH CASCADE;

PROCEDURE SUB28 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      DROP TABLE TURNAROUND CASCADE;

PROCEDURE SUB30 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB31 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0621','pass','MCO');

PROCEDURE SUB32 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0621','fail','MCO');

PROCEDURE SUB33 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB34 SQLCODE SQLSTATE;
      CREATE TABLE JNULL1 (C1 INT, C2 INT)
                 ;

PROCEDURE SUB35 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB36 SQLCODE SQLSTATE;
      CREATE TABLE JNULL2 (D1 INT, D2 INT)
                 ;

PROCEDURE SUB37 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB38 SQLCODE SQLSTATE;
      CREATE VIEW JNULL3 AS
                    SELECT C1, D1, D2 FROM JNULL1 LEFT OUTER JOIN JNULL2
                    ON C2 = D2;

PROCEDURE SUB39 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB40 SQLCODE SQLSTATE;
      CREATE VIEW JNULL4 AS
                    SELECT D1, D2 AS C2 FROM JNULL2;

PROCEDURE SUB41 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB42 SQLCODE SQLSTATE;
      CREATE VIEW JNULL5 AS
                    SELECT C1, D1, C2 FROM JNULL1 RIGHT OUTER JOIN JNULL4
                    USING (C2);

PROCEDURE SUB43 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      CREATE VIEW JNULL6 AS
                    SELECT * FROM JNULL1 LEFT OUTER JOIN JNULL4
                    USING (C2);

PROCEDURE SUB45 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB46 SQLCODE SQLSTATE;
      INSERT INTO JNULL1 VALUES (NULL, NULL);

PROCEDURE SUB47 SQLCODE SQLSTATE;
      INSERT INTO JNULL1 VALUES (1, NULL);

PROCEDURE SUB48 SQLCODE SQLSTATE;
      INSERT INTO JNULL1 VALUES (NULL, 1);

PROCEDURE SUB49 SQLCODE SQLSTATE;
      INSERT INTO JNULL1 VALUES (1, 1);

PROCEDURE SUB50 SQLCODE SQLSTATE;
      INSERT INTO JNULL1 VALUES (2, 2);

PROCEDURE SUB51 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM JNULL3;

PROCEDURE SUB52 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM JNULL3
                    WHERE D2 IS NOT NULL OR D1 IS NOT NULL;

PROCEDURE SUB53 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM JNULL5;

PROCEDURE SUB54 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM
                    JNULL6
                    WHERE C2 IS NOT NULL;

PROCEDURE SUB55 SQLCODE SQLSTATE;
      INSERT INTO JNULL2
                    SELECT * FROM JNULL1;

PROCEDURE SUB56 SQLCODE SQLSTATE;
      UPDATE JNULL2
                    SET D2 = 1 WHERE D2 = 2;

PROCEDURE SUB57 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM JNULL3;

PROCEDURE SUB58 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM JNULL3 WHERE C1 IS NULL;

PROCEDURE SUB59 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM JNULL3 WHERE D1 IS NULL;

PROCEDURE SUB60 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM JNULL3 WHERE D2 IS NULL;

PROCEDURE SUB61 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT AVG(D1) * 10 INTO :INT1
                    FROM JNULL3;

PROCEDURE SUB62 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM JNULL6
                    WHERE C2 = 1;

PROCEDURE SUB63 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM JNULL6
                    WHERE C2 IS NULL;

PROCEDURE SUB64 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM JNULL6
                    WHERE C2 = C1 AND
                    D1 IS NULL;

PROCEDURE SUB65 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB66 SQLCODE SQLSTATE;
      DROP TABLE JNULL1 CASCADE;

PROCEDURE SUB67 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB68 SQLCODE SQLSTATE;
      DROP TABLE JNULL2 CASCADE;

PROCEDURE SUB69 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB70 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0623','pass','MCO');

PROCEDURE SUB71 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0623','fail','MCO');

PROCEDURE SUB72 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB73 SQLCODE SQLSTATE;
      CREATE TABLE CHANGG
                    (NAAM CHAR (14) NOT NULL PRIMARY KEY, AGE INT);

PROCEDURE SUB74 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB75 SQLCODE SQLSTATE;
      CREATE VIEW CHANGGVIEW AS
                    SELECT * FROM CHANGG;

PROCEDURE SUB76 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB77 SQLCODE SQLSTATE;
      ALTER TABLE CHANGG
                    DROP NAAM RESTRICT;

PROCEDURE SUB78 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB79 SQLCODE SQLSTATE;
      INSERT INTO CHANGG VALUES ('RALPH', 
                  22);

PROCEDURE SUB80 SQLCODE SQLSTATE;
      INSERT INTO CHANGG VALUES ('RUDOLPH', 
                  54);

PROCEDURE SUB81 SQLCODE SQLSTATE;
      INSERT INTO CHANGG VALUES ('QUEEG', 
                  33);

PROCEDURE SUB82 SQLCODE SQLSTATE;
      INSERT INTO CHANGG VALUES ('BESSIE', 
                  106);

PROCEDURE SUB83 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM CHANGG WHERE DIVORCES IS NULL;

PROCEDURE SUB84 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB85 SQLCODE SQLSTATE;
      ALTER TABLE CHANGG ADD NUMBRR CHAR(11)
                 ;

PROCEDURE SUB86 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB87 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT MAX(AGE) INTO :INT1 FROM CHANGGVIEW
                 ;

PROCEDURE SUB88 SQLCODE SQLSTATE
    :CH1 CHAR(11);
      SELECT NUMBRR INTO :CH1 FROM CHANGGVIEW;

PROCEDURE SUB89 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB90 SQLCODE SQLSTATE;
      DROP VIEW CHANGGVIEW CASCADE;

PROCEDURE SUB91 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB92 SQLCODE SQLSTATE;
      ALTER TABLE CHANGG
                    ADD COLUMN DIVORCES INT DEFAULT 0;

PROCEDURE SUB93 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB94 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM CHANGG WHERE NUMBRR IS NOT NULL
                    OR DIVORCES <> 0;

PROCEDURE SUB95 SQLCODE SQLSTATE;
      UPDATE CHANGG
                    SET NUMBRR = '837-47-1847', DIVORCES = 3
                    WHERE NAAM = 'RUDOLPH';

PROCEDURE SUB96 SQLCODE SQLSTATE;
      UPDATE CHANGG
                    SET NUMBRR = '738-47-1847', DIVORCES = NULL
                    WHERE NAAM = 'QUEEG';

PROCEDURE SUB97 SQLCODE SQLSTATE;
      DELETE FROM CHANGG
                    WHERE NUMBRR IS NULL;

PROCEDURE SUB98 SQLCODE SQLSTATE;
      INSERT INTO CHANGG (NAAM, AGE, NUMBRR)
                    VALUES ('GOOBER', 16, '000-10-0001');

PROCEDURE SUB99 SQLCODE SQLSTATE;
      INSERT INTO CHANGG
                    VALUES ('OLIVIA', 20, '111-11-1111', 0);

PROCEDURE SUB100 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :CH1 CHAR(11)
    :INT2 NUMERIC (9);
      SELECT AGE, NUMBRR, DIVORCES
                    INTO :INT1, :CH1, :INT2
                    FROM CHANGG
                    WHERE NAAM = 'RUDOLPH';

PROCEDURE SUB101 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :CH1 CHAR(11)
    :INT2 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      SELECT AGE, NUMBRR, DIVORCES
                    INTO :INT1, :CH1, :INT2:INDIC1
                    FROM CHANGG
                    WHERE NAAM = 'QUEEG';

PROCEDURE SUB102 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :CH1 CHAR(11)
    :INT2 NUMERIC (9);
      SELECT AGE, NUMBRR, DIVORCES
                    INTO :INT1, :CH1, :INT2
                    FROM CHANGG
                    WHERE NAAM = 'GOOBER';

PROCEDURE SUB103 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :CH1 CHAR(11)
    :INT2 NUMERIC (9);
      SELECT AGE, NUMBRR, DIVORCES
                    INTO :INT1, :CH1, :INT2
                    FROM CHANGG
                    WHERE NAAM = 'OLIVIA';

PROCEDURE SUB104 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM CHANGG;

PROCEDURE SUB105 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB106 SQLCODE SQLSTATE;
      ALTER TABLE CHANGG DROP AGE CASCADE
                 ;

PROCEDURE SUB107 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB108 SQLCODE SQLSTATE;
      ALTER TABLE CHANGG DROP COLUMN DIVORCES
                  RESTRICT;

PROCEDURE SUB109 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB110 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM CHANGG WHERE AGE > 30;

PROCEDURE SUB111 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM CHANGG WHERE DIVORCES IS NULL;

PROCEDURE SUB112 SQLCODE SQLSTATE
    :CH2 CHAR(14);
      SELECT NAAM INTO :CH2
                    FROM CHANGG
                    WHERE NUMBRR LIKE '%000%';

PROCEDURE SUB113 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB114 SQLCODE SQLSTATE;
      CREATE TABLE REFERENCE_CHANGG (
                    NAAM CHAR (14) NOT NULL PRIMARY KEY
                    REFERENCES CHANGG);

PROCEDURE SUB115 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB116 SQLCODE SQLSTATE;
      INSERT INTO REFERENCE_CHANGG VALUES 
                  ('NO SUCH NAAM');

PROCEDURE SUB117 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB118 SQLCODE SQLSTATE;
      ALTER TABLE CHANGG
                    DROP NAAM RESTRICT;

PROCEDURE SUB119 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB120 SQLCODE SQLSTATE;
      ALTER TABLE CHANGG
                    DROP NAAM CASCADE;

PROCEDURE SUB121 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB122 SQLCODE SQLSTATE;
      INSERT INTO REFERENCE_CHANGG VALUES 
                  ('NO SUCH NAAM');

PROCEDURE SUB123 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB124 SQLCODE SQLSTATE;
      ALTER TABLE CHANGG
                    DROP NUMBRR RESTRICT;

PROCEDURE SUB125 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB126 SQLCODE SQLSTATE;
      DROP TABLE CHANGG CASCADE;

PROCEDURE SUB127 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB128 SQLCODE SQLSTATE;
      DROP TABLE REFERENCE_CHANGG CASCADE
                 ;

PROCEDURE SUB129 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB130 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0625','pass','MCO');

PROCEDURE SUB131 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0625','fail','MCO');

PROCEDURE SUB132 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB133 SQLCODE SQLSTATE;
      CREATE TABLE OBITUARIES (
                    NAAM CHAR (14) NOT NULL PRIMARY KEY,
                    BORN DATE DEFAULT DATE '1880-01-01',
                    DIED DATE DEFAULT CURRENT_DATE,
                    ENTERED TIMESTAMP DEFAULT CURRENT_TIMESTAMP,
                    TESTING1 DATE,
                    TESTING2 TIMESTAMP);

PROCEDURE SUB134 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB135 SQLCODE SQLSTATE;
      CREATE TABLE BIRTHS (
                    NAAM CHAR (14) NOT NULL PRIMARY KEY,
                    CHECKIN TIME (0)
                    DEFAULT TIME '00:00:00',
                    LABOR INTERVAL HOUR
                    DEFAULT INTERVAL '4' HOUR,
                    CHECKOUT TIME
                    DEFAULT CURRENT_TIME,
                    TESTING TIME);

PROCEDURE SUB136 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB137 SQLCODE SQLSTATE;
      INSERT INTO OBITUARIES (NAAM, TESTING1, TESTING2)
                    VALUES ('KEITH', CURRENT_DATE, CURRENT_TIMESTAMP)
                 ;

PROCEDURE SUB138 SQLCODE SQLSTATE;
      INSERT INTO BIRTHS (NAAM, TESTING)
                    VALUES ('BJORN', CURRENT_TIME);

PROCEDURE SUB139 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT EXTRACT (HOUR FROM CHECKIN) +
                    EXTRACT (MINUTE FROM CHECKIN) +
                    EXTRACT (SECOND FROM CHECKIN)
                    INTO :INT1 FROM BIRTHS;

PROCEDURE SUB140 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT EXTRACT (HOUR FROM LABOR) INTO :INT1 FROM
                  BIRTHS;

PROCEDURE SUB141 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT (*) INTO :INT1 FROM BIRTHS
                    WHERE TESTING <> CHECKOUT OR CHECKOUT IS NULL;

PROCEDURE SUB142 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT (*) INTO :INT1 FROM OBITUARIES
                    WHERE BORN <> DATE '1880-01-01'
                    OR BORN IS NULL
                    OR DIED <> TESTING1
                    OR DIED IS NULL
                    OR ENTERED <> TESTING2
                    OR ENTERED IS NULL;

PROCEDURE SUB143 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB144 SQLCODE SQLSTATE;
      DROP TABLE BIRTHS CASCADE;

PROCEDURE SUB145 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB146 SQLCODE SQLSTATE;
      DROP TABLE OBITUARIES CASCADE;

PROCEDURE SUB147 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB148 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0631','pass','MCO');

PROCEDURE SUB149 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0631','fail','MCO');

PROCEDURE SUB150 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB151 SQLCODE SQLSTATE;
      CREATE TABLE WEIRDPAD (
                    NAAM CHAR (14),
                    SPONSOR CHAR (14),
                    PADCHAR CHAR (1));

PROCEDURE SUB152 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB153 SQLCODE SQLSTATE;
      INSERT INTO WEIRDPAD (NAAM, SPONSOR) VALUES
                    ('KATEBBBBBBBBBB', '000000000KEITH');

PROCEDURE SUB154 SQLCODE SQLSTATE;
      INSERT INTO WEIRDPAD (NAAM, SPONSOR) VALUES
                    (' KEITH ', 'XXXXKATEXXXXXX');

PROCEDURE SUB155 SQLCODE SQLSTATE
    :CH2 CHAR(14);
      SELECT TRIM ('X' FROM SPONSOR) INTO :CH2
                    FROM WEIRDPAD
                    WHERE TRIM (NAAM) = 'KEITH';

PROCEDURE SUB156 SQLCODE SQLSTATE;
    OPEN WWW;

PROCEDURE SUB157 SQLCODE SQLSTATE
    :CH2 CHAR(14);
      FETCH WWW INTO :CH2;

PROCEDURE SUB158 SQLCODE SQLSTATE
    :CH2 CHAR(14);
      SELECT TRIM (LEADING 'X' FROM SPONSOR) INTO :CH2
                    FROM WEIRDPAD
                    WHERE TRIM (TRAILING FROM NAAM) = ' KEITH';

PROCEDURE SUB159 SQLCODE SQLSTATE
    :CH2 CHAR(14);
      SELECT TRIM (LEADING 'X' FROM SPONSOR) INTO :CH2
                    FROM WEIRDPAD
                    WHERE TRIM (TRAILING 'X' FROM SPONSOR) = 'XXXXKATE'
                 ;

PROCEDURE SUB160 SQLCODE SQLSTATE
    :CH10 CHAR(10);
      SELECT TRIM (LEADING FROM B.NAAM) INTO :CH10 FROM
                  WEIRDPAD A,
                    WEIRDPAD B WHERE TRIM (BOTH 'B' FROM A.NAAM)
                    = TRIM (BOTH 'X' FROM B.SPONSOR);

PROCEDURE SUB161 SQLCODE SQLSTATE
    :CH9 CHAR(9)
    :INDIC1 NUMERIC (4);
      SELECT TRIM (LEADING FROM B.NAAM) INTO :CH9
                  :INDIC1 FROM WEIRDPAD A,
                    WEIRDPAD B WHERE TRIM (BOTH 'B' FROM A.NAAM)
                    = TRIM (BOTH 'X' FROM B.SPONSOR);

PROCEDURE SUB162 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM WEIRDPAD A,
                    WEIRDPAD B WHERE TRIM (LEADING '0' FROM A.SPONSOR)
                    = TRIM (' ' FROM B.NAAM);

PROCEDURE SUB163 SQLCODE SQLSTATE
    :CH2 CHAR(14);
      SELECT TRIM ('BB' FROM NAAM)
                    INTO :CH2 FROM WEIRDPAD WHERE NAAM LIKE 'KATE%';

PROCEDURE SUB164 SQLCODE SQLSTATE
    :CH3 CHAR(2)
    :CH2 CHAR(14);
      SELECT TRIM (:CH3 FROM NAAM)
                    INTO :CH2 FROM WEIRDPAD WHERE NAAM LIKE 'KATE%';

PROCEDURE SUB165 SQLCODE SQLSTATE;
      INSERT INTO WEIRDPAD (NAAM, SPONSOR)
                    SELECT DISTINCT TRIM (LEADING 'D' FROM HU.STAFF.CITY), 
                    TRIM (TRAILING 'n' FROM PTYPE)
                    FROM HU.STAFF, HU.PROJ 
                    WHERE EMPNAME = 'Alice';

PROCEDURE SUB166 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM WEIRDPAD;

PROCEDURE SUB167 SQLCODE SQLSTATE
    :CHX CHAR(1);
      UPDATE WEIRDPAD
                    SET SPONSOR = TRIM (:CHX FROM SPONSOR),
                    NAAM = TRIM ('B' FROM NAAM);

PROCEDURE SUB168 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM WEIRDPAD
                    WHERE NAAM = 'KATE' OR SPONSOR = 'KATE';

PROCEDURE SUB169 SQLCODE SQLSTATE
    :CH2 CHAR(14);
      DELETE FROM WEIRDPAD WHERE
                    TRIM(LEADING 'K' FROM :CH2) = TRIM('T' FROM SPONSOR)
                 ;

PROCEDURE SUB170 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM WEIRDPAD;

PROCEDURE SUB171 SQLCODE SQLSTATE;
      UPDATE WEIRDPAD
                    SET PADCHAR = '0'
                    WHERE SPONSOR = '000000000KEITH'
                    OR NAAM    = 'eale';

PROCEDURE SUB172 SQLCODE SQLSTATE;
      UPDATE WEIRDPAD
                    SET SPONSOR = NULL
                    WHERE SPONSOR = 'Desig';

PROCEDURE SUB173 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM WEIRDPAD
                    WHERE TRIM (PADCHAR FROM SPONSOR) IS NULL;

PROCEDURE SUB174 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM WEIRDPAD
                    WHERE TRIM (PADCHAR FROM SPONSOR) = 'KEITH';

PROCEDURE SUB175 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB176 SQLCODE SQLSTATE;
      DROP TABLE WEIRDPAD CASCADE;

PROCEDURE SUB177 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB178 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0633','pass','MCO');

PROCEDURE SUB179 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0633','fail','MCO');

PROCEDURE SUB180 SQLCODE SQLSTATE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.123Quellennavigators  ]