Additional Blogs by Members
cancel
Showing results for 
Search instead for 
Did you mean: 
former_member184494
Active Contributor
0 Kudos

<body>
      <p align="center"><u><b><font face="Verdana" size="6">Custom Saved Views</font></b></u></p>
   <table align="center" border="0">
<tr></tr></table>

   <p><font face="Verdana">User: <u><b><%= sy-uname%></b></u></font></p>
      <table border=1 width="75%" cellspacing="1" cellpadding="1" style="border-collapse: collapse; border-color: #000000">
        <tr>
            <td bgcolor="#C0C0C0" align=center>
               <b> <font face="Verdana" size="2">#</font> </b>
            </td>
            <td bgcolor="#C0C0C0" align=center>
               <b> <font face="Verdana" size="2">Technical Name</font> </b>
            </td>
            <td bgcolor="#C0C0C0" align=center>
                <b> <font face="Verdana" size="2">Description</font> </b>
            </td>
        </tr>
        <%
          data: wa_view type ZVIEWDETAILS.
          loop at zviewde into wa_view.
        %>
            <tr>
                <td align=center width="10%">
                    <font face="Verdana" size="2">
                        <%= sy-tabix%>
                    </font>
                </td>
                <td style="padding-left:15px">
                    <a onclick="showview('<%= wa_view-viewid%>','<%= zhostname%>')" href="" title="Open the View '<%= wa_view-TXTLG%>'">
                        <font face="Verdana" size="2">
                            <%= wa_view-VIEWID%>
                        </font>
                    </a>
                </td>
                <td style="padding-left:15px">
                    <font face="Verdana" size="2">
                        <%= wa_view-TXTLG%>
                    </font>
                </td>
            </tr>
        <%

          endloop.
        %>
      </table>
      <p><font face="Verdana" size="2">Note: Click on the Technical Name to Open the View</font></p>
  </body>
</html></textarea><br/><br/>Then go to the Events Tab and go to OnInitialization and copy this code into the OnInitialization option</p><p> </p><p><textarea cols="50" rows="20">


*Select the saved views relevant for the user logged in
SELECT c~viewid c~infocube c~OWNER p~TXTLG
INTO corresponding fields of table zviewde
       FROM RSZWVIEW AS c
       INNER JOIN RSZWOBJTXT AS p ON p~OBJID = c~VIEWID
       WHERE c~OWNER = sy-uname
       AND c~OBJVERS = 'A'.
*Avoid exposing the actual server details if you have a Load balancer and *Dispatcher in place
select single HOST from HTTPURLLOC into zhostname.
if zhostname is INITIAL.
  CALL FUNCTION 'TH_GET_VIRT_HOST_DATA'
    EXPORTING
      PROTOCOL             = 1
      VIRT_IDX             = 0
*   LOCAL                = 1
   IMPORTING
     HOSTNAME             = zserver
     PORT                 = zport
* EXCEPTIONS
*   NOT_FOUND            = 1
*   INTERNAL_ERROR       = 2
*   OTHERS               = 3
            .
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  concatenate zserver
  ':'
  zport into zhostname.
endif.

Activate and Execute the BSP and if you have any saved views against your name you should be able to see them here


<img  width='"#C0C0C0" align=center>
                <b> <font face="Verdana" size="2">Description</font> </b>
            </td>
        </tr>
        <%
          data: wa_view type ZVIEWDETAILS.
          loop at zviewde into wa_view.
        %>
            <tr>
                <td align=center width="10%">
                    <font face="Verdana" size="2">
                        <%= sy-tabix%>
                    </font>
                </td>
                <td style="padding-left:15px">
                    <a onclick="showview('<%= wa_view-viewid%>','<%= zhostname%>')" href="" title="Open the View '<%= wa_view-TXTLG%>'">
                        <font face="Verdana" size="2">
                            <%= wa_view-VIEWID%>
                        </font>
                    </a>
                </td>
                <td style="padding-left:15px">
                    <font face="Verdana" size="2">
                        <%= wa_view-TXTLG%>
                    </font>
                </td>
            </tr>
        <%

          endloop.
        %>
      </table>
      <p><font face="Verdana" size="2">Note: Click on the Technical Name to Open the View</font></p>
  </body>
</html></textarea><br/><br/>Then go to the Events Tab and go to OnInitialization and copy this code into the OnInitialization option</p><p> </p><p><textarea cols="50" rows="20">

*Select the saved views relevant for the user logged in

SELECT cviewid cinfocube cOWNER pTXTLG

INTO corresponding fields of table zviewde

       FROM RSZWVIEW AS c

       INNER JOIN RSZWOBJTXT AS p ON pOBJID = cVIEWID

       WHERE c~OWNER = sy-uname

       AND c~OBJVERS = 'A'.

*Avoid exposing the actual server details if you have a Load balancer and *Dispatcher in place

select single HOST from HTTPURLLOC into zhostname.

if zhostname is INITIAL.

  CALL FUNCTION 'TH_GET_VIRT_HOST_DATA'

    EXPORTING

      PROTOCOL             = 1

      VIRT_IDX             = 0

  •   LOCAL                = 1

   IMPORTING

     HOSTNAME             = zserver

     PORT                 = zport

  • EXCEPTIONS

  •   NOT_FOUND            = 1

  •   INTERNAL_ERROR       = 2

  •   OTHERS               = 3

            .

  IF SY-SUBRC <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  •         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ENDIF.

  concatenate zserver

  ':'

  zport into zhostname.

endif.

Activate and Execute the BSP and if you have any saved views against your name you should be able to see them here

' /></body>