zOs/SQL/WIESEW

   EXEC SQL
   SELECT DISTINCT TIS.TIS_UWI                                          00107700
   INTO :h_tis
   FROM                                                                 00107900
       VPC003A1A TIS ,
     (
     SELECT DISTINCT
     CIF,PROSPECT,SKA
     FROM
       (                                                                00108000
       SELECT   DISTINCT                                                00108500
                  CUSTOMERNO          AS CIF,                           00108600
                  PROSPECTID          AS PROSPECT,                      00108700
                  SAFEKEEPING_ACC_NO  AS SKA                            00108800
       FROM     oa1a01.VPC401A1A                                        00108900
       UNION                                                            00109000
       SELECT   DISTINCT                                                00109100
                  ACC.CUSTOMERNO      AS CIF,                           00109200
                  ACC.PROSPECTID      AS PROSPECT,                      00109300
                  PF.SAFEKEEPINGACCNO AS SKA                            00109400
       FROM     oa1a01.VPC400A1A PF,                                    00109500
                oa1a01.VPC402A1A ACC                                    00109600
       WHERE    PF.PORTFOLIOID = ACC.PORTFOLIOID                        00109700
       UNION                                                            00109800
       SELECT   DISTINCT                                                00109900
                  GM.CUSTOMERNO       AS CIF,                           00110000
                  GM.PROSPECTID       AS PROSPECT,                      00110100
                  PF.PORTFOLIOID      AS SKA                            00110200
       FROM     oa1a01.VPC400A1A PF,                                    00110300
                oa1a01.VPC403A1A GM                                     00110400
       WHERE    PF.PORTFOLIOID = GM.PORTFOLIOID                         00110500
       ) AS T1                                                          00110600
     ) AS T2                                                            00110700
     WHERE ((T2.CIF      = TIS.CIF# AND TIS.TIS_LEVEL = '2')            00110900
     OR     (T2.SKA      = TIS.SKA# AND TIS.TIS_LEVEL = '3')            00111000
     OR     (T2.PROSPECT = TIS.PROSPECT# AND TIS.TIS_LEVEL = '4'))      00111100
     AND TIS.TIS_UWI = :vpc003pa.tis_uwi                                00111200
     WITH UR;