zOs/SQL/WIESES

   EXEC SQL
   SELECT TIS.TIS_UWI                                                   00107700
     from VPC003A1A TIS
     where TIS.TIS_UWI = :vpc003pa.tis_uwi                              00111200
     and ( exists (
       SELECT *                                                         00108500
          FROM     oa1a01.VPC401A1A d                                   00108900
          WHERE ((d.customerno  = TIS.CIF# AND TIS.TIS_LEVEL = '2')     00110900
            or (d.safekeeping_acc_no = TIS.SKA# AND TIS.TIS_LEVEL = '3')00111000
            OR (d.prospectid = TIS.PROSPECT# AND TIS.TIS_LEVEL = '4'))  00111100
     ) or exists (
       SELECT *                                                         00109100
         FROM     oa1a01.VPC400A1A PF,                                  00109500
                oa1a01.VPC402A1A ACC                                    00109600
         WHERE    PF.PORTFOLIOID = ACC.PORTFOLIOID                      00109700
           and ((ACC.CUSTOMERNO = TIS.CIF# AND TIS.TIS_LEVEL = '2')
             or (PF.SAFEKEEPINGACCNO = TIS.SKA# AND TIS.TIS_LEVEL = '3')
             or (ACC.PROSPECTID = TIS.PROSPECT# AND TIS.TIS_LEVEL ='4'))
     ) or exists (                                                      00109800
       SELECT *                                                         00109100
         FROM     oa1a01.VPC400A1A PF,
                  oa1a01.VPC403A1A GM
         WHERE    PF.PORTFOLIOID = GM.PORTFOLIOID
           and (( GM.CUSTOMERNO = TIS.CIF# AND TIS.TIS_LEVEL = '2')
             or (PF.PORTFOLIOID = TIS.SKA# AND TIS.TIS_LEVEL = '3')
             or (GM.PROSPECTID = TIS.PROSPECT# AND TIS.TIS_LEVEL ='4'))
     ))
     WITH UR;