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 Thinking Intellekt

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: Sprache: Unknown

Haftungsausschluß.mco KontaktText {Text[118] Python[139] Latech[158]}diese Dinge liegen außhalb unserer Verantwortung

MODULE REPORTA
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE SHOW_CLAIM  CURSOR FOR
               SELECT REPORTFEATURE.FEATURE1, FEATURENAME, BINDING1
               FROM FEATURE_CLAIMED, REPORTFEATURE, BINDING_CLAIMED
               WHERE REPORTFEATURE.FEATURE1
               = FEATURE_CLAIMED.FEATURE1
               ORDER BY 1, 2, 3
DECLARE ERROR1  CURSOR FOR
               SELECT TESTNO
               FROM TESTCASE
               WHERE TESTNO NOT IN
               (SELECT TESTNO FROM TESTFEATURE)
               ORDER BY TESTNO
DECLARE RUNALL_BAS  CURSOR FOR
               SELECT DISTINCT BINDING1, AUTHID, TESTPROG.PROG, P_NOTE
               FROM T_REQ, TESTPROG
               WHERE T_REQ.PROG = TESTPROG.PROG
               AND REQOPTNA IN ('OPT','REQ','UR')
               ORDER BY 1, 2, 3
DECLARE DELETE_TESTNO  CURSOR FOR
               SELECT DISTINCT TESTCASE.TESTNO, TESTCASE.PROG
               FROM TESTCASE, TESTPROG
               WHERE TESTCASE.PROG = TESTPROG.PROG
               AND TESTCASE.PROG IN
               (SELECT PROG FROM T_REQ)
               AND TESTCASE.TESTNO NOT IN
               (SELECT TESTNO FROM T_REQ)
               ORDER BY TESTNO
DECLARE F_REQ_CURSOR  CURSOR FOR
               SELECT * FROM F_REQ ORDER BY C1, P1, F1
DECLARE F_TEMP_CURSOR  CURSOR FOR
               SELECT * FROM F_TEMP ORDER BY C1, P1, F1
DECLARE R_STRUCTURE_CURSOR  CURSOR FOR
               SELECT * FROM R_STRUCTURE ORDER BY C1, P1, TESTNO

DECLARE T_REQ_CURSOR  CURSOR FOR
               SELECT * FROM T_REQ ORDER BY BINDING1, PROG, TESTNO


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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
    OPEN SHOW_CLAIM;

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :FEAT1 CHAR(4),
    :FEATUR CHAR(32),
    :BIND1 CHAR(3));
      FETCH SHOW_CLAIM INTO :FEAT1, :FEATUR, :BIND1
                 ;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      CLOSE SHOW_CLAIM;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
    OPEN ERROR1;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :TESTNO CHAR(4));
      FETCH ERROR1 INTO :TESTNO;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      CLOSE ERROR1;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      DELETE FROM F_REQ;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      DELETE FROM F_TEMP;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      INSERT INTO F_REQ
                    SELECT 'P998',FEATURE1,FEATURE1,0
                    FROM FEATURE_CLAIMED
                    WHERE FEATURE1 NOT LIKE 'P%';

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      INSERT INTO F_TEMP
                    SELECT FEATURE1,FEATURE1,FEATURE1,1
                    FROM FEATURE_CLAIMED
                    WHERE FEATURE1 LIKE 'P%'
                    AND FEATURE1 <> 'P998';

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      INSERT INTO F_REQ
                    SELECT C1,P1,CHILD_F,LVL
                    FROM F_TEMP, IMPLICATION
                    WHERE F1 = PARENT_F;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      DELETE FROM F_TEMP WHERE F1 IN
                    (SELECT PARENT_F FROM IMPLICATION);

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB19 (SQLCODE, SQLSTATE,
    :III NUMERIC (9));
      SELECT COUNT(*) INTO :III FROM F_TEMP;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      INSERT INTO F_TEMP
                    SELECT C1,F1,F1,LVL+1
                    FROM F_REQ
                    WHERE F1 LIKE 'P%';

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      INSERT INTO F_TEMP
                    SELECT C1,P1,F1,LVL
                    FROM F_REQ
                    WHERE F1 LIKE 'P%';

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      DELETE FROM F_REQ
                    WHERE F1 LIKE 'P%';

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB25 (SQLCODE, SQLSTATE,
    :III NUMERIC (9));
      SELECT COUNT(*) INTO :III FROM F_TEMP;

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      DELETE FROM R_STRUCTURE;

PROCEDURE SUB28 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      INSERT INTO R_STRUCTURE
                    SELECT DISTINCT C1, P1, TESTNO, LVL
                    FROM F_REQ, TESTFEATURE
                    WHERE FEATURE1 = F1;

PROCEDURE SUB30 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB31 (SQLCODE, SQLSTATE);
      DELETE FROM R_STRUCTURE
                    WHERE TESTNO IN
                    (SELECT TESTNO FROM TESTFEATURE
                    WHERE FEATURE1 NOT IN
                    (SELECT F1 FROM F_REQ));

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB33 (SQLCODE, SQLSTATE);
      DELETE FROM R_STRUCTURE
                    WHERE C1 <> 'P998'
                    AND TESTNO IN
                    (SELECT TESTNO FROM TESTFEATURE
                    WHERE FEATURE1 NOT IN
                    (SELECT F1 FROM F_REQ
                    WHERE F_REQ.C1 = R_STRUCTURE.C1
                    AND F_REQ.P1 = R_STRUCTURE.P1));

PROCEDURE SUB34 (SQLCODE, SQLSTATE);
      INSERT INTO F_TEMP (C1, P1, LVL)
                    SELECT C1, TESTNO, MAX (LVL)
                    FROM R_STRUCTURE
                    GROUP BY C1, TESTNO;

PROCEDURE SUB35 (SQLCODE, SQLSTATE);
      DELETE FROM R_STRUCTURE
                    WHERE C1 <> 'P998'
                    AND NOT EXISTS (SELECT * FROM F_TEMP
                    WHERE F_TEMP.C1 = R_STRUCTURE.C1
                    AND F_TEMP.P1 = R_STRUCTURE.TESTNO
                    AND F_TEMP.LVL = R_STRUCTURE.LVL);

PROCEDURE SUB36 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB37 (SQLCODE, SQLSTATE);
      DELETE FROM T_REQ;

PROCEDURE SUB38 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB39 (SQLCODE, SQLSTATE);
      INSERT INTO T_REQ
                    SELECT DISTINCT TESTCASE.TESTNO, TESTCASE.PROG,
                    BINDING1, 'REQ', '    '
                    FROM TESTCASE, R_STRUCTURE, BINDING_CLAIMED
                    WHERE TESTCASE.TESTNO = R_STRUCTURE.TESTNO;

PROCEDURE SUB40 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB41 (SQLCODE, SQLSTATE);
      UPDATE T_REQ SET REQOPTNA = 'NA'
                    WHERE BINDING1 IN ('PPA','MFO','MPA')
                    AND TESTNO > '0555'
                    AND TESTNO <> '0564'
                    AND PROG NOT BETWEEN 'flg010' AND 'flg013';

PROCEDURE SUB42 (SQLCODE, SQLSTATE);
      UPDATE T_REQ SET REQOPTNA = 'NA'
                    WHERE BINDING1 <> 'PC' AND BINDING1 <> 'PCO'
                    AND PROG LIKE 'xop%';

PROCEDURE SUB43 (SQLCODE, SQLSTATE);
      UPDATE T_REQ SET REQOPTNA = 'NA'
                    WHERE BINDING1 = 'PC'
                    AND TESTNO IN ('0712','0724','0725');

PROCEDURE SUB44 (SQLCODE, SQLSTATE);
      UPDATE T_REQ SET REQOPTNA = 'NA'
                    WHERE PROG LIKE 'cob%' AND BINDING1 <> 'PCO'
                    AND BINDING1 <> 'MCO'
                    OR PROG LIKE 'for%' AND BINDING1 <> 'PFO'
                    AND BINDING1 <> 'MFO'
                    OR PROG LIKE 'ccc%' AND BINDING1 <> 'PC'
                    AND BINDING1 <> 'MC'
                    OR PROG LIKE 'pas%' AND BINDING1 <> 'PPA'
                    AND BINDING1 <> 'MPA'
                    OR PROG LIKE 'ada%' AND BINDING1 <> 'PAD'
                    AND BINDING1 <> 'MAD'
                    OR PROG LIKE 'sql%' AND BINDING1 <> 'SQL';

PROCEDURE SUB45 (SQLCODE, SQLSTATE);
      UPDATE T_REQ SET REQOPTNA = 'NA'
                    WHERE BINDING1 NOT LIKE 'M%'
                    AND PROG     IN ('dml074','dml088','yts814');

PROCEDURE SUB46 (SQLCODE, SQLSTATE);
      UPDATE T_REQ SET REQOPTNA = 'NA'
                    WHERE BINDING1 NOT LIKE 'P%'
                    AND PROG IN ('dml017','dml063','dml067',
                    'dml071','flg010','flg013');

PROCEDURE SUB47 (SQLCODE, SQLSTATE);
      UPDATE T_REQ SET REQOPTNA = 'NA'
                    WHERE BINDING1 <> 'SQL' AND PROG = 'mpquic';

PROCEDURE SUB48 (SQLCODE, SQLSTATE);
      UPDATE T_REQ SET REQOPTNA = 'NA'
                    WHERE BINDING1 = 'SQL' AND 0 =
                    (SELECT ISQL_CT FROM TESTCASE
                    WHERE TESTCASE.TESTNO = T_REQ.TESTNO);

PROCEDURE SUB49 (SQLCODE, SQLSTATE);
      UPDATE T_REQ SET REQOPTNA = 'NA'
                    WHERE BINDING1 <> 'PC' AND BINDING1 <> 'MC'
                    AND PROG IN
                    ('dml092','dml093','dml129','dml146','dml155','isi008','ist008');

PROCEDURE SUB50 (SQLCODE, SQLSTATE);
      UPDATE T_REQ SET REQOPTNA = 'NA'
                    WHERE BINDING1 = 'MC'
                    AND TESTNO IN ('0183','0192','0193','0398','0399')
                 ;

PROCEDURE SUB51 (SQLCODE, SQLSTATE);
      UPDATE T_REQ SET REQOPTNA = 'NA'
                    WHERE BINDING1 = 'PCO' AND TESTNO = '0288';

PROCEDURE SUB52 (SQLCODE, SQLSTATE);
      UPDATE T_REQ SET REQOPTNA = 'NA'
                    WHERE BINDING1 = 'MCO'
                    AND TESTNO IN ('0185','0206','0207');

PROCEDURE SUB53 (SQLCODE, SQLSTATE);
      UPDATE T_REQ
                    SET REQOPTNA = 'OPT'
                    WHERE (BINDING1 = 'MCO' OR BINDING1 = 'PCO')
                    AND TESTNO = '0157';

PROCEDURE SUB54 (SQLCODE, SQLSTATE);
      UPDATE T_REQ SET REQOPTNA = 'NA'
                    WHERE BINDING1 = 'MFO'
                    AND TESTNO IN ('0217','0223','0392');

PROCEDURE SUB56 (SQLCODE, SQLSTATE);
      UPDATE T_REQ SET REQOPTNA = 'NA'
                    WHERE BINDING1 = 'MPA'
                    AND TESTNO IN ('0238','0239');

PROCEDURE SUB57 (SQLCODE, SQLSTATE);
      UPDATE T_REQ SET REQOPTNA = 'NA'
                    WHERE BINDING1 = 'PAD'
                    AND TESTNO IN ('0445','0456');

PROCEDURE SUB58 (SQLCODE, SQLSTATE);
      UPDATE T_REQ SET REQOPTNA = 'NA'
                    WHERE BINDING1 = 'MAD'
                    AND TESTNO IN ('0424','0445');

PROCEDURE SUB59 (SQLCODE, SQLSTATE);
      UPDATE T_REQ
                    SET REQOPTNA = 'DL' WHERE REQOPTNA <> 'NA'
                      AND TESTNO IN ('DL#1','DL#2');

PROCEDURE SUB60 (SQLCODE, SQLSTATE);
      UPDATE T_REQ
                    SET REQOPTNA = 'UR' WHERE REQOPTNA <> 'NA'
                      AND TESTNO IN ('UR#1','UR#2');

PROCEDURE SUB61 (SQLCODE, SQLSTATE);
      UPDATE T_REQ
                    SET REQOPTNA = 'WD' WHERE REQOPTNA <> 'NA'
                      AND TESTNO IN ('WD#1','WD#2');

PROCEDURE SUB62 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB63 (SQLCODE, SQLSTATE);
    OPEN RUNALL_BAS;

PROCEDURE SUB64 (SQLCODE, SQLSTATE,
    :BIND1 CHAR(3),
    :UIDX CHAR(18),
    :PROG CHAR(6),
    :TPNOTE CHAR(10),
    :INDIC1 NUMERIC (4));
      FETCH RUNALL_BAS INTO :BIND1, :UIDX, :PROG,
                  :TPNOTE :INDIC1;

PROCEDURE SUB65 (SQLCODE, SQLSTATE);
      CLOSE RUNALL_BAS;

PROCEDURE SUB66 (SQLCODE, SQLSTATE);
    OPEN DELETE_TESTNO;

PROCEDURE SUB67 (SQLCODE, SQLSTATE,
    :TESTNO CHAR(4),
    :PROG CHAR(6));
      FETCH DELETE_TESTNO INTO :TESTNO, :PROG;

PROCEDURE SUB68 (SQLCODE, SQLSTATE);
      CLOSE DELETE_TESTNO;

PROCEDURE SUB69 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB70 (SQLCODE, SQLSTATE);
    OPEN F_REQ_CURSOR;

PROCEDURE SUB71 (SQLCODE, SQLSTATE,
    :FEAT1 CHAR(4),
    :FEAT2 CHAR(4),
    :FEAT3 CHAR(4),
    :LVL NUMERIC (9));
      FETCH F_REQ_CURSOR INTO :FEAT1, :FEAT2, :FEAT3,
                  :LVL;

PROCEDURE SUB72 (SQLCODE, SQLSTATE);
      CLOSE F_REQ_CURSOR;

PROCEDURE SUB73 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB74 (SQLCODE, SQLSTATE);
    OPEN F_TEMP_CURSOR;

PROCEDURE SUB75 (SQLCODE, SQLSTATE,
    :FEAT1 CHAR(4),
    :FEAT2 CHAR(4),
    :FEAT3 CHAR(4),
    :LVL NUMERIC (9));
      FETCH F_TEMP_CURSOR INTO :FEAT1, :FEAT2, :FEAT3,
                  :LVL;

PROCEDURE SUB76 (SQLCODE, SQLSTATE);
      CLOSE F_TEMP_CURSOR;

PROCEDURE SUB77 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB78 (SQLCODE, SQLSTATE);
    OPEN R_STRUCTURE_CURSOR;

PROCEDURE SUB79 (SQLCODE, SQLSTATE,
    :FEAT1 CHAR(4),
    :FEAT2 CHAR(4),
    :FEAT3 CHAR(4),
    :LVL NUMERIC (9));
      FETCH R_STRUCTURE_CURSOR INTO :FEAT1, :FEAT2,
                  :FEAT3, :LVL;

PROCEDURE SUB80 (SQLCODE, SQLSTATE);
      CLOSE R_STRUCTURE_CURSOR;

PROCEDURE SUB81 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB82 (SQLCODE, SQLSTATE);
    OPEN T_REQ_CURSOR;

PROCEDURE SUB83 (SQLCODE, SQLSTATE,
    :TESTNO CHAR(4),
    :PROG CHAR(6),
    :BIND1 CHAR(3),
    :REQOPT CHAR(3),
    :RESULT CHAR(4));
      FETCH T_REQ_CURSOR INTO :TESTNO, :PROG, :BIND1,
                  :REQOPT, :RESULT;

PROCEDURE SUB84 (SQLCODE, SQLSTATE);
      CLOSE T_REQ_CURSOR;

PROCEDURE SUB85 (SQLCODE, SQLSTATE);
      COMMIT WORK;