Quelle  reporta.mco   Sprache: unbekannt

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;