zOs/SQL/VVVRZZ

  SET CURRENT SQLID='OA1P';
  SET CURRENT PATH = "SYSIBM","SYSFUN","SYSPROC","A828386" ;
  CREATE VIEW OA1P.VVV_XPS_VPOCG001_V02 AS
    SELECT T1.IDSYMBOL, T1.SCHEMESYMBOL, T3.PORTFOLIOFUNCTP,
           T5.PORTFOLIOGROUPNO, T5.PORTFOLIOCRITSETNO,
           T5.PORTFOLIOCRITNO, T3.GROUPNUMBER, T3.PORTFOLIOSTRATDATE,
           T3.VALIDFROMDATE, T3.VALIDUNTILDATE,
           T3.CREATETIMESTAMP CREATETIMESTAMP_PG,
           T3.UPDATETIMESTAMP UPDATETIMESTAMP_PG,
           T4.CREATETIMESTAMP CREATETIMESTAMP_PS,
           T4.UPDATETIMESTAMP UPDATETIMESTAMP_PS,
           T5.CREATETIMESTAMP CREATETIMESTAMP_PC,
           T5.UPDATETIMESTAMP UPDATETIMESTAMP_PC, T4.RUNNINGNUMBER,
           T4.INVESTMENTAMOUNT, T4.INVESTMENTQUOTETP,
           T4.INVESTMENTCURRENCY, T7.IDSYMBOL INVESTCURR_I2,
           T4.MININVESTMENTAMT, T4.MININVESTQUOTETP,
           T4.MININVESTMENTCURR, T8.IDSYMBOL MININVESTCURR_I2,
           T4.MAXINVESTMENTAMT, T4.MAXINVESTQUOTETP,
           T4.MAXINVESTMENTCURR, T9.IDSYMBOL MAXINVESTCURR_I2,
           T5.PORTFOLIOCRITTYPE, T5.ISEXCLUDED, T5.GEOGRAPHICUNIT,
           T6.SHORTNAME_G, T6.SHORTNAME_E, T6.SHORTNAME_F,
           T6.SHORTNAME_I, T6.SHORTNAME_N, T5.DESCRIPTION,
           T3.PROVIDERTYPE
      FROM VDPS2.VTINSTRIDENT T1
           INNER JOIN
           VDPS2.VTINSTRUMENT T2
           ON T2.INSTRUMENTID = T1.INSTRUMENTID AND (T2.ROWSTATUS IS
           NULL  OR T2.ROWSTATUS <> 2)
           INNER JOIN
           OA1P.TVV_VTPORTFOLIOGROUP T3
           ON T3.INSTRUMENTID = T2.INSTRUMENTID
           INNER JOIN
           OA1P.TVV_VTPORTFOLCRITSET T4
           ON T4.INSTRUMENTID = T3.INSTRUMENTID AND T4.
           PORTFOLIOGROUPNO = T3.PORTFOLIOGROUPNO
           INNER JOIN
           OA1P.TVV_VTPORTFOLCRITERIA T5
           ON T5.INSTRUMENTID = T4.INSTRUMENTID AND T5.
           PORTFOLIOGROUPNO = T4.PORTFOLIOGROUPNO AND T5.
           PORTFOLIOCRITSETNO = T4.PORTFOLIOCRITSETNO AND T5.
           PORTFOLIOCRITTYPE = 6
           LEFT OUTER JOIN
           VDPS2.VTGEOUNIT T6
           ON T6.GEOUNITID = T5.GEOGRAPHICUNIT AND (T6.ROWSTATUS IS
           NULL  OR T6.ROWSTATUS <> 2)
           LEFT OUTER JOIN
           VDPS2.VTINSTRIDENT T7
           ON T7.INSTRUMENTID = T4.INVESTMENTCURRENCY AND T7.
           SCHEMESYMBOL = 'I2' AND T7.ROWSTATUS = 1
           LEFT OUTER JOIN
           VDPS2.VTINSTRIDENT T8
           ON T8.INSTRUMENTID = T4.MININVESTMENTCURR AND T8.
           SCHEMESYMBOL = 'I2' AND T8.ROWSTATUS = 1
           LEFT OUTER JOIN
           VDPS2.VTINSTRIDENT T9
           ON T9.INSTRUMENTID = T4.MAXINVESTMENTCURR AND T9.
           SCHEMESYMBOL = 'I2' AND T9.ROWSTATUS = 1
      WHERE T1.ROWSTATUS = 1 ;
  COMMIT;