SAP table view in html format
A simple report program. Through this you can view SAP Tables in HTML format.
A simple report program. Through this you can view SAP Tables in HTML format.
REPORT ZTABLEHTML. *********************************************************** * Developer : S.Srini. * Location : Chennai, * : Tamil Nadu, * : India. *********************************************************** * Column type P dose not support. *********************************************************** TABLES DD02L. DATA: ZX030L LIKE X030L, P_Number type i, TableFound type i. DATA: COLORVAL TYPE I. DATA: PACKVAL TYPE P, TOTALROWS TYPE N. DATA: W_Area1(5000) TYPE C,CHARVAL(20) TYPE C. DATA: TABLEN TYPE I VALUE 255. DATA: BEGIN OF HTMLVIEW OCCURS 0, HTMLCODE(500) TYPE C, END OF HTMLVIEW. DATA BEGIN OF ZDFIES OCCURS 0. INCLUDE STRUCTURE DFIES. DATA END OF ZDFIES. DATA: BEGIN OF FLDITAB OCCURS 0, FLDNAME(11) TYPE C, END OF FLDITAB. ************** PARAMETERS: TabName LIKE DD02L-TABNAME OBLIGATORY. ************** HTMLVIEW-HTMLCODE = 'Table Browser '. append HTMLVIEW. HTMLVIEW-HTMLCODE = ' Table View : '. append HTMLVIEW. HTMLVIEW-HTMLCODE = TabName. append HTMLVIEW. HTMLVIEW-HTMLCODE = ''. append HTMLVIEW. *********************************************** PERFORM CHECK-TABLE-CLASS. PERFORM READ-DIRECT-TABLE. PERFORM DOWNLOADHTML. PERFORM SHOWHTML. ******************************************** FORM CHECK-TABLE-CLASS. TableFound = -1. SELECT * FROM DD02L WHERE TABNAME EQ TabName. IF DD02L-TABCLASS CS 'TRANSP' OR DD02L-TABCLASS CS 'POOL' OR DD02L-TABCLASS CS 'CLUSTER '. TableFound = 1. exit. ENDIF. ENDSELECT. IF TableFound < 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO With 'Table Not Found.... or Table Class Not in "TRANSP","POOL", "CLUSTER"'. stop. ENDIF. ENDFORM. ************************************************************************ FORM READ-DIRECT-TABLE. DATA: ANZ_NUMB TYPE I. PERFORM GETTABLEINFO USING Tabname. HTMLVIEW-HTMLCODE = '
'. append HTMLVIEW. HTMLVIEW-HTMLCODE = NAME. append HTMLVIEW. HTMLVIEW-HTMLCODE = ' | '. append HTMLVIEW. ENDFORM. ******************************************************** FORM HTMLHEADER USING NAME TYPE C. HTMLVIEW-HTMLCODE = ''. append HTMLVIEW. HTMLVIEW-HTMLCODE = NAME. append HTMLVIEW. HTMLVIEW-HTMLCODE = ' | '. append HTMLVIEW. ENDFORM.