zOs/SQL/EXPVIIB

DECLARE GLOBAL TEMPORARY TABLE
    IDS (GM CHAR(16) ,ZV CHAR(16))
;
  CREATE UNIQUE INDEX SESSION.XIDS
      ON SESSION.IDS (GM ASC, zv asc);
EXPLAIN PLAN SET QUERYNO = 9901 FOR
INSERT INTO SESSION.IDS
WITH J AS
  ( SELECT T.*
        FROM OA1A.TMF150A1 T, OA1A.VMF202A1
        WHERE MF150085 IN(0,10)
          AND MF150084 IN(0,2)
          AND MF150060 BETWEEN TEV_TIMESTAMP AND
  TRANSLATE('7890-45-12',TEV_DAT_NEXT,'1234567890')!!'-23.00.00.000000'
          AND MF150003 IN('CNGM1','CNZV1')
          AND MF150009 = '00805'
  )
SELECT MIN(gm), zv
FROM (
SELECT GM.MF150001 gm  , MIN(ZV.MF150001) zv
    FROM J GM, J ZV
          WHERE   GM.MF150003 = 'CNGM1'
            AND   ZV.MF150003 = 'CNZV1'
            AND   GM.MF150009 = '00805'
            AND   ZV.MF150009 = '00805'
            AND   ABS(ZV.MF150018) BETWEEN ABS(GM.MF150018)
                                   AND     ABS(GM.MF150018) * 1.06
    GROUP BY GM.MF150001
     ) g1
GROUP BY ZV
;
select * from plan_view5a
    where queryno in ( 9901    )
    order by applname, progname, queryNo, qblockno, planno
;
rollback
;
x
select * from session.ids;
SELECT * FROM OA1A.VMF150A1V
    WHERE ID_MITTELFLUSS IN (SELECT Distinct gm FROM SESSION.IDS)
union SELECT * FROM OA1A.VMF150A1V
    WHERE ID_MITTELFLUSS IN (SELECT Distinct zv FROM SESSION.IDS)
    WITH UR
;
rollback
;
xelete   FROM OA1P.VMF150A1V
    WHERE ID_MITTELFLUSS IN (SELECT gm FROM SESSION.IDS )
;
delete   FROM OA1P.VMF150A1V
     where ID_MITTELFLUSS IN (SELECT zv FROM SESSION.IDS )
;
rollback
;