devbox
菜鸟追梦旅行
这个屌丝很懒，什么也没留下！
关注作者
热门标签
热门文章
当前位置:   article > 正文

abap 下载

作者：菜鸟追梦旅行 | 2024-04-20 21:51:27

赞

踩

下载abap程序

今天在程序库里面发现一个程序 可复制直接运行

  1. *&---------------------------------------------------------------------*
  2. *& Report  ZDOWNLOAD
  3. *&
  4. *&---------------------------------------------------------------------*
  5. *&
  6. *&
  7. *&---------------------------------------------------------------------*
  8.  
  9. *REPORT  ZDOWNLOAD.
  10. program zdownload.
  11. *======================================================================================================================
  12. *  Direct Download Enterprise version 1.3.
  13. *
  14. *  THIS SOFTWARE IS FOR PERSONAL USE ONLY.
  15. *  THIS PROGRAM IS FREEWARE AND IS PROVIDED ON AN AS-IS BASIS WITHOUT WARRANTY OF ANY KIND.
  16. *  THE PROVIDER SPECIFICALLY DISCLAIMS ANY OTHER WARRANTY, EXPRESS OR IMPLIED, INCLUDING ANY WARRANTY OF MERCHANTABILITY
  17. *  OR FITNESS FOR A PARTICULAR PURPOSE.
  18. *
  19. *  IN NO EVENT SHALL THE PROVIDER BE LIABLE FOR ANY CONSEQUENTIAL, INDIRECT, SPECIAL OR INCIDENTAL DAMAGES, EVEN IF PROVIDER
  20. *  HAS BEEN ADVISED BY CLIENT OF THE POSSIBILITY OF SUCH POTENTIAL LOSS OR DAMAGE.
  21. *  CLIENT AGREES TO HOLD PROVIDER HARMLESS FROM AND AGAINST ANY AND ALL CLAIMS, LOSSES, LIABILITIES AND EXPENSES.  BY
  22. *  INSTALLING OR RUNNING THIS PROGRAM YOU ARE AGREEING TO THE TERMS AND CONDITONS STATED ABOVE.
  23. *
  24. *----------------------------------------------------------------------------------------------------------------------
  25. *  PROGRAM DESCRIPTION & USE
  26. *  Allows a user to download programs, Functions, DD definitions, etc to the presentation server.  This version searches
  27. *  recursively for nested includes and function modules, and allows you to download the resulting code as standard text
  28. *  or HTML web pages within a suitable directory structure.
  29. *
  30. *  You can either search by object name, using wildcards if you wish, or a combination of Author and object name.  If
  31. *  you want all objects returned for a particular author then select the author name and choose the most suitable
  32. *  radiobutton.  All objects will be returned if the fields to the right hand side of the radiobutton are left completely
  33. *  blank.
  34. *
  35. *  Compatible with R/3 Enterprise only, for older versions of SAP you will need Direct Download version 5.xx.
  36. *  This version removes the programming limitations imposed by developing across SAP releases 3 to 4.6.
  37. *
  38. *  In order to be able to download files to the SAP server you must first set up a logical filepath within transaction
  39. *  'FILE', or use an existing one.  You must also create a external operating system command in SM69 called ZMKDIR. This
  40. *  will then be used to create any directories needed on the SAP server
  41.  
  42. *  This program is intended to allow a person to keep a visual representation of a program for backup purposes only as
  43. *  has not been designed to allow programs to be uploaded to SAP systems.
  44. *----------------------------------------------------------------------------------------------------------------------
  45. *
  46. * author          : E.G.Mellodew
  47. *
  48. *
  49. * program contact : direct@dalestech.com
  50. *                   www.dalestech.com
  51. *
  52. *----------------------------------------------------------------------------------------------------------------------
  53.  
  54. *----------------------------------------------------------------------------------------------------------------------
  55. *  SAP Tables
  56. *----------------------------------------------------------------------------------------------------------------------
  57. tables: trdir, seoclass, tfdir, enlfdir, dd02l.
  58.  
  59. *----------------------------------------------------------------------------------------------------------------------
  60. *  Types
  61. *----------------------------------------------------------------------------------------------------------------------
  62. * text element structure
  63. types: ttexttable like textpool.
  64. * GUI titles
  65. types: tguititle like d347t.
  66.  
  67. * Message classes
  68. types: begin of tmessage,
  69.          arbgb like t100-arbgb,
  70.          stext like t100a-stext,
  71.          msgnr like t100-msgnr,
  72.          text  like t100-text,
  73.        end of tmessage.
  74.  
  75. * Screen flow.
  76. types: begin of tscreenflow,
  77.          screen like d020s-dnum,
  78.          code like d022s-line,
  79.        end of tscreenflow.
  80.  
  81. * Holds a table\structure definition
  82. types: begin of tdicttablestructure,
  83.          fieldname like dd03l-fieldname,
  84.          position  like dd03l-position,
  85.          keyflag   like dd03l-keyflag,
  86.          rollname  like dd03l-rollname,
  87.          domname   like dd03l-domname,
  88.          datatype  like dd03l-datatype,
  89.          leng      like dd03l-leng,
  90.          ddtext    like dd04t-ddtext,
  91.        end of tdicttablestructure.
  92.  
  93. * Holds a tables attributes + its definition
  94. types: begin of tdicttable,
  95.          tablename    like dd03l-tabname,
  96.          tabletitle   like dd02t-ddtext,
  97.          istructure type tdicttablestructure occurs 0,
  98.        end of tdicttable.
  99.  
  100. * Include program names
  101. types: begin of tinclude,
  102.          includename like trdir-name,
  103.          includetitle like tftit-stext,
  104.        end of tinclude.
  105.  
  106. * Exception class texts
  107. types: begin of tconcept,
  108.          constname type string,
  109.          concept type sotr_conc,
  110.        end of tconcept.
  111.  
  112. * Method
  113. types: begin of tmethod,
  114.          cmpname like vseomethod-cmpname,
  115.          descript like vseomethod-descript,
  116.          exposure like vseomethod-exposure,
  117.          methodkey type string,
  118.        end of tmethod.
  119.  
  120. * Class
  121. types: begin of tclass,
  122.          scanned(1),
  123.          clsname like vseoclass-clsname,
  124.          descript like vseoclass-descript,
  125.          msg_id like vseoclass-msg_id,
  126.          exposure like vseoclass-exposure,
  127.          state like vseoclass-state,
  128.          clsfinal like vseoclass-clsfinal,
  129.          r3release like vseoclass-r3release,
  130.          imethods type tmethod occurs 0,
  131.          idictstruct type tdicttable occurs 0,
  132.          itextelements type ttexttable occurs 0,
  133.          imessages type tmessage occurs 0,
  134.          iconcepts type tconcept occurs 0,
  135.          textelementkey type string,
  136.          publicclasskey type string,
  137.          privateclasskey type string,
  138.          protectedclasskey type string,
  139.          typesclasskey type string,
  140.          exceptionclass type i,
  141.        end of tclass.
  142.  
  143. * function modules
  144. types: begin of tfunction,
  145.          functionname like tfdir-funcname,
  146.          functiongroup like enlfdir-area,
  147.          includenumber like tfdir-include,
  148.          functionmaininclude like tfdir-funcname,
  149.          functiontitle like tftit-stext,
  150.          topincludename like tfdir-funcname,
  151.          progname like tfdir-pname,
  152.          programlinkname like tfdir-pname,
  153.          messageclass like t100-arbgb,
  154.          itextelements type ttexttable occurs 0,
  155.          iselectiontexts type ttexttable occurs 0,
  156.          imessages type tmessage occurs 0,
  157.          iincludes type tinclude occurs 0,
  158.          idictstruct type tdicttable occurs 0,
  159.          iguititle type tguititle occurs 0,
  160.          iscreenflow type tscreenflow occurs 0,
  161.        end of tfunction.
  162.  
  163. types: begin of tprogram,
  164.          progname like trdir-name,
  165.          programtitle like tftit-stext,
  166.          subc like trdir-subc,
  167.          messageclass like t100-arbgb,
  168.          imessages type tmessage occurs 0,
  169.          itextelements type ttexttable occurs 0,
  170.          iselectiontexts type ttexttable occurs 0,
  171.          iguititle type tguititle occurs 0,
  172.          iscreenflow type tscreenflow occurs 0,
  173.          iincludes type tinclude occurs 0,
  174.          idictstruct type tdicttable occurs 0,
  175.        end of tprogram.
  176.  
  177. *----------------------------------------------------------------------------------------------------------------------
  178. *  Internal tables
  179. *----------------------------------------------------------------------------------------------------------------------
  180. *  Dictionary object
  181. data: idictionary type standard table of tdicttable with header line.
  182. * Function modules.
  183. data: ifunctions type standard table of tfunction with header line.
  184. * Tree display structure.
  185. data: itreedisplay type standard table of snodetext with header line.
  186. * Message class data
  187. data: imessages type standard table of tmessage with header line.
  188. * Holds a single message class an all of its messages
  189. data: isinglemessageclass type standard table of tmessage with header line.
  190. * Holds program related data
  191. data: iprograms type standard table of tprogram with header line.
  192. * Classes
  193. data: iclasses type standard table of tclass with header line.
  194. * Table of paths created on the SAP server
  195. data: iserverpaths type standard table of string with header line.
  196.  
  197. *----------------------------------------------------------------------------------------------------------------------
  198. *  Table prototypes
  199. *----------------------------------------------------------------------------------------------------------------------
  200. data: dumidictstructure type standard table of tdicttablestructure.
  201. data: dumitexttab type standard table of ttexttable.
  202. data: dumiincludes type standard table of tinclude.
  203. data: dumihtml type standard table of string.
  204. data: dumiheader type standard table of string .
  205. data: dumiscreen type standard table of tscreenflow .
  206. data: dumiguititle type standard table of tguititle.
  207. data: dumimethods type standard table of tmethod.
  208. data: dumiconcepts type standard table of tconcept.
  209.  
  210. *----------------------------------------------------------------------------------------------------------------------
  211. *   Global objects
  212. *----------------------------------------------------------------------------------------------------------------------
  213. data: objfile type ref to cl_gui_frontend_services.
  214. data: objruntimeerror type ref to cx_root.
  215.  
  216. *----------------------------------------------------------------------------------------------------------------------
  217. *  Constants
  218. *----------------------------------------------------------------------------------------------------------------------
  219. constants: versionno type string value '1.3'.
  220. constants: tables type string value 'TABLES'.
  221. constants: table type string value 'TABLE'.
  222. constants: like type string value 'LIKE'.
  223. constants: type type string value 'TYPE'.
  224. constants: typerefto type string value 'TYPE REF TO'.
  225. constants: structure type string value 'STRUCTURE'.
  226. constants: lowstructure type string value 'structure'.
  227. constants: occurs type string value 'OCCURS'.
  228. constants: function type string value 'FUNCTION'.
  229. constants: callfunction type string value ' CALL FUNCTION'.
  230. constants: message type string  value 'MESSAGE'.
  231. constants: include type string value 'INCLUDE'.
  232. constants: lowinclude type string value 'include'.
  233. constants: destination type string value 'DESTINATION'.
  234. constants: is_table type string value 'T'.
  235. constants: is_program type string value 'P'.
  236. constants: is_screen type string value 'S'.
  237. constants: is_guititle type string value 'G'.
  238. constants: is_documentation type string value 'D'.
  239. constants: is_messageclass type string value 'MC'.
  240. constants: is_function type string value 'F'.
  241. constants: is_class type string value 'C'.
  242. constants: is_method type string value 'M'.
  243. constants: asterix type string value '*'.
  244. constants: comma type string value ','.
  245. constants: period type string value '.'.
  246. constants: dash type string value '-'.
  247. constants: true type i value 1.
  248. constants: false type i value 0.
  249. constants: lt type string value '<'.
  250. constants: gt type string value '>'.
  251. constants: unix type string value 'UNIX'.
  252. constants: non_unix type string value 'not UNIX'.
  253. constants: background_colour type string value '#FFFFE0'.
  254. constants: colour_white type string value '#FFFFFF'.
  255. constants: colour_black type string value '#000000'.
  256. constants: colour_yellow type string value '#FFFF00'.
  257. constants: comment_colour type string value '#0000FF'.
  258. constants: htmlextension type string value 'html'.
  259. constants: textextension type string value 'txt'.
  260.  
  261. *----------------------------------------------------------------------------------------------------------------------
  262. *  Global variables
  263. *----------------------------------------------------------------------------------------------------------------------
  264. data: statusbarmessage(100).
  265. data: forcedexit type i value 0.
  266. data: starttime like sy-uzeit.
  267. data: runtime like sy-uzeit.
  268. data: downloadfileextension type string.
  269. data: downloadfolder type string.
  270. data: serverslashseparator type string.
  271. data: frontendslashseparator type string.
  272. data: slashseparatortouse type string.
  273. data: serverfilesystem type filesys_d.
  274. data: serverfolder type string.
  275. data: frontendopsystem type string.
  276. data: serveropsystem type string.
  277. data: customernamespace type string.
  278. ranges: soprogramname for trdir-name.
  279. ranges: soauthor for usr02-bname.
  280. ranges: sotablenames for dd02l-tabname.
  281. ranges: sofunctionname  for tfdir-funcname.
  282. ranges: soclassname for vseoclass-clsname.
  283. ranges: sofunctiongroup for enlfdir-area.
  284. field-symbols: <wadictstruct> type tdicttable.
  285.  
  286. *----------------------------------------------------------------------------------------------------------------------
  287. *  Selection screen declaration
  288. *----------------------------------------------------------------------------------------------------------------------
  289. * Author
  290. selection-screen: begin of block b1 with frame title tblock1.
  291.   selection-screen begin of line.
  292.     selection-screen comment 5(23) tauth.
  293.     parameters: pauth like usr02-bname memory id mauth.
  294.   selection-screen end of line.
  295.  
  296.   selection-screen begin of line.
  297.     selection-screen comment 5(36) tpmod.
  298.     parameters: pmod as checkbox.
  299.   selection-screen end of line.
  300.  
  301. * Local objects
  302.   selection-screen begin of line.
  303.     selection-screen comment 5(36) t$tmp.
  304.     parameters: p$tmp as checkbox default ''.
  305.   selection-screen end of line.
  306. selection-screen: end of block b1.
  307.  
  308. selection-screen begin of block b2 with frame title tblock2.
  309. * Tables
  310.   selection-screen begin of line.
  311.     parameters: rtable radiobutton group r1.
  312.     selection-screen comment 5(15) trtable.
  313.   selection-screen end of line.
  314.  
  315.   selection-screen begin of line.
  316.     selection-screen comment 10(15) tptable.
  317.     select-options: sotable for dd02l-tabname.
  318.   selection-screen end of line.
  319.  
  320.   selection-screen begin of line.
  321.     selection-screen comment 10(79) ttnote.
  322.   selection-screen end of line.
  323.  
  324. * Message classes
  325.   selection-screen begin of line.
  326.     parameters: rmess radiobutton group r1.
  327.     selection-screen comment 5(18) tpmes.
  328.   selection-screen end of line.
  329.  
  330.   selection-screen begin of line.
  331.     selection-screen comment 10(18) tmname.
  332.     parameters: pmname like t100-arbgb memory id mmname.
  333.   selection-screen end of line.
  334.  
  335. * Function modules
  336.   selection-screen begin of line.
  337.     parameters: rfunc radiobutton group r1.
  338.     selection-screen comment 5(30) trfunc.
  339.   selection-screen end of line.
  340.  
  341.   selection-screen begin of line.
  342.     selection-screen comment 10(15) tpfname.
  343.     select-options: sofname for tfdir-funcname.
  344.   selection-screen end of line.
  345.  
  346.   selection-screen begin of line.
  347.     selection-screen comment 10(15) tfgroup.
  348.     select-options: sofgroup for enlfdir-area.
  349.   selection-screen end of line.
  350.  
  351. * Classes
  352.   selection-screen begin of line.
  353.     parameters: rclass radiobutton group r1.
  354.     selection-screen comment 5(30) trclass.
  355.   selection-screen end of line.
  356.  
  357.   selection-screen begin of line.
  358.     selection-screen comment 10(15) tpcname.
  359.     select-options: soclass for seoclass-clsname.
  360.   selection-screen end of line.
  361.  
  362. * Programs / includes
  363.   selection-screen begin of line.
  364.     parameters: rprog radiobutton group r1 default 'X'.
  365.     selection-screen comment 5(18) tprog.
  366.   selection-screen end of line.
  367.  
  368.   selection-screen begin of line.
  369.     selection-screen comment 10(15) trpname.
  370.     select-options: soprog for trdir-name.
  371.   selection-screen end of line.
  372.  
  373.   selection-screen skip.
  374. * Language
  375.   selection-screen begin of line.
  376.     selection-screen comment 1(18) tmlang.
  377.     parameters: pmlang like t100-sprsl default 'EN'.
  378.   selection-screen end of line.
  379.  
  380. * Package
  381.   selection-screen begin of line.
  382.     selection-screen comment 1(18) tpack.
  383.     parameters: ppack like tadiv-devclass memory id mpack.
  384.   selection-screen end of line.
  385.  
  386. * Customer objects
  387.   selection-screen begin of line.
  388.     selection-screen comment 1(27) tcust.
  389.     parameters: pcust as checkbox default 'X'.
  390.     selection-screen comment 32(25) tnrange.
  391.     parameters: pcname type namespace memory id mnamespace.
  392.   selection-screen end of line.
  393. selection-screen: end of block b2.
  394.  
  395. * Additional things to download.
  396. selection-screen: begin of block b3 with frame title tblock3.
  397.   selection-screen begin of line.
  398.     selection-screen comment 1(33) tptext.
  399.     parameters: ptext as checkbox default 'X' memory id mtext.
  400.   selection-screen end of line.
  401.  
  402.   selection-screen begin of line.
  403.     selection-screen comment 1(33) tmess.
  404.     parameters: pmess as checkbox default 'X' memory id mmess.
  405.   selection-screen end of line.
  406.  
  407.   selection-screen begin of line.
  408.     selection-screen comment 1(33) tpinc.
  409.     parameters: pinc as checkbox default 'X' memory id minc.
  410.     selection-screen comment 40(20) trecc.
  411.     parameters: preci as checkbox default 'X' memory id mreci.
  412.   selection-screen end of line.
  413.  
  414.   selection-screen begin of line.
  415.     selection-screen comment 1(33) tpfunc.
  416.     parameters: pfunc as checkbox default 'X' memory id mfunc.
  417.     selection-screen comment 40(20) trecf.
  418.     parameters: precf as checkbox default 'X' memory id mrecf.
  419.   selection-screen end of line.
  420.  
  421.   selection-screen begin of line.
  422.     selection-screen comment 1(33) tdoc.
  423.     parameters: pdoc as checkbox default 'X' memory id mdoc.
  424.   selection-screen end of line.
  425.  
  426.   selection-screen begin of line.
  427.     selection-screen comment 1(33) tpscr.
  428.     parameters: pscr as checkbox default 'X' memory id mscr.
  429.   selection-screen end of line.
  430.  
  431.   selection-screen begin of line.
  432.     selection-screen comment 1(33) tpdict.
  433.     parameters: pdict as checkbox default 'X' memory id mdict.
  434.   selection-screen end of line.
  435.  
  436.   selection-screen begin of line.
  437.     selection-screen comment 1(33) tsortt.
  438.     parameters: psortt as checkbox default ' ' memory id msortt.
  439.   selection-screen end of line.
  440. selection-screen: end of block b3.
  441.  
  442. * File details
  443. selection-screen: begin of block b4 with frame title tblock4.
  444.   selection-screen begin of line.
  445.     selection-screen comment 1(20) tphtml.
  446.     parameters: phtml radiobutton group g1 default 'X'.
  447.   selection-screen end of line.
  448.  
  449.   selection-screen begin of line.
  450.     selection-screen comment 5(29) tcomm.
  451.     parameters: pcomm as checkbox default 'X'.
  452.   selection-screen end of line.
  453.  
  454.   selection-screen begin of line.
  455.     selection-screen comment 5(29) tback.
  456.     parameters: pback as checkbox default 'X'.
  457.   selection-screen end of line.
  458.  
  459.   selection-screen begin of line.
  460.     selection-screen comment 1(20) tptxt.
  461.     parameters: ptxt radiobutton group g1.
  462.   selection-screen end of line.
  463.  
  464.   selection-screen skip.
  465.  
  466. * Download to SAP server
  467.   selection-screen begin of line.
  468.     selection-screen comment 1(25) tserv.
  469.     parameters: pserv radiobutton group g2.
  470.   selection-screen end of line.
  471.   selection-screen begin of line.
  472.     selection-screen comment 8(20) tspath.
  473.     parameters: plogical like filename-fileintern memory id mlogical.
  474.   selection-screen end of line.
  475.   selection-screen comment /28(60) tsdpath.
  476.  
  477. * Download to PC
  478.   selection-screen begin of line.
  479.     selection-screen comment 1(25) tpc.
  480.     parameters: ppc radiobutton group g2 default 'X'.
  481.   selection-screen end of line.
  482.   selection-screen begin of line.
  483.     selection-screen comment 8(20) tppath.
  484.     parameters: pfolder like rlgrap-filename memory id mfolder.
  485.   selection-screen end of line.
  486. selection-screen: end of block b4.
  487.  
  488. * Display options
  489. selection-screen: begin of block b5 with frame title tblock5.
  490. * Display final report
  491.   selection-screen begin of line.
  492.     selection-screen comment 1(33) trep.
  493.     parameters: prep as checkbox default 'X'.
  494.   selection-screen end of line.
  495. * Display progress messages
  496.   selection-screen begin of line.
  497.     selection-screen comment 1(33) tpromess.
  498.     parameters: ppromess as checkbox default 'X'.
  499.   selection-screen end of line.
  500. selection-screen: end of block b5.
  501.  
  502. *----------------------------------------------------------------------------------------------------------------------
  503. * Display a directory picker window
  504. *----------------------------------------------------------------------------------------------------------------------
  505. at selection-screen on value-request for pfolder.
  506.  
  507. data: objfile type ref to cl_gui_frontend_services.
  508. data: pickedfolder type string.
  509. data: initialfolder type string.
  510.  
  511.   if sy-batch is initial.
  512.     create object objfile.
  513.  
  514.     if not pfolder is initial.
  515.       initialfolder = pfolder.
  516.     else.
  517.       objfile->get_temp_directory( changing temp_dir = initialfolder
  518.                                    exceptions cntl_error = 1
  519.                                              error_no_gui = 2
  520.                                              not_supported_by_gui = 3 ).
  521.     endif.
  522.  
  523.     objfile->directory_browse( exporting initial_folder = initialfolder
  524.                                changing selected_folder = pickedfolder
  525.                                exceptions cntl_error = 1
  526.                                           error_no_gui = 2
  527.                                           not_supported_by_gui = 3 ).
  528.  
  529.     if sy-subrc = 0.
  530.       pfolder = pickedfolder.
  531.     else.
  532.       write: / 'An error has occured picking a folder'.
  533.     endif.
  534.   endif.
  535.  
  536. *----------------------------------------------------------------------------------------------------------------------
  537. at selection-screen.
  538. *----------------------------------------------------------------------------------------------------------------------
  539.   case 'X'.
  540.     when ppc.
  541.       if pfolder is initial.
  542. *       User must enter a path to save to
  543.         message e000(oo) with 'You must enter a file path'.
  544.       endif.
  545.  
  546.     when pserv.
  547.       if plogical is initial.
  548. *       User must enter a logical path to save to
  549.         message e000(oo) with 'You must enter a logical file name'.
  550.       endif.
  551.   endcase.
  552.  
  553. *----------------------------------------------------------------------------------------------------------------------
  554. at selection-screen on plogical.
  555. *----------------------------------------------------------------------------------------------------------------------
  556.  
  557.   if not pserv is initial.
  558.     call function 'FILE_GET_NAME' exporting logical_filename = plogical
  559.                                   importing file_name = serverfolder
  560.                                   exceptions file_not_found = 1
  561.                                              others = 2.
  562.     if sy-subrc = 0.
  563.       if serverfolder is initial.
  564.         message e000(oo) with 'No file path returned from logical filename'.
  565.       else.
  566. *       Path to display on the selection screen
  567.         tsdpath = serverfolder.
  568. *       Remove the trailing slash off the path as the subroutine buildFilename will add an extra one
  569.         shift serverfolder right deleting trailing serverslashseparator.
  570.         shift serverfolder left deleting leading space.
  571.       endif.
  572.     else.
  573.       message e000(oo) with 'Logical filename does not exist'.
  574.     endif.
  575.   endif.
  576.  
  577. * ---------------------------------------------------------------------------------------------------------------------
  578. at selection-screen on value-request for soprog-low.
  579. * ---------------------------------------------------------------------------------------------------------------------
  580.   call function 'REPOSITORY_INFO_SYSTEM_F4' exporting object_type  = 'PROG'
  581.                                                       object_name  = soprog-low
  582.                                                       suppress_selection   = 'X'
  583.                                                       use_alv_grid = ''
  584.                                                       without_personal_list = ''
  585.                                             importing object_name_selected = soprog-low
  586.                                             exceptions cancel = 1.
  587.  
  588. * ---------------------------------------------------------------------------------------------------------------------
  589. at selection-screen on value-request for soprog-high.
  590. * ---------------------------------------------------------------------------------------------------------------------
  591.   call function 'REPOSITORY_INFO_SYSTEM_F4' exporting object_type  = 'PROG'
  592.                                                       object_name  = soprog-high
  593.                                                       suppress_selection   = 'X'
  594.                                                       use_alv_grid = ''
  595.                                                       without_personal_list = ''
  596.                                             importing object_name_selected = soprog-high
  597.                                             exceptions cancel = 1.
  598.  
  599. * ---------------------------------------------------------------------------------------------------------------------
  600. at selection-screen on value-request for soclass-low.
  601. * ---------------------------------------------------------------------------------------------------------------------
  602.   call function 'F4_DD_ALLTYPES' exporting object = soclass-low
  603.                                            suppress_selection = 'X'
  604.                                            display_only = ''
  605.                                            only_types_for_clifs = 'X'
  606.                                  importing result = soclass-low.
  607.  
  608. * ---------------------------------------------------------------------------------------------------------------------
  609. at selection-screen on value-request for soclass-high.
  610. * ---------------------------------------------------------------------------------------------------------------------
  611.   call function 'F4_DD_ALLTYPES' exporting object = soclass-high
  612.                                            suppress_selection = 'X'
  613.                                            display_only = ''
  614.                                            only_types_for_clifs = 'X'
  615.                                  importing result = soclass-high.
  616.  
  617. * ---------------------------------------------------------------------------------------------------------------------
  618. at selection-screen on value-request for sofname-low.
  619. * ---------------------------------------------------------------------------------------------------------------------
  620.   call function 'REPOSITORY_INFO_SYSTEM_F4' exporting object_type  = 'FUNC'
  621.                                                       object_name  = sofname-low
  622.                                                       suppress_selection   = 'X'
  623.                                                       use_alv_grid = ''
  624.                                                       without_personal_list = ''
  625.                                             importing object_name_selected = sofname-low
  626.                                             exceptions cancel = 1.
  627.  
  628. * ---------------------------------------------------------------------------------------------------------------------
  629. at selection-screen on value-request for sofname-high.
  630. * ---------------------------------------------------------------------------------------------------------------------
  631.   call function 'REPOSITORY_INFO_SYSTEM_F4' exporting object_type  = 'FUNC'
  632.                                                       object_name  = sofname-high
  633.                                                       suppress_selection   = 'X'
  634.                                                       use_alv_grid = ''
  635.                                                       without_personal_list = ''
  636.                                             importing object_name_selected = sofname-high
  637.                                             exceptions cancel = 1.
  638.  
  639. * ---------------------------------------------------------------------------------------------------------------------
  640. at selection-screen on value-request for sofgroup-low.
  641. * ---------------------------------------------------------------------------------------------------------------------
  642.   call function 'REPOSITORY_INFO_SYSTEM_F4' exporting object_type  = 'FUGR'
  643.                                                       object_name  = sofgroup-low
  644.                                                       suppress_selection   = 'X'
  645.                                                       use_alv_grid = ''
  646.                                                       without_personal_list = ''
  647.                                             importing object_name_selected = sofgroup-low
  648.                                             exceptions cancel = 1.
  649.  
  650. * ---------------------------------------------------------------------------------------------------------------------
  651. at selection-screen on value-request for sofgroup-high.
  652. * ---------------------------------------------------------------------------------------------------------------------
  653.   call function 'REPOSITORY_INFO_SYSTEM_F4' exporting object_type  = 'FUGR'
  654.                                                       object_name  = sofgroup-high
  655.                                                       suppress_selection   = 'X'
  656.                                                       use_alv_grid = ''
  657.                                                       without_personal_list = ''
  658.                                             importing object_name_selected = sofgroup-high
  659.                                             exceptions cancel = 1.
  660.  
  661. *----------------------------------------------------------------------------------------------------------------------
  662. * initialisation
  663. *----------------------------------------------------------------------------------------------------------------------
  664. initialization.
  665. * Parameter screen texts.
  666.   tblock1 = 'Author (Optional)'.
  667.   t$tmp   = 'Programs only: include local objects'.
  668.   tblock2 = 'Objects to download'.
  669.   tblock3 = 'Additional downloads for programs, function modules and classes'.
  670.   tblock4 = 'Download parameters'.
  671.   tblock5 = 'Display options'.
  672.   tauth   = 'Author name'.
  673.   tpmod   = 'Include programs modified by author'.
  674.   tcust   = 'Only customer objects'.
  675.   tnrange = 'Alt customer name range'.
  676.   trtable = 'Tables / Structures'.
  677.   tptable = 'Table name'.
  678.   ttnote  = 'Note: tables are stored under the username of the last person who modified them'.
  679.   trfunc  = 'Function modules'.
  680.   tpfname = 'Function name'.
  681.   tfgroup = 'Function group'.
  682.   trclass  = 'Classes'.
  683.   tpcname = 'Class name'.
  684.   tmess   = 'Message class'.
  685.   tmname  = 'Class name'.
  686.   tmlang  = 'Language'.
  687.   tprog   = 'Programs'.
  688.   trpname = 'Program name'.
  689.   tpack   = 'Package'.
  690.   tptxt   = 'Text document'.
  691.   tphtml  = 'HTML document'.
  692.   tcomm   = 'Highlight comments'.
  693.   tback   = 'Include background colour'.
  694.   tptext  = 'Text elements'.
  695.   tpinc   = 'Include programs'.
  696.   trecc   = 'Recursive search'.
  697.   tppath  = 'File path'.
  698.   tspath  = 'Logical file name'.
  699.   tpmes   = 'Message classes'.
  700.   tpfunc  = 'Function modules'.
  701.   tdoc    = 'Function module documentation'.
  702.   trecf   = 'Recursive search'.
  703.   tpscr   = 'Screens'.
  704.   tpdict  = 'Dictionary structures'.
  705.   tsortt  = 'Sort table fields alphabetically'.
  706.   tserv   = 'Download to server'.
  707.   tpc     = 'Download to PC'.
  708.   trep    = 'Display download report'.
  709.   tpromess  = 'Display progress messages'.
  710.  
  711. * Determine the frontend operating system type.
  712.   if sy-batch is initial.
  713.     perform determinefrontendopsystem using frontendslashseparator frontendopsystem.
  714.   endif.
  715.   perform determineserveropsystem using serverslashseparator serverfilesystem serveropsystem.
  716.  
  717. * Determine if the external command exists.  If it doesn't then disable the server input field
  718.   perform findexternalcommand.
  720. *----------------------------------------------------------------------------------------------------------------------
  721. * start-of-selection.
  722. *----------------------------------------------------------------------------------------------------------------------
  723. start-of-selection.
  725.   perform checkcomboboxes.
  726.   perform fillselectionranges.
  727.   starttime = sy-uzeit.
  729. * Don't display status messages if we are running in the background
  730.   if not sy-batch is initial.
  731.     ppromess = ''.
  732.   endif.
  733.  
  734. * Fool the HTML routines to stop them hyperlinking anything with a space in them
  735.   if pcname is initial.
  736.     customernamespace  = '^'.
  737.   else.
  738.     customernamespace = pcname.
  739.   endif.
  740.  
  741. * Determine which operating slash and download directory to use
  742.   case 'X'.
  743.     when ppc.
  744.       slashseparatortouse = frontendslashseparator.
  745.       downloadfolder = pfolder.
  746.     when pserv.
  747.       slashseparatortouse = serverslashseparator.
  748.       downloadfolder = serverfolder.
  749.   endcase.
  750.  
  751. * Main program flow.
  752.   case 'X'.
  753. *   Select tables
  754.     when rtable.
  755.       perform retrievetables using idictionary[]
  756.                                    sotablenames[]
  757.                                    soauthor[].
  758.  
  759. *   Select message classes tables
  760.     when rmess.
  761.       perform retrievemessageclass using imessages[]
  762.                                          soauthor[]      "Author
  763.                                          pmname          "Message class name
  764.                                          pmlang          "Message class language
  765.                                          pmod.           "Modified by author
  766.  
  767. *   Select function modules
  768.     when rfunc.
  769.       perform retrievefunctions using sofunctionname[]   "Function name
  770.                                       sofunctiongroup[]  "Function group
  771.                                       ifunctions[]       "Found functions
  772.                                       pauth              "Author
  773.                                       ptext              "Get text elements
  774.                                       pscr               "Get screens
  775.                                       pcust              "Customer data only
  776.                                       customernamespace. "Customer name range
  777.  
  778.  
  779.       loop at ifunctions.
  780. *       Find Dict structures, messages, functions, includes etc.
  781.         perform scanforadditionalfuncstuff using ifunctions[]
  782.                                                  preci                   "Search for includes recursively
  783.                                                  precf                   "Search for functions recursively
  784.                                                  pinc                    "Search for includes
  785.                                                  pfunc                   "Search for functions
  786.                                                  pdict                   "search for dictionary objects
  787.                                                  pmess                   "Search for messages
  788.                                                  pcust                   "Customer data only
  789.                                                  customernamespace.      "Customer name range
  790.       endloop.
  791.  
  792. *   Select Classes
  793.     when rclass.
  794.       perform retrieveclasses using iclasses[]
  795.                                     ifunctions[]
  796.                                     soclassname[]       "Class name
  797.                                     soauthor[]          "Author
  798.                                     customernamespace   "Customer name range
  799.                                     pmod                "Also modified by author
  800.                                     pcust               "Customer object only
  801.                                     pmess               "Find messages
  802.                                     ptext               "Text Elements
  803.                                     pdict               "Dictionary structures
  804.                                     pfunc               "Get functions
  805.                                     pinc                "Get includes
  806.                                     precf               "Search recursively for functions
  807.                                     preci               "Search recursively for includes
  808.                                     'X'                 "Search recursively for classes
  809.                                     pmlang.             "Language
  810.  
  811.       loop at ifunctions.
  812. *       Find Dict structures, messages, functions, includes etc.
  813.         perform scanforadditionalfuncstuff using ifunctions[]
  814.                                                  preci                   "Search for includes recursively
  815.                                                  precf                   "Search for functions recursively
  816.                                                  pinc                    "Search for includes
  817.                                                  pfunc                   "Search for functions
  818.                                                  pdict                   "search for dictionary objects
  819.                                                  pmess                   "Search for messages
  820.                                                  pcust                   "Customer data only
  821.                                                  customernamespace.      "Customer name range
  822.       endloop.
  823.  
  824. *   Select programs
  825.     when rprog.
  826.       perform retrieveprograms using iprograms[]
  827.                                      ifunctions[]
  828.                                      soprogramname[]    "Program name
  829.                                      soauthor[]         "Author
  830.                                      customernamespace  "Customer name range
  831.                                      pmod               "Also modified by author
  832.                                      pcust              "Customer object only
  833.                                      pmess              "Find messages
  834.                                      ptext              "Text Elements
  835.                                      pdict              "Dictionay structures
  836.                                      pfunc              "Get functions
  837.                                      pinc               "Get includes
  838.                                      pscr               "Get screens
  839.                                      precf              "Search recursively for functions
  840.                                      preci              "Search recursively for includes
  841.                                      p$tmp              "local objects
  842.                                      ppack.             "Package
  843.   endcase.
  845. *----------------------------------------------------------------------------------------------------------------------
  846. * end-of-selection
  847. *----------------------------------------------------------------------------------------------------------------------
  848. end-of-selection.
  850.   if forcedexit = 0.
  851. *   Set the file extension and output type of the file
  852.     if ptxt is initial.
  853.       downloadfileextension = htmlextension.
  854.     else.
  855.       downloadfileextension = textextension.
  856.     endif.
  858. *   Decide what to download
  859.     case 'X'.
  860. *     Download tables
  861.       when rtable.
  862.         if not ( idictionary[] is initial ).
  863.           perform downloadddstructures using idictionary[]
  864.                                              downloadfolder
  865.                                              htmlextension
  866.                                              space
  867.                                              psortt
  868.                                              slashseparatortouse
  869.                                              pserv
  870.                                              ppromess.
  872. *         Free up any memory used for caching HTML versions of tables
  873.           loop at idictionary.
  874.             free memory id idictionary-tablename.
  875.           endloop.
  877. *         Display donwload report
  878.           if not prep is initial.
  879.             get time.
  880.             runtime = sy-uzeit - starttime.
  881.             perform filltreenodetables using idictionary[]
  882.                                              itreedisplay[]
  883.                                              runtime.
  884.           endif.
  886.           clear idictionary[].
  887.         endif.
  889. *     Download message class
  890.       when rmess.
  891.         if not ( imessages[] is initial ).
  892.           sort imessages ascending by arbgb msgnr.
  893.           loop at imessages.
  894.             append imessages to isinglemessageclass.
  895.             at end of arbgb.
  896.               perform downloadmessageclass using isinglemessageclass[]
  897.                                                  imessages-arbgb
  898.                                                  downloadfolder
  899.                                                  downloadfileextension
  900.                                                  phtml
  901.                                                  space
  902.                                                  pcomm
  903.                                                  customernamespace
  904.                                                  pinc
  905.                                                  pdict
  906.                                                  pmess
  907.                                                  slashseparatortouse
  908.                                                  pserv
  909.                                                  ppromess.
  910.               clear isinglemessageclass[].
  911.             endat.
  912.           endloop.
  914. *         Display download report
  915.           if not prep is initial.
  916.             get time.
  917.             runtime = sy-uzeit - starttime.
  918.             perform filltreenodemessages using imessages[]
  919.                                                itreedisplay[]
  920.                                                runtime.
  921.           endif.
  923.          clear imessages[].
  924.        endif.
  926. *     Download functions
  927.       when rfunc.
  928.         if not ( ifunctions[] is initial ).
  929.            perform downloadfunctions using ifunctions[]
  930.                                            downloadfolder
  931.                                            downloadfileextension
  932.                                            space
  933.                                            pdoc
  934.                                            phtml
  935.                                            pcomm
  936.                                            customernamespace
  937.                                            pinc
  938.                                            pdict
  939.                                            textextension
  940.                                            htmlextension
  941.                                            psortt
  942.                                            slashseparatortouse
  943.                                            pserv
  944.                                            ppromess.
  946. *         Free up any memory used for caching HTML versions of tables
  947.           loop at ifunctions.
  948.             loop at ifunctions-idictstruct assigning <wadictstruct>.
  949.               free memory id <wadictstruct>-tablename.
  950.             endloop.
  951.           endloop.
  953. *         Display donwload report
  954.           if not prep is initial.
  955.             get time.
  956.             runtime = sy-uzeit - starttime.
  957.             perform filltreenodefunctions using ifunctions[]
  958.                                                 itreedisplay[]
  959.                                                 runtime.
  960.           endif.
  962.           clear ifunctions[].
  963.         endif.
  965. *     Download Classes
  966.       when rclass.
  967.         if not ( iclasses[] is initial ).
  968.           perform downloadclasses using iclasses[]
  969.                                         ifunctions[]
  970.                                         downloadfolder
  971.                                         downloadfileextension
  972.                                         htmlextension
  973.                                         textextension
  974.                                         phtml
  975.                                         pcomm
  976.                                         customernamespace
  977.                                         pinc
  978.                                         pdict
  979.                                         pdoc
  980.                                         psortt
  981.                                         slashseparatortouse
  982.                                         pserv
  983.                                         ppromess.
  985. *         Free up any memory used for caching HTML versions of tables
  986.           loop at ifunctions.
  987.             loop at ifunctions-idictstruct assigning <wadictstruct>.
  988.               free memory id <wadictstruct>-tablename.
  989.             endloop.
  990.           endloop.
  992. *         Free up any memory used for caching HTML versions of tables
  993.           loop at iprograms.
  994.             loop at iprograms-idictstruct assigning <wadictstruct>.
  995.               free memory id <wadictstruct>-tablename.
  996.             endloop.
  997.           endloop.
  999. *         Display donwload report
  1000.           if not prep is initial.
  1001.             get time.
  1002.             runtime = sy-uzeit - starttime.
  1003.             perform filltreenodeclasses using iclasses[]
  1004.                                               ifunctions[]
  1005.                                               itreedisplay[]
  1006.                                               runtime.
  1007.           endif.
  1009.           clear iclasses[].
  1010.           clear ifunctions[].
  1011.         endif.
  1013. *     Download programs
  1014.       when rprog.
  1015.         if not ( iprograms[] is initial ).
  1016.           perform downloadprograms using iprograms[]
  1017.                                          ifunctions[]
  1018.                                          downloadfolder
  1019.                                          downloadfileextension
  1020.                                          htmlextension
  1021.                                          textextension
  1022.                                          phtml
  1023.                                          pcomm
  1024.                                          customernamespace
  1025.                                          pinc
  1026.                                          pdict
  1027.                                          pdoc
  1028.                                          psortt
  1029.                                          slashseparatortouse
  1030.                                          pserv
  1031.                                          ppromess.
  1033. *         Free up any memory used for caching HTML versions of tables
  1034.           loop at ifunctions.
  1035.             loop at ifunctions-idictstruct assigning <wadictstruct>.
  1036.               free memory id <wadictstruct>-tablename.
  1037.             endloop.
  1038.           endloop.
  1040. *         Free up any memory used for caching HTML versions of tables
  1041.           loop at iprograms.
  1042.             loop at iprograms-idictstruct assigning <wadictstruct>.
  1043.               free memory id <wadictstruct>-tablename.
  1044.             endloop.
  1045.           endloop.
  1047. *         Display donwload report
  1048.           if not prep is initial.
  1049.             get time.
  1050.             runtime = sy-uzeit - starttime.
  1051.             perform filltreenodeprograms using iprograms[]
  1052.                                                ifunctions[]
  1053.                                                itreedisplay[]
  1054.                                                runtime.
  1055.           endif.
  1057.           clear iprograms[].
  1058.           clear ifunctions[].
  1059.         endif.
  1060.     endcase.
  1062.     if not prep is initial.
  1063.       if not ( itreedisplay[] is initial ).
  1064.         perform displaytree using itreedisplay[].
  1065.       else.
  1066.         statusbarmessage = 'No items found matching selection criteria'.
  1067.         perform displaystatus using statusbarmessage 2.
  1068.       endif.
  1069.     endif.
  1070.   endif.
  1072. *--- Memory IDs
  1073. * User name
  1074.   set parameter id 'MAUTH' field pauth.
  1075. * Message class
  1076.   set parameter id 'MMNAME' field pmname.
  1077. * Customer namespace
  1078.   set parameter id 'MNAMESPACE' field pcname.
  1079. * Folder
  1080.   set parameter id 'MFOLDER' field pfolder.
  1081. * Logical filepath
  1082.   set parameter id 'MLOGICAL' field plogical.
  1083. * Package
  1084.   set parameter id 'MPACK' field ppack.
  1085. * Text element checkbox
  1086.   set parameter id 'MTEXT' field ptext.
  1087. * Messages checkbox
  1088.   set parameter id 'MMESS' field pmess.
  1089. * Includes checkbox
  1090.   set parameter id 'MINC' field pinc.
  1091. * Recursive includes checkbox.
  1092.   set parameter id 'MRECI' field preci.
  1093. * Functions checkbox
  1094.   set parameter id 'MFUNC' field pfunc.
  1095. * Recursive functions checkbox
  1096.   set parameter id 'MRECF' field precf.
  1097. * Function module documntation checkbox
  1098.   set parameter id 'MDOC' field pdoc.
  1099. * Screens checkbox
  1100.   set parameter id 'MSCR' field pscr.
  1101. * Dictionary checkbox
  1102.   set parameter id 'MDICT' field pdict.
  1103. * Sort table ascending checkBox
  1104.   set parameter id 'MSORTT' field psortt.
  1106. ***********************************************************************************************************************
  1107. ***************************************************SUBROUTINES*********************************************************
  1108. ***********************************************************************************************************************
  1110. *----------------------------------------------------------------------------------------------------------------------
  1111. *  checkComboBoxes...  Check input parameters
  1112. *----------------------------------------------------------------------------------------------------------------------
  1113. form checkcomboboxes.
  1115.   if pauth is initial.
  1116.     case 'X'.
  1117.       when rtable.
  1118.         if sotable[] is initial.
  1119.           statusbarmessage = 'You must enter either a table name or author.'.
  1120.         endif.
  1121.       when rfunc.
  1122.         if ( sofname[] is initial ) and ( sofgroup[] is initial ).
  1123.           if sofname[] is initial.
  1124.             statusbarmessage = 'You must enter either a function name or author.'.
  1125.           else.
  1126.             if sofgroup[] is initial.
  1127.               statusbarmessage = 'You must enter either a function group, or an author name.'.
  1128.             endif.
  1129.           endif.
  1130.         endif.
  1131.       when rprog.
  1132.         if soprog[] is initial.
  1133.             statusbarmessage = 'You must enter either a program name or author name.'.
  1134.         endif.
  1135.     endcase.
  1136. * Check the user name of the person objects are to be downloaded for
  1137.   else.
  1138.     if pauth = 'SAP*' or pauth = 'SAP'.
  1139.       statusbarmessage = 'Sorry cannot download all objects for SAP standard user'.
  1140.     endif.
  1141.   endif.
  1143.   if not statusbarmessage is initial.
  1144.     perform displaystatus using statusbarmessage 3.
  1145.     forcedexit = 1.
  1146.     stop.
  1147.   endif.
  1148. endform.                                                                                "checkComboBoxes
  1149.  
  1150. *----------------------------------------------------------------------------------------------------------------------
  1151. * fillSelectionRanges...      for selection routines
  1152. *----------------------------------------------------------------------------------------------------------------------
  1153. form fillselectionranges.
  1154.  
  1155. data: strlength type i.
  1156.  
  1157.   strlength = strlen( pcname ).
  1158.  
  1159.   if not pauth is initial.
  1160.     soauthor-sign = 'I'.
  1161.     soauthor-option = 'EQ'.
  1162.     soauthor-low = pauth.
  1163.     append soauthor.
  1164.   endif.
  1165.  
  1166. * Tables
  1167.   if not sotable is initial.
  1168.     sotablenames[] = sotable[].
  1169. *   Add in the customer namespace if we need to
  1170.     if not pcname is initial.
  1171.        loop at sotablenames.
  1172.         if sotablenames-low+0(strlength) <> pcname.
  1173.           concatenate pcname sotablenames-low into sotablenames-low.
  1174.         endif.
  1175.  
  1176.         if sotablenames-high+0(strlength) <> pcname.
  1177.           concatenate pcname sotablenames-high into sotablenames-high.
  1178.         endif.
  1179.  
  1180.         modify sotablenames.
  1181.       endloop.
  1182.     endif.
  1183.   endif.
  1184.  
  1185. * Function names
  1186.   if not sofname is initial.
  1187.     sofunctionname[] = sofname[].
  1188. *   Add in the customer namespace if we need to
  1189.     if not pcname is initial.
  1190.        loop at sofunctionname.
  1191.         if sofunctionname-low+0(strlength) <> pcname.
  1192.           concatenate pcname sofunctionname-low into sofunctionname-low.
  1193.         endif.
  1194.  
  1195.         if sofunctionname-high+0(strlength) <> pcname.
  1196.           concatenate pcname sofunctionname-high into sofunctionname-high.
  1197.         endif.
  1198.  
  1199.         modify sofunctionname.
  1200.       endloop.
  1201.     endif.
  1202.   endif.
  1203.  
  1204. * Function group
  1205.   if not sofgroup is initial.
  1206.     sofunctiongroup[] = sofgroup[].
  1207. *   Add in the customer namespace if we need to
  1208.     if not pcname is initial.
  1209.        loop at sofunctionname.
  1210.         if sofunctiongroup-low+0(strlength) <> pcname.
  1211.           concatenate pcname sofunctiongroup-low into sofunctiongroup-low.
  1212.         endif.
  1213.  
  1214.         if sofunctiongroup-high+0(strlength) <> pcname.
  1215.           concatenate pcname sofunctiongroup-high into sofunctiongroup-high.
  1216.         endif.
  1217.  
  1218.         modify sofunctiongroup.
  1219.       endloop.
  1220.     endif.
  1221.   endif.
  1222.  
  1223. * Class names
  1224.   if not soclass is initial.
  1225.     soclassname[] = soclass[].
  1226. *   Add in the customer namespace if we need to
  1227.     if not pcname is initial.
  1228.        loop at soclassname.
  1229.         if soclassname-low+0(strlength) <> pcname.
  1230.           concatenate pcname soclassname-low into soclassname-low.
  1231.         endif.
  1232.  
  1233.         if soclassname-high+0(strlength) <> pcname.
  1234.           concatenate pcname soclassname-high into soclassname-high.
  1235.         endif.
  1236.  
  1237.         modify soclassname.
  1238.       endloop.
  1239.     endif.
  1240.   endif.
  1241.  
  1242. * Program names
  1243.   if not soprog is initial.
  1244.     soprogramname[] = soprog[].
  1245. *   Add in the customer namespace if we need to
  1246.     if not pcname is initial.
  1247.        loop at soprogramname.
  1248.         if soprogramname-low+0(strlength) <> pcname.
  1249.           concatenate pcname soprogramname-low into soprogramname-low.
  1250.         endif.
  1251.  
  1252.         if soprogramname-high+0(strlength) <> pcname.
  1253.           concatenate pcname soprogramname-high into soprogramname-high.
  1254.         endif.
  1255.  
  1256.         modify soprogramname.
  1257.       endloop.
  1258.     endif.
  1259.   endif.
  1260. endform.                                                                                          " fillSelectionRanges
  1262. *----------------------------------------------------------------------------------------------------------------------
  1263. *  retrieveTables...             Search for tables in dictionary
  1264. *----------------------------------------------------------------------------------------------------------------------
  1265. form retrievetables using ilocdictstructure like idictionary[]
  1266.                           sotable like sotable[]
  1267.                           soauthor like soauthor[].
  1269. data: wadictstructure type tdicttable.
  1271.   select tabname from dd02l into wadictstructure-tablename
  1272.                             where tabname in sotable
  1273.                               and tabclass <> 'CLUSTER'
  1274.                               and tabclass <> 'POOL'
  1275.                               and tabclass <> 'VIEW'
  1276.                               and as4user in soauthor
  1277.                               and as4local = 'A'.
  1279.     perform findtabledescription using wadictstructure-tablename
  1280.                                        wadictstructure-tabletitle.
  1282.     perform findtabledefinition using wadictstructure-tablename
  1283.                                       wadictstructure-istructure[].
  1285.     append wadictstructure to ilocdictstructure.
  1286.     clear wadictstructure.
  1287.   endselect.
  1288. endform.                                                                                                "retrieveTables
  1289.  
  1290. *----------------------------------------------------------------------------------------------------------------------
  1291. *  findTableDescription...  Search for table description in dictionary
  1292. *----------------------------------------------------------------------------------------------------------------------
  1293. form findtabledescription using value(tablename)
  1294.                                       tabledescription.
  1295.  
  1296.     select single ddtext from dd02t into tabledescription
  1297.                                     where tabname = tablename
  1298.                                       and ddlanguage = sy-langu.
  1299. endform.                                                                                          "findTableDescription
  1301. *----------------------------------------------------------------------------------------------------------------------
  1302. *  findTableDefinition... Find the structure of a table from the SAP database.
  1303. *----------------------------------------------------------------------------------------------------------------------
  1304. form findtabledefinition using value(tablename)
  1305.                                idictstruct like dumidictstructure[].
  1307. data gotstate like dcobjif-gotstate.
  1308. data: definition type standard table of dd03p with header line.
  1309. data: wadictstruct type tdicttablestructure.
  1311.   call function 'DDIF_TABL_GET'
  1312.        exporting
  1313.             name          = tablename
  1314.             state         = 'A'
  1315.             langu         = sy-langu
  1316.        importing
  1317.             gotstate      = gotstate
  1318.        tables
  1319.             dd03p_tab     = definition
  1320.        exceptions
  1321.             illegal_input = 1
  1322.             others        = 2.
  1324.   if sy-subrc = 0 and gotstate = 'A'.
  1325.     loop at definition.
  1326.       move-corresponding definition to wadictstruct.
  1327.       perform removeleadingzeros changing wadictstruct-position.
  1328.       perform removeleadingzeros changing wadictstruct-leng.
  1329.       append wadictstruct to idictstruct.
  1330.     endloop.
  1331.   endif.
  1332. endform.                                                                                           "findTableDefinition
  1333.  
  1334. *----------------------------------------------------------------------------------------------------------------------
  1335. *  retrieveMessageClass...   Retrieve a message class from the SAP database
  1336. *----------------------------------------------------------------------------------------------------------------------
  1337. form retrievemessageclass using ilocmessages like imessages[]
  1338.                                 rangeauthor like soauthor[]
  1339.                                 value(messageclassname)
  1340.                                 value(messageclasslang)
  1341.                                 value(modifiedby).
  1342.  
  1343. data: wamessage type tmessage.
  1344.  
  1345.   if not messageclassname is initial.
  1346.     select * from t100
  1347.              appending corresponding fields of table ilocmessages
  1348.              where sprsl = messageclasslang
  1349.                and arbgb = messageclassname.
  1350.  
  1351.     loop at ilocmessages into wamessage.
  1352.       select single stext from t100a                "#EC CI_BUFFJOIN
  1353.                           into wamessage-stext where arbgb = wamessage-arbgb.
  1354.       modify ilocmessages from wamessage index sy-tabix.
  1355.     endloop.
  1356.   else.
  1357.     if modifiedby is initial.
  1358. *     Select by author
  1359.       select t100~arbgb                             "#EC CI_BUFFJOIN
  1360.              t100~msgnr
  1361.              t100~text
  1362.              t100a~stext
  1363.              appending corresponding fields of table ilocmessages
  1364.                from t100
  1365.                inner join t100a on t100a~arbgb = t100~arbgb
  1366.                where t100a~masterlang = messageclasslang and t100a~respuser in rangeauthor[].
  1367.     else.
  1368. *     Select also by the last person who modified the message class
  1369.       select t100~arbgb                             "#EC CI_BUFFJOIN
  1370.              t100~msgnr
  1371.              t100~text
  1372.              t100a~stext
  1373.              appending corresponding fields of table ilocmessages
  1374.              from t100
  1375.              inner join t100a on t100a~arbgb = t100~arbgb
  1376.              where t100a~masterlang = messageclasslang
  1377.                and t100a~respuser in rangeauthor[]
  1378.                and t100a~lastuser in rangeauthor[].
  1379.     endif.
  1380.   endif.
  1381. endform.                                                                                          "retrieveMessageClass
  1382.  
  1383. *----------------------------------------------------------------------------------------------------------------------
  1384. *  retrieveFunctions...   Retrieve function modules from SAP DB.  May be called in one of two ways
  1385. *----------------------------------------------------------------------------------------------------------------------
  1386. form retrievefunctions using sofname like sofunctionname[]
  1387.                              sofgroup like sofunctiongroup[]
  1388.                              ifunctionnames like ifunctions[]
  1389.                              value(author)
  1390.                              value(gettextelements)
  1391.                              value(getscreens)
  1392.                              value(customeronly)
  1393.                              value(customernamerange).
  1394.  
  1395. ranges: rangefuncname  for tfdir-funcname.
  1396. ranges: rangefuncgroup for enlfdir-area.
  1397. data: wafunctionname type tfunction.
  1398. data: previousfg type v_fdir-area.
  1399.  
  1400.   rangefuncname[] = sofname[].
  1401.   rangefuncgroup[] = sofgroup[].
  1402.  
  1403.   if not pauth is initial and ( sofname[] is initial and sofgroup is initial ).
  1404. *-- Need to select all function groups by author
  1405.     select area from tlibv into rangefuncgroup-low where uname = author.
  1406.       rangefuncgroup-sign = 'I'.
  1407.       rangefuncgroup-option = 'EQ'.
  1408.       append rangefuncgroup.
  1409.     endselect.
  1410.   endif.
  1411.  
  1412. *--- select by function name and/or function group.
  1413.   select funcname area from v_fdir
  1414.                   into (wafunctionname-functionname, wafunctionname-functiongroup)
  1415.                   where funcname in rangefuncname
  1416.                     and area in rangefuncgroup
  1417.                     and generated = ''
  1418.                     order by area.
  1419.  
  1420.     perform retrievefunctiondetail using wafunctionname-functionname
  1421.                                          wafunctionname-progname
  1422.                                          wafunctionname-includenumber
  1423.                                          wafunctionname-functiontitle.
  1424.  
  1425.     perform findmainfunctioninclude using wafunctionname-progname
  1426.                                           wafunctionname-includenumber
  1427.                                           wafunctionname-functionmaininclude.
  1428.  
  1429.     perform findfunctiontopinclude using wafunctionname-progname
  1430.                                          wafunctionname-topincludename.
  1431.  
  1432. *   Find all user defined includes within the function group
  1433.     perform scanforfunctionincludes using wafunctionname-progname
  1434.                                           customeronly
  1435.                                           customernamerange
  1436.                                           wafunctionname-iincludes[].
  1437. *   Find main message class
  1438.     perform findmainmessageclass using wafunctionname-progname
  1439.                                        wafunctionname-messageclass.
  1440.  
  1441. *   Find any screens declared within the main include
  1442.     if not getscreens is initial.
  1443.       if previousfg is initial or previousfg <> wafunctionname-functiongroup.
  1444.         perform findfunctionscreenflow using wafunctionname.
  1445.  
  1446. *       Search for any GUI texts
  1447.         perform retrieveguititles using wafunctionname-iguititle[]
  1448.                                         wafunctionname-progname.
  1449.       endif.
  1450.     endif.
  1451.  
  1452.     if not gettextelements is initial.
  1453. *     Find the program texts from out of the database.
  1454.       perform retrieveprogramtexts using wafunctionname-iselectiontexts[]
  1455.                                          wafunctionname-itextelements[]
  1456.                                          wafunctionname-progname.
  1457.     endif.
  1458.  
  1459.     append wafunctionname to ifunctionnames.
  1460.     previousfg = wafunctionname-functiongroup.
  1461.     clear wafunctionname.
  1462.   endselect.
  1463. endform.                                                                                             "retrieveFunctions
  1465. *----------------------------------------------------------------------------------------------------------------------
  1466. *  retrieveFunctionDetail...   Retrieve function module details from SAP DB.
  1467. *----------------------------------------------------------------------------------------------------------------------
  1468. form retrievefunctiondetail using value(functionname)
  1469.                                         progname
  1470.                                         includename
  1471.                                         titletext.
  1473.   select single pname include
  1474.                 from tfdir
  1475.                 into (progname, includename)
  1476.                 where funcname = functionname.
  1478.   if sy-subrc = 0.
  1479.     select single stext from tftit
  1480.                   into titletext
  1481.                   where spras = sy-langu
  1482.                     and funcname = functionname.
  1483.   endif.
  1484. endform.                                                                                        "retrieveFunctionDetail
  1485.  
  1486. *----------------------------------------------------------------------------------------------------------------------
  1487. *  findMainFunctionInclude...  Find the main include that contains the source code
  1488. *----------------------------------------------------------------------------------------------------------------------
  1489. form findmainfunctioninclude using value(programname)
  1490.                                    value(includeno)
  1491.                                          internalincludename.
  1492. data: newincludenumber type string.
  1493.  
  1494.   concatenate '%U' includeno into newincludenumber.
  1495.   select single include from d010inc
  1496.                         into internalincludename
  1497.                         where master = programname
  1498.                           and include like newincludenumber.
  1499. endform.                                                                                       "findMainFunctionInclude
  1501. *----------------------------------------------------------------------------------------------------------------------
  1502. *  findFunctionTopInclude...  Find the top include for the function group
  1503. *----------------------------------------------------------------------------------------------------------------------
  1504. form findfunctiontopinclude using value(programname)
  1505.                                         topincludename.
  1507.   select single include from d010inc
  1508.                         into topincludename
  1509.                         where master = programname
  1510.                           and include like '%TOP'.
  1511. endform.                                                                                        "findFunctionTopInclude
  1512.  
  1513. *----------------------------------------------------------------------------------------------------------------------
  1514. * scanForAdditionalFuncStuff... Search for additional things relating to functions
  1515. *----------------------------------------------------------------------------------------------------------------------
  1516. form scanforadditionalfuncstuff using ilocfunctions like ifunctions[]
  1517.                                       value(recursiveincludes)
  1518.                                       value(recursivefunctions)
  1519.                                       value(searchforincludes)
  1520.                                       value(searchforfunctions)
  1521.                                       value(searchfordictionary)
  1522.                                       value(searchformessages)
  1523.                                       value(customeronly)
  1524.                                       value(customernamerange).
  1525.  
  1526. data: wafunction type tfunction.
  1527. data: wainclude type tinclude.
  1528.  
  1529.   loop at ilocfunctions into wafunction.
  1530.     if not searchforincludes is initial.
  1531. *     Search in the main include
  1532.       perform scanforincludeprograms using wafunction-functionmaininclude
  1533.                                            recursiveincludes
  1534.                                            customeronly
  1535.                                            customernamerange
  1536.                                            wafunction-iincludes[].
  1537.  
  1538. *     Search in the top include
  1539.       perform scanforincludeprograms using wafunction-topincludename
  1540.                                            recursiveincludes
  1541.                                            customeronly
  1542.                                            customernamerange
  1543.                                            wafunction-iincludes[].
  1544.     endif.
  1545.  
  1546.     if not searchforfunctions is initial.
  1547.       perform scanforfunctions using wafunction-functionmaininclude
  1548.                                      wafunction-programlinkname
  1549.                                      recursiveincludes
  1550.                                      recursivefunctions
  1551.                                      customeronly
  1552.                                      customernamerange
  1553.                                      ilocfunctions[].
  1554.     endif.
  1555.  
  1556.     modify ilocfunctions from wafunction.
  1557.   endloop.
  1558.  
  1559. * Now we have everthing perhaps we had better find all the dictionary structures
  1560.   if not searchfordictionary is initial.
  1561.     loop at ilocfunctions into wafunction.
  1562.       perform scanfortables using wafunction-progname
  1563.                                   customeronly
  1564.                                   customernamerange
  1565.                                   wafunction-idictstruct[].
  1566.  
  1567.       perform scanforlikeortype using wafunction-progname
  1568.                                       customeronly
  1569.                                       customernamerange
  1570.                                       wafunction-idictstruct[].
  1571.  
  1572.       loop at wafunction-iincludes into wainclude.
  1573.         perform scanfortables using wainclude-includename
  1574.                                     customeronly
  1575.                                     customernamerange
  1576.                                     wafunction-idictstruct[].
  1577.  
  1578.         perform scanforlikeortype using wainclude-includename
  1579.                                         customeronly
  1580.                                         customernamerange
  1581.                                         wafunction-idictstruct[].
  1582.       endloop.
  1583.  
  1584.     modify ilocfunctions from wafunction.
  1585.     endloop.
  1586.   endif.
  1587.  
  1588. * Now search for all messages
  1589.   if not searchformessages is initial.
  1590.     loop at ilocfunctions into wafunction.
  1591.       perform scanformessages using wafunction-progname
  1592.                                     wafunction-messageclass
  1593.                                     wafunction-imessages[].
  1594.     modify ilocfunctions from wafunction.
  1595.     endloop.
  1596.   endif.
  1597. endform.                                                                                    "scanForAdditionalFuncStuff
  1599. *----------------------------------------------------------------------------------------------------------------------
  1600. * scanForClasses... Search each class or method for other classes
  1601. *----------------------------------------------------------------------------------------------------------------------
  1602. form scanforclasses using value(classname)
  1603.                           value(classlinkname)
  1604.                           value(customeronly)
  1605.                           value(customernamerange)
  1606.                                 ilocclasses like iclasses[].
  1608. data ilines type standard table of string with header line.
  1609. data: head type string.
  1610. data: tail type string.
  1611. data: linelength type i value 0.
  1612. data: waline type string.
  1613. data: waclass type tclass.
  1614. data: castclassname type program.
  1615. data: exceptioncustomernamerange type string.
  1617. * Build the name of the possible cusotmer exception classes
  1618.   concatenate customernamerange 'CX_' into  exceptioncustomernamerange.
  1620. * Read the program code from the textpool.
  1621.   castclassname = classname.
  1622.   read report castclassname into ilines.
  1624.   loop at ilines into waline.
  1625. *   Find custom tables.
  1626.     linelength = strlen( waline ).
  1627.     if linelength > 0.
  1628.       if waline(1) = asterix.
  1629.         continue.
  1630.       endif.
  1632.       translate waline to upper case.
  1634.       find typerefto in waline ignoring case.
  1635.       if sy-subrc = 0.
  1636. *       Have found a reference to another class
  1637.         split waline at type into head tail.
  1638.         shift tail left deleting leading space.
  1639.         split tail at 'REF' into head tail.
  1640.         shift tail left deleting leading space.
  1641.         split tail at 'TO' into head tail.
  1642.         shift tail left deleting leading space.
  1643.         if tail cs period.
  1644.           split tail at period into head tail.
  1645.         else.
  1646.           if tail cs comma.
  1647.             split tail at comma into head tail.
  1648.           endif.
  1649.         endif.
  1650.       else.
  1651. *       Try and find classes which are only referenced through static mehods
  1652.         find '=>' in waline match offset sy-fdpos.
  1653.         if sy-subrc = 0.
  1654.           head = waline+0(sy-fdpos).
  1655.           shift head left deleting leading space.
  1656.           condense head.
  1657.           find 'call method' in head ignoring case.
  1658.           if sy-subrc = 0.
  1659.             shift head left deleting leading space.
  1660.             split head at space into head tail.
  1661.             split tail at space into head tail.
  1662. *           Should have the class name here
  1663.             head = tail.
  1664.           else.
  1665. *           Still have a class name even though it does not have the words call method in front
  1666.             if waline cs '='.
  1667.               split waline at '=' into tail head.
  1668.               shift head left deleting leading space.
  1669.               split head at '=' into head tail.
  1670.             endif.
  1671.             sy-subrc = 0.
  1672.           endif.
  1673.         endif.
  1674.       endif.
  1676.       if sy-subrc = 0.
  1677.         try.
  1678.           if head+0(1) = 'Y' or head+0(1) = 'Z' or head cs customernamerange.
  1679. *           We have found a class best append it to our class table if we do not already have it.
  1680.             read table ilocclasses into waclass with key clsname = head.
  1681.             if sy-subrc <> 0.
  1682.               if head+0(3) = 'CX_'
  1683.                  or head+0(4) = 'ZCX_'
  1684.                  or head+0(4) = 'YCX_'
  1685.                  or head cs exceptioncustomernamerange.
  1687.                 waclass-exceptionclass = true.
  1688.               endif.
  1690.               waclass-clsname = head.
  1691.               append waclass to ilocclasses.
  1692.             endif.
  1693.           endif.
  1694.           catch cx_sy_range_out_of_bounds.
  1695.         endtry.
  1696.       endif.
  1697.     endif.
  1698.   endloop.
  1699. endform.                                                                                                "scanForClasses
  1700.  
  1701. *----------------------------------------------------------------------------------------------------------------------
  1702. * scanForIncludePrograms... Search each program for include programs
  1703. *----------------------------------------------------------------------------------------------------------------------
  1704. form scanforincludeprograms using value(programname)
  1705.                                   value(recursiveincludes)
  1706.                                   value(customeronly)
  1707.                                   value(customernamerange)
  1708.                                         ilocincludes like dumiincludes[].
  1709.  
  1710. data: iincludelines type standard table of string with header line.
  1711. data: itokens type standard table of stokes with header line.
  1712. data: ikeywords type standard table of text20 with header line.
  1713. data: istatements type standard table of sstmnt with header line.
  1714. data: watokens type stokes.
  1715. data: wainclude type tinclude.
  1716. data: waincludeexists type tinclude.
  1717. data: maxlines type i.
  1718. data: nextline type i.
  1719. data: castprogramname type program.
  1720.  
  1721. * Read the program code from the textpool.
  1722.   castprogramname = programname.
  1723.   read report castprogramname into iincludelines.
  1724.  
  1725.   append include to ikeywords.
  1726.   scan abap-source iincludelines tokens into itokens with includes statements into istatements keywords from ikeywords.
  1727.  
  1728.   clear iincludelines[].
  1729.  
  1730.   maxlines = lines( itokens ).
  1731.   loop at itokens where str = include and type = 'I'.
  1732.      nextline = sy-tabix + 1.
  1733.      if nextline <= maxlines.
  1734.        read table itokens index nextline into watokens.
  1735.  
  1736. *      Are we only to find customer includes?
  1737.        if not customeronly is initial.
  1738.          try.
  1739.            if watokens-str+0(1) = 'Y' or watokens-str+0(1) = 'Z' or watokens-str cs customernamerange
  1740.               or watokens-str+0(2) = 'MZ' or watokens-str+0(2) = 'MY'.
  1741.  
  1742.            else.
  1743.              continue.
  1744.            endif.
  1745.            catch cx_sy_range_out_of_bounds into objruntimeerror.
  1746.          endtry.
  1747.        endif.
  1748.  
  1749.        wainclude-includename = watokens-str.
  1750.  
  1751. *      Best find the program title text as well.
  1752.        perform findprogramorincludetitle using wainclude-includename
  1753.                                                wainclude-includetitle.
  1754.  
  1755. *      Don't append the include if we already have it listed
  1756.        read table ilocincludes into waincludeexists with key includename = wainclude-includename.
  1757.        if sy-subrc <> 0.
  1758.          append wainclude to ilocincludes.
  1760.          if not recursiveincludes is initial.
  1761. *          Do a recursive search for other includes
  1762.            perform scanforincludeprograms using wainclude-includename
  1763.                                                 recursiveincludes
  1764.                                                 customeronly
  1765.                                                 customernamerange
  1766.                                                 ilocincludes[].
  1767.          endif.
  1768.        endif.
  1769.      endif.
  1770.    endloop.
  1771. endform.                                                                                        "scanForIncludePrograms
  1773. *----------------------------------------------------------------------------------------------------------------------
  1774. * scanForFunctions... Search each program for function modules
  1775. *----------------------------------------------------------------------------------------------------------------------
  1776. form scanforfunctions using value(programname)
  1777.                             value(programlinkname)
  1778.                             value(recursiveincludes)
  1779.                             value(recursivefunctions)
  1780.                             value(customeronly)
  1781.                             value(customernamerange)
  1782.                                   ilocfunctions like ifunctions[].
  1784. data: iincludelines type standard table of string with header line.
  1785. data: itokens type standard table of stokes with header line.
  1786. data: istatements type standard table of sstmnt with header line.
  1787. data: watokens type stokes.
  1788. data: wafunction type tfunction.
  1789. data: wafunctioncomparison type tfunction.
  1790. data: maxlines type i.
  1791. data: nextline type i.
  1792. data: castprogramname type program.
  1793. data: skipthisloop type i.
  1795. * Read the program code from the textpool.
  1796.   castprogramname = programname.
  1797.   read report castprogramname into iincludelines.
  1798.   scan abap-source iincludelines tokens into itokens with includes statements into istatements.
  1799.   clear iincludelines[].
  1801.   maxlines = lines( itokens ).
  1802.   loop at itokens where str = function and type = 'I'.
  1804.      nextline = sy-tabix + 1.
  1805.      if nextline <= maxlines.
  1806.        read table itokens index nextline into watokens.
  1808. *      Are we only to find customer functions
  1809.        skipthisloop = false.
  1810.        if not customeronly is initial.
  1811.          try.
  1812.            if watokens-str+1(1) = 'Y' or watokens-str+1(1) = 'Z' or watokens-str cs customernamerange.
  1813.            else.
  1814.              skipthisloop = true.
  1815.            endif.
  1816.          catch cx_sy_range_out_of_bounds into objruntimeerror.
  1817.          cleanup.
  1818.            skipthisloop = true.
  1819.          endtry.
  1820.        endif.
  1822.        if skipthisloop = false.
  1823.          wafunction-functionname = watokens-str.
  1824.          replace all occurrences of '''' in wafunction-functionname with ' '.
  1825.          condense wafunction-functionname.
  1827. *        Don't add a function if we alread have it listed.
  1828.          read table ilocfunctions with key functionname = wafunction-functionname into wafunctioncomparison.
  1829.          if sy-subrc <> 0.
  1830. *          Add in the link name if the function is linked to a program
  1831.            wafunction-programlinkname = programlinkname.
  1832.  
  1833. *          Don't download functions which are called through an RFC destination
  1834.            nextline = sy-tabix + 2.
  1835.            read table itokens index nextline into watokens.
  1836.            if watokens-str <> destination.
  1838. *            Find the function group
  1839.              select single area from v_fdir into wafunction-functiongroup where funcname = wafunction-functionname.
  1841.              if sy-subrc = 0.
  1842. *              Best find the function number as well.
  1843.                perform retrievefunctiondetail using wafunction-functionname
  1844.                                                     wafunction-progname
  1845.                                                     wafunction-includenumber
  1846.                                                     wafunction-functiontitle.
  1848.                perform findmainfunctioninclude using wafunction-progname
  1849.                                                      wafunction-includenumber
  1850.                                                      wafunction-functionmaininclude.
  1852.                perform findfunctiontopinclude using wafunction-progname
  1853.                                                     wafunction-topincludename.
  1855. *              Find main message class
  1856.                perform findmainmessageclass using wafunction-progname
  1857.                                                   wafunction-messageclass.
  1859.                append wafunction to ilocfunctions.
  1861. *              Now lets search a little bit deeper and do a recursive search for other includes
  1862.                if not recursiveincludes is initial.
  1863.                  perform scanforincludeprograms using wafunction-functionmaininclude
  1864.                                                       recursiveincludes
  1865.                                                       customeronly
  1866.                                                       customernamerange
  1867.                                                       wafunction-iincludes[].
  1868.                endif.
  1870. *              Now lets search a little bit deeper and do a recursive search for other functions
  1871.                if not recursivefunctions is initial.
  1872.                  perform scanforfunctions using wafunction-functionmaininclude
  1873.                                                 space
  1874.                                                 recursiveincludes
  1875.                                                 recursivefunctions
  1876.                                                 customeronly
  1877.                                                 customernamerange
  1878.                                                 ilocfunctions[].
  1879.                endif.
  1880.                clear wafunction.
  1881.              endif.
  1882.            endif.
  1883.          endif.
  1885.          clear wafunction.
  1886.        endif.
  1887.      endif.
  1888.    endloop.
  1889. endform.                                                                                              "scanForFunctions
  1891. *----------------------------------------------------------------------------------------------------------------------
  1892. *  scanForFunctionIncludes... Find all user defined includes within the function group
  1893. *----------------------------------------------------------------------------------------------------------------------
  1894. form scanforfunctionincludes using poolname
  1895.                                    value(customeronly)
  1896.                                    value(customernamerange)
  1897.                                    ilocincludes like dumiincludes[].
  1899. data: iincludelines type standard table of string with header line.
  1900. data: itokens type standard table of stokes with header line.
  1901. data: ikeywords type standard table of text20 with header line.
  1902. data: istatements type standard table of sstmnt with header line.
  1903. data: watokens type stokes.
  1904. data: wainclude type tinclude.
  1905. data: waincludeexists type tinclude.
  1906. data: maxlines type i.
  1907. data: nextline type i.
  1908. data: castprogramname type program.
  1910. * Read the program code from the textpool.
  1911.   castprogramname = poolname.
  1912.   read report castprogramname into iincludelines.
  1914.   append include to ikeywords.
  1915.   scan abap-source iincludelines tokens into itokens with includes statements into istatements keywords from ikeywords.
  1917.   clear iincludelines[].
  1919.   maxlines = lines( itokens ).
  1920.   loop at itokens where str = include and type = 'I'.
  1921.      nextline = sy-tabix + 1.
  1922.      if nextline <= maxlines.
  1923.        read table itokens index nextline into watokens.
  1925.        if watokens-str cp '*F++'.
  1926. *        Are we only to find customer includes?
  1927.          if not customeronly is initial.
  1928.            try.
  1929.              if watokens-str+0(2) = 'LY' or watokens-str+0(2) = 'LZ' or watokens-str cs customernamerange.
  1930.              else.
  1931.                continue.
  1932.              endif.
  1933.              catch cx_sy_range_out_of_bounds into objruntimeerror.
  1934.            endtry.
  1935.          endif.
  1937.          wainclude-includename = watokens-str.
  1939. *        Best find the program title text as well.
  1940.          perform findprogramorincludetitle using wainclude-includename
  1941.                                                  wainclude-includetitle.
  1943. *        Don't append the include if we already have it listed
  1944.          read table ilocincludes into waincludeexists with key includename = wainclude-includename.
  1945.          if sy-subrc <> 0.
  1946.            append wainclude to ilocincludes.
  1947.          endif.
  1948.        endif.
  1949.      endif.
  1950.    endloop.
  1951. endform.                                                                                       "scanForFunctionIncludes
  1953. *----------------------------------------------------------------------------------------------------------------------
  1954. *  findProgramOrIncludeTitle...   Finds the title text of a program.
  1955. *----------------------------------------------------------------------------------------------------------------------
  1956. form findprogramorincludetitle using value(programname)
  1957.                                            titletext.
  1959.   select single text from trdirt
  1960.                      into titletext
  1961.                      where name = programname
  1962.                        and sprsl = sy-langu.
  1963. endform.                                                                                     "findProgramOrIncludeTitle
  1964.  
  1965. *----------------------------------------------------------------------------------------------------------------------
  1966. * retrievePrograms...    find programs and sub objects from SAP DB
  1967. *----------------------------------------------------------------------------------------------------------------------
  1968. form retrieveprograms using ilocprogram like iprograms[]
  1969.                             ilocfunctions like ifunctions[]
  1970.                             rangeprogram like soprogramname[]
  1971.                             rangeauthor like soauthor[]
  1972.                             value(custnamerange)
  1973.                             value(alsomodifiedbyauthor)
  1974.                             value(customerprogsonly)
  1975.                             value(getmessages)
  1976.                             value(gettextelements)
  1977.                             value(getcustdictstructures)
  1978.                             value(getfunctions)
  1979.                             value(getincludes)
  1980.                             value(getscreens)
  1981.                             value(recursivefuncsearch)
  1982.                             value(recursiveincludesearch)
  1983.                             value(getlocalobjects)
  1984.                             value(package).
  1985.  
  1986. data: warangeprogram like line of rangeprogram.
  1987.  
  1988.   if rangeprogram[] is initial.
  1989. *   We are finding all programs by an author
  1990.     perform findallprogramsforauthor using ilocprogram[]
  1991.                                            rangeprogram[]
  1992.                                            rangeauthor[]
  1993.                                            custnamerange
  1994.                                            alsomodifiedbyauthor
  1995.                                            customerprogsonly
  1996.                                            getlocalobjects
  1997.                                            package.
  1998.   else.
  1999.     read table rangeprogram index 1 into warangeprogram.
  2000.     if warangeprogram-low cs asterix.
  2001.       perform findprogramsbywildcard using ilocprogram[]
  2002.                                            rangeprogram[]
  2003.                                            rangeauthor[]
  2004.                                            custnamerange
  2005.                                            customerprogsonly
  2006.                                            getlocalobjects
  2007.                                            package.
  2008.     else.
  2009.       perform checkprogramdoesexist using ilocprogram[]
  2010.                                           rangeprogram[].
  2011.     endif.
  2012.   endif.
  2013.  
  2014. * Find extra items
  2015.   perform scanforadditionalprogstuff using ilocprogram[]
  2016.                                            ilocfunctions[]
  2017.                                            gettextelements
  2018.                                            getmessages
  2019.                                            getscreens
  2020.                                            getcustdictstructures
  2021.                                            getfunctions
  2022.                                            getincludes
  2023.                                            customerprogsonly
  2024.                                            custnamerange
  2025.                                            recursiveincludesearch
  2026.                                            recursivefuncsearch.
  2027. endform.                                                                               "retrievePrograms
  2029. *-------------------------------------------------------------------------------------------------------
  2030. *  scanForAdditionalProgStuff...
  2031. *-------------------------------------------------------------------------------------------------------
  2032. form scanforadditionalprogstuff using ilocprogram like iprograms[]
  2033.                                       ilocfunctions like ifunctions[]
  2034.                                       value(gettextelements)
  2035.                                       value(getmessages)
  2036.                                       value(getscreens)
  2037.                                       value(getcustdictstructures)
  2038.                                       value(getfunctions)
  2039.                                       value(getincludes)
  2040.                                       value(customeronly)
  2041.                                       value(customernamerange)
  2042.                                       value(recursiveincludesearch)
  2043.                                       value(recursivefuncsearch).
  2045. data: waprogram type tprogram.
  2046. data: wainclude type tinclude.
  2047. data: mytabix type sytabix.
  2049. * Best to find all the includes used in a program first
  2050.   if not getincludes is initial.
  2051.     loop at ilocprogram into waprogram.
  2052.       mytabix = sy-tabix.
  2053.       perform scanforincludeprograms using waprogram-progname
  2054.                                            recursiveincludesearch
  2055.                                            customeronly
  2056.                                            customernamerange
  2057.                                            waprogram-iincludes[].
  2059.       modify ilocprogram from waprogram index mytabix.
  2060.     endloop.
  2061.   endif.
  2063. * Once we have a list of all the includes we need to loop round them an select all the other objects
  2064.   loop at ilocprogram into waprogram.
  2065.     mytabix = sy-tabix.
  2066.     perform findprogramdetails using waprogram-progname
  2067.                                      waprogram-subc
  2068.                                      waprogram-programtitle
  2069.                                      waprogram
  2070.                                      gettextelements
  2071.                                      getmessages
  2072.                                      getscreens
  2073.                                      getcustdictstructures
  2074.                                      customeronly
  2075.                                      customernamerange.
  2077. *   Find any screens
  2078.     if not getscreens is initial.
  2079.       perform findprogramscreenflow using waprogram.
  2080.     endif.
  2082.     loop at waprogram-iincludes into wainclude.
  2083.       perform findprogramdetails using wainclude-includename
  2084.                                        'I'
  2085.                                        wainclude-includetitle
  2086.                                        waprogram
  2087.                                        gettextelements
  2088.                                        getmessages
  2089.                                        getscreens
  2090.                                        getcustdictstructures
  2091.                                        customeronly
  2092.                                        customernamerange.
  2093.     endloop.
  2095.     modify ilocprogram from waprogram index mytabix.
  2096.   endloop.
  2098. * Now we have all the program includes and details we need to find extra functions
  2099.   if not getfunctions is initial.
  2100.     loop at ilocprogram into waprogram.
  2101. *     Find any functions defined in the code
  2102.       perform scanforfunctions using waprogram-progname
  2103.                                      waprogram-progname
  2104.                                      space
  2105.                                      space
  2106.                                      customeronly
  2107.                                      customernamerange
  2108.                                      ilocfunctions[].
  2109.     endloop.
  2110.   endif.
  2112. * We have a list of all the functions so lets go and find details and other function calls
  2113.   perform scanforadditionalfuncstuff using ilocfunctions[]
  2114.                                            recursiveincludesearch
  2115.                                            recursivefuncsearch
  2116.                                            getincludes
  2117.                                            getfunctions
  2118.                                            getcustdictstructures
  2119.                                            getmessages
  2120.                                            customeronly
  2121.                                            customernamerange.
  2122. endform.                                                                     "scanForAdditionalProgStuff
  2123.  
  2124. *-------------------------------------------------------------------------------------------------------
  2125. *  findProgramDetails...
  2126. *-------------------------------------------------------------------------------------------------------
  2127. form findprogramdetails using value(programname)
  2128.                               value(programtype)
  2129.                                     programtitle
  2130.                                     waprogram type tprogram
  2131.                               value(gettextelements)
  2132.                               value(getmessages)
  2133.                               value(getscreens)
  2134.                               value(getcustdictstructures)
  2135.                               value(customeronly)
  2136.                               value(customernamerange).
  2137.  
  2138.   perform findprogramorincludetitle using programname
  2139.                                           programtitle.
  2140.  
  2141.   if not gettextelements is initial.
  2142. *   Find the program texts from out of the database.
  2143.     perform retrieveprogramtexts using waprogram-iselectiontexts[]
  2144.                                        waprogram-itextelements[]
  2145.                                        programname.
  2146.   endif.
  2147.  
  2148. * Search for any GUI texts
  2149.   if not getscreens is initial and ( programtype = 'M' or programtype = '1' ).
  2150.     perform retrieveguititles using waprogram-iguititle[]
  2151.                                     programname.
  2152.   endif.
  2153.  
  2154. * Find individual messages
  2155.   if not getmessages is initial.
  2156.     if programtype = 'M' or programtype = '1'.
  2157.       perform findmainmessageclass using programname
  2158.                                          waprogram-messageclass.
  2159.     endif.
  2160.  
  2161.     perform scanformessages using programname
  2162.                                   waprogram-messageclass
  2163.                                   waprogram-imessages[].
  2164.   endif.
  2165.  
  2166.   if not getcustdictstructures is initial.
  2167.     perform scanfortables using programname
  2168.                                 customeronly
  2169.                                 customernamerange
  2170.                                 waprogram-idictstruct[].
  2171.  
  2172.     perform scanforlikeortype using programname
  2173.                                     customeronly
  2174.                                     customernamerange
  2175.                                     waprogram-idictstruct[].
  2176.   endif.
  2177. endform.                                                                             "findProgramDetails
  2179. *-------------------------------------------------------------------------------------------------------
  2180. *  findAllProgramsForAuthor...
  2181. *-------------------------------------------------------------------------------------------------------
  2182. form findallprogramsforauthor using ilocprogram like iprograms[]
  2183.                                     rangeprogram like soprogramname[]
  2184.                                     rangeauthor like soauthor[]
  2185.                                     value(custnamerange)
  2186.                                     value(alsomodifiedbyauthor)
  2187.                                     value(customerprogsonly)
  2188.                                     value(getlocalobjects)
  2189.                                     value(package).
  2191. data: altcustomernamerange type string.
  2192. field-symbols: <waprogram> type tprogram.
  2193. data: genflag type genflag.
  2195. * build up the customer name range used for select statements
  2196.   concatenate custnamerange '%' into altcustomernamerange.
  2198. * select by name and author
  2199.   if not alsomodifiedbyauthor is initial.
  2200. *   Programs modified by author
  2201. *   Program to search for is an executable program
  2202.     if customerprogsonly is initial.
  2203. *     Select all programs
  2204.       select progname subc from reposrc appending corresponding fields of table ilocprogram
  2205.                       where progname in rangeprogram
  2206.                         and cnam in rangeauthor
  2207.                         and ( subc = '1' or subc = 'M' or subc = 'S' ).
  2209.     else.
  2210. *     Select only customer specific programs
  2211.       select progname subc from reposrc appending corresponding fields of table ilocprogram
  2212.                       where progname  in rangeprogram
  2213.                         and ( progname like altcustomernamerange
  2214.                               or progname like 'Z%' or progname like 'Y%'
  2215.                               or progname like 'SAPMZ%' or progname like 'SAPMY%')
  2216.                         and cnam in rangeauthor
  2217.                         and ( subc = '1' or subc = 'M' or subc = 'S' ).
  2218.     endif.
  2219.   else.
  2221. *   Programs created by author
  2222.     if customerprogsonly is initial.
  2223. *     Select all programs
  2224.       select progname subc from reposrc appending corresponding fields of table ilocprogram
  2225.                       where progname in rangeprogram
  2226.                         and ( subc = '1' or subc = 'M' or subc = 'S' )
  2227.                         and ( cnam in rangeauthor or unam in rangeauthor ).
  2228.     else.
  2229. *     Select only customer specific programs
  2230.       select progname subc from reposrc appending corresponding fields of table ilocprogram
  2231.                       where progname in rangeprogram
  2232.                         and ( progname like altcustomernamerange
  2233.                               or progname like 'Z%' or progname like 'Y%'
  2234.                               or progname like 'SAPMZ%' or progname like 'SAPMY%')
  2235.                         and ( subc = '1' or subc = 'M' or subc = 'S' )
  2236.                         and ( cnam in rangeauthor or unam in rangeauthor ).
  2237.     endif.
  2238.   endif.
  2240. * Delete any programs which are local objects
  2241.   if getlocalobjects is initial.
  2242.     loop at ilocprogram assigning <waprogram>.
  2243.       select single genflag from tadiv
  2244.                     into genflag
  2245.                     where pgmid = 'R3TR'
  2246.                       and object = 'PROG'
  2247.                       and obj_name = <waprogram>-progname
  2248.                       and devclass = '$TMP'.
  2249.       if sy-subrc = 0.
  2250.         delete ilocprogram.
  2251.       endif.
  2252.     endloop.
  2253.   endif.
  2255. * Delete any programs which are not in the specified package
  2256.   if not package is initial.
  2257.     loop at ilocprogram assigning <waprogram>.
  2258.       select single genflag from tadiv
  2259.                     into genflag
  2260.                     where pgmid = 'R3TR'
  2261.                       and object = 'PROG'
  2262.                       and obj_name = <waprogram>-progname
  2263.                       and devclass <> package.
  2264.       if sy-subrc = 0.
  2265.         delete ilocprogram.
  2266.       endif.
  2267.     endloop.
  2268.   endif.
  2269. endform.                                                                       "findAllProgramsForAuthor
  2270.  
  2271. *-------------------------------------------------------------------------------------------------------
  2272. *  checkProgramDoesExist...
  2273. *-------------------------------------------------------------------------------------------------------
  2274. form checkprogramdoesexist using ilocprogram like iprograms[]
  2275.                                  rangeprogram like soprogramname[].
  2276.  
  2277. data: waprogram type tprogram.
  2278.  
  2279. *  Check to see if the program is an executable program
  2280. *   select single progname subc
  2281.    select progname subc
  2282.                  into (waprogram-progname, waprogram-subc)
  2283.                  from reposrc
  2284.                  where progname in rangeprogram
  2285.                    and ( subc = '1' or
  2286.                          subc = 'I' or
  2287.                          subc = 'M' or
  2288.                          subc = 'S' ).
  2289.  
  2290.    if not waprogram-progname is initial.
  2291.      append waprogram to ilocprogram.
  2292.    endif.
  2293.    endselect.
  2294. endform.                                                                          "checkProgramDoesExist
  2296. *-------------------------------------------------------------------------------------------------------
  2297. *  findProgramsByWildcard.. Search in the system for programs
  2298. *-------------------------------------------------------------------------------------------------------
  2299. form findprogramsbywildcard using ilocprogram like iprograms[]
  2300.                                   value(rangeprogram) like soprogramname[]
  2301.                                   value(rangeauthor) like soauthor[]
  2302.                                   value(custnamerange)
  2303.                                   value(customerprogsonly)
  2304.                                   value(getlocalobjects)
  2305.                                   value(package).
  2307. data: altcustomernamerange type string.
  2308. field-symbols: <waprogram> type tprogram.
  2309. data: genflag type genflag.
  2311.   if customerprogsonly is initial.
  2312. *   build up the customer name range used for select statements
  2313.     if custnamerange <> '^'.
  2314.       concatenate custnamerange '%' into altcustomernamerange.
  2316.       select progname subc from reposrc appending corresponding fields of table ilocprogram
  2317.                       where progname  in rangeprogram
  2318.                         and progname like altcustomernamerange
  2319.                         and ( subc = '1' or subc = 'M' or subc = 'S' )
  2320.                         and ( cnam in rangeauthor or unam in rangeauthor ).
  2321.     else.
  2322.       select progname subc from reposrc appending corresponding fields of table ilocprogram
  2323.                       where progname  in rangeprogram
  2324.                         and ( subc = '1' or subc = 'M' or subc = 'S' )
  2325.                         and ( cnam in rangeauthor or unam in rangeauthor ).
  2326.     endif.
  2327.   else.
  2328. *   Only customer programs
  2329.     if custnamerange <> '^'.
  2330.       concatenate custnamerange '%' into altcustomernamerange.
  2332.       select progname subc from reposrc appending corresponding fields of table ilocprogram
  2333.                       where progname  in rangeprogram
  2334.                         and ( progname like altcustomernamerange
  2335.                               or progname like 'Z%' or progname like 'Y%'
  2336.                               or progname like 'SAPMZ%' or progname like 'SAPMY%')
  2337.                         and ( subc = '1' or subc = 'M' or subc = 'S' )
  2338.                         and ( cnam in rangeauthor or unam in rangeauthor ).
  2339.     else.
  2340.       select progname subc from reposrc appending corresponding fields of table ilocprogram
  2341.                       where progname  in rangeprogram
  2342.                         and ( progname like 'Z%' or progname like 'Y%' or progname like 'SAPMZ%' or progname like 'SAPMY%')
  2343.                         and ( subc = '1' or subc = 'M' or subc = 'S' )
  2344.                         and ( cnam in rangeauthor or unam in rangeauthor ).
  2345.     endif.
  2346.   endif.
  2348. * Delete any programs which are local objects
  2349.   if getlocalobjects is initial.
  2350.     loop at ilocprogram assigning <waprogram>.
  2351.       select single genflag from tadiv
  2352.                     into genflag
  2353.                     where pgmid = 'R3TR'
  2354.                       and object = 'PROG'
  2355.                       and obj_name = <waprogram>-progname
  2356.                       and devclass = '$TMP'.
  2357.       if sy-subrc = 0.
  2358.         delete ilocprogram.
  2359.       endif.
  2360.     endloop.
  2361.   endif.
  2363. * Delete any programs which are not in the specified package
  2364.   if not package is initial.
  2365.     loop at ilocprogram assigning <waprogram>.
  2366.       select single genflag from tadiv
  2367.                     into genflag
  2368.                     where pgmid = 'R3TR'
  2369.                       and object = 'PROG'
  2370.                       and obj_name = <waprogram>-progname
  2371.                       and devclass <> package.
  2372.       if sy-subrc = 0.
  2373.         delete ilocprogram.
  2374.       endif.
  2375.     endloop.
  2376.   endif.
  2377. endform.                                                                         "findProgramsByWildcard
  2378.  
  2379. *-------------------------------------------------------------------------------------------------------
  2380. *  retrieveProgramTexts... Find the text elements and selection texts for a program
  2381. *-------------------------------------------------------------------------------------------------------
  2382. form retrieveprogramtexts using ilocselectiontexts like dumitexttab[]
  2383.                                 iloctextelements like dumitexttab[]
  2384.                                 value(programname).
  2385.  
  2386. data: itexttable type standard table of ttexttable with header line.
  2387. data: watexts type ttexttable.
  2388. data: castprogramname(50).
  2389.  
  2390.   move programname to castprogramname.
  2391.  
  2392.   read textpool castprogramname into itexttable language sy-langu.
  2393.   delete itexttable where key = 'R'.
  2394.  
  2395. * Selection texts.
  2396.   loop at itexttable where id = 'S'.
  2397.     move itexttable-key to watexts-key.
  2398.     move itexttable-entry to watexts-entry.
  2399.     append watexts to ilocselectiontexts.
  2400.     clear watexts.
  2401.   endloop.
  2402.  
  2403. * Text elements.
  2404.   delete itexttable where key = 'S'.
  2405.   loop at itexttable where id = 'I'.
  2406.     move itexttable-key to watexts-key.
  2407.     move itexttable-entry to watexts-entry.
  2408.     append watexts to iloctextelements.
  2409.   endloop.
  2410. endform.                                                                           "retrieveProgramTexts
  2412. *-------------------------------------------------------------------------------------------------------
  2413. *  retrieveGUITitles...  Search for any GUI texts
  2414. *-------------------------------------------------------------------------------------------------------
  2415. form retrieveguititles using ilocguititle like dumiguititle[]
  2416.                              value(programname).
  2418.   select obj_code
  2419.          text
  2420.          from d347t
  2421.          appending corresponding fields of table ilocguititle
  2422.          where progname = programname.
  2423. endform.                                                                              "retrieveGUITitles
  2424.  
  2425. *-------------------------------------------------------------------------------------------------------
  2426. *   findMainMessageClass... find the message class stated at the top of  program.
  2427. *-------------------------------------------------------------------------------------------------------
  2428. form findmainmessageclass using value(programname)
  2429.                                       messageclass.
  2430.  
  2431.   select single msgid
  2432.                 from trdire into messageclass
  2433.                 where report = programname.
  2434. endform.                                                                           "findMainMessageClass
  2436. *-------------------------------------------------------------------------------------------------------
  2437. * retrieveClasses...    find classes and sub objects from SAP DB
  2438. *-------------------------------------------------------------------------------------------------------
  2439. form retrieveclasses using ilocclasses like iclasses[]
  2440.                            ilocfunctions like ifunctions[]
  2441.                            rangeclass like soclassname[]
  2442.                            rangeauthor like soauthor[]
  2443.                            value(custnamerange)
  2444.                            value(alsomodifiedbyauthor)
  2445.                            value(customerprogsonly)
  2446.                            value(getmessages)
  2447.                            value(gettextelements)
  2448.                            value(getcustdictstructures)
  2449.                            value(getfunctions)
  2450.                            value(getincludes)
  2451.                            value(recursivefuncsearch)
  2452.                            value(recursiveincludesearch)
  2453.                            value(recursiveclasssearch)
  2454.                            value(language).
  2456. data: warangeclass like line of rangeclass.
  2458.   if rangeclass[] is initial.
  2459. *   We are finding all programs by an author
  2460.     perform findallclassesforauthor using ilocclasses[]
  2461.                                            rangeclass[]
  2462.                                            rangeauthor[]
  2463.                                            custnamerange
  2464.                                            alsomodifiedbyauthor
  2465.                                            customerprogsonly
  2466.                                            language.
  2467.   else.
  2468.     read table rangeclass index 1 into warangeclass.
  2469.     if warangeclass-low cs asterix.
  2470.       perform findclassesbywildcard using ilocclasses[]
  2471.                                           rangeclass[]
  2472.                                           rangeauthor[]
  2473.                                           custnamerange
  2474.                                           customerprogsonly
  2475.                                           language.
  2476.     else.
  2477.       perform checkclassdoesexist using ilocclasses[]
  2478.                                         rangeclass[].
  2479.     endif.
  2480.   endif.
  2482. * Find extra items
  2483.   if not ilocclasses[] is initial.
  2484.     perform scanforadditionalclassstuff using ilocclasses[]
  2485.                                               ilocfunctions[]
  2486.                                               gettextelements
  2487.                                               getmessages
  2488.                                               getcustdictstructures
  2489.                                               getfunctions
  2490.                                               getincludes
  2491.                                               customerprogsonly
  2492.                                               custnamerange
  2493.                                               recursiveincludesearch
  2494.                                               recursivefuncsearch
  2495.                                               recursiveclasssearch.
  2496.   endif.
  2497. endform.                                                                                "retrieveClasses
  2498.  
  2499. *-------------------------------------------------------------------------------------------------------
  2500. *  findAllClassesForAuthor...
  2501. *-------------------------------------------------------------------------------------------------------
  2502. form findallclassesforauthor using ilocclass like iclasses[]
  2503.                                    rangeclass like soclassname[]
  2504.                                    rangeauthor like soauthor[]
  2505.                                    value(custnamerange)
  2506.                                    value(alsomodifiedbyauthor)
  2507.                                    value(customerclassesonly)
  2508.                                    value(language).
  2509.  
  2510. data: altcustomernamerange(2).
  2511.  
  2512. * build up the customer name range used for select statements
  2513.   concatenate custnamerange '%' into altcustomernamerange.
  2514.  
  2515. * select by name and author
  2516.   if not alsomodifiedbyauthor is initial.
  2517. *   Classes modified by author
  2518.     if customerclassesonly is initial.
  2519. *     Select all classes
  2520.       select clsname descript msg_id
  2521.              from vseoclass appending corresponding fields of table ilocclass
  2522.              where clsname in rangeclass
  2523.                and langu = language
  2524.                and ( author in rangeauthor or changedby in rangeauthor )
  2525.                and version = '1'
  2526.                and ( state = '0' or state = '1' ).
  2527.  
  2528.       if sy-subrc <> 0.
  2529.         select clsname descript msg_id
  2530.                from vseoclass appending corresponding fields of table ilocclass
  2531.                where clsname in rangeclass
  2532.                and langu = language
  2533.                  and ( author in rangeauthor or changedby in rangeauthor )
  2534.                  and version = '0'
  2535.                  and ( state = '0' or state = '1' ).
  2536.       endif.
  2537.     else.
  2538. *     Select only customer specific classes
  2539.       select clsname descript msg_id
  2540.              from vseoclass appending corresponding fields of table ilocclass
  2541.              where clsname in rangeclass
  2542.                and ( clsname like altcustomernamerange or clsname like 'Z%' or clsname like 'Y%')
  2543.                and langu = language
  2544.                and ( author in rangeauthor or changedby in rangeauthor )
  2545.                and version = '1'
  2546.                and ( state = '0' or state = '1' ).
  2547.  
  2548.       if sy-subrc <> 0.
  2549.         select clsname descript msg_id
  2550.                from vseoclass appending corresponding fields of table ilocclass
  2551.                where clsname in rangeclass
  2552.                  and ( clsname like altcustomernamerange or clsname like 'Z%' or clsname like 'Y%')
  2553.                  and langu = language
  2554.                  and ( author in rangeauthor or changedby in rangeauthor )
  2555.                  and version = '0'
  2556.                  and ( state = '0' or state = '1' ).
  2557.       endif.
  2558.     endif.
  2559.   else.
  2560. *   Programs created by author
  2561.     if customerclassesonly is initial.
  2562. *     Select all classes
  2563.       select clsname descript msg_id
  2564.              from vseoclass appending corresponding fields of table ilocclass
  2565.              where clsname in rangeclass
  2566.                and langu = language
  2567.                and author in rangeauthor
  2568.                and version = '1'
  2569.                and ( state = '0' or state = '1' ).
  2570.  
  2571.       if sy-subrc <> 0.
  2572.         select clsname descript msg_id
  2573.                from vseoclass appending corresponding fields of table ilocclass
  2574.                where clsname in rangeclass
  2575.                  and langu = language
  2576.                  and author in rangeauthor
  2577.                  and version = '0'
  2578.                  and ( state = '0' or state = '1' ).
  2579.       endif.
  2580.     else.
  2581. *     Select only customer specific classes
  2582.       select clsname descript msg_id
  2583.              from vseoclass appending corresponding fields of table ilocclass
  2584.              where clsname in rangeclass
  2585.                and ( clsname like altcustomernamerange or clsname like 'Z%' or clsname like 'Y%')
  2586.                and langu = language
  2587.                and author in rangeauthor
  2588.                and version = '1'
  2589.                and ( state = '0' or state = '1' ).
  2590.  
  2591.       if sy-subrc <> 0.
  2592.         select clsname descript msg_id
  2593.                from vseoclass appending corresponding fields of table ilocclass
  2594.                where clsname in rangeclass
  2595.                  and ( clsname like altcustomernamerange or clsname like 'Z%' or clsname like 'Y%')
  2596.                  and langu = language
  2597.                  and author in rangeauthor
  2598.                  and version = '0'
  2599.                  and ( state = '0' or state = '1' ).
  2600.       endif.
  2601.     endif.
  2602.   endif.
  2603. endform.                                                                        "findAllClassesForAuthor
  2605. *-------------------------------------------------------------------------------------------------------
  2606. *  findClassesByWildcard...  Find classes using a wildcard search
  2607. *-------------------------------------------------------------------------------------------------------
  2608. form findclassesbywildcard using ilocclass like iclasses[]
  2609.                                  rangeclass like soclassname[]
  2610.                                  value(rangeauthor) like soauthor[]
  2611.                                  value(custnamerange)
  2612.                                  value(customerclassesonly)
  2613.                                  value(language).
  2615. data: altcustomernamerange(2).
  2617.   if customerclassesonly is initial.
  2618. *   Searching for customer and SAP classes
  2619.     if custnamerange <> '^'.
  2620. *     build up the customer name range used for select statements
  2621.       concatenate custnamerange '%' into altcustomernamerange.
  2623.       select clsname descript msg_id
  2624.              from vseoclass appending corresponding fields of table ilocclass
  2625.              where clsname in rangeclass
  2626.                and clsname like custnamerange
  2627.                and langu = language
  2628.                and ( author in rangeauthor or changedby in rangeauthor )
  2629.                and version = '1'
  2630.                and ( state = '0' or state = '1' ).
  2631.       if sy-subrc <> 0.
  2632.         select clsname descript msg_id
  2633.                from vseoclass appending corresponding fields of table ilocclass
  2634.                where clsname in rangeclass
  2635.                  and clsname like custnamerange
  2636.                  and langu = language
  2637.                  and ( author in rangeauthor or changedby in rangeauthor )
  2638.                  and version = '0'
  2639.                  and ( state = '0' or state = '1' ).
  2640.       endif.
  2641.     else.
  2642. *     Searching using normal name ranges
  2643.       select clsname descript msg_id
  2644.              from vseoclass appending corresponding fields of table ilocclass
  2645.              where clsname in rangeclass
  2646.                and langu = language
  2647.                and ( author in rangeauthor or changedby in rangeauthor )
  2648.                and version = '1'
  2649.                and ( state = '0' or state = '1' ).
  2650.       if sy-subrc <> 0.
  2651.         select clsname descript msg_id
  2652.                from vseoclass appending corresponding fields of table ilocclass
  2653.                where clsname in rangeclass
  2654.                  and langu = language
  2655.                  and ( author in rangeauthor or changedby in rangeauthor )
  2656.                  and version = '0'
  2657.                  and ( state = '0' or state = '1' ).
  2658.       endif.
  2659.     endif.
  2660.   else.
  2661. *   searching for only customer classes
  2662.     if custnamerange <> '^'.
  2663. *     build up the customer name range used for select statements
  2664.       concatenate custnamerange '%' into altcustomernamerange.
  2666.       select clsname descript msg_id
  2667.              from vseoclass appending corresponding fields of table ilocclass
  2668.              where clsname in rangeclass
  2669.                and clsname like custnamerange
  2670.                and langu = language
  2671.                and ( clsname like 'ZC%' or clsname like 'YC%' )
  2672.                and ( author in rangeauthor or changedby in rangeauthor )
  2673.                and version = '1'
  2674.                and ( state = '0' or state = '1' ).
  2675.       if sy-subrc <> 0.
  2676.         select clsname descript msg_id
  2677.                from vseoclass appending corresponding fields of table ilocclass
  2678.                where clsname in rangeclass
  2679.                  and langu = language
  2680.                  and ( clsname like 'ZC%' or clsname like 'YC%' )
  2681.                  and ( author in rangeauthor or changedby in rangeauthor )
  2682.                  and version = '0'
  2683.                  and ( state = '0' or state = '1' ).
  2684.       endif.
  2685.     else.
  2686. *     Searching using normal name ranges
  2687.       select clsname descript msg_id
  2688.              from vseoclass appending corresponding fields of table ilocclass
  2689.              where clsname in rangeclass
  2690.                and ( clsname like 'ZC%' or clsname like 'YC%' )
  2691.                and ( author in rangeauthor or changedby in rangeauthor )
  2692.                and version = '1'
  2693.                and ( state = '0' or state = '1' ).
  2694.       if sy-subrc <> 0.
  2695.         select clsname descript msg_id
  2696.                from vseoclass appending corresponding fields of table ilocclass
  2697.                where clsname in rangeclass
  2698.                  and ( clsname like 'ZC%' or clsname like 'YC%' )
  2699.                  and ( author in rangeauthor or changedby in rangeauthor )
  2700.                  and version = '0'
  2701.                  and ( state = '0' or state = '1' ).
  2702.       endif.
  2703.     endif.
  2704.   endif.
  2705. endform.                                                                          "findClassesByWildcard
  2706.  
  2707. *-------------------------------------------------------------------------------------------------------
  2708. *  checkClassDoesExist...
  2709. *-------------------------------------------------------------------------------------------------------
  2710. form checkclassdoesexist using ilocclass like iclasses[]
  2711.                                rangeclass like soclassname[].
  2712.  
  2713. data: waclass type tclass.
  2714.  
  2715.   select single clsname descript msg_id
  2716.          from vseoclass into corresponding fields of waclass
  2717.          where clsname in rangeclass
  2718.            and version = '1'
  2719.            and ( state = '0' or state = '1' ).
  2720.  
  2721.   if sy-subrc <> 0.
  2722.     select single clsname descript msg_id
  2723.          from vseoclass into corresponding fields of waclass
  2724.            where clsname in rangeclass
  2725.              and version = '0'
  2726.              and ( state = '0' or state = '1' ).
  2727.   endif.
  2728.  
  2729.    if not waclass-clsname is initial.
  2730.      append waclass to ilocclass.
  2731.    endif.
  2732. endform.                                                                            "checkClassDoesExist
  2734. *-------------------------------------------------------------------------------------------------------
  2735. *  scanForAdditionalClassStuff...
  2736. *-------------------------------------------------------------------------------------------------------
  2737. form scanforadditionalclassstuff using ilocclasses like iclasses[]
  2738.                                        ilocfunctions like ifunctions[]
  2739.                                        value(gettextelements)
  2740.                                        value(getmessages)
  2741.                                        value(getcustdictstructures)
  2742.                                        value(getfunctions)
  2743.                                        value(getincludes)
  2744.                                        value(customeronly)
  2745.                                        value(customernamerange)
  2746.                                        value(recursiveincludesearch)
  2747.                                        value(recursivefuncsearch)
  2748.                                        value(recursiveclasssearch).
  2750. data: waclass type tclass.
  2751. data: wamethod type tmethod.
  2752. data: mytabix type sytabix.
  2753. data: scanningforclasses type i value false.
  2754. data: classnewlines type i value 0.
  2755. data: classcurrentlines type i value 0.
  2757.   loop at ilocclasses into waclass where scanned is initial.
  2758. *  Once we have a list of all the classes we need to loop round them an select all the other objects
  2759.     mytabix = sy-tabix.
  2760.     perform findclassdetails using waclass-clsname
  2761.                                    waclass
  2762.                                    ilocfunctions[]
  2763.                                    gettextelements
  2764.                                    getmessages
  2765.                                    getfunctions
  2766.                                    getcustdictstructures
  2767.                                    customeronly
  2768.                                    customernamerange.
  2770. *   Set the scanned class so we do not check them again when running recursively.
  2771.     waclass-scanned = 'X'.
  2772.     modify ilocclasses from waclass index mytabix.
  2773.   endloop.
  2775. * Now we have all the classes and details we need to find extra classes
  2776.   if not recursiveclasssearch is initial.
  2777.     classcurrentlines = lines( ilocclasses ).
  2778.     loop at ilocclasses into waclass.
  2779. *     Don't try and find any other details for an exception class
  2780.       if ( waclass-clsname ns 'ZCX_' or waclass-clsname ns 'CX_'  ).
  2781. *       Find any classes defined in the main class definition
  2782.         perform scanforclasses using waclass-privateclasskey
  2783.                                      waclass-clsname
  2784.                                      customeronly
  2785.                                      customernamerange
  2786.                                      ilocclasses[].
  2788.         perform scanforclasses using waclass-publicclasskey
  2789.                                      waclass-clsname
  2790.                                      customeronly
  2791.                                      customernamerange
  2792.                                      ilocclasses[].
  2794.         perform scanforclasses using waclass-protectedclasskey
  2795.                                      waclass-clsname
  2796.                                      customeronly
  2797.                                      customernamerange
  2798.                                      ilocclasses[].
  2800.         loop at waclass-imethods into wamethod.
  2801. *         Find any classes defined in any of the methods
  2802.           perform scanforclasses using wamethod-methodkey
  2803.                                        waclass-clsname
  2804.                                        customeronly
  2805.                                        customernamerange
  2806.                                        ilocclasses[].
  2807.         endloop.
  2808.       endif.
  2809.     endloop.
  2811. *   We have a list of all the classes so lets go and find their details
  2812.     classnewlines = lines( ilocclasses ).
  2813.     if classnewlines > classcurrentlines.
  2814.       perform scanforadditionalclassstuff using ilocclasses[]
  2815.                                                 ilocfunctions[]
  2816.                                                 gettextelements
  2817.                                                 getmessages
  2818.                                                 getcustdictstructures
  2819.                                                 getfunctions
  2820.                                                 getincludes
  2821.                                                 customeronly
  2822.                                                 customernamerange
  2823.                                                 recursiveincludesearch
  2824.                                                 recursivefuncsearch
  2825.                                                 recursiveclasssearch.
  2826.     endif.
  2827.   endif.
  2828. endform.                                                                   "scanForAdditionalClassStuff
  2829.  
  2830. *-------------------------------------------------------------------------------------------------------
  2831. *  findClassDetails...
  2832. *-------------------------------------------------------------------------------------------------------
  2833. form findclassdetails using value(classname)
  2834.                                   waclass type tclass
  2835.                               ilocfunctions like ifunctions[]
  2836.                               value(gettextelements)
  2837.                               value(getmessages)
  2838.                               value(getfunctions)
  2839.                               value(getcustdictstructures)
  2840.                               value(customeronly)
  2841.                               value(customernamerange).
  2842.  
  2843. data: iemptyselectiontexts type standard table of ttexttable.
  2844. data: mytabix type sytabix.
  2845. data: wamethod type tmethod.
  2846.  
  2847. * Build up the keys we will use for finding data
  2848.   perform buildclasskeys using waclass.
  2849.  
  2850.   if waclass-descript is initial.
  2851.     perform findclassdescription using classname
  2852.                                        waclass-descript.
  2853.   endif.
  2854.  
  2855. * Find the class attributes.
  2856.   select single exposure msg_id state clsfinal r3release
  2857.                 from vseoclass
  2858.                 into (waclass-exposure, waclass-msg_id, waclass-state, waclass-clsfinal, waclass-r3release)
  2859.                        where clsname = waclass-clsname.
  2860.  
  2861. * Don't try and find any other details for an exception class
  2862.   if ( waclass-clsname cs 'ZCX_' or waclass-clsname cs 'CX_'  ).
  2863. *   Exception texts
  2864.     perform findexceptiontexts using waclass-publicclasskey
  2865.                                      waclass-iconcepts[].
  2866.     waclass-scanned = 'X'.
  2867.   else.
  2868.     if not gettextelements is initial.
  2869. *     Find the class texts from out of the database.
  2870.       perform retrieveprogramtexts using iemptyselectiontexts[]
  2871.                                          waclass-itextelements[]
  2872.                                          waclass-textelementkey.
  2873.     endif.
  2875. *   Find any declared dictionary structures
  2876.     if not getcustdictstructures is initial.
  2877.       perform scanfortables using waclass-privateclasskey
  2878.                                   customeronly
  2879.                                   customernamerange
  2880.                                   waclass-idictstruct[].
  2882.       perform scanfortables using waclass-publicclasskey
  2883.                                   customeronly
  2884.                                   customernamerange
  2885.                                   waclass-idictstruct[].
  2887.       perform scanfortables using waclass-protectedclasskey
  2888.                                   customeronly
  2889.                                   customernamerange
  2890.                                   waclass-idictstruct[].
  2892.       perform scanfortables using waclass-typesclasskey
  2893.                                   customeronly
  2894.                                   customernamerange
  2895.                                   waclass-idictstruct[].
  2897.       perform scanforlikeortype using waclass-privateclasskey
  2898.                                       customeronly
  2899.                                       customernamerange
  2900.                                       waclass-idictstruct[].
  2902.       perform scanforlikeortype using waclass-publicclasskey
  2903.                                       customeronly
  2904.                                       customernamerange
  2905.                                       waclass-idictstruct[].
  2907.       perform scanforlikeortype using waclass-protectedclasskey
  2908.                                       customeronly
  2909.                                       customernamerange
  2910.                                       waclass-idictstruct[].
  2912.       perform scanforlikeortype using waclass-typesclasskey
  2913.                                       customeronly
  2914.                                       customernamerange
  2915.                                       waclass-idictstruct[].
  2916.     endif.
  2919. *   Methods
  2920. *   Find all the methods for this class
  2921.     perform findclassmethods using classname
  2922.                                    waclass-imethods[].
  2924.     loop at waclass-imethods[] into wamethod.
  2925.       mytabix = sy-tabix.
  2926. *     Find individual messages
  2927.       if not getmessages is initial.
  2928.         perform scanformessages using wamethod-methodkey
  2929.                                       waclass-msg_id
  2930.                                       waclass-imessages[].
  2931.       endif.
  2933.       if not getcustdictstructures is initial.
  2934. *       Find any declared dictionary structures
  2935.         perform scanfortables using wamethod-methodkey
  2936.                                     customeronly
  2937.                                     customernamerange
  2938.                                     waclass-idictstruct[].
  2940.         perform scanforlikeortype using wamethod-methodkey
  2941.                                         customeronly
  2942.                                         customernamerange
  2943.                                         waclass-idictstruct[].
  2944.       endif.
  2946.       if not getfunctions is initial.
  2947.         perform scanforfunctions using wamethod-methodkey
  2948.                                        waclass-clsname
  2949.                                        space
  2950.                                        space
  2951.                                        customeronly
  2952.                                        customernamerange
  2953.                                        ilocfunctions[].
  2954.       endif.
  2956.       modify waclass-imethods from wamethod index mytabix.
  2957.     endloop.
  2958.   endif.
  2959. endform.                                                                               "findClassDetails
  2961. *-------------------------------------------------------------------------------------------------------
  2962. *  buildClassKeys...   Finds the title text of a class.
  2963. *-------------------------------------------------------------------------------------------------------
  2964. form buildclasskeys using waclass type tclass.
  2966. data: classnamelength type i.
  2967. data: loops type i.
  2969.   classnamelength = strlen( waclass-clsname ).
  2971.   cl_oo_classname_service=>get_pubsec_name( exporting clsname = waclass-clsname
  2972.                                             receiving result = waclass-publicclasskey ).
  2974.   cl_oo_classname_service=>get_prisec_name( exporting clsname = waclass-clsname
  2975.                                             receiving result = waclass-privateclasskey ).
  2977.   cl_oo_classname_service=>get_prosec_name( exporting clsname = waclass-clsname
  2978.                                             receiving result = waclass-protectedclasskey ).
  2981. * Text element key - length of text element key has to be 32 characters.
  2982.   loops = 30 - classnamelength.
  2983.   waclass-textelementkey = waclass-clsname.
  2984.   do loops times.
  2985.     concatenate waclass-textelementkey '=' into waclass-textelementkey.
  2986.   enddo.
  2987. * Save this for later.
  2988.   concatenate waclass-textelementkey 'CP' into waclass-textelementkey.
  2990. * Types Class key - length of class name has to be 32 characters.
  2991.   loops = 30 - classnamelength.
  2992.   waclass-typesclasskey = waclass-clsname.
  2993.   do loops times.
  2994.     concatenate waclass-typesclasskey '=' into waclass-typesclasskey.
  2995.   enddo.
  2996. * Save this for later
  2997.   concatenate waclass-typesclasskey 'CT' into waclass-typesclasskey.
  2998. endform.                                                                                 "buildClassKeys
  3000. *-------------------------------------------------------------------------------------------------------
  3001. *  findClassDescription...   Finds the title text of a class.
  3002. *-------------------------------------------------------------------------------------------------------
  3003. form findclassdescription using value(classname)
  3004.                                       titletext.
  3006.   select single descript from vseoclass
  3007.                      into titletext
  3008.                      where clsname = classname
  3009.                        and langu = sy-langu.
  3010.   if sy-subrc <> 0.
  3011.     select single descript from vseoclass
  3012.                        into titletext
  3013.                        where clsname = classname.
  3014.   endif.
  3015. endform.                                                                           "findClassDescription
  3017. *-------------------------------------------------------------------------------------------------------
  3018. *  findExceptionTexts...   Fiond the texts of an exception class.
  3019. *-------------------------------------------------------------------------------------------------------
  3020. form findexceptiontexts using publicclasskey
  3021.                               iconcepts like dumiconcepts[].
  3023. data: castclassname type program.
  3024. data: itemplines type standard table of string with header line.
  3025. data: itokens type standard table of stokes with header line.
  3026. data: ikeywords type standard table of text20 with header line.
  3027. data: istatements type standard table of sstmnt with header line.
  3028. data: watokens type stokes.
  3029. data: wacurrenttoken type stokes.
  3030. data: waconcept like line of iconcepts.
  3031. data: tokenlength type i.
  3032. data: myrow type i.
  3034.   castclassname = publicclasskey.
  3035.   read report castclassname into itemplines.
  3037.   append 'CONSTANTS' to ikeywords.
  3038.   scan abap-source itemplines tokens into itokens statements into istatements keywords from ikeywords.
  3040.   delete itokens where str = 'CONSTANTS'.
  3041.   delete itokens where str = 'VALUE'.
  3042.   delete itokens where str = 'TYPE'.
  3044.   loop at itokens into watokens where str = 'SOTR_CONC'.
  3045. *   The loop before holds the constant name
  3046.     myrow = sy-tabix - 1.
  3047.     read table itokens index myrow into wacurrenttoken.
  3048.     waconcept-constname = wacurrenttoken-str.
  3050. *   The loop after holds the constant name
  3051.     myrow = myrow + 2.
  3052.     read table itokens index myrow into wacurrenttoken.
  3053.     tokenlength = strlen( wacurrenttoken-str ).
  3054.     if tokenlength = 34.
  3055. *     Most likely an exception text.
  3056.       replace all occurrences of '''' in wacurrenttoken-str with ' ' .
  3057.       waconcept-concept = wacurrenttoken-str.
  3058.       append waconcept to iconcepts.
  3059.     endif.
  3060.   endloop.
  3061. endform.
  3063. *-------------------------------------------------------------------------------------------------------
  3064. *  findClassMethods...   Finds the methods of a class.
  3065. *-------------------------------------------------------------------------------------------------------
  3066. form findclassmethods using value(classname)
  3067.                             ilocmethods like dumimethods[].
  3069. data: imethods type standard table of tmethod with header line.
  3071.   select cmpname descript exposure
  3072.          from vseomethod
  3073.          into corresponding fields of table imethods
  3074.            where clsname = classname
  3075.              and version = '1'
  3076.              and langu = sy-langu
  3077.              and ( state = '0' or state = '1' ).
  3079.   if sy-subrc <> 0.
  3080.     select cmpname descript exposure
  3081.            from vseomethod
  3082.            into corresponding fields of table imethods
  3083.            where clsname = classname
  3084.              and version = '0'
  3085.              and langu = sy-langu
  3086.              and ( state = '0' or state = '1' ).
  3087.   endif.
  3089. * Find the method key so that we can acces the source code later
  3090.   loop at imethods.
  3091.     perform findmethodkey using classname
  3092.                                 imethods-cmpname
  3093.                                 imethods-methodkey.
  3094.     modify imethods.
  3095.   endloop.
  3097.   ilocmethods[] = imethods[].
  3098. endform.                                                                               "findClassMethods
  3100. *-------------------------------------------------------------------------------------------------------
  3101. * findMethodKey... find the unique key which identifes this method
  3102. *-------------------------------------------------------------------------------------------------------
  3103. form findmethodkey using value(classname)
  3104.                          value(methodname)
  3105.                                methodkey.
  3107. data: methodid type seocpdkey.
  3108. data: locmethodkey type program.
  3110.   methodid-clsname = classname.
  3111.   methodid-cpdname = methodname.
  3113.   cl_oo_classname_service=>get_method_include( exporting mtdkey = methodid
  3114.                                                receiving result = locmethodkey
  3115.                                                exceptions class_not_existing = 1
  3116.                                                           method_not_existing = 2 ).
  3118.   methodkey = locmethodkey.
  3119. endform.                                                                                  "findMethodKey
  3121. *-------------------------------------------------------------------------------------------------------
  3122. * scanForMessages... Search each program for messages
  3123. *-------------------------------------------------------------------------------------------------------
  3124. form scanformessages using value(programname)
  3125.                            value(mainmessageclass)
  3126.                                  ilocmessages like imessages[].
  3128. data: iincludelines type standard table of string with header line.
  3129. data: itokens type standard table of stokes with header line.
  3130. data: istatements type standard table of sstmnt with header line.
  3131. data: ikeywords type standard table of text20 with header line.
  3132. data: wamessage type tmessage.
  3133. data: wamessagecomparison type tmessage.
  3134. data: watokens type stokes.
  3135. data: nextline type i.
  3136. data: stringlength type i value 0.
  3137. data: workingonmessage type i value false.
  3138. data: castprogramname type program.
  3140. * Read the program code from the textpool.
  3141.   castprogramname = programname.
  3142.   read report castprogramname into iincludelines.
  3144.   append message to ikeywords.
  3145.   scan abap-source iincludelines tokens into itokens with includes statements into istatements keywords from ikeywords.
  3147.   clear iincludelines[].
  3149.   loop at itokens.
  3150.     if itokens-str = message.
  3151.       workingonmessage = true.
  3152.       continue.
  3153.     endif.
  3155.     if workingonmessage = true.
  3156.       stringlength = strlen( itokens-str ).
  3158. *     Message declaration 1
  3159.       if stringlength = 4 and itokens-str+0(1) ca sy-abcde.
  3160.         wamessage-msgnr = itokens-str+1(3).
  3161.         wamessage-arbgb = mainmessageclass.
  3162.       else.
  3163.         if itokens-str cs '''' or itokens-str cs '`'.
  3164. *         Message declaration 2
  3165.           translate itokens-str using ''' '.
  3166.           translate itokens-str using '` '.
  3167.           condense itokens-str.
  3168.           shift itokens-str left deleting leading space.
  3169.           wamessage-text = itokens-str.
  3170.           wamessage-arbgb = 'Hard coded'.
  3171.         else.
  3172.           if itokens-str = 'ID'.
  3173. *           Message declaration 3
  3174.             nextline = sy-tabix + 1.
  3175.             read table itokens index nextline into watokens.
  3176.             translate watokens-str using ''' '.
  3177.             condense itokens-str.
  3178.             shift watokens-str left deleting leading space.
  3179.             if not watokens-str = 'SY-MSGID'.
  3180.               wamessage-arbgb = watokens-str.
  3182.               nextline = nextline + 4.
  3183.               read table itokens index nextline into watokens.
  3184.               translate watokens-str using ''' '.
  3185.               condense watokens-str.
  3186.               shift watokens-str left deleting leading space.
  3187.               wamessage-msgnr = watokens-str.
  3188.             else.
  3189.               workingonmessage = false.
  3190.             endif.
  3191.           else.
  3192.             if stringlength >= 5 and itokens-str+4(1) = '('.
  3193. *              Message declaration 4
  3194.                wamessage-msgnr = itokens-str+1(3).
  3195.                shift itokens-str left up to '('.
  3196.                replace '(' into itokens-str with space.
  3197.                replace ')' into itokens-str with space.
  3198.                condense itokens-str.
  3199.                wamessage-arbgb = itokens-str.
  3200.             endif.
  3201.           endif.
  3202.         endif.
  3203.       endif.
  3205. *      find the message text
  3206.        if not wamessage-arbgb is initial and not wamessage-msgnr is initial and wamessage-text is initial.
  3207.          select single text from t100 into wamessage-text
  3208.                             where sprsl = sy-langu
  3209.                               and arbgb = wamessage-arbgb
  3210.                               and msgnr = wamessage-msgnr.
  3211.        endif.
  3213. *      Append the message
  3214.        if not wamessage is initial.
  3215. *        Don't append the message if we already have it listed
  3216.          read table ilocmessages with key arbgb = wamessage-arbgb
  3217.                                           msgnr = wamessage-msgnr
  3218.                                           into wamessagecomparison.
  3219.          if sy-subrc <> 0.
  3220.            append wamessage to ilocmessages.
  3221.          endif.
  3222.          clear wamessage.
  3223.          workingonmessage = false.
  3224.        endif.
  3225.      endif.
  3226.    endloop.
  3227. endform.                                                                                 "scanForMessages
  3229. *-------------------------------------------------------------------------------------------------------
  3230. * scanForTables... Search each program for dictionary tables
  3231. *-------------------------------------------------------------------------------------------------------
  3232. form scanfortables using value(programname)
  3233.                          value(customeronly)
  3234.                          value(customernamerange)
  3235.                                ilocdictionary like idictionary[].
  3237. data: iincludelines type standard table of string with header line.
  3238. data: itokens type standard table of stokes with header line.
  3239. data: istatements type standard table of sstmnt with header line.
  3240. data: ikeywords type standard table of text20 with header line.
  3241. data: wadictionary type tdicttable.
  3242. data: wadictionarycomparison type tdicttable.
  3243. data: castprogramname type program.
  3245. * Read the program code from the textpool.
  3246.   castprogramname = programname.
  3247.   read report castprogramname into iincludelines.
  3249.   append tables to ikeywords.
  3251.   scan abap-source iincludelines tokens into itokens with includes statements into istatements keywords from ikeywords.
  3252.   clear iincludelines[].
  3254.   sort itokens ascending by str.
  3255.   delete itokens where str = tables.
  3257.   loop at itokens.
  3258.     if not customeronly is initial.
  3259.       try.
  3260.         if ( itokens-str+0(1) <> 'Y' or itokens-str+0(1) <> 'Z' or itokens-str ns customernamerange ).
  3261.           continue.
  3262.         endif.
  3263.       catch cx_sy_range_out_of_bounds into objruntimeerror.
  3264.       endtry.
  3265.     endif.
  3267.     wadictionary-tablename = itokens-str.
  3268. *   Don't append the object if we already have it listed
  3269.     read table ilocdictionary into wadictionarycomparison with key tablename = wadictionary-tablename.
  3270.     if sy-subrc <> 0.
  3271.       perform findtabledescription using wadictionary-tablename
  3272.                                          wadictionary-tabletitle.
  3274.       perform findtabledefinition using wadictionary-tablename
  3275.                                         wadictionary-istructure[].
  3277.       append wadictionary to ilocdictionary.
  3278.     endif.
  3279.   endloop.
  3280. endform.                                                                                 "scanForTables
  3281.  
  3282. *-------------------------------------------------------------------------------------------------------
  3283. *  findProgramScreenFlow...
  3284. *-------------------------------------------------------------------------------------------------------
  3285. form findprogramscreenflow using waprogram type tprogram.
  3286.  
  3287. data: iflow type standard table of tscreenflow with header line.
  3288.  
  3289.   call function 'DYNPRO_PROCESSINGLOGIC'
  3290.        exporting
  3291.             rep_name  = waprogram-progname
  3292.        tables
  3293.             scr_logic = iflow.
  3294.  
  3295.   sort iflow ascending by screen.
  3296.   delete adjacent duplicates from iflow comparing screen.
  3297.   if waprogram-subc <> 'M'.
  3298.     delete iflow where screen >= '1000' and screen <= '1099'.
  3299.   endif.
  3300.  
  3301.   loop at iflow.
  3302.     append iflow to waprogram-iscreenflow.
  3303.   endloop.
  3304. endform.                                                                          "findProgramScreenFlow
  3306. *-------------------------------------------------------------------------------------------------------
  3307. *  findFunctionScreenFlow...
  3308. *-------------------------------------------------------------------------------------------------------
  3309. form findfunctionscreenflow using wafunction type tfunction.
  3311. data: iflow type standard table of tscreenflow with header line.
  3313.   call function 'DYNPRO_PROCESSINGLOGIC'
  3314.        exporting
  3315.             rep_name  = wafunction-progname
  3316.        tables
  3317.             scr_logic = iflow.
  3319.   sort iflow ascending by screen.
  3320.   delete adjacent duplicates from iflow comparing screen.
  3322.   loop at iflow.
  3323.     append iflow to wafunction-iscreenflow.
  3324.   endloop.
  3325. endform.                                                                          "findFunctionScreenFlow
  3326.  
  3327. *-------------------------------------------------------------------------------------------------------
  3328. * scanForLikeOrType... Look for any dictionary objects referenced by a like or type statement
  3329. *-------------------------------------------------------------------------------------------------------
  3330. form scanforlikeortype using value(programname)
  3331.                              value(customeronly)
  3332.                              value(customernamerange)
  3333.                              ilocdictionary like idictionary[].
  3334.  
  3335. data ilines type standard table of string with header line.
  3336. data: head type string.
  3337. data: tail type string.
  3338. data: junk type string.
  3339. data: linetype type string.
  3340. data: linelength type i value 0.
  3341. data: endofline type i value true.
  3342. data: wadictionary type tdicttable.
  3343. data: wadictionarycomparison type tdicttable.
  3344. data: waline type string.
  3345. data: castprogramname type program.
  3346.  
  3347. * Read the program code from the textpool.
  3348.   castprogramname = programname.
  3349.   read report castprogramname into ilines.
  3350.  
  3351.   loop at ilines into waline.
  3352. *   Find custom tables.
  3353.     linelength = strlen( waline ).
  3354.     if linelength > 0.
  3355.       if waline(1) = asterix.
  3356.         continue.
  3357.       endif.
  3358.  
  3359.       translate waline to upper case.
  3360.  
  3361. *   Determine the lineType.
  3362.       if endofline = true.
  3363.         shift waline up to like.
  3364.         if sy-subrc = 0.
  3365.           linetype = like.
  3366.         else.
  3367.           shift waline up to type.
  3368.           if sy-subrc = 0.
  3369.             find 'BEGIN OF' in waline.
  3370.             if sy-subrc <> 0.
  3371.               find 'END OF' in waline.
  3372.               if sy-subrc <> 0.
  3373.                 find 'VALUE' in waline.
  3374.                 if sy-subrc <> 0.
  3375.                   linetype = type.
  3376.                 endif.
  3377.               endif.
  3378.             endif.
  3379.           else.
  3380.             shift waline up to include.
  3381.             if sy-subrc = 0.
  3382.               split waline at space into junk ilines.
  3383.             endif.
  3384.  
  3385.             shift waline up to structure.
  3386.             if sy-subrc = 0.
  3387.               linetype = structure.
  3388.             else.
  3389.               continue.
  3390.             endif.
  3391.           endif.
  3392.         endif.
  3393.       else.
  3394.         linetype = comma.
  3395.       endif.
  3396.  
  3397.       case linetype.
  3398.         when like or type or structure.
  3399. *         Work on the appropriate lineType
  3400.           shift waline up to space.
  3401.           shift waline left deleting leading space.
  3402.           if waline cs table.
  3403.             split waline at table into head tail.
  3404.             split tail at 'OF' into head tail.
  3405.             waline = tail.
  3406.             shift waline left deleting leading space.
  3407.           endif.
  3408.  
  3409. *         Are we only to download SAP dictionary structures.
  3410.           if not customeronly is initial.
  3411.             try.
  3412.               if waline+0(1) = 'Y' or waline+0(1) = 'Z' or waline cs customernamerange.
  3413.               else.
  3414.                 linetype = ''.
  3415.                 continue.
  3416.               endif.
  3417.               catch cx_sy_range_out_of_bounds into objruntimeerror.
  3418.             endtry.
  3419.           endif.
  3420.  
  3421.           if waline cs comma.
  3422.             split waline at comma into head tail.
  3423.             if waline cs dash.
  3424.               split head at dash into head tail.
  3425.             endif.
  3426.             if waline cs occurs.
  3427.               split waline at space into head tail.
  3428.             endif.
  3429.           else.
  3430.             if waline cs period.
  3431.               split waline at period into head tail.
  3432.               if waline cs dash.
  3433.                 split head at dash into head tail.
  3434.               endif.
  3435.               if waline cs occurs.
  3436.                 split waline at space into head tail.
  3437.               endif.
  3438.             else.
  3439.               split waline at space into head tail.
  3440.               if waline cs dash.
  3441.                 split head at dash into head tail.
  3442.               endif.
  3443.             endif.
  3444.           endif.
  3445.  
  3446.           if not head is initial.
  3447.             wadictionary-tablename = head.
  3448. *           Don't append the object if we already have it listed
  3449.             read table ilocdictionary into wadictionarycomparison
  3450.                                       with key tablename = wadictionary-tablename.
  3451.             if sy-subrc <> 0.
  3452.               perform findtabledescription using wadictionary-tablename
  3453.                                                  wadictionary-tabletitle.
  3455.               perform findtabledefinition using wadictionary-tablename
  3456.                                                 wadictionary-istructure[].
  3458. *             Only append if the item is a table and not a structure or data element
  3459.               if not wadictionary-istructure[] is initial.
  3460.                 append wadictionary to ilocdictionary.
  3461.               endif.
  3462.             endif.
  3463.             clear wadictionary.
  3464.           endif.
  3466.           linetype = ''.
  3467.       endcase.
  3468.     endif.
  3469.   endloop.
  3470. endform.                                                                              "scanForLikeOrType
  3472. *-------------------------------------------------------------------------------------------------------
  3473. *  displayStatus...
  3474. *-------------------------------------------------------------------------------------------------------
  3475. form displaystatus using value(message)
  3476.                          value(delay).
  3478.   call function 'SAPGUI_PROGRESS_INDICATOR'
  3479.        exporting
  3480.             percentage = 0
  3481.             text       = message
  3482.        exceptions
  3483.             others     = 1.
  3485.   if delay > 0.
  3486.     wait up to delay seconds.
  3487.   endif.
  3488. endform.                                                                                  "displayStatus
  3490. *-------------------------------------------------------------------------------------------------------
  3491. *  removeLeadingZeros...
  3492. *-------------------------------------------------------------------------------------------------------
  3493. form removeleadingzeros changing myvalue.
  3495.   call function 'CONVERSION_EXIT_ALPHA_OUTPUT'
  3496.        exporting
  3497.             input   = myvalue
  3498.       importing
  3499.            output  = myvalue
  3500.        exceptions
  3501.             others  = 1.
  3502. endform.                                                                             "removeLeadingZeros
  3504. *-------------------------------------------------------------------------------------------------------
  3505. * determineFrontendOPSystem.... Determine the frontend operating system type.
  3506. *-------------------------------------------------------------------------------------------------------
  3507. form determinefrontendopsystem using separator
  3508.                                      operatingsystem.
  3510. data: platformid type i value 0.
  3512.   create object objfile.
  3514.   call method objfile->get_platform receiving platform = platformid
  3515.                                     exceptions cntl_error = 1
  3516.                                     error_no_gui = 2
  3517.                                     not_supported_by_gui = 3.
  3518.   case platformid.
  3519.     when objfile->platform_windows95
  3520.          or objfile->platform_windows98
  3521.          or objfile->platform_nt351
  3522.          or objfile->platform_nt40
  3523.          or objfile->platform_nt50
  3524.          or objfile->platform_mac
  3525.          or objfile->platform_os2
  3526.          or 14.      "XP
  3527.       separator = '\'.
  3528.       operatingsystem = non_unix.
  3529.     when others.
  3530.       separator = '/'.
  3531.       operatingsystem = unix.
  3532.   endcase.
  3533. endform.                                                                      "determineFrontendOpSystem
  3535. *-------------------------------------------------------------------------------------------------------
  3536. * determineServerOPSystem.... Determine the server operating system type.
  3537. *-------------------------------------------------------------------------------------------------------
  3538. form determineserveropsystem using separator
  3539.                                    serverfilesystem
  3540.                                    serveropsystem.
  3542. * Find the file system
  3543.   select single filesys
  3544.                 from opsystem
  3545.                 into serverfilesystem
  3546.                 where opsys = sy-opsys.
  3548.   find 'WINDOWS' in serverfilesystem ignoring case.
  3549.   if sy-subrc = 0.
  3550.     separator = '\'.
  3551.     serveropsystem = non_unix.
  3552.   else.
  3553.     find 'DOS' in serverfilesystem ignoring case.
  3554.     if sy-subrc = 0.
  3555.       separator = '\'.
  3556.       serveropsystem = non_unix.
  3557.     else.
  3558.       separator = '/'.
  3559.       serveropsystem = unix.
  3560.     endif.
  3561.   endif.
  3562. endform.                                                                        "determineServerOpSystem
  3564. *-------------------------------------------------------------------------------------------------------
  3565. * findExternalCommand.... Determine if the external command exists.  If it doesn't then disable the
  3566. *                         server input field
  3567. *-------------------------------------------------------------------------------------------------------
  3568. form findexternalcommand.
  3569.  
  3570.   call function 'SXPG_COMMAND_CHECK'
  3571.     exporting
  3572.       commandname                      = 'ZMKDIR'
  3573.       operatingsystem                  = sy-opsys
  3574.     exceptions
  3575.       command_not_found                = 1
  3576.       others                           = 0.
  3577.  
  3578.   if sy-subrc <> 0.
  3579.     loop at screen.
  3580.       if screen-name = 'PLOGICAL'.
  3581.         screen-input = 0.
  3582.         modify screen.
  3583.       endif.
  3584.  
  3585.       if screen-name = 'PSERV'.
  3586.         screen-input = 0.
  3587.         modify screen.
  3588.       endif.
  3589.  
  3590.       if screen-name = 'PPC'.
  3591.         screen-input = 0.
  3592.         modify screen.
  3593.       endif.
  3594.     endloop.
  3595.  
  3596.     message s000(oo) with 'Download to server disabled,' 'external command ZMKDIR not defined.'.
  3597.   endif.
  3598. endform.
  3599.  
  3600. ********************************************************************************************************
  3601. *****************************************DOWNLOAD ROUTINES**********************************************
  3602. ********************************************************************************************************
  3603.  
  3604. *-------------------------------------------------------------------------------------------------------
  3605. * downloadDDStructures... download database objects to file
  3606. *-------------------------------------------------------------------------------------------------------
  3607. form downloadddstructures using ilocdictionary like idictionary[]
  3608.                                 value(pathname)
  3609.                                 value(htmlfileextension)
  3610.                                 value(subdir)
  3611.                                 value(sorttablesasc)
  3612.                                 value(slashseparator)
  3613.                                 value(savetoserver)
  3614.                                 value(displayprogressmessage).
  3615.  
  3616. field-symbols: <wadictionary> type tdicttable.
  3617. data: tablefilename type string.
  3618. data: tablefilenamewithpath type string.
  3619. data: ihtmltable type standard table of string with header line.
  3620. data: newsubdirectory type string.
  3621. data: completesavepath type string.
  3622.  
  3623.   loop at ilocdictionary assigning <wadictionary>.
  3624.     perform buildfilename using pathname
  3625.                                 subdir
  3626.                                 <wadictionary>-tablename
  3627.                                 space
  3628.                                 space
  3629.                                 htmlfileextension
  3630.                                 is_table
  3631.                                 savetoserver
  3632.                                 slashseparator
  3633.                                 tablefilenamewithpath
  3634.                                 tablefilename
  3635.                                 newsubdirectory
  3636.                                 completesavepath.
  3637.  
  3638. *   Try and import a converted table to memory as it will be much quicker than converting it again
  3639.     import ihtmltable from memory id <wadictionary>-tablename.
  3640.     if sy-subrc <> 0.
  3641.       concatenate 'Converting table' <wadictionary>-tablename 'to html' into statusbarmessage separated by space.
  3642.       perform displaystatus using statusbarmessage 0.
  3643.  
  3644.       perform convertddtohtml using <wadictionary>-istructure[]
  3645.                                     ihtmltable[]
  3646.                                     <wadictionary>-tablename
  3647.                                     <wadictionary>-tabletitle
  3648.                                     sorttablesasc.
  3649.  
  3650.       export ihtmltable to memory id <wadictionary>-tablename.
  3651.     endif.
  3652.  
  3653.     if savetoserver is initial.
  3654.       perform savefiletopc using ihtmltable[]
  3655.                                  tablefilenamewithpath
  3656.                                  tablefilename
  3657.                                  space
  3658.                                  space
  3659.                                  displayprogressmessage.
  3660.     else.
  3661.       perform savefiletoserver using ihtmltable[]
  3662.                                      tablefilenamewithpath
  3663.                                      tablefilename
  3664.                                      completesavepath
  3665.                                      displayprogressmessage.
  3666.     endif.
  3667.  
  3668.     clear ihtmltable[].
  3669.   endloop.
  3670. endform.                                                                           "downloadDDStructures
  3672. *-------------------------------------------------------------------------------------------------------
  3673. * downloadMessageClass...
  3674. *-------------------------------------------------------------------------------------------------------
  3675. form downloadmessageclass using ilocmessages like imessages[]
  3676.                                 value(messageclassname)
  3677.                                 value(userfilepath)
  3678.                                 value(fileextension)
  3679.                                 value(htmlfileflag)
  3680.                                       subdir
  3681.                                 value(syntaxhighlightcomments)
  3682.                                 value(customernamerange)
  3683.                                 value(getincludes)
  3684.                                 value(getdictstructures)
  3685.                                 value(userhasselectedmessageclasses)
  3686.                                 value(slashseparator)
  3687.                                 value(savetoserver)
  3688.                                 value(displayprogressmessage).
  3690. data: htmlpagename type string.
  3691. data: newfilenameonly type string.
  3692. data: newfilenamewithpath type string.
  3693. data: ihtmltable type standard table of string with header line.
  3694. data: newsubdirectory type string.
  3695. data: completesavepath type string.
  3697.   perform appendmessagestofile using ilocmessages[]
  3698.                                      ihtmltable[]
  3699.                                      userhasselectedmessageclasses.
  3702.   concatenate `message class ` messageclassname into htmlpagename.
  3704.   if htmlfileflag is initial.
  3705.     append '' to ihtmltable.
  3706.     append  '----------------------------------------------------------------------------------' to ihtmltable.
  3708.     perform buildfootermessage using 'TEXT'
  3709.                                      ihtmltable.
  3710.     append ihtmltable.
  3711.   else.
  3712.     perform convertcodetohtml using ihtmltable[]
  3713.                                     htmlpagename
  3714.                                     space
  3715.                                     is_messageclass
  3716.                                     ''
  3717.                                     false
  3718.                                     syntaxhighlightcomments
  3719.                                     fileextension
  3720.                                     customernamerange
  3721.                                     getincludes
  3722.                                     getdictstructures.
  3723.   endif.
  3725.   perform buildfilename using userfilepath
  3726.                               subdir
  3727.                               messageclassname
  3728.                               space
  3729.                               space
  3730.                               fileextension
  3731.                               is_messageclass
  3732.                               savetoserver
  3733.                               slashseparator
  3734.                               newfilenamewithpath
  3735.                               newfilenameonly
  3736.                               newsubdirectory
  3737.                               completesavepath.
  3739.     if savetoserver is initial.
  3740.       perform savefiletopc using ihtmltable[]
  3741.                                  newfilenamewithpath
  3742.                                  newfilenameonly
  3743.                                  space
  3744.                                  space
  3745.                                  displayprogressmessage.
  3746.     else.
  3747. *     Save the file to the SAP server
  3748.       perform savefiletoserver using ihtmltable[]
  3749.                                      newfilenamewithpath
  3750.                                      newfilenameonly
  3751.                                      completesavepath
  3752.                                      displayprogressmessage.
  3753.     endif.
  3754. endform.                                                                          "downloadMessageClass
  3755.  
  3756. *-------------------------------------------------------------------------------------------------------
  3757. *  appendMessagesToFile
  3758. *-------------------------------------------------------------------------------------------------------
  3759. form appendmessagestofile using ilocmessages like imessages[]
  3760.                                 ilochtml like dumihtml[]
  3761.                                 value(userhasselectedmessageclasses).
  3762.  
  3763. data: previousmessageid like imessages-arbgb.
  3764. field-symbols: <wamessage> type tmessage.
  3765. data: wahtml type string.
  3766.  
  3767.   sort ilocmessages ascending by arbgb msgnr.
  3768.  
  3769.   if not ilocmessages[] is initial.
  3770.     if userhasselectedmessageclasses is initial.
  3771. *     Only add these extra lines if we are actually appending them to the end of some program code
  3772.       append wahtml to ilochtml.
  3773.       append wahtml to ilochtml.
  3774.  
  3775.       append '*Messages' to ilochtml.
  3776.       append '*----------------------------------------------------------' to ilochtml.
  3777.     endif.
  3778.  
  3779.     loop at ilocmessages assigning <wamessage>.
  3780.       if ( <wamessage>-arbgb <> previousmessageid ).
  3781.  
  3782.         if userhasselectedmessageclasses is initial.
  3783. *         Only add this extra lines if we are actually appending them to the end of some program code
  3784.           append '*' to ilochtml.
  3785.           concatenate `* Message class: ` <wamessage>-arbgb into wahtml.
  3786.           append wahtml to ilochtml.
  3787.         endif.
  3788.  
  3789.         previousmessageid = <wamessage>-arbgb.
  3790.         clear wahtml.
  3791.       endif.
  3792.  
  3793.       if userhasselectedmessageclasses is initial.
  3794. *       Only add this extra lines if we are actually appending them to the end of some program code
  3795.         concatenate '*' <wamessage>-msgnr `   ` <wamessage>-text into wahtml.
  3796.       else.
  3797.         concatenate <wamessage>-msgnr `   ` <wamessage>-text into wahtml.
  3798.       endif.
  3799.  
  3800.       append wahtml to ilochtml.
  3801.     endloop.
  3802.   endif.
  3803. endform.                                                                           "appendMessagesToFile
  3805. *-------------------------------------------------------------------------------------------------------
  3806. *  downloadFunctions...       Download function modules to file.
  3807. *-------------------------------------------------------------------------------------------------------
  3808. form downloadfunctions using ilocfunctions like ifunctions[]
  3809.                              value(userfilepath)
  3810.                              value(fileextension)
  3811.                              value(subdir)
  3812.                              value(downloaddocumentation)
  3813.                              value(converttohtml)
  3814.                              value(syntaxhighlightcomments)
  3815.                              value(customernamerange)
  3816.                              value(getincludes)
  3817.                              value(getdictstruct)
  3818.                              value(textfileextension)
  3819.                              value(htmlfileextension)
  3820.                              value(sorttablesasc)
  3821.                              value(slashseparator)
  3822.                              value(savetoserver)
  3823.                              value(displayprogressmessage).
  3825. data: mainsubdir type string.
  3826. data: incsubdir type string.
  3827. field-symbols: <wafunction> type tfunction.
  3828. field-symbols: <wainclude> type tinclude.
  3829. data: iemptytextelements type standard table of ttexttable.
  3830. data: iemptyselectiontexts type standard table of ttexttable.
  3831. data: iemptymessages type standard table of tmessage.
  3832. data: iemptyguititles type standard table of tguititle.
  3833. data: functiondocumentationexists type i value false.
  3835.   loop at ilocfunctions assigning <wafunction>.
  3836.     if subdir is initial.
  3837.       incsubdir = <wafunction>-functionname.
  3838.       mainsubdir = ''.
  3839.     else.
  3840.       concatenate subdir <wafunction>-functionname into incsubdir separated by slashseparator.
  3841.       mainsubdir = subdir.
  3842.     endif.
  3844.     if not downloaddocumentation is initial.
  3845.       perform downloadfunctiondocs using <wafunction>-functionname
  3846.                                          <wafunction>-functiontitle
  3847.                                          userfilepath
  3848.                                          fileextension
  3849.                                          converttohtml
  3850.                                          slashseparator
  3851.                                          savetoserver
  3852.                                          displayprogressmessage
  3853.                                          mainsubdir
  3854.                                          functiondocumentationexists.
  3855.     endif.
  3857. *   Download main source code
  3858.     perform readfunctionanddownload using <wafunction>-itextelements[]
  3859.                                           <wafunction>-iselectiontexts[]
  3860.                                           <wafunction>-imessages[]
  3861.                                           <wafunction>-functionname
  3862.                                           <wafunction>-functionmaininclude
  3863.                                           <wafunction>-functiontitle
  3864.                                           userfilepath
  3865.                                           fileextension
  3866.                                           mainsubdir
  3867.                                           converttohtml
  3868.                                           functiondocumentationexists
  3869.                                           syntaxhighlightcomments
  3870.                                           customernamerange
  3871.                                           getincludes
  3872.                                           getdictstruct
  3873.                                           slashseparator
  3874.                                           savetoserver
  3875.                                           displayprogressmessage.
  3877. *   Download top include
  3878.     perform readincludeanddownload using iemptytextelements[]
  3879.                                          iemptyselectiontexts[]
  3880.                                          iemptymessages[]
  3881.                                          iemptyguititles[]
  3882.                                          <wafunction>-topincludename
  3883.                                          <wafunction>-functionname
  3884.                                          <wafunction>-functiontitle
  3885.                                          is_function
  3886.                                          userfilepath
  3887.                                          fileextension
  3888.                                          mainsubdir
  3889.                                          converttohtml
  3890.                                          syntaxhighlightcomments
  3891.                                          customernamerange
  3892.                                          getincludes
  3893.                                          getdictstruct
  3894.                                          slashseparator
  3895.                                          savetoserver
  3896.                                          displayprogressmessage.
  3898. *   Download screens.
  3899.     if not <wafunction>-iscreenflow[] is initial.
  3900.       perform downloadscreens using <wafunction>-iscreenflow[]
  3901.                                     <wafunction>-progname
  3902.                                     userfilepath
  3903.                                     textfileextension
  3904.                                     mainsubdir
  3905.                                     slashseparator
  3906.                                     savetoserver
  3907.                                     displayprogressmessage.
  3908.     endif.
  3910. *   Download GUI titles
  3911.     if not <wafunction>-iguititle[] is initial.
  3912.       perform downloadguititles using <wafunction>-iguititle
  3913.                                       userfilepath
  3914.                                       textfileextension
  3915.                                       mainsubdir
  3916.                                       slashseparator
  3917.                                       savetoserver
  3918.                                       displayprogressmessage.
  3919.     endif.
  3921. *   Download all other includes
  3922.     loop at <wafunction>-iincludes assigning <wainclude>.
  3923.       perform readincludeanddownload using iemptytextelements[]
  3924.                                            iemptyselectiontexts[]
  3925.                                            iemptymessages[]
  3926.                                            iemptyguititles[]
  3927.                                            <wainclude>-includename
  3928.                                            space
  3929.                                            <wainclude>-includetitle
  3930.                                            is_program
  3931.                                            userfilepath
  3932.                                            fileextension
  3933.                                            incsubdir
  3934.                                            converttohtml
  3935.                                            syntaxhighlightcomments
  3936.                                            customernamerange
  3937.                                            getincludes
  3938.                                            getdictstruct
  3939.                                            slashseparator
  3940.                                            savetoserver
  3941.                                            displayprogressmessage.
  3943.     endloop.
  3945. *   Download all dictionary structures
  3946.     if not <wafunction>-idictstruct[] is initial.
  3947.       perform downloadddstructures using <wafunction>-idictstruct[]
  3948.                                          userfilepath
  3949.                                          htmlfileextension
  3950.                                          incsubdir
  3951.                                          sorttablesasc
  3952.                                          slashseparator
  3953.                                          savetoserver
  3954.                                          displayprogressmessage.
  3955.     endif.
  3956.   endloop.
  3957. endform.                                                                              "downloadFunctions
  3958.  
  3959. *-------------------------------------------------------------------------------------------------------
  3960. *   readIcludeAndDownload...
  3961. *-------------------------------------------------------------------------------------------------------
  3962. form readincludeanddownload using iloctextelements like dumitexttab[]
  3963.                                   ilocselectiontexts like dumitexttab[]
  3964.                                   ilocmessages like imessages[]
  3965.                                   ilocguititles like dumiguititle[]
  3966.                                   value(programname)
  3967.                                   value(functionname)
  3968.                                   value(shorttext)
  3969.                                   value(overideprogtype)
  3970.                                   value(userfilepath)
  3971.                                   value(fileextension)
  3972.                                   value(additionalsubdir)
  3973.                                   value(converttohtml)
  3974.                                   value(syntaxhighlightcomments)
  3975.                                   value(customernamerange)
  3976.                                   value(getincludes)
  3977.                                   value(getdictstructures)
  3978.                                   value(slashseparator)
  3979.                                   value(savetoserver)
  3980.                                   value(displayprogressmessage).
  3981.  
  3982. data: ilines type standard table of string with header line.
  3983. data: localfilenamewithpath type string.
  3984. data: localfilenameonly type string.
  3985. data: newsubdirectory type string.
  3986. data: objectname type string.
  3987. data: completesavepath type string.
  3988.  
  3989.   read report programname into ilines.
  3990.  
  3991. * Download GUI titles for main program
  3992.   if not ilocguititles[] is initial.
  3993.     perform appendguititles using ilocguititles[]
  3994.                                   ilines[].
  3995.   endif.
  3996.  
  3997. * Download text elements for main program
  3998.   if not iloctextelements[] is initial.
  3999.     perform appendtextelements using iloctextelements[]
  4000.                                      ilines[].
  4001.   endif.
  4002.  
  4003. * Download selection texts for main program
  4004.   if not ilocselectiontexts[] is initial.
  4005.     perform appendselectiontexts using ilocselectiontexts[]
  4006.                                        ilines[].
  4007.   endif.
  4008.  
  4009. * Download messages classes for main program.
  4010.   if not ilocmessages[] is initial.
  4011.     perform appendmessagestofile using ilocmessages[]
  4012.                                        ilines[]
  4013.                                        space.
  4014.   endif.
  4015.  
  4016.   if converttohtml is initial.
  4017.     append '' to ilines.
  4018.     append '----------------------------------------------------------------------------------' to ilines.
  4019.     perform buildfootermessage using 'TEXT'
  4020.                                      ilines.
  4021.     append ilines.
  4022.   else.
  4023.     perform convertcodetohtml using ilines[]
  4024.                                     programname
  4025.                                     shorttext
  4026.                                     overideprogtype
  4027.                                     space
  4028.                                     space
  4029.                                     syntaxhighlightcomments
  4030.                                     fileextension
  4031.                                     customernamerange
  4032.                                     getincludes
  4033.                                     getdictstructures.
  4034.   endif.
  4035.  
  4036.   if functionname is initial.
  4037.     objectname = programname.
  4038.   else.
  4039.     objectname = functionname.
  4040.   endif.
  4041.  
  4042.   perform buildfilename using userfilepath
  4043.                               additionalsubdir
  4044.                               objectname
  4045.                               space
  4046.                               programname
  4047.                               fileextension
  4048.                               overideprogtype
  4049.                               savetoserver
  4050.                               slashseparator
  4051.                               localfilenamewithpath
  4052.                               localfilenameonly
  4053.                               newsubdirectory
  4054.                               completesavepath.
  4055.  
  4056.   if savetoserver is initial.
  4057.     perform savefiletopc using ilines[]
  4058.                                localfilenamewithpath
  4059.                                localfilenameonly
  4060.                                space
  4061.                                space
  4062.                                displayprogressmessage.
  4063.   else.
  4064.     perform savefiletoserver using ilines[]
  4065.                                    localfilenamewithpath
  4066.                                    localfilenameonly
  4067.                                    completesavepath
  4068.                                    displayprogressmessage.
  4069.   endif.
  4070. endform.                                                                         "readIncludeAndDownload
  4072. *-------------------------------------------------------------------------------------------------------
  4073. *   readClassAndDownload...
  4074. *-------------------------------------------------------------------------------------------------------
  4075. form readclassanddownload using walocclass type tclass
  4076.                                 value(classname)
  4077.                                 value(functionname)
  4078.                                 value(overideprogtype)
  4079.                                 value(userfilepath)
  4080.                                 value(fileextension)
  4081.                                 value(additionalsubdir)
  4082.                                 value(converttohtml)
  4083.                                 value(syntaxhighlightcomments)
  4084.                                 value(customernamerange)
  4085.                                 value(getincludes)
  4086.                                 value(getdictstructures)
  4087.                                 value(slashseparator)
  4088.                                 value(savetoserver)
  4089.                                 value(displayprogressmessage).
  4091. data: itemplines type standard table of string with header line.
  4092. data: ilines type standard table of string with header line.
  4093. data: localfilenamewithpath type string.
  4094. data: localfilenameonly type string.
  4095. data: newsubdirectory type string.
  4096. data: objectname type string.
  4097. data: castclassname type program.
  4098. data: completesavepath type string.
  4100. * Build up attribute comments
  4101.   append '**************************************************************************' to ilines.
  4102.   append '*   Class attributes.                                                    *' to ilines.
  4103.   append '**************************************************************************' to ilines.
  4104.   case walocclass-exposure.
  4105.     when 0.
  4106.       append `Instantiation: Private` to ilines.
  4107.     when 1.
  4108.       append `Instantiation: Protected` to ilines.
  4109.     when 2.
  4110.       append `Instantiation: Public` to ilines.
  4111.   endcase.
  4112.   concatenate `Message class: ` walocclass-msg_id into ilines.
  4113.   append ilines.
  4114.   case walocclass-state.
  4115.     when 0.
  4116.       append `State: Only Modelled` to ilines.
  4117.     when 1.
  4118.       append `State: Implemented` to ilines.
  4119.   endcase.
  4120.   concatenate `Final Indicator: ` walocclass-clsfinal into ilines.
  4121.   append ilines.
  4122.   concatenate `R/3 Release: ` walocclass-r3release into ilines.
  4123.   append ilines.
  4124.   clear ilines.
  4125.   append ilines.
  4127.   castclassname = walocclass-publicclasskey.
  4128.   read report castclassname into itemplines.
  4129.   if sy-subrc = 0.
  4130.     perform reformatclasscode using itemplines[].
  4132.     append '**************************************************************************' to ilines.
  4133.     append '*   Public section of class.                                             *' to ilines.
  4134.     append '**************************************************************************' to ilines.
  4135.     loop at itemplines.
  4136.       append itemplines to ilines.
  4137.     endloop.
  4138.   endif.
  4140.   castclassname = walocclass-privateclasskey.
  4141.   read report castclassname into itemplines.
  4142.   if sy-subrc = 0.
  4143.     perform reformatclasscode using itemplines[].
  4145.     append ilines.
  4146.     append '**************************************************************************' to ilines.
  4147.     append '*   Private section of class.                                            *' to ilines.
  4148.     append '**************************************************************************' to ilines.
  4149.     loop at itemplines.
  4150.       append itemplines to ilines.
  4151.     endloop.
  4152.   endif.
  4154.   castclassname = walocclass-protectedclasskey.
  4155.   read report castclassname into itemplines.
  4156.   if sy-subrc = 0.
  4157.     perform reformatclasscode using itemplines[].
  4159.     append ilines.
  4160.     append '**************************************************************************' to ilines.
  4161.     append '*   Protected section of class.                                          *' to ilines.
  4162.     append '**************************************************************************' to ilines.
  4163.     loop at itemplines.
  4164.       append itemplines to ilines.
  4165.     endloop.
  4166.   endif.
  4168.   castclassname = walocclass-typesclasskey.
  4169.   read report castclassname into itemplines.
  4170.   if sy-subrc = 0.
  4171.     append ilines.
  4172.     append '**************************************************************************' to ilines.
  4173.     append '*   Types section of class.                                              *' to ilines.
  4174.     append '**************************************************************************' to ilines.
  4175.     loop at itemplines.
  4176.       append itemplines to ilines.
  4177.     endloop.
  4178.   endif.
  4180. * Download text elements for this class
  4181.   if not walocclass-itextelements[] is initial.
  4182.     perform appendtextelements using walocclass-itextelements[]
  4183.                                      ilines[].
  4184.   endif.
  4186. * Download messages classes for this class.
  4187.   if not walocclass-imessages[] is initial.
  4188.     perform appendmessagestofile using walocclass-imessages[]
  4189.                                        ilines[]
  4190.                                        space.
  4191.   endif.
  4193. * Download exception texts for this class
  4194.   if not walocclass-iconcepts[] is initial.
  4195.     perform appendexceptiontexts using walocclass-iconcepts[]
  4196.                                        ilines[].
  4197.   endif.
  4200.   if converttohtml is initial.
  4201.     append '' to ilines.
  4202.     append '----------------------------------------------------------------------------------' to ilines.
  4203.     perform buildfootermessage using 'TEXT'
  4204.                                      ilines.
  4205.     append ilines.
  4206.   else.
  4207.     perform convertclasstohtml using ilines[]
  4208.                                     classname
  4209.                                     walocclass-descript
  4210.                                     overideprogtype
  4211.                                     syntaxhighlightcomments
  4212.                                     fileextension
  4213.                                     customernamerange
  4214.                                     getdictstructures.
  4215.   endif.
  4217.   if functionname is initial.
  4218.     objectname = classname.
  4219.   else.
  4220.     objectname = functionname.
  4221.   endif.
  4223.   perform buildfilename using userfilepath
  4224.                               additionalsubdir
  4225.                               objectname
  4226.                               space
  4227.                               classname
  4228.                               fileextension
  4229.                               overideprogtype
  4230.                               savetoserver
  4231.                               slashseparator
  4232.                               localfilenamewithpath
  4233.                               localfilenameonly
  4234.                               newsubdirectory
  4235.                               completesavepath.
  4237.   if savetoserver is initial.
  4238.     perform savefiletopc using ilines[]
  4239.                                localfilenamewithpath
  4240.                                localfilenameonly
  4241.                                space
  4242.                                space
  4243.                                displayprogressmessage.
  4244.   else.
  4245.     perform savefiletoserver using ilines[]
  4246.                                    localfilenamewithpath
  4247.                                    localfilenameonly
  4248.                                    completesavepath
  4249.                                    displayprogressmessage.
  4250.   endif.
  4251. endform.                                                                           "readClassAndDownload
  4252.  
  4253. *-------------------------------------------------------------------------------------------------------
  4254. *   readMethodAndDownload...
  4255. *-------------------------------------------------------------------------------------------------------
  4256. form readmethodanddownload using walocmethod type tmethod
  4257.                                 value(methodname)
  4258.                                 value(methodkey)
  4259.                                 value(functionname)
  4260.                                 value(overideprogtype)
  4261.                                 value(userfilepath)
  4262.                                 value(fileextension)
  4263.                                 value(additionalsubdir)
  4264.                                 value(converttohtml)
  4265.                                 value(syntaxhighlightcomments)
  4266.                                 value(customernamerange)
  4267.                                 value(getincludes)
  4268.                                 value(getdictstructures)
  4269.                                 value(slashseparator)
  4270.                                 value(savetoserver)
  4271.                                 value(displayprogressmessage).
  4272.  
  4273. data: ilines type standard table of string with header line.
  4274. data: itemplines type standard table of string with header line.
  4275. data: localfilenamewithpath type string.
  4276. data: localfilenameonly type string.
  4277. data: newsubdirectory type string.
  4278. data: objectname type string.
  4279. data: castmethodkey type program.
  4280. data: completesavepath type string.
  4281.  
  4282. * Add the method scope to the downloaded file
  4283.   append '**************************************************************************' to ilines.
  4284.   append '*   Method attributes.                                                   *' to ilines.
  4285.   append '**************************************************************************' to ilines.
  4286.   case walocmethod-exposure.
  4287.     when 0.
  4288.       append `Instantiation: Private` to ilines.
  4289.     when 1.
  4290.       append `Instantiation: Protected` to ilines.
  4291.     when 2.
  4292.       append `Instantiation: Public` to ilines.
  4293.   endcase.
  4294.   append '**************************************************************************' to ilines.
  4295.   append '' to ilines.
  4296.  
  4297.   castmethodkey = walocmethod-methodkey.
  4298.   read report castmethodkey into itemplines.
  4299.   loop at itemplines.
  4300.     append itemplines to ilines.
  4301.   endloop.
  4302.  
  4303.   if converttohtml is initial.
  4304.     append '' to ilines.
  4305.     append '----------------------------------------------------------------------------------' to ilines.
  4306.     perform buildfootermessage using 'TEXT'
  4307.                                      ilines.
  4308.     append ilines.
  4309.   else.
  4310.     perform convertcodetohtml using ilines[]
  4311.                                     methodname
  4312.                                     walocmethod-descript
  4313.                                     overideprogtype
  4314.                                     space
  4315.                                     space
  4316.                                     syntaxhighlightcomments
  4317.                                     fileextension
  4318.                                     customernamerange
  4319.                                     getincludes
  4320.  
  4321.                                     getdictstructures.
  4322.   endif.
  4323.  
  4324.   if functionname is initial.
  4325.     objectname = methodname.
  4326.   else.
  4327.     objectname = functionname.
  4328.   endif.
  4329.  
  4330.   perform buildfilename using userfilepath
  4331.                               additionalsubdir
  4332.                               objectname
  4333.                               space
  4334.                               methodname
  4335.                               fileextension
  4336.                               overideprogtype
  4337.                               savetoserver
  4338.                               slashseparator
  4339.                               localfilenamewithpath
  4340.                               localfilenameonly
  4341.                               newsubdirectory
  4342.                               completesavepath.
  4343.  
  4344.   if savetoserver is initial.
  4345.     perform savefiletopc using ilines[]
  4346.                                localfilenamewithpath
  4347.                                localfilenameonly
  4348.                                space
  4349.                                space
  4350.                                displayprogressmessage.
  4351.   else.
  4352.     perform savefiletoserver using ilines[]
  4353.                                    localfilenamewithpath
  4354.                                    localfilenameonly
  4355.                                    completesavepath
  4356.                                    displayprogressmessage.
  4357.   endif.
  4358. endform.                                                                          "readMethodAndDownload
  4360. *-------------------------------------------------------------------------------------------------------
  4361. *   readFunctionAndDownload...
  4362. *-------------------------------------------------------------------------------------------------------
  4363. form readfunctionanddownload using iloctextelements like dumitexttab[]
  4364.                                    ilocselectiontexts like dumitexttab[]
  4365.                                    ilocmessages like imessages[]
  4366.                                    value(functionname)
  4367.                                    value(functioninternalname)
  4368.                                    value(shorttext)
  4369.                                    value(userfilepath)
  4370.                                    value(fileextension)
  4371.                                    value(subdir)
  4372.                                    value(converttohtml)
  4373.                                    value(functiondocumentationexists)
  4374.                                    value(syntaxhighlightcomments)
  4375.                                    value(customernamerange)
  4376.                                    value(getincludes)
  4377.                                    value(getdictstructures)
  4378.                                    value(slashseparator)
  4379.                                    value(savetoserver)
  4380.                                    value(displayprogressmessage).
  4382. data: ilines type standard table of string with header line.
  4383. data: localfilenamewithpath type string.
  4384. data: localfilenameonly type string.
  4385. data: newsubdirectory type string.
  4386. data: completesavepath type string.
  4388.   read report functioninternalname into ilines.
  4390. * If we found any text elements for this function then we ought to append them to the main include.
  4391.   if not iloctextelements[] is initial.
  4392.     perform appendtextelements using iloctextelements[]
  4393.                                      ilines[].
  4394.   endif.
  4396. * If we found any message classes for this function then we ought to append them to the main include.
  4397.   if not ilocmessages[] is initial.
  4398.     perform appendmessagestofile using ilocmessages[]
  4399.                                        ilines[]
  4400.                                        space.
  4401.   endif.
  4403.   if converttohtml is initial.
  4404.     append '' to ilines.
  4405.     append '----------------------------------------------------------------------------------' to ilines.
  4406.     perform buildfootermessage using 'TEXT'
  4407.                                      ilines.
  4408.     append ilines.
  4409.   else.
  4410.     perform convertfunctiontohtml using ilines[]
  4411.                                         functionname
  4412.                                         shorttext
  4413.                                         is_function
  4414.                                         functiondocumentationexists
  4415.                                         true
  4416.                                         syntaxhighlightcomments
  4417.                                         fileextension
  4418.                                         customernamerange
  4419.                                         getincludes
  4420.                                         getdictstructures.
  4421.   endif.
  4423.   perform buildfilename using userfilepath
  4424.                               subdir
  4425.                               functionname
  4426.                               space
  4427.                               space
  4428.                               fileextension
  4429.                               is_function
  4430.                               savetoserver
  4431.                               slashseparator
  4432.                               localfilenamewithpath
  4433.                               localfilenameonly
  4434.                               newsubdirectory
  4435.                               completesavepath.
  4437.   if savetoserver is initial.
  4438.     perform savefiletopc using ilines[]
  4439.                                localfilenamewithpath
  4440.                                localfilenameonly
  4441.                                space
  4442.                                space
  4443.                                displayprogressmessage.
  4444.   else.
  4445.     perform savefiletoserver using ilines[]
  4446.                                    localfilenamewithpath
  4447.                                    localfilenameonly
  4448.                                    completesavepath
  4449.                                    displayprogressmessage.
  4450.   endif.
  4451. endform.                                                                        "readFunctionAndDownload
  4452.  
  4453. *-------------------------------------------------------------------------------------------------------
  4454. *  buildFilename...
  4455. *-------------------------------------------------------------------------------------------------------
  4456. form buildfilename using value(userpath)
  4457.                          value(additionalsubdirectory)
  4458.                          value(objectname)
  4459.                          value(mainfunctionno)
  4460.                          value(includename)
  4461.                          value(fileextension)
  4462.                          value(downloadtype)
  4463.                          value(downloadtoserver)
  4464.                          value(slashseparator)
  4465.                                newfilenamewithpath
  4466.                                newfilenameonly
  4467.                                newsubdirectory
  4468.                                completepath.
  4469.  
  4470. * If we are running on a non UNIX environment we will need to remove forward slashes from the additional path.
  4471.   if downloadtoserver is initial.
  4472.     if frontendopsystem = non_unix.
  4473.       if not additionalsubdirectory is initial.
  4474.         translate additionalsubdirectory using '/_'.
  4475.         if additionalsubdirectory+0(1) = '_'.
  4476.           shift additionalsubdirectory left by 1 places.
  4477.         endif.
  4478.       endif.
  4479.     endif.
  4480.   else.
  4481.     if serveropsystem = non_unix.
  4482.       if not additionalsubdirectory is initial.
  4483.         translate additionalsubdirectory using '/_'.
  4484.         if additionalsubdirectory+0(1) = '_'.
  4485.           shift additionalsubdirectory left by 1 places.
  4486.         endif.
  4487.       endif.
  4488.     endif.
  4489.   endif.
  4490.  
  4491.   case downloadtype.
  4492. *   Programs
  4493.     when is_program.
  4494.       if additionalsubdirectory is initial.
  4495.         concatenate userpath slashseparator objectname period fileextension into newfilenamewithpath.
  4496.         concatenate userpath slashseparator into completepath.
  4497.       else.
  4498.         concatenate userpath slashseparator additionalsubdirectory
  4499.                              slashseparator objectname period fileextension into newfilenamewithpath.
  4500.         concatenate userpath slashseparator additionalsubdirectory into completepath.
  4501.       endif.
  4502.  
  4503. *   Function Modules
  4504.     when is_function.
  4505.       if additionalsubdirectory is initial.
  4506.         find 'top' in includename ignoring case.
  4507.         if sy-subrc = 0.
  4508.           concatenate userpath slashseparator objectname
  4509.                                slashseparator 'Global-' objectname
  4510.                                period fileextension
  4511.                                into newfilenamewithpath.
  4512.         else.
  4513.           if includename cs mainfunctionno and not mainfunctionno is initial.
  4514.             concatenate userpath slashseparator objectname
  4515.                                  slashseparator objectname
  4516.                                  period fileextension
  4517.                                  into newfilenamewithpath.
  4518.           else.
  4519.             concatenate userpath slashseparator objectname
  4520.                                  slashseparator objectname
  4521.                                  period fileextension
  4522.                                  into newfilenamewithpath.
  4523.           endif.
  4524.         endif.
  4525.         newsubdirectory = objectname.
  4526.         concatenate userpath slashseparator into completepath.
  4527.       else.
  4528.         find 'top' in includename ignoring case.
  4529.         if sy-subrc = 0.
  4530.           concatenate userpath slashseparator additionalsubdirectory
  4531.                                slashseparator objectname
  4532.                                slashseparator 'Global-' objectname
  4533.                                period fileextension
  4534.                                into newfilenamewithpath.
  4535.         else.
  4536.           if includename cs mainfunctionno and not mainfunctionno is initial.
  4537.             concatenate userpath slashseparator additionalsubdirectory
  4538.                                  slashseparator objectname
  4539.                                  slashseparator objectname
  4540.                                  period fileextension
  4541.                                  into newfilenamewithpath.
  4542.           else.
  4543.             concatenate userpath slashseparator additionalsubdirectory
  4544.                                  slashseparator objectname
  4545.                                  slashseparator objectname
  4546.                                  period fileextension
  4547.                                  into newfilenamewithpath.
  4548.           endif.
  4549.         endif.
  4550.         concatenate additionalsubdirectory slashseparator objectname into newsubdirectory.
  4551.         concatenate userpath slashseparator additionalsubdirectory slashseparator objectname into completepath.
  4552.       endif.
  4553.  
  4554. *   Table definition
  4555.     when is_table.
  4556.       if additionalsubdirectory is initial.
  4557.         concatenate userpath slashseparator objectname
  4558.                              slashseparator 'Dictionary-'
  4559.                              objectname period fileextension
  4560.                              into newfilenamewithpath.
  4561.  
  4562.         concatenate userpath slashseparator objectname into newsubdirectory.
  4563.         concatenate userpath slashseparator objectname into completepath.
  4564.       else.
  4565.         concatenate userpath slashseparator additionalsubdirectory
  4566.                              slashseparator objectname
  4567.                              slashseparator 'Dictionary-'
  4568.                              objectname period fileextension
  4569.                              into newfilenamewithpath.
  4570.  
  4571.         concatenate userpath slashseparator additionalsubdirectory slashseparator objectname into newsubdirectory.
  4572.         concatenate userpath slashseparator additionalsubdirectory slashseparator objectname into completepath.
  4573.       endif.
  4574.  
  4575. *   Program & Function documentation
  4576.     when is_documentation.
  4577.       if additionalsubdirectory is initial.
  4578.         concatenate userpath slashseparator objectname
  4579.                              slashseparator 'Docs-'
  4580.                              objectname period
  4581.                              fileextension
  4582.                              into newfilenamewithpath.
  4583.  
  4584.         concatenate userpath slashseparator objectname into newsubdirectory.
  4585.         concatenate userpath slashseparator objectname into completepath.
  4586.       else.
  4587.         concatenate userpath slashseparator additionalsubdirectory
  4588.                              slashseparator objectname
  4589.                              slashseparator 'Docs-'
  4590.                              objectname period fileextension
  4591.                              into newfilenamewithpath.
  4592.  
  4593.         concatenate userpath slashseparator additionalsubdirectory slashseparator objectname into newsubdirectory.
  4594.         concatenate userpath slashseparator additionalsubdirectory slashseparator objectname into completepath.
  4595.     endif.
  4596.  
  4597. *   Screens
  4598.     when is_screen.
  4599.       if additionalsubdirectory is initial.
  4600.         concatenate userpath slashseparator 'Screens'
  4601.                              slashseparator 'screen_'
  4602.                              objectname period
  4603.                              fileextension into newfilenamewithpath.
  4604.  
  4605.         concatenate userpath slashseparator 'screens' into newsubdirectory.
  4606.         concatenate userpath slashseparator 'screens' into completepath.
  4607.  
  4608.       else.
  4609.         concatenate userpath slashseparator additionalsubdirectory
  4610.                              slashseparator 'Screens'
  4611.                              slashseparator 'screen_'
  4612.                              objectname period
  4613.                              fileextension into newfilenamewithpath.
  4614.  
  4615.         concatenate userpath slashseparator additionalsubdirectory slashseparator 'screens' into newsubdirectory.
  4616.         concatenate userpath slashseparator additionalsubdirectory slashseparator 'screens' into completepath.
  4617.       endif.
  4618.  
  4619. *   GUI title
  4620.     when is_guititle.
  4621.       if additionalsubdirectory is initial.
  4622.         concatenate userpath slashseparator 'Screens'
  4623.                              slashseparator 'gui_title_'
  4624.                              objectname period
  4625.                              fileextension into newfilenamewithpath.
  4626.  
  4627.         concatenate userpath slashseparator 'screens' into newsubdirectory.
  4628.         concatenate userpath slashseparator 'screens' into completepath.
  4629.       else.
  4630.         concatenate userpath slashseparator additionalsubdirectory
  4631.                              slashseparator 'Screens'
  4632.                              slashseparator 'gui_title_'
  4633.                              objectname period
  4634.                              fileextension into newfilenamewithpath.
  4635.  
  4636.         concatenate userpath slashseparator additionalsubdirectory slashseparator 'Screens' into newsubdirectory.
  4637.         concatenate userpath slashseparator additionalsubdirectory slashseparator 'Screens' into completepath.
  4638.       endif.
  4639.  
  4640. *   Message Class
  4641.     when is_messageclass.
  4642.       if additionalsubdirectory is initial.
  4643.         concatenate userpath slashseparator objectname
  4644.                              slashseparator 'Message class-'
  4645.                              objectname period
  4646.                              fileextension
  4647.                              into newfilenamewithpath.
  4648.  
  4649.         concatenate userpath slashseparator objectname into newsubdirectory.
  4650.         concatenate userpath slashseparator objectname into completepath.
  4651.       else.
  4652.         concatenate userpath slashseparator additionalsubdirectory
  4653.                              slashseparator objectname
  4654.                              slashseparator 'Message class-'
  4655.                              objectname period fileextension
  4656.                              into newfilenamewithpath.
  4657.  
  4658.         concatenate userpath slashseparator additionalsubdirectory slashseparator objectname into newsubdirectory.
  4659.         concatenate userpath slashseparator additionalsubdirectory slashseparator objectname into completepath.
  4660.     endif.
  4661.  
  4662. *   Class definition
  4663.     when is_class.
  4664.       if additionalsubdirectory is initial.
  4665.         concatenate userpath slashseparator objectname
  4666.                              slashseparator 'Class-'
  4667.                              objectname period fileextension
  4668.                              into newfilenamewithpath.
  4669.  
  4670.         concatenate userpath slashseparator objectname into newsubdirectory.
  4671.         concatenate userpath slashseparator objectname into completepath.
  4672.       else.
  4673.         concatenate userpath slashseparator additionalsubdirectory
  4674.                              slashseparator objectname
  4675.                              slashseparator 'Class-'
  4676.                              objectname period fileextension
  4677.                              into newfilenamewithpath.
  4678.  
  4679.         concatenate userpath slashseparator additionalsubdirectory slashseparator objectname into newsubdirectory.
  4680.         concatenate userpath slashseparator additionalsubdirectory slashseparator objectname into completepath.
  4681.       endif.
  4682.  
  4683. *   Class definition
  4684.     when is_method.
  4685.       if additionalsubdirectory is initial.
  4686.         concatenate userpath slashseparator 'Method-'
  4687.                              objectname period fileextension
  4688.                              into newfilenamewithpath.
  4689.  
  4690.         concatenate userpath slashseparator objectname into newsubdirectory.
  4691.         concatenate userpath slashseparator objectname into completepath.
  4692.       else.
  4693.         concatenate userpath slashseparator additionalsubdirectory
  4694.                              slashseparator 'Method-'
  4695.                              objectname period fileextension
  4696.                              into newfilenamewithpath.
  4697.  
  4698.         concatenate userpath slashseparator additionalsubdirectory slashseparator objectname into newsubdirectory.
  4699.         concatenate userpath slashseparator additionalsubdirectory slashseparator objectname into completepath.
  4700.       endif.
  4701.   endcase.
  4702.  
  4703.   translate completepath to lower case.
  4704.   concatenate objectname period fileextension into newfilenameonly.
  4705.   translate newfilenameonly to lower case.
  4706.   translate newfilenamewithpath to lower case.
  4707.   translate newsubdirectory to lower case.
  4708.  
  4709. * If we are running on a non UNIX environment we will need to remove incorrect characters from the filename.
  4710.   if downloadtoserver is initial.
  4711.     if frontendopsystem = non_unix.
  4712.       translate newfilenameonly using '/_'.
  4713.       translate newfilenamewithpath using '/_'.
  4714.       translate newfilenameonly using '< '.
  4715.       translate newfilenamewithpath using '< '.
  4716.       translate newfilenameonly using '> '.
  4717.       translate newfilenamewithpath using '> '.
  4718.       translate newfilenameonly using '? '.
  4719.       translate newfilenamewithpath using '? '.
  4720.       translate newfilenameonly using '| '.
  4721.       translate newfilenamewithpath using '| '.
  4722.       condense newfilenameonly no-gaps.
  4723.       condense newfilenamewithpath no-gaps.
  4724.     endif.
  4725.   else.
  4726.     if serveropsystem = non_unix.
  4727.       translate newfilenameonly using '/_'.
  4728.       translate newfilenamewithpath using '/_'.
  4729.       translate newfilenameonly using '< '.
  4730.       translate newfilenamewithpath using '< '.
  4731.       translate newfilenameonly using '> '.
  4732.       translate newfilenamewithpath using '> '.
  4733.       translate newfilenameonly using '? '.
  4734.       translate newfilenamewithpath using '? '.
  4735.       translate newfilenameonly using '| '.
  4736.       translate newfilenamewithpath using '| '.
  4737.       condense newfilenameonly no-gaps.
  4738.       condense newfilenamewithpath no-gaps.
  4739.     endif.
  4740.   endif.
  4741. endform.                                                                                 "buildFilename
  4743. *-------------------------------------------------------------------------------------------------------
  4744. *  saveFileToPc...    write an internal table to a file on the local PC
  4745. *-------------------------------------------------------------------------------------------------------
  4746. form savefiletopc using idownload type standard table
  4747.                         value(filenamewithpath)
  4748.                         value(filename)
  4749.                         value(writefieldseparator)
  4750.                         value(truncatetrailingblanks)
  4751.                         value(displayprogressmessage).
  4753. data: statusmessage type string.
  4754. data: objfile type ref to cl_gui_frontend_services.
  4755. data: strsubrc type string.
  4757.   if not displayprogressmessage is initial.
  4758.     concatenate `Downloading: ` filename into statusmessage.
  4759.     perform displaystatus using statusmessage 0.
  4760.   endif.
  4762.   create object objfile.
  4763.   call method objfile->gui_download exporting filename = filenamewithpath
  4764.                                               filetype = 'ASC'
  4765.                                               write_field_separator = writefieldseparator
  4766.                                               trunc_trailing_blanks = truncatetrailingblanks
  4767.                                      changing data_tab = idownload[]
  4768.                                    exceptions file_write_error        = 1
  4769.                                               no_batch                = 2
  4770.                                               gui_refuse_filetransfer = 3
  4771.                                               invalid_type            = 4
  4772.                                               no_authority            = 5
  4773.                                               unknown_error           = 6
  4774.                                               header_not_allowed      = 7
  4775.                                               separator_not_allowed   = 8
  4776.                                               filesize_not_allowed    = 9
  4777.                                               header_too_long         = 10
  4778.                                               dp_error_create         = 11
  4779.                                               dp_error_send           = 12
  4780.                                               dp_error_write          = 13
  4781.                                               unknown_dp_error        = 14
  4782.                                               access_denied           = 15
  4783.                                               dp_out_of_memory        = 16
  4784.                                               disk_full               = 17
  4785.                                               dp_timeout              = 18
  4786.                                               file_not_found          = 19
  4787.                                               dataprovider_exception  = 20
  4788.                                               control_flush_error     = 21
  4789.                                               not_supported_by_gui    = 22
  4790.                                               error_no_gui            = 23.
  4792.    if sy-subrc <> 0.
  4793.      strsubrc = sy-subrc.
  4794.      concatenate `File save error: ` filename ` sy-subrc: ` strsubrc into statusmessage.
  4795.      perform displaystatus using statusmessage 3.
  4796.    endif.
  4797. endform.                                                                                                  "saveFileToPc
  4798.  
  4799. *----------------------------------------------------------------------------------------------------------------------
  4800. *  saveFileToServer...    write an internal table to a file on the SAP server
  4801. *----------------------------------------------------------------------------------------------------------------------
  4802. form savefiletoserver using idownload type standard table
  4803.                             value(filenamewithpath)
  4804.                             value(filename)
  4805.                             value(path)
  4806.                             value(displayprogressmessage).
  4807.  
  4808. data: wadownload type string.
  4809. data: statusmessage type string.
  4810.  
  4811.   if not displayprogressmessage is initial.
  4812.     concatenate `Downloading: ` filename into statusmessage.
  4813.     perform displaystatus using statusmessage 0.
  4814.   endif.
  4815.  
  4816.   read table iserverpaths with key table_line = path.
  4817.   if sy-subrc <> 0.
  4818.     perform createserverdirectory using path.
  4819.     append path to iserverpaths.
  4820.   endif.
  4821.  
  4822.   open dataset filenamewithpath for output in text mode encoding default.
  4823.   if sy-subrc = 0.
  4824.     loop at idownload into wadownload.
  4825.       transfer wadownload to filenamewithpath.
  4826.       if sy-subrc <> 0.
  4827.         message e000(oo) with 'Error transferring data to file'.
  4828.       endif.
  4829.     endloop.
  4830.  
  4831.     close dataset filenamewithpath.
  4832.     if sy-subrc <> 0.
  4833.       message e000(oo) with 'Error closing file'.
  4834.     endif.
  4835.   else.
  4836. *   Unable to create a file
  4837.     message e000(oo) with 'Error creating file on SAP server' 'check permissions'.
  4838.   endif.
  4839. endform.                                                                                              "saveFileToServer
  4841. *----------------------------------------------------------------------------------------------------------------------
  4842. * createServerDirectory...
  4843. *----------------------------------------------------------------------------------------------------------------------
  4844. form createserverdirectory using value(path).
  4846. *  Parameters for remove command.
  4847. data: param1 type sxpgcolist-parameters.
  4848. *  Return status
  4849. data: funcstatus type extcmdexex-status.
  4850. *  Command line listing returned by the function
  4851. data: iserveroutput type standard table of btcxpm.
  4852. data: waserveroutput type btcxpm.
  4853. *  Targetsystem type conversion variable.
  4854. data: target type rfcdisplay-rfchost.
  4855. * Operating system
  4856. data: operatingsystem type sxpgcolist-opsystem.
  4857. *  Head for split command.
  4858. data: head type string..
  4859. data: tail type string.
  4861.  param1 = path.
  4862.  target = sy-host.
  4863.  operatingsystem = sy-opsys.
  4865.  call function 'SXPG_COMMAND_EXECUTE'
  4866.    exporting
  4867.      commandname                         = 'ZMKDIR'
  4868.      additional_parameters               = param1
  4869.      operatingsystem                     = operatingsystem
  4870.      targetsystem                        = target
  4871.      stdout                              = 'X'
  4872.      stderr                              = 'X'
  4873.      terminationwait                     = 'X'
  4874.    importing
  4875.      status                              = funcstatus
  4876.    tables
  4877.      exec_protocol                       = iserveroutput[]
  4878.    exceptions
  4879.     no_permission                       = 1
  4880.     command_not_found                   = 2
  4881.     parameters_too_long                 = 3
  4882.     security_risk                       = 4
  4883.     wrong_check_call_interface          = 5
  4884.     program_start_error                 = 6
  4885.     program_termination_error           = 7
  4886.     x_error                             = 8
  4887.     parameter_expected                  = 9
  4888.     too_many_parameters                 = 10
  4889.     illegal_command                     = 11
  4890.     wrong_asynchronous_parameters       = 12
  4891.     cant_enq_tbtco_entry                = 13
  4892.     jobcount_generation_error           = 14
  4893.     others                              = 15.
  4895.   if sy-subrc = 0.
  4896. *   Although the function succeded did the external command actually work
  4897.     if funcstatus = 'E'.
  4898. *     External command returned with an error
  4899.       if sy-opsys cs 'Windows NT'.
  4900.         read table iserveroutput index 1 into waserveroutput.
  4901.         if waserveroutput-message ns 'already exists'.
  4902. *         An error occurred creating the directory on the server
  4903.           message e000(oo) with 'An error occurred creating a directory'.
  4904.         endif.
  4905.       else.
  4906.         read table iserveroutput index 2 into waserveroutput.
  4907.         split waserveroutput-message at space into head tail.
  4908.         shift tail left deleting leading space.
  4909.         if tail <> 'Do not specify an existing file.'.
  4910. *         An error occurred creating the directory on the server
  4911.           message e000(oo) with 'An error occurred creating a directory'.
  4912.         endif.
  4913.       endif.
  4914.     endif.
  4915.   else.
  4916.     case sy-subrc.
  4917.       when 1.
  4918. *       No permissions to run the command
  4919.         message e000(oo) with 'No permissions to run external command ZMKDIR'.
  4920.       when 2.
  4921. *       External command not found
  4922.         message e000(oo) with 'External comand ZMKDIR not found'.
  4924.       when others.
  4925. *       Unable to create the directory
  4926.         message e000(oo) with 'An error occurred creating a directory'
  4927.                               ', subrc:'
  4928.                               sy-subrc.
  4929.     endcase.
  4930.   endif.
  4931. endform.                                                                                         "createServerDirectory
  4932.  
  4933. *----------------------------------------------------------------------------------------------------------------------
  4934. * appendTextElements...
  4935. *----------------------------------------------------------------------------------------------------------------------
  4936. form appendtextelements using iloctextelements like dumitexttab[]
  4937.                               iloclines like dumihtml[].
  4938.  
  4939. field-symbols: <watextelement> type ttexttable.
  4940. data: waline type string.
  4941.  
  4942.   if lines( iloctextelements ) > 0.
  4943.     append '' to iloclines.
  4944.  
  4945.     append '*Text elements' to iloclines.
  4946.     append '*----------------------------------------------------------' to  iloclines.
  4947.     loop at iloctextelements assigning <watextelement>.
  4948.       concatenate '*  ' <watextelement>-key <watextelement>-entry into waline separated by space.
  4949.       append waline to iloclines.
  4950.     endloop.
  4951.   endif.
  4952. endform.                                                                                            "appendTextElements
  4954. *----------------------------------------------------------------------------------------------------------------------
  4955. * appendGUITitles...
  4956. *----------------------------------------------------------------------------------------------------------------------
  4957. form appendguititles using ilocguititles like dumiguititle[]
  4958.                            iloclines like dumihtml[].
  4960. field-symbols: <waguititle> type tguititle.
  4961. data: waline type string.
  4963.   if lines( ilocguititles ) > 0.
  4964.     append '' to iloclines.
  4966.     append '*GUI Texts' to iloclines.
  4967.     append '*----------------------------------------------------------' to  iloclines.
  4968.     loop at ilocguititles assigning <waguititle>.
  4969.       concatenate '*  ' <waguititle>-obj_code '-->' <waguititle>-text into waline separated by space.
  4970.       append waline to iloclines.
  4971.     endloop.
  4972.   endif.
  4973. endform.                                                                                               "appendGUITitles
  4974.  
  4975. *----------------------------------------------------------------------------------------------------------------------
  4976. * appendSelectionTexts...
  4977. *----------------------------------------------------------------------------------------------------------------------
  4978. form appendselectiontexts using ilocselectiontexts like dumitexttab[]
  4979.                                 iloclines like dumihtml[].
  4980.  
  4981. field-symbols: <waselectiontext> type ttexttable.
  4982. data: waline type string.
  4983.  
  4984.   if lines( ilocselectiontexts ) > 0.
  4985.     append '' to iloclines.
  4986.     append '' to iloclines.
  4987.  
  4988.     append '*Selection texts' to iloclines.
  4989.     append '*----------------------------------------------------------' to  iloclines.
  4990.     loop at ilocselectiontexts assigning <waselectiontext>.
  4991.       concatenate '*  ' <waselectiontext>-key <waselectiontext>-entry into waline separated by space.
  4992.       append waline to iloclines.
  4993.     endloop.
  4994.   endif.
  4995. endform.                                                                                          "appendSelectionTexts
  4997. *----------------------------------------------------------------------------------------------------------------------
  4998. * appendExceptionTexts...
  4999. *----------------------------------------------------------------------------------------------------------------------
  5000. form appendexceptiontexts using iconcepts like dumiconcepts[]
  5001.                                 iloclines like dumihtml[].
  5003. field-symbols: <waconcept> type tconcept.
  5004. data: waline type string.
  5005. data: concepttext type sotr_txt.
  5007.   if lines( iconcepts ) > 0.
  5008.     append '' to iloclines.
  5010.     append '*Exception texts' to iloclines.
  5011.     append '*----------------------------------------------------------' to  iloclines.
  5012.     loop at iconcepts assigning <waconcept>.
  5013. *     Find the text for this concept
  5014.       call function 'SOTR_GET_TEXT_KEY' exporting concept = <waconcept>-concept
  5015.                                                   langu = sy-langu
  5016.                                                   search_in_second_langu = 'X'
  5017. *                                                  second_langu = 'DE'
  5018.                                         importing e_text = concepttext
  5019.                                         exceptions no_entry_found = 1
  5020.                                                    parameter_error = 2
  5021.                                                    others  = 3.
  5023.       if sy-subrc = 0.
  5024.         concatenate '*  ' <waconcept>-constname '-' concepttext  into waline separated by space.
  5025.         append waline to iloclines.
  5026.       endif.
  5027.     endloop.
  5028.   endif.
  5029. endform.                                                                                          "appendExceptionTexts
  5030.  
  5031. *----------------------------------------------------------------------------------------------------------------------
  5032. * downloadFunctionDocs...
  5033. *----------------------------------------------------------------------------------------------------------------------
  5034. form downloadfunctiondocs using value(functionname)
  5035.                                 value(functiondescription)
  5036.                                 value(userfilepath)
  5037.                                 value(fileextension)
  5038.                                 value(converttohtml)
  5039.                                 value(slashseparator)
  5040.                                 value(savetoserver)
  5041.                                 value(displayprogressmessage)
  5042.                                       subdir
  5043.                                       documentationdownloaded.
  5044.  
  5045. data: ilines type standard table of string with header line.
  5046. data: idocumentation type standard table of funct with header line.
  5047. data: iexceptions type standard table of rsexc with header line.
  5048. data: iexport type standard table of rsexp with header line.
  5049. data: iparameter type standard table of rsimp with header line.
  5050. data: itables type standard table of rstbl with header line.
  5051. data: iscriptlines type standard table of tline with header line.
  5052. data: htmlpagename type string.
  5053. data: newfilenamewithpath type string.
  5054. data: newfilenameonly type string.
  5055. data: object like dokhl-object.
  5056. data: stringlength type i value 0.
  5057. data: newsubdirectory type string.
  5058. data: waline(255).
  5059. data: completesavepath type string.
  5060.  
  5061.   documentationdownloaded = false.
  5062.   object = functionname.
  5063.  
  5064.   call function 'FUNCTION_IMPORT_DOKU'
  5065.        exporting
  5066.             funcname           = functionname
  5067.        tables
  5068.             dokumentation      = idocumentation
  5069.             exception_list     = iexceptions
  5070.             export_parameter   = iexport
  5071.             import_parameter   = iparameter
  5072.             tables_parameter   = itables
  5073.        exceptions
  5074.             error_message      = 1
  5075.             function_not_found = 2
  5076.             invalid_name       = 3
  5077.             others             = 4.
  5078.  
  5079.   call function 'DOCU_GET'
  5080.        exporting
  5081.             id                     = 'FU'
  5082.             langu                  = sy-langu
  5083.             object                 = object
  5084.             typ                    = 'T'
  5085.             version_active_or_last = 'L'
  5086.        tables
  5087.             line                   = iscriptlines
  5088.        exceptions
  5089.             no_docu_on_screen      = 1
  5090.             no_docu_self_def       = 2
  5091.             no_docu_temp           = 3
  5092.             ret_code               = 4
  5093.             others                 = 5.
  5094.  
  5095.   if sy-subrc = 0 and not ( iscriptlines[] is initial ).
  5096.     append 'SHORT TEXT' to ilines.
  5097.     concatenate space functiondescription into functiondescription separated by space.
  5098.     append functiondescription to ilines.
  5099.     append space to ilines.
  5100.     loop at iscriptlines.
  5101.       move iscriptlines-tdline to ilines.
  5102.       concatenate space ilines into ilines separated by space.
  5103.       while ilines cp '&*' or ilines cp '*&'.
  5104.         replace '&' into ilines with space.
  5105.         shift ilines left deleting leading space.
  5106.       endwhile.
  5107.       append ilines.
  5108.     endloop.
  5109.  
  5110.     clear ilines.
  5111.     if not ( idocumentation[] is initial ).
  5112.       append ilines.
  5113.       append 'PARAMETER DOCUMENTATION' to ilines.
  5114.       append '-----------------------' to ilines.
  5115.       append ilines.
  5116.  
  5117.       describe field idocumentation-parameter length stringlength in character mode.
  5118.       stringlength = stringlength + 3.
  5119.       loop at idocumentation.
  5120.         move idocumentation-parameter to waline.
  5121.         move idocumentation-stext to waline+stringlength.
  5122.         append waline to ilines.
  5123.       endloop.
  5124.     endif.
  5125.  
  5126.     concatenate `Documentation - ` functionname into htmlpagename.
  5127.  
  5128.     if converttohtml is initial.
  5129.       append ilines.
  5130.       append  '----------------------------------------------------------------------------------' to ilines.
  5131.       append ilines.
  5132.       perform buildfootermessage using 'TEXT'
  5133.                                        ilines.
  5134.       append ilines.
  5135.     else.
  5136.       perform convertcodetohtml using ilines[]
  5137.                                       htmlpagename
  5138.                                       space
  5139.                                       is_documentation
  5140.                                       true
  5141.                                       space
  5142.                                       space
  5143.                                       space
  5144.                                       space
  5145.                                       space
  5146.                                       space.
  5147.     endif.
  5148.  
  5149.     perform buildfilename using userfilepath
  5150.                                 subdir
  5151.                                 functionname
  5152.                                 space
  5153.                                 space
  5154.                                 fileextension
  5155.                                 is_documentation
  5156.                                 savetoserver
  5157.                                 slashseparator
  5158.                                 newfilenamewithpath
  5159.                                 newfilenameonly
  5160.                                 newsubdirectory
  5161.                                 completesavepath.
  5162.  
  5163.     if savetoserver is initial.
  5164.       perform savefiletopc using ilines[]
  5165.                                  newfilenamewithpath
  5166.                                  newfilenameonly
  5167.                                  space
  5168.                                  space
  5169.                                  displayprogressmessage.
  5170.     else.
  5171.       perform savefiletoserver using ilines[]
  5172.                                      newfilenamewithpath
  5173.                                      newfilenameonly
  5174.                                      completesavepath
  5175.                                      displayprogressmessage.
  5176.     endif.
  5177.  
  5178.     documentationdownloaded = true.
  5179.   endif.
  5180. endform.                                                                                          "downloadFunctionDocs
  5182. *----------------------------------------------------------------------------------------------------------------------
  5183. *  downloadScreens...
  5184. *----------------------------------------------------------------------------------------------------------------------
  5185. form downloadscreens using ilocscreenflow like dumiscreen[]
  5186.                            value(programname)
  5187.                            value(userfilepath)
  5188.                            value(textfileextension)
  5189.                            value(subdir)
  5190.                            value(slashseparator)
  5191.                            value(savetoserver)
  5192.                            value(displayprogressmessage).
  5195. tables: d020t.
  5196. data: header like d020s.
  5197. data: ifields type standard table of d021s with header line.
  5198. data: iflowlogic type standard table of d022s with header line.
  5199. field-symbols <wascreen> type tscreenflow.
  5200. data: wacharheader type scr_chhead.
  5201. data: iscreenchar type standard table of scr_chfld with header line.
  5202. data: ifieldschar type standard table of scr_chfld with header line.
  5203. data: stars type string value '****************************************************************'.
  5204. data: comment1 type string value '*   This file was generated by Direct Download Enterprise.     *'.
  5205. data: comment2 type string value '*   Please do not change it manually.                          *'.
  5206. data: dynprotext type string value '%_DYNPRO'.
  5207. data: headertext type string value '%_HEADER'.
  5208. data: paramstext type string value '%_PARAMS'.
  5209. data: descriptiontext type string value '%_DESCRIPTION'.
  5210. data: fieldstext type string value '%_FIELDS'.
  5211. data: flowlogictext type string value '%_FLOWLOGIC'.
  5212. data: programlength type string.
  5213. data: newsubdirectory type string.
  5214. data: newfilenamewithpath type string.
  5215. data: newfilenameonly type string.
  5216. data: completesavepath type string.
  5218.   loop at ilocscreenflow assigning <wascreen>.
  5219.     call function 'RS_IMPORT_DYNPRO'
  5220.          exporting
  5221.               dylang = sy-langu
  5222.               dyname = programname
  5223.               dynumb = <wascreen>-screen
  5224.          importing
  5225.               header = header
  5226.          tables
  5227.               ftab   = ifields
  5228.               pltab  = iflowlogic.
  5230.     call function 'RS_SCRP_HEADER_RAW_TO_CHAR'
  5231.          exporting
  5232.               header_int  = header
  5233.          importing
  5234.               header_char = wacharheader
  5235.          exceptions
  5236.               others      = 1.
  5238. *   Add in the top comments for the file
  5239.     append stars to iscreenchar .
  5240.     append comment1 to iscreenchar.
  5241.     append comment2 to iscreenchar.
  5242.     append stars to iscreenchar.
  5244. *   Screen identification
  5245.     append dynprotext to iscreenchar.
  5246.     append wacharheader-prog to iscreenchar.
  5247.     append wacharheader-dnum to iscreenchar.
  5248.     append sy-saprl to iscreenchar.
  5249.     describe field d020t-prog length programlength in character mode.
  5250.     concatenate `                ` programlength into iscreenchar.
  5251.     append iscreenchar.
  5253. *   Header
  5254.     append headertext to iscreenchar.
  5255.     append wacharheader to iscreenchar.
  5257. *   Description text
  5258.     append descriptiontext to iscreenchar.
  5259.     select single dtxt from d020t into iscreenchar
  5260.                        where prog = programname
  5261.                              and dynr = <wascreen>-screen
  5262.                              and lang = sy-langu.
  5263.     append iscreenchar.
  5265. *   Fieldlist text
  5266.     append fieldstext to iscreenchar.
  5268.     call function 'RS_SCRP_FIELDS_RAW_TO_CHAR'
  5269.          tables
  5270.               fields_int  = ifields[]
  5271.               fields_char = ifieldschar[]
  5272.          exceptions
  5273.               others      = 1.
  5275.     loop at ifieldschar.
  5276.       move-corresponding ifieldschar to iscreenchar.
  5277.       append iscreenchar.
  5278.     endloop.
  5280. *   Flowlogic text
  5281.     append flowlogictext to iscreenchar.
  5282. *   Flow logic.
  5283.     loop at iflowlogic.
  5284.       append iflowlogic to iscreenchar.
  5285.     endloop.
  5287.     perform buildfilename using userfilepath
  5288.                                 subdir
  5289.                                 wacharheader-dnum
  5290.                                 space
  5291.                                 space
  5292.                                 textfileextension
  5293.                                 is_screen
  5294.                                 savetoserver
  5295.                                 slashseparator
  5296.                                 newfilenamewithpath
  5297.                                 newfilenameonly
  5298.                                 newsubdirectory
  5299.                                 completesavepath.
  5301.     if savetoserver is initial.
  5302. *     Save the screen to the local computer
  5303.       perform savefiletopc using iscreenchar[]
  5304.                                  newfilenamewithpath
  5305.                                  newfilenameonly
  5306.                                  'X'
  5307.                                  'X'
  5308.                                  displayprogressmessage.
  5309.     else.
  5310. *     Save the screen to the SAP server
  5311.       perform savefiletoserver using iscreenchar[]
  5312.                                      newfilenamewithpath
  5313.                                      newfilenameonly
  5314.                                      completesavepath
  5315.                                      displayprogressmessage.
  5316.     endif.
  5318.     clear header. clear wacharheader.
  5319.     clear iscreenchar[].
  5320.     clear ifieldschar[].
  5321.     clear ifields[].
  5322.     clear iflowlogic[].
  5323.   endloop.
  5324. endform.                                                                                               "downloadScreens
  5325.  
  5326. *----------------------------------------------------------------------------------------------------------------------
  5327. *  downloadGUITitles..
  5328. *----------------------------------------------------------------------------------------------------------------------
  5329. form downloadguititles using ilocguititles like dumiguititle[]
  5330.                              value(userfilepath)
  5331.                              value(textfileextension)
  5332.                              value(subdir)
  5333.                              value(slashseparator)
  5334.                              value(savetoserver)
  5335.                              value(displayprogressmessage).
  5336.  
  5337. data: ilines type standard table of string with header line.
  5338. field-symbols: <waguititle> type tguititle.
  5339. data: newsubdirectory type string.
  5340. data: newfilenamewithpath type string.
  5341. data: newfilenameonly type string.
  5342. data: completesavepath type string.
  5343.  
  5344.   loop at ilocguititles assigning <waguititle>.
  5345.     append <waguititle>-text to ilines.
  5346.  
  5347.     perform buildfilename using userfilepath
  5348.                                 subdir
  5349.                                 <waguititle>-obj_code
  5350.                                 space
  5351.                                 space
  5352.                                 textfileextension
  5353.                                 is_guititle
  5354.                                 savetoserver
  5355.                                 slashseparator
  5356.                                 newfilenamewithpath
  5357.                                 newfilenameonly
  5358.                                 newsubdirectory
  5359.                                 completesavepath.
  5360.  
  5361.     if savetoserver is initial.
  5362.       perform savefiletopc using ilines[]
  5363.                                  newfilenamewithpath
  5364.                                  newfilenameonly
  5365.                                  space
  5366.                                  space
  5367.                                  displayprogressmessage.
  5368.     else.
  5369.       perform savefiletoserver using ilines[]
  5370.                                      newfilenamewithpath
  5371.                                      newfilenameonly
  5372.                                      completesavepath
  5373.                                      displayprogressmessage.
  5374.     endif.
  5375.  
  5376.     clear ilines[].
  5377.   endloop.
  5378. endform.                                                                                             "downloadGUITitles
  5380. *----------------------------------------------------------------------------------------------------------------------
  5381. *  downloadPrograms..
  5382. *----------------------------------------------------------------------------------------------------------------------
  5383. form downloadprograms using ilocprogram like iprograms[]
  5384.                             ilocfunctions like ifunctions[]
  5385.                             value(userfilepath)
  5386.                             value(fileextension)
  5387.                             value(htmlfileextension)
  5388.                             value(textfileextension)
  5389.                             value(converttohtml)
  5390.                             value(syntaxhighlightcomments)
  5391.                             value(customernamerange)
  5392.                             value(getincludes)
  5393.                             value(getdictstruct)
  5394.                             value(downloaddocumentation)
  5395.                             value(sorttablesasc)
  5396.                             value(slashseparator)
  5397.                             value(savetoserver)
  5398.                             value(displayprogressmessage).
  5401. data: iprogfunctions type standard table of tfunction with header line.
  5402. field-symbols: <waprogram> type tprogram.
  5403. field-symbols: <wainclude> type tinclude.
  5404. data: iemptytextelements type standard table of ttexttable.
  5405. data: iemptyselectiontexts type standard table of ttexttable.
  5406. data: iemptymessages type standard table of tmessage.
  5407. data: iemptyguititles type standard table of tguititle.
  5408. data: locconverttohtml(1).
  5409. data: locfileextension type string.
  5411.   sort ilocprogram ascending by progname.
  5413.   loop at ilocprogram assigning <waprogram>.
  5414. *   if the program to download is this program then always download as text otherwise you will get a rubbish file
  5415.     if <waprogram>-progname = sy-cprog.
  5416.       locconverttohtml = ''.
  5417.       locfileextension = textextension.
  5418.     else.
  5419.       locconverttohtml = converttohtml.
  5420.       locfileextension = fileextension.
  5421.     endif.
  5423. *   Download the main program
  5424.     perform readincludeanddownload using <waprogram>-itextelements[]
  5425.                                          <waprogram>-iselectiontexts[]
  5426.                                          <waprogram>-imessages[]
  5427.                                          <waprogram>-iguititle[]
  5428.                                          <waprogram>-progname
  5429.                                          space
  5430.                                          <waprogram>-programtitle
  5431.                                          is_program
  5432.                                          userfilepath
  5433.                                          locfileextension
  5434.                                          <waprogram>-progname
  5435.                                          locconverttohtml
  5436.                                          syntaxhighlightcomments
  5437.                                          customernamerange
  5438.                                          getincludes
  5439.                                          getdictstruct
  5440.                                          slashseparator
  5441.                                          savetoserver
  5442.                                          displayprogressmessage.
  5444. *   Download screens.
  5445.     if not <waprogram>-iscreenflow[] is initial.
  5446.       perform downloadscreens using <waprogram>-iscreenflow[]
  5447.                                     <waprogram>-progname
  5448.                                     userfilepath
  5449.                                     textfileextension
  5450.                                     <waprogram>-progname
  5451.                                     slashseparator
  5452.                                     savetoserver
  5453.                                     displayprogressmessage.
  5454.     endif.
  5456. *   Download GUI titles
  5457.     if not <waprogram>-iguititle[] is initial.
  5458.       perform downloadguititles using <waprogram>-iguititle
  5459.                                       userfilepath
  5460.                                       textfileextension
  5461.                                       <waprogram>-progname
  5462.                                       slashseparator
  5463.                                       savetoserver
  5464.                                       displayprogressmessage.
  5465.     endif.
  5467. *   Download all other includes
  5468.     loop at <waprogram>-iincludes assigning <wainclude>.
  5469.       perform readincludeanddownload using iemptytextelements[]
  5470.                                            iemptyselectiontexts[]
  5471.                                            iemptymessages[]
  5472.                                            iemptyguititles[]
  5473.                                            <wainclude>-includename
  5474.                                            space
  5475.                                            <wainclude>-includetitle
  5476.                                            is_program
  5477.                                            userfilepath
  5478.                                            fileextension
  5479.                                            <waprogram>-progname
  5480.                                            converttohtml
  5481.                                            syntaxhighlightcomments
  5482.                                            customernamerange
  5483.                                            getincludes
  5484.                                            getdictstruct
  5485.                                            slashseparator
  5486.                                            savetoserver
  5487.                                            displayprogressmessage.
  5489.     endloop.
  5491. *   Download all dictionary structures
  5492.     if not <waprogram>-idictstruct[] is initial.
  5493.       perform downloadddstructures using <waprogram>-idictstruct[]
  5494.                                          userfilepath
  5495.                                          htmlfileextension
  5496.                                          <waprogram>-progname
  5497.                                          sorttablesasc
  5498.                                          slashseparator
  5499.                                          savetoserver
  5500.                                          displayprogressmessage.
  5501.     endif.
  5503. *   Download any functions used by these programs
  5504.     loop at ilocfunctions into iprogfunctions where programlinkname = <waprogram>-progname.
  5505.       append iprogfunctions.
  5506.     endloop.
  5508.     if not iprogfunctions[] is initial.
  5509.       perform downloadfunctions using iprogfunctions[]
  5510.                                       userfilepath
  5511.                                       fileextension
  5512.                                       <waprogram>-progname
  5513.                                       downloaddocumentation
  5514.                                       converttohtml
  5515.                                       syntaxhighlightcomments
  5516.                                       customernamerange
  5517.                                       getincludes
  5518.                                       getdictstruct
  5519.                                       textfileextension
  5520.                                       htmlfileextension
  5521.                                       sorttablesasc
  5522.                                       slashseparator
  5523.                                       savetoserver
  5524.                                       displayprogressmessage.
  5525.        clear iprogfunctions[].
  5526.      endif.
  5527.   endloop.
  5528. endform.                                                                                              "downloadPrograms
  5529.  
  5530. *----------------------------------------------------------------------------------------------------------------------
  5531. *  downloadClasses..
  5532. *----------------------------------------------------------------------------------------------------------------------
  5533. form downloadclasses using ilocclasses like iclasses[]
  5534.                            ilocfunctions like ifunctions[]
  5535.                            value(userfilepath)
  5536.                            value(fileextension)
  5537.                            value(htmlfileextension)
  5538.                            value(textfileextension)
  5539.                            value(converttohtml)
  5540.                            value(syntaxhighlightcomments)
  5541.                            value(customernamerange)
  5542.                            value(getincludes)
  5543.                            value(getdictstruct)
  5544.                            value(downloaddocumentation)
  5545.                            value(sorttablesasc)
  5546.                            value(slashseparator)
  5547.                            value(savetoserver)
  5548.                            value(displayprogressmessage).
  5549.  
  5550.  
  5551. data: iclassfunctions type standard table of tfunction with header line.
  5552. field-symbols: <waclass> type tclass.
  5553. field-symbols: <wamethod> type tmethod.
  5554.  
  5555.   sort ilocclasses ascending by clsname.
  5556.  
  5557.   loop at ilocclasses assigning <waclass>.
  5558. *   Download the class
  5559.     perform readclassanddownload using <waclass>
  5560.                                         <waclass>-clsname
  5561.                                         space
  5562.                                         is_class
  5563.                                         userfilepath
  5564.                                         fileextension
  5565.                                         space
  5566.                                         converttohtml
  5567.                                         syntaxhighlightcomments
  5568.                                         customernamerange
  5569.                                         getincludes
  5570.                                         getdictstruct
  5571.                                         slashseparator
  5572.                                         savetoserver
  5573.                                         displayprogressmessage.
  5574.  
  5575.  
  5576. *   Download all of the methods
  5577.     loop at <waclass>-imethods assigning <wamethod>.
  5578.     perform readmethodanddownload using <wamethod>
  5579.                                         <wamethod>-cmpname
  5580.                                         <wamethod>-methodkey
  5581.                                         space
  5582.                                         is_method
  5583.                                         userfilepath
  5584.                                         fileextension
  5585.                                         <waclass>-clsname
  5586.                                         converttohtml
  5587.                                         syntaxhighlightcomments
  5588.                                         customernamerange
  5589.                                         getincludes
  5590.                                         getdictstruct
  5591.                                         slashseparator
  5592.                                         savetoserver
  5593.                                         displayprogressmessage.
  5594.  
  5595.     endloop.
  5596.  
  5597. *   Download all dictionary structures
  5598.     if not <waclass>-idictstruct[] is initial.
  5599.       perform downloadddstructures using <waclass>-idictstruct[]
  5600.                                          userfilepath
  5601.                                          htmlfileextension
  5602.                                          <waclass>-clsname
  5603.                                          sorttablesasc
  5604.                                          slashseparator
  5605.                                          savetoserver
  5606.                                          displayprogressmessage.
  5607.     endif.
  5608.  
  5609. *   Download any functions used by these programs
  5610.     loop at ilocfunctions into iclassfunctions where programlinkname = <waclass>-clsname.
  5611.       append iclassfunctions.
  5612.     endloop.
  5613.  
  5614.     if not iclassfunctions[] is initial.
  5615.       perform downloadfunctions using iclassfunctions[]
  5616.                                       userfilepath
  5617.                                       fileextension
  5618.                                       <waclass>-clsname
  5619.                                       downloaddocumentation
  5620.                                       converttohtml
  5621.                                       syntaxhighlightcomments
  5622.                                       customernamerange
  5623.                                       getincludes
  5624.                                       getdictstruct
  5625.                                       textfileextension
  5626.                                       htmlfileextension
  5627.                                       sorttablesasc
  5628.                                       slashseparator
  5629.                                       savetoserver
  5630.                                       displayprogressmessage.
  5631.        clear iclassfunctions[].
  5632.      endif.
  5633.   endloop.
  5634. endform.                                                                                               "downloadClasses
  5636. *----------------------------------------------------------------------------------------------------------------------
  5637. *  reFormatClassCode...   Expand a classes public, private and protected section from the 72 characters that the class
  5638. *                         builder sets it to back to the wide editor mode
  5639. *----------------------------------------------------------------------------------------------------------------------
  5640. form reformatclasscode using itemplines like dumihtml[].
  5642. field-symbols: <waline> type string.
  5643. data: newline type string.
  5644. data: inewtable type standard table of string.
  5645. data: foundone type i value false.
  5647.   loop at itemplines assigning <waline>.
  5648.     if not <waline> is initial.
  5649.       if foundone = false.
  5650.         find 'data' in <waline> respecting case.
  5651.         if sy-subrc = 0.
  5652.           foundone = true.
  5653.         endif.
  5655.         find 'constants' in <waline> respecting case.
  5656.         if sy-subrc = 0.
  5657.           foundone = true.
  5658.         endif.
  5660.         if foundone = true.
  5661.           newline = <waline>.
  5663.           if ( newline cs '.' or newline cs '*' ).
  5664.             replace '!' in <waline> with ''.
  5665.             append newline to inewtable.
  5666.             clear newline.
  5667.             foundone = false.
  5668.           endif.
  5669.         else.
  5670.           replace '!' in <waline> with ''.
  5671.           append <waline> to inewtable.
  5672.         endif.
  5673.       else.
  5674.         concatenate newline <waline> into newline separated by space.
  5675.         if ( newline cs '.' or newline cs '*' ).
  5676.           append newline to inewtable.
  5677.           clear newline.
  5678.           foundone = false.
  5679.         endif.
  5680.       endif.
  5681.     else.
  5682.       replace '!' in <waline> with ''.
  5683.       append <waline> to inewtable[].
  5684.     endif.
  5685.   endloop.
  5687.   itemplines[] = inewtable[].
  5688. endform.                                                                             "reFormatClassCode
  5689.  
  5690. ***********************************************************************************************************************
  5691. **********************************************HTML ROUTINES************************************************************
  5692. ***********************************************************************************************************************
  5693.  
  5694. *----------------------------------------------------------------------------------------------------------------------
  5695. *  convertDDToHTML...   Convert text description to HTML
  5696. *----------------------------------------------------------------------------------------------------------------------
  5697. form convertddtohtml using ilocdictstructure like dumidictstructure[]
  5698.                            ilochtml like dumihtml[]
  5699.                            value(tablename)
  5700.                            value(tabletitle)
  5701.                            value(sorttablesasc).
  5702.  
  5703. data: icolumncaptions type standard table of string with header line.
  5704. data: wadictionary type tdicttablestructure.
  5705. data: wahtml type string.
  5706. data: title type string.
  5707.  
  5708.   perform buildcolumnheaders using icolumncaptions[].
  5709.  
  5710. * Add a html header to the table
  5711.   concatenate 'Dictionary object-' tablename into title separated by space.
  5712.   perform addhtmlheader using ilochtml[]
  5713.                               title.
  5714.  
  5715.   concatenate '<h2>' tablename '</h2>' into wahtml.
  5716.   append wahtml to ilochtml.
  5717.   append '' to ilochtml.
  5718.  
  5719.   concatenate '<h3>' tabletitle '</h3>' into wahtml.
  5720.   append wahtml to ilochtml.
  5721.   append '' to ilochtml.
  5722.  
  5723. * Do we need to sort the fields into alphabetical order
  5724.   if not sorttablesasc is initial.
  5725.     sort ilocdictstructure ascending by fieldname.
  5726.   endif.
  5727.  
  5728.   perform convertitabtohtml using icolumncaptions[]
  5729.                                   ilocdictstructure[]
  5730.                                   ilochtml
  5731.                                   'X'
  5732.                                   colour_black
  5733.                                   ''
  5734.                                   colour_yellow
  5735.                                   ''
  5736.                                   background_colour
  5737.                                   'Arial'
  5738.                                   'green'
  5739.                                   '1'
  5740.                                   '1'.
  5741.  
  5742. * Add a html footer to the table
  5743.   append '<br>' to ilochtml.
  5744.   perform addhtmlfooter using ilochtml[].
  5745. endform.                                                                                               "convertDDToHTML
  5747. *----------------------------------------------------------------------------------------------------------------------
  5748. *  convertITABtoHtml... produces a html table from an internal table
  5749. *----------------------------------------------------------------------------------------------------------------------
  5750. form convertitabtohtml using ilocheader like dumiheader[]
  5751.                              ilocdictstructure like dumidictstructure[]
  5752.                              ilochtml like dumihtml[]
  5753.                              value(includerowcount)
  5754.                              headingbackcolour
  5755.                              headingfontname
  5756.                              headingfontcolour
  5757.                              headingfontsize
  5758.                              bodybackcolour
  5759.                              bodyfontname
  5760.                              bodyfontcolour
  5761.                              bodyfontsize
  5762.                              bordersize.
  5764. * Holds one cell from the internal table
  5765. field-symbols: <fsfield>.
  5766. * The value of one cell form the internal table
  5767. data: wtextcell type string.
  5768. * work area for putting the CSV value into
  5769. data: wacsvtable type string.
  5770. * Have we used any font tags in the html code
  5771. data: usedafontattribute type i value 0.
  5772. * Work area for HTML table
  5773. data: wahtml type string.
  5774. * Loop counter for adding row numbers onto the output table
  5775. data: loopcounter type string.
  5776. * Work area for header table
  5777. field-symbols: <waheader> type string.
  5778. field-symbols: <ilocdictstructure> type tdicttablestructure.
  5780.   concatenate '<table border="' bordersize '">' into wahtml.
  5781.   append wahtml to ilochtml.
  5783.   if not ilocheader[] is initial.
  5784.     append '<tr>' to ilochtml.
  5785.   endif.
  5787.   loop at ilocheader assigning <waheader>.
  5788.     if headingbackcolour is initial.
  5789.       wahtml = '<th>'.
  5790.     else.
  5791.       concatenate '<th bgcolor="' headingbackcolour '">' into wahtml.
  5792.     endif.
  5794.     if not headingfontname is initial or not headingfontcolour is initial or not headingfontsize is initial.
  5795.        concatenate wahtml '<font' into wahtml.
  5797. *      Add the font name
  5798.        if not headingfontname is initial.
  5799.           concatenate wahtml ' face ="' into wahtml.
  5800.           concatenate wahtml headingfontname '"' into wahtml.
  5801.        endif.
  5803. *      Add the font colour
  5804.        if not headingfontcolour is initial.
  5805.           concatenate wahtml ' color ="' into wahtml.
  5806.           concatenate wahtml headingfontcolour '"' into wahtml.
  5807.        endif.
  5809. *      Add the fontsize
  5810.        if not headingfontsize is initial.
  5811.           concatenate wahtml' size ="' into wahtml.
  5812.           concatenate wahtml  headingfontsize '"' into wahtml.
  5813.        endif.
  5815.        concatenate wahtml '>' into wahtml.
  5816.        usedafontattribute = true.
  5817.     endif.
  5819. *   Add the caption name
  5820.     concatenate wahtml <waheader> into wahtml.
  5822.     if usedafontattribute = true.
  5823.       concatenate wahtml '</font>' into wahtml.
  5824.       usedafontattribute = false.
  5825.     endif.
  5827.     concatenate wahtml '</th>' into wahtml.
  5828.     append wahtml to ilochtml.
  5829.   endloop.
  5831.   append '</tr>' to ilochtml.
  5832.   free ilocheader.
  5835. *  Line item data
  5836.   loop at ilocdictstructure assigning <ilocdictstructure>.
  5838.     loopcounter = sy-tabix.
  5840.     append '' to ilochtml.
  5841.     append '<tr>' to ilochtml.
  5843. *   Add the row count
  5844.     if not includerowcount is initial.
  5845.       if bodybackcolour is initial.
  5846.         wahtml = '<td>'.
  5847.       else.
  5848.         concatenate '<td bgcolor="' bodybackcolour '">' into wahtml.
  5849.       endif.
  5851.       if not bodyfontname is initial or not bodyfontcolour is initial or not bodyfontsize is initial.
  5852.          concatenate wahtml '<font' into wahtml.
  5854. *        Add the font name
  5855.          if not bodyfontname is initial.
  5856.             concatenate wahtml ' face ="' into wahtml.
  5857.             concatenate wahtml bodyfontname '"' into wahtml.
  5858.          endif.
  5860. *        Add the font colour
  5861.          if not bodyfontcolour is initial.
  5862.             concatenate wahtml ' color ="' into wahtml.
  5863.             concatenate wahtml bodyfontcolour '"' into wahtml.
  5864.          endif.
  5866. *        Add the fontsize
  5867.          if not bodyfontsize is initial.
  5868.             concatenate wahtml ' size ="' into wahtml.
  5869.             concatenate wahtml bodyfontsize '"' into wahtml.
  5870.          endif.
  5872.          concatenate wahtml '>' into wahtml.
  5873.          usedafontattribute = true.
  5874.       endif.
  5876. *     Add the row number into the table
  5877.       concatenate wahtml loopcounter into wahtml.
  5880.       if usedafontattribute = true.
  5881.         concatenate wahtml '</font>' into wahtml.
  5882.         usedafontattribute = false.
  5883.       endif.
  5885.       concatenate wahtml '</td>' into wahtml.
  5886.       append wahtml to ilochtml.
  5887.     endif.
  5889.     do.
  5890. *     Assign each field in the table to the field symbol
  5891.       assign component sy-index of structure <ilocdictstructure> to <fsfield>.
  5892.       if sy-subrc = 0.
  5893.         move <fsfield> to wtextcell.
  5895. *       Cell data processing
  5896.         if bodybackcolour is initial.
  5897.           wahtml = '<td>'.
  5898.         else.
  5899.           concatenate '<td bgcolor="' bodybackcolour '">' into wahtml.
  5900.         endif.
  5902.         if not bodyfontname is initial or not bodyfontcolour is initial or not bodyfontsize is initial.
  5903.            concatenate wahtml '<font' into wahtml.
  5905. *          Add the font name
  5906.            if not bodyfontname is initial.
  5907.               concatenate wahtml ' face ="' into wahtml.
  5908.               concatenate wahtml bodyfontname '"' into wahtml.
  5909.            endif.
  5911. *          Add the font colour
  5912.            if not bodyfontcolour is initial.
  5913.               concatenate wahtml ' color ="' into wahtml.
  5914.               concatenate wahtml bodyfontcolour '"' into wahtml.
  5915.            endif.
  5917. *          Add the fontsize
  5918.            if not bodyfontsize is initial.
  5919.               concatenate wahtml ' size ="' into wahtml.
  5920.               concatenate wahtml bodyfontsize '"' into wahtml.
  5921.            endif.
  5923.            concatenate wahtml '>' into wahtml.
  5924.            usedafontattribute = true.
  5925.         endif.
  5927. *       Add the caption name
  5928.         if wtextcell is initial.
  5929.           concatenate wahtml ' ' into wahtml.
  5930.         else.
  5931.           concatenate wahtml wtextcell into wahtml.
  5932.         endif.
  5934.         if usedafontattribute = true.
  5935.           concatenate wahtml '</font>' into wahtml.
  5936.           usedafontattribute = false.
  5937.         endif.
  5939.         concatenate wahtml '</td>' into wahtml.
  5940.         append wahtml to ilochtml.
  5941.       else.
  5942.         exit.
  5943.       endif.
  5944.     enddo.
  5946.     append '</tr>' to ilochtml.
  5947.   endloop.
  5949.   append '</table>' to ilochtml.
  5950. endform.                                                                                             "convertITABtoHtml
  5951.  
  5952. *----------------------------------------------------------------------------------------------------------------------
  5953. *  convertCodeToHtml... Builds an HTML table based upon a text table.
  5954. *----------------------------------------------------------------------------------------------------------------------
  5955. form convertcodetohtml using icontents like dumihtml[]
  5956.                              value(programname)
  5957.                              value(shortdescription)
  5958.                              value(sourcecodetype)
  5959.                              value(functiondocumentationexists)
  5960.                              value(ismainfunctioninclude)
  5961.                              value(syntaxhighlightcomments)
  5962.                              value(htmlextension)
  5963.                              value(customernamerange)
  5964.                              value(getincludes)
  5965.                              value(getdictstructures).
  5966.  
  5967. data: htmltable type standard table of string with header line.
  5968. data: listingname type string value 'Code listing for:'.
  5969. data: descriptionname type string value `Description: `.
  5970. data: head(255).
  5971. data: tail(255).
  5972. data: mytabix type sytabix.
  5973. data: nextline type sytabix.
  5974. data: hyperlinkname type string.
  5975. data: copyofcurrentline type string.
  5976. data: currentlinelength type i value 0.
  5977. data: copylinelength type i value 0.
  5978. data: ignorefuturelines type i value false.
  5979. data: foundasterix type i value false.
  5980. data: lowercaselink type string.
  5981. data: wanextline type string.
  5982. data: wacontent(255).
  5983.  
  5984. * Add a html header to the table
  5985.   perform addhtmlheader using htmltable[]
  5986.                               programname.
  5987.  
  5988.   concatenate listingname programname into listingname separated by space.
  5989.   concatenate '<font size="3" face = "Arial" color="' colour_black '"><b>' listingname '</b></font>' into htmltable.
  5990.   append htmltable.
  5991.  
  5992.   if not shortdescription is initial.
  5993.     append '<br>' to htmltable.
  5994.     concatenate descriptionname shortdescription into descriptionname separated by space.
  5995.     concatenate '<font size="3" face = "Arial" color="' colour_black '"><b>' descriptionname '</b></font>' into htmltable.
  5996.     append htmltable.
  5997.   endif.
  5998.  
  5999.   htmltable = '<hr>'.
  6000.   append htmltable.
  6001.  
  6002.   htmltable = '<pre width="150">'.
  6003.   append htmltable.
  6004.  
  6005.   loop at icontents into wacontent.
  6006.     mytabix = sy-tabix.
  6007.  
  6008.     if not ( icontents is initial ).
  6009.       while ( wacontent cs '<' or wacontent cs '>' ).
  6010.         replace '<' in wacontent with lt.
  6011.         replace '>' in wacontent with gt.
  6012.       endwhile.
  6013.  
  6014.       if wacontent+0(1) <> asterix.
  6015.         currentlinelength = strlen( wacontent ).
  6016.         copyofcurrentline = wacontent.
  6017.  
  6018. *       Don't hyperlink anything for files of type documentation
  6019.         if sourcecodetype <> is_documentation.
  6020. *         Check for any functions to highlight
  6021.           if ( wacontent cs callfunction ) and ( wacontent <> 'DESTINATION' ).
  6022.             nextline = mytabix + 1.
  6023.             read table icontents into wanextline index nextline.
  6024.             translate wanextline to upper case.
  6025.             if wanextline ns 'DESTINATION'.
  6026.               shift copyofcurrentline left deleting leading space.
  6028.               copylinelength = strlen( copyofcurrentline ).
  6030.               split copyofcurrentline at space into head tail.
  6031.               split tail at space into head tail.
  6032.               split tail at space into head tail.
  6033. *             Function name is now in head
  6034.               translate head using ''' '.
  6035.               shift head left deleting leading space.
  6037.               try.
  6038.                 if head+0(1) = 'Y' or head+0(1) = 'Z' or head+0(1) = 'y' or head+0(1) = 'z' or head cs customernamerange.
  6039. *                 Definately a customer function module
  6040.                   hyperlinkname = head.
  6042.                   if sourcecodetype = is_function.
  6043.                     copyofcurrentline = 'call function <a href ="../'.
  6044.                   else.
  6045.                     copyofcurrentline = 'call function <a href ="'.
  6046.                   endif.
  6048.                   lowercaselink = hyperlinkname.
  6049.                   translate lowercaselink to lower case.
  6050. *                 If we are running on a non UNIX environment we will need to remove forward slashes
  6051.                   if frontendopsystem = non_unix.
  6052.                     translate lowercaselink using '/_'.
  6053.                   endif.
  6055.                   concatenate copyofcurrentline
  6056.                               lowercaselink     "hyperlinkName
  6057.                               '/'
  6058.                               lowercaselink     "hyperlinkName
  6059.                               period htmlextension '">'
  6060.                               ''''
  6061.                               hyperlinkname
  6062.                               ''''
  6063.                               '</a>'
  6064.                               tail into copyofcurrentline.
  6066. *                 Pad the string back out with spaces
  6067.                   while copylinelength < currentlinelength.
  6068.                     shift copyofcurrentline right by 1 places.
  6069.                     copylinelength = copylinelength + 1.
  6070.                   endwhile.
  6072.                   wacontent = copyofcurrentline.
  6073.                 endif.
  6074.                 catch cx_sy_range_out_of_bounds into objruntimeerror.
  6075.               endtry.
  6076.             endif.
  6077.           endif.
  6078.         endif.
  6080. *       Check for any customer includes to hyperlink
  6081.         if wacontent cs include or wacontent cs lowinclude.
  6082.           shift copyofcurrentline left deleting leading space.
  6083.           copylinelength = strlen( copyofcurrentline ).
  6085.           split copyofcurrentline at space into head tail.
  6086.           shift tail left deleting leading space.
  6088.           try.
  6089.             if ( tail+0(1) = 'Y' or tail+0(1) = 'Z' or tail+0(1) = 'y' or tail+0(1) = 'z' or tail cs customernamerange or tail+0(2) = 'mz' or tail+0(2) = 'MZ' )
  6090.                 and not getincludes is initial and  tail ns structure and tail ns lowstructure.
  6092. *             Hyperlink for program includes
  6093.               clear wacontent.
  6094.               shift tail left deleting leading space.
  6095.               split tail at period into hyperlinkname tail.
  6096.               copyofcurrentline = 'include <a href ="'.
  6098.               lowercaselink = hyperlinkname.
  6099.               translate lowercaselink to lower case.
  6101. *             If we are running on a non UNIX environment we will need to remove forward slashes
  6102.               if frontendopsystem = non_unix.
  6103.                 translate lowercaselink using '/_'.
  6104.               endif.
  6106.               concatenate copyofcurrentline
  6107.                           lowercaselink       "hyperlinkName
  6108.                           period htmlextension '">'
  6109.                           hyperlinkname
  6110.                           '</a>'
  6111.                           period tail into copyofcurrentline.
  6113. *             Pad the string back out with spaces
  6114.               while copylinelength < currentlinelength.
  6115.                 shift copyofcurrentline right by 1 places.
  6116.                 copylinelength = copylinelength + 1.
  6117.               endwhile.
  6118.               wacontent = copyofcurrentline.
  6119.             else.
  6120.               if not getdictstructures is initial.
  6121. *              Hyperlink for structure include e.g. "include structure zfred."
  6122.                copylinelength = strlen( copyofcurrentline ).
  6123.                split copyofcurrentline at space into head tail.
  6124.                shift tail left deleting leading space.
  6125.                split tail at space into head tail.
  6127.                try.
  6128.                  if tail+0(1) = 'Y' or tail+0(1) = 'Z' or tail+0(1) = 'y' or tail+0(1) = 'z' or tail cs customernamerange.
  6129.                    clear wacontent.
  6130.                    shift tail left deleting leading space.
  6131.                    split tail at period into hyperlinkname tail.
  6132.                    copyofcurrentline = 'include structure <a href ='.
  6134.                    lowercaselink = hyperlinkname.
  6135.                    translate lowercaselink to lower case.
  6136. *                  If we are running on a non UNIX environment we will need to remove forward slashes
  6137.                    if frontendopsystem = non_unix.
  6138.                      translate lowercaselink using '/_'.
  6139.                    endif.
  6141.                    concatenate copyofcurrentline
  6142.                                '"'
  6143.                                lowercaselink    "hyperlinkName
  6144.                                '/'
  6145.                                'dictionary-'
  6146.                                lowercaselink    "hyperlinkName
  6147.                                period htmlextension
  6148.                                '">'
  6149.                                hyperlinkname
  6150.                                '</a>'
  6151.                                period tail into copyofcurrentline.
  6153. *                  Pad the string back out with spaces
  6154.                    while copylinelength < currentlinelength.
  6155.                      shift copyofcurrentline right by 1 places.
  6156.                      copylinelength = copylinelength + 1.
  6157.                    endwhile.
  6158.                    wacontent = copyofcurrentline.
  6159.                  endif.
  6160.                  catch cx_sy_range_out_of_bounds into objruntimeerror.
  6161.                endtry.
  6162.              endif.
  6163.            endif.
  6164.             catch cx_sy_range_out_of_bounds into objruntimeerror.
  6165.          endtry.
  6166.         endif.
  6167.      else.
  6168.        if not syntaxhighlightcomments is initial and wacontent+0(1) = asterix.
  6169.          concatenate '<font color ="' comment_colour '">' into head.
  6170.          concatenate head wacontent '</font>' into tail.
  6171.          wacontent = tail.
  6172.        endif.
  6173.      endif.
  6175.      htmltable = wacontent.
  6177.     else.
  6178.       htmltable = ''.
  6179.     endif.
  6180.     append htmltable.
  6181.   endloop.
  6183.   htmltable = '</pre>'.
  6184.   append htmltable.
  6186. * Add a html footer to the table
  6187.   perform addhtmlfooter using htmltable[].
  6189.   icontents[] = htmltable[].
  6190. endform.                                                                                             "convertCodeToHtml
  6191.  
  6192. *----------------------------------------------------------------------------------------------------------------------
  6193. *  convertClassToHtml... Builds an HTML table based upon a text table.
  6194. *----------------------------------------------------------------------------------------------------------------------
  6195. form convertclasstohtml using icontents like dumihtml[]
  6196.                               value(classname)
  6197.                               value(shortdescription)
  6198.                               value(sourcecodetype)
  6199.                               value(syntaxhighlightcomments)
  6200.                               value(htmlextension)
  6201.                               value(customernamerange)
  6202.                               value(getdictstructures).
  6203.  
  6204. data: htmltable type standard table of string with header line.
  6205. data: listingname type string value 'Code listing for class:'.
  6206. data: descriptionname type string value `Description: `.
  6207. data: mytabix type sytabix.
  6208. data: wacontent(255).
  6209. data: head type string.
  6210. data: tail type string.
  6211. data: hyperlinkname type string.
  6212. data: lowercaselink type string.
  6213. data: copyofcurrentline type string.
  6214. data: currentlinelength type i value 0.
  6215. data: copylinelength type i value 0.
  6216.  
  6217. * Add a html header to the table
  6218.   perform addhtmlheader using htmltable[]
  6219.                               classname.
  6220.  
  6221.   concatenate listingname classname into listingname separated by space.
  6222.   concatenate '<font size="3" face = "Arial" color="' colour_black '"><b>' listingname '</b></font>' into htmltable.
  6223.   append htmltable.
  6224.  
  6225.   if not shortdescription is initial.
  6226.     append '<br>' to htmltable.
  6227.     concatenate descriptionname shortdescription into descriptionname separated by space.
  6228.     concatenate '<font size="3" face = "Arial" color="' colour_black '"><b>' descriptionname '</b></font>' into htmltable.
  6229.     append htmltable.
  6230.   endif.
  6231.  
  6232.   htmltable = '<hr>'.
  6233.   append htmltable.
  6234.  
  6235.   htmltable = '<pre width="150">'.
  6236.   append htmltable.
  6237.  
  6238.   loop at icontents into wacontent.
  6239.     mytabix = sy-tabix.
  6240.  
  6241. *   Comments
  6242.     if not syntaxhighlightcomments is initial and wacontent+0(1) = asterix.
  6243.       concatenate '<font color ="' comment_colour '">' into head.
  6244.       concatenate head wacontent '</font>' into wacontent.
  6245.       htmltable = wacontent.
  6246.     else.
  6247. *     Smaller than, greater than signs
  6248.       if not ( icontents is initial ).
  6249.         while ( wacontent cs '<' or wacontent cs '>' ).
  6250.           replace '<' in wacontent with lt.
  6251.           replace '>' in wacontent with gt.
  6252.         endwhile.
  6253.  
  6254. *       Dictionary structure
  6255.         if not getdictstructures is initial.
  6256.           find 'class' in wacontent ignoring case.
  6257.           if sy-subrc <> 0.
  6258.             find 'default' in wacontent ignoring case.
  6259.             if sy-subrc <> 0.
  6260. *             Hyperlink for dictionary/structure include
  6261.               copylinelength = strlen( wacontent ).
  6262.               copyofcurrentline = wacontent.
  6263.               split copyofcurrentline at space into head tail.
  6264.               shift tail left deleting leading space.
  6265.               split tail at space into head tail.
  6266.  
  6267.               try.
  6268.                 if tail+0(1) = 'Y' or tail+0(1) = 'Z' or tail+0(1) = 'y' or tail+0(1) = 'z' or tail cs customernamerange.
  6269.                   clear wacontent.
  6270.                   shift tail left deleting leading space.
  6271.                   split tail at period into hyperlinkname tail.
  6272.                   copyofcurrentline = 'include structure <a href ='.
  6273.  
  6274.                   lowercaselink = hyperlinkname.
  6275.                   translate lowercaselink to lower case.
  6276. *                 If we are running on a non UNIX environment we will need to remove forward slashes
  6277.                   if frontendopsystem = non_unix.
  6278.                     translate lowercaselink using '/_'.
  6279.                   endif.
  6280.  
  6281.                   concatenate copyofcurrentline
  6282.                               '"'
  6283.                               lowercaselink    "hyperlinkName
  6284.                               '/'
  6285.                               'dictionary-'
  6286.                               lowercaselink    "hyperlinkName
  6287.                               period htmlextension
  6288.                               '">'
  6289.                               hyperlinkname
  6290.                               '</a>'
  6291.                               period tail into copyofcurrentline.
  6292.  
  6293. *                 Pad the string back out with spaces
  6294.                   while copylinelength < currentlinelength.
  6295.                     shift copyofcurrentline right by 1 places.
  6296.                     copylinelength = copylinelength + 1.
  6297.                   endwhile.
  6298.                   wacontent = copyofcurrentline.
  6299.                 endif.
  6300.                 catch cx_sy_range_out_of_bounds into objruntimeerror.
  6301.               endtry.
  6302.             endif.
  6303.           endif.
  6304.         endif.
  6305.  
  6306.         htmltable = wacontent.
  6307.       else.
  6308.         htmltable = ''.
  6309.       endif.
  6310.     endif.
  6311.  
  6312.     append htmltable.
  6313.   endloop.
  6314.  
  6315.   htmltable = '</pre>'.
  6316.   append htmltable.
  6317.  
  6318. * Add a html footer to the table
  6319.   perform addhtmlfooter using htmltable[].
  6320.  
  6321.   icontents[] = htmltable[].
  6322. endform.                                                                                            "convertClassToHtml
  6324. *----------------------------------------------------------------------------------------------------------------------
  6325. *  convertFunctionToHtml... Builds an HTML table based upon a text table.
  6326. *----------------------------------------------------------------------------------------------------------------------
  6327. form convertfunctiontohtml using icontents like dumihtml[]
  6328.                                  value(functionname)
  6329.                                  value(shortdescription)
  6330.                                  value(sourcecodetype)
  6331.                                  value(functiondocumentationexists)
  6332.                                  value(ismainfunctioninclude)
  6333.                                  value(syntaxhighlightcomments)
  6334.                                  value(htmlextension)
  6335.                                  value(customernamerange)
  6336.                                  value(getincludes)
  6337.                                  value(getdictstructures).
  6339. data: htmltable type standard table of string with header line.
  6340. data: listingname type string value 'Code listing for function:'.
  6341. data: descriptionname type string value `Description: `.
  6342. data: head(255).
  6343. data: tail(255).
  6344. data: mytabix type sytabix.
  6345. data: nextline type sytabix.
  6346. data: hyperlinkname type string.
  6347. data: copyofcurrentline type string.
  6348. data: currentlinelength type i value 0.
  6349. data: copylinelength type i value 0.
  6350. data: ignorefuturelines type i value false.
  6351. data: foundasterix type i value false.
  6352. data: lowercaselink type string.
  6353. data: wanextline type string.
  6354. data: wacontent(255).
  6356. * Add a html header to the table
  6357.   perform addhtmlheader using htmltable[]
  6358.                               functionname.
  6360.   concatenate listingname functionname into listingname separated by space.
  6361.   concatenate '<font size="3" face = "Arial" color="' colour_black '"><b>' listingname '</b></font>' into htmltable.
  6362.   append htmltable.
  6364.   if not shortdescription is initial.
  6365.     append '<br>' to htmltable.
  6366.     concatenate descriptionname shortdescription into descriptionname separated by space.
  6367.     concatenate '<font size="3" face = "Arial" color="' colour_black '"><b>' descriptionname '</b></font>' into htmltable.
  6368.     append htmltable.
  6369.   endif.
  6371.   htmltable = '<hr>'.
  6372.   append htmltable.
  6374.   htmltable = '<pre width="150">'.
  6375.   append htmltable.
  6377.   loop at icontents into wacontent.
  6378.     mytabix = sy-tabix.
  6380. *   Extra code for adding global and doc hyperlinks to functions
  6381.     if sourcecodetype = is_function and ismainfunctioninclude = true.
  6382.       if sy-tabix > 1.
  6383.         if wacontent+0(1) = asterix and ignorefuturelines = false.
  6384.           foundasterix = true.
  6385.         else.
  6386.           if foundasterix = true.
  6387. *           Lets add our extra HTML lines in here
  6388.             append '' to htmltable.
  6390. *           Global data hyperlink
  6391.             if not syntaxhighlightcomments is initial.
  6392.               concatenate '<font color ="' comment_colour '">' into copyofcurrentline.
  6393.             endif.
  6395.             concatenate copyofcurrentline '*       <a href ="' into copyofcurrentline.
  6396.             lowercaselink = functionname.
  6397.             translate lowercaselink to lower case.
  6398. *           If we are running on a non UNIX environment we will need to remove forward slashes
  6399.             if frontendopsystem = non_unix.
  6400.               translate lowercaselink using '/_'.
  6401.             endif.
  6403.             concatenate copyofcurrentline 'global-' lowercaselink  "functionName
  6404.                         period htmlextension '">' 'Global data declarations' '</a>' into copyofcurrentline.
  6406.             if not syntaxhighlightcomments is initial.
  6407.               concatenate copyofcurrentline '</font>' into copyofcurrentline.
  6408.             endif.
  6410.             append copyofcurrentline to htmltable.
  6412. *           Documentation hyperlink.
  6413.             if functiondocumentationexists = true.
  6414.               if not syntaxhighlightcomments is initial.
  6415.                 concatenate '<font color ="' comment_colour '">' into copyofcurrentline.
  6416.               endif.
  6418.               concatenate copyofcurrentline '*       <a href ="' into copyofcurrentline.
  6420.               lowercaselink = functionname.
  6421.               translate lowercaselink to lower case.
  6422. *             If we are running on a non UNIX environment we will need to remove forward slashes
  6423.               if frontendopsystem = non_unix.
  6424.                 translate lowercaselink using '/_'.
  6425.               endif.
  6427.               concatenate copyofcurrentline
  6428.                           'docs-'
  6429.                           lowercaselink  "functionName
  6430.                           period htmlextension '">'
  6431.                           'Function module documentation'
  6432.                           '</a>'
  6433.                           into copyofcurrentline.
  6435.               if not pcomm is initial.
  6436.                 concatenate copyofcurrentline '</font>' into copyofcurrentline.
  6437.               endif.
  6438.               append copyofcurrentline to htmltable.
  6439.             endif.
  6441.             foundasterix = false.
  6442.             ignorefuturelines = true.
  6443.           endif.
  6444.         endif.
  6445.       endif.
  6446.     endif.
  6448. *   Carry on as normal
  6449.     if not ( icontents is initial ).
  6450.       while ( wacontent cs '<' or wacontent cs '>' ).
  6451.         replace '<' in wacontent with lt.
  6452.         replace '>' in wacontent with gt.
  6453.       endwhile.
  6455.       if wacontent+0(1) <> asterix.
  6456.         currentlinelength = strlen( wacontent ).
  6458. *       Don't hyperlink anything for files of type documentation
  6459.         if sourcecodetype <> is_documentation.
  6460. *       Check for any functions to highlight
  6461.           if ( wacontent cs callfunction ) and ( wacontent <> 'DESTINATION' ).
  6462.             nextline = mytabix + 1.
  6463.             read table icontents into wanextline index nextline.
  6464.             translate wanextline to upper case.
  6465.             if wanextline ns 'DESTINATION'.
  6466.               copyofcurrentline = wacontent.
  6467.               shift copyofcurrentline left deleting leading space.
  6469.               copylinelength = strlen( copyofcurrentline ).
  6471.               split copyofcurrentline at space into head tail.
  6472.               split tail at space into head tail.
  6473.               split tail at space into head tail.
  6474. *             Function name is now in head
  6475.               translate head using ''' '.
  6476.               shift head left deleting leading space.
  6478.               try.
  6479.                 if head+0(1) = 'Y' or head+0(1) = 'Z' or head+0(1) = 'y' or head+0(1) = 'z' or head cs customernamerange.
  6481. *                 Definately a customer function module
  6482.                   hyperlinkname = head.
  6484.                   if sourcecodetype = is_function.
  6485.                     copyofcurrentline = 'call function <a href ="../'.
  6486.                   else.
  6487.                     copyofcurrentline = 'call function <a href ="'.
  6488.                   endif.
  6490.                   lowercaselink = hyperlinkname.
  6491.                   translate lowercaselink to lower case.
  6492. *                 If we are running on a non UNIX environment we will need to remove forward slashes
  6493.                   if frontendopsystem = non_unix.
  6494.                     translate lowercaselink using '/_'.
  6495.                   endif.
  6497.                   concatenate copyofcurrentline
  6498.                               lowercaselink     "hyperlinkName
  6499.                               '/'
  6500.                               lowercaselink     "hyperlinkName
  6501.                               period htmlextension '">'
  6502.                               ''''
  6503.                               hyperlinkname
  6504.                               ''''
  6505.                               '</a>'
  6506.                               tail into copyofcurrentline.
  6508. *                 Pad the string back out with spaces
  6509.                   while copylinelength < currentlinelength.
  6510.                     shift copyofcurrentline right by 1 places.
  6511.                     copylinelength = copylinelength + 1.
  6512.                   endwhile.
  6514.                   wacontent = copyofcurrentline.
  6515.                 endif.
  6516.                 catch cx_sy_range_out_of_bounds into objruntimeerror.
  6517.               endtry.
  6518.             endif.
  6519.           endif.
  6520.         endif.
  6522. *       Check for any customer includes to hyperlink
  6523.         if wacontent cs include or wacontent cs lowinclude.
  6524.           copyofcurrentline = wacontent.
  6526.           shift copyofcurrentline left deleting leading space.
  6527.           copylinelength = strlen( copyofcurrentline ).
  6529.           split copyofcurrentline at space into head tail.
  6530.           shift tail left deleting leading space.
  6532.           try.
  6533.             if ( tail+0(1) = 'Y' or tail+0(1) = 'Z' or tail+0(1) = 'y' or tail+0(1) = 'z'
  6534.                  or tail cs customernamerange or tail+0(2) = 'mz' or tail+0(2) = 'MZ' ) and not getincludes is initial.
  6536. *             Hyperlink for program includes
  6537.               clear wacontent.
  6538.               shift tail left deleting leading space.
  6539.               split tail at period into hyperlinkname tail.
  6540.               copyofcurrentline = 'include <a href ="'.
  6542.               lowercaselink = hyperlinkname.
  6543.               translate lowercaselink to lower case.
  6544. *             If we are running on a non UNIX environment we will need to remove forward slashes
  6545.               if frontendopsystem = non_unix.
  6546.                 translate lowercaselink using '/_'.
  6547.               endif.
  6549.               concatenate copyofcurrentline
  6550.                           lowercaselink       "hyperlinkName
  6551.                           period htmlextension '">'
  6552.                           hyperlinkname
  6553.                           '</a>'
  6554.                           period tail into copyofcurrentline.
  6555.  
  6556. *             Pad the string back out with spaces
  6557.               while copylinelength < currentlinelength.
  6558.                 shift copyofcurrentline right by 1 places.
  6559.                 copylinelength = copylinelength + 1.
  6560.               endwhile.
  6561.               wacontent = copyofcurrentline.
  6562.             else.
  6563.               if not getdictstructures is initial.
  6564. *               Hyperlink for structure include
  6565.                 copylinelength = strlen( copyofcurrentline ).
  6566.                 split copyofcurrentline at space into head tail.
  6567.                 shift tail left deleting leading space.
  6568.                 split tail at space into head tail.
  6569.  
  6570.                 try.
  6571.                   if tail+0(1) = 'Y' or tail+0(1) = 'Z' or tail+0(1) = 'y' or tail+0(1) = 'z' or tail cs customernamerange.
  6572.                     clear wacontent.
  6573.                     shift tail left deleting leading space.
  6574.                     split tail at period into hyperlinkname tail.
  6575.                     copyofcurrentline = 'include structure <a href ='.
  6576.  
  6577.                     lowercaselink = hyperlinkname.
  6578.                     translate lowercaselink to lower case.
  6579. *                   If we are running on a non UNIX environment we will need to remove forward slashes
  6580.                     if frontendopsystem = non_unix.
  6581.                       translate lowercaselink using '/_'.
  6582.                     endif.
  6583.  
  6584.                     concatenate copyofcurrentline
  6585.                                 '"'
  6586.                                 lowercaselink    "hyperlinkName
  6587.                                 '/'
  6588.                                 'dictionary-'
  6589.                                 lowercaselink    "hyperlinkName
  6590.                                 period htmlextension
  6591.                                 '">'
  6592.                                 hyperlinkname
  6593.                                 '</a>'
  6594.                                 period tail into copyofcurrentline.
  6595.  
  6596. *                   Pad the string back out with spaces
  6597.                     while copylinelength < currentlinelength.
  6598.                       shift copyofcurrentline right by 1 places.
  6599.                       copylinelength = copylinelength + 1.
  6600.                     endwhile.
  6601.                     wacontent = copyofcurrentline.
  6602.                   endif.
  6603.                   catch cx_sy_range_out_of_bounds into objruntimeerror.
  6604.                 endtry.
  6605.               endif.
  6606.             endif.
  6607.             catch cx_sy_range_out_of_bounds into objruntimeerror.
  6608.          endtry.
  6609.        endif.
  6610.      else.
  6611.        if not syntaxhighlightcomments is initial and wacontent+0(1) = asterix.
  6612.          concatenate '<font color ="' comment_colour '">' into head.
  6613.          concatenate head wacontent '</font>' into tail.
  6614.          wacontent = tail.
  6615.        endif.
  6616.      endif.
  6617.  
  6618.      htmltable = wacontent.
  6619.  
  6620.     else.
  6621.       htmltable = ''.
  6622.     endif.
  6623.     append htmltable.
  6624.   endloop.
  6625.  
  6626.   htmltable = '</pre>'.
  6627.   append htmltable.
  6628.  
  6629. * Add a html footer to the table
  6630.   perform addhtmlfooter using htmltable[].
  6631.  
  6632.   icontents[] = htmltable[].
  6633. endform.                                                                                         "convertFunctionToHtml
  6635. *----------------------------------------------------------------------------------------------------------------------
  6636. *  buildColumnHeaders... build table column names
  6637. *----------------------------------------------------------------------------------------------------------------------
  6638. form buildcolumnheaders using iloccolumncaptions like dumihtml[].
  6640.   append 'Row' to iloccolumncaptions.
  6641.   append 'Field name' to iloccolumncaptions.
  6642.   append 'Position' to iloccolumncaptions.
  6643.   append 'Key' to iloccolumncaptions.
  6644.   append 'Data element' to iloccolumncaptions.
  6645.   append 'Domain' to iloccolumncaptions.
  6646.   append 'Datatype' to iloccolumncaptions.
  6647.   append 'Length' to iloccolumncaptions.
  6648.   append 'Domain text' to iloccolumncaptions.
  6649. endform.                                                                                            "buildColumnHeaders
  6650.  
  6651. *----------------------------------------------------------------------------------------------------------------------
  6652. * addHTMLHeader...  add a html formatted header to our output table
  6653. *----------------------------------------------------------------------------------------------------------------------
  6654. form addhtmlheader using ilocheader like dumihtml[]
  6655.                          value(title).
  6656.  
  6657. data: waheader type string.
  6658.  
  6659.   append '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">' to ilocheader.
  6660.   append '<html>' to ilocheader.
  6661.   append '<head>' to ilocheader.
  6662.  
  6663.   concatenate '<title>' title '</title>' into waheader.
  6664.   append waheader to ilocheader.
  6665.  
  6666.   append '</head>' to ilocheader.
  6667.  
  6668.   if not pback is initial.
  6669.     concatenate '<body bgcolor="' background_colour '">' into waheader.
  6670.   else.
  6671.     concatenate '<body bgcolor="' colour_white '">' into waheader.
  6672.   endif.
  6673.  
  6674.   append waheader to ilocheader.
  6675. endform.                                                                                                 "addHTMLHeader
  6677. *----------------------------------------------------------------------------------------------------------------------
  6678. * addHTMLFooter...  add a html formatted footer to our output table
  6679. *----------------------------------------------------------------------------------------------------------------------
  6680. form addhtmlfooter using ilocfooter like dumihtml[].
  6682. data: footermessage type string.
  6683. data: wafooter type string.
  6685.   perform buildfootermessage using 'HTML'
  6686.                                    footermessage.
  6688.   append '<hr>' to ilocfooter.
  6689.   concatenate '<font size="2" face = "Sans Serif">' footermessage into wafooter.
  6690.   append wafooter to ilocfooter.
  6691.   append '</font>' to ilocfooter.
  6692.   append '</body>' to ilocfooter.
  6693.   append '</html>' to ilocfooter.
  6694. endform.                                                                                                 "addHTMLFooter
  6695.  
  6696. *----------------------------------------------------------------------------------------------------------------------
  6697. * buildFooterMessage...Returns a footer message based on the output file type.
  6698. *----------------------------------------------------------------------------------------------------------------------
  6699. form buildfootermessage using filetype
  6700.                               returnmessage.
  6701.  
  6702.   if filetype = 'HTML'.
  6703.     concatenate `Extracted by Direct Download Enterprise version `
  6704.                  versionno ` - E.G.Mellodew. 1998-2004 UK. Sap Release ` sy-saprl
  6705.                 into returnmessage.
  6706.   else.
  6707.     concatenate `Extracted by Direct Download Enterprise version `
  6708.                  versionno ` - E.G.Mellodew. 1998-2004 UK. Sap Release ` sy-saprl
  6709.                 into returnmessage.
  6710.   endif.
  6711. endform.                                                                                            "buildFooterMessage
  6713. ***********************************************************************************************************************
  6714. ********************************************DISPLAY ROUTINES***********************************************************
  6715. ***********************************************************************************************************************
  6717. *----------------------------------------------------------------------------------------------------------------------
  6718. *  fillTreeNodeTables...
  6719. *----------------------------------------------------------------------------------------------------------------------
  6720. form filltreenodetables using ilocdictionary like idictionary[]
  6721.                               iloctreedisplay like itreedisplay[]
  6722.                               value(runtime).
  6724. data: tablelines type i.
  6725. data: watreedisplay like snodetext.
  6726. field-symbols: <wadictionary> type tdicttable.
  6727. data: tablelinesstring type string.
  6728. data: runtimechar(10).
  6729. data: sublevel type string.
  6731.   tablelines = lines( ilocdictionary ).
  6732.   tablelinesstring = tablelines.
  6734.   if tablelines = 1.
  6735.     concatenate tablelinesstring 'table downloaded' into watreedisplay-text2 separated by space.
  6736.   else.
  6737.     concatenate tablelinesstring 'tables downloaded' into watreedisplay-text2 separated by space.
  6738.   endif.
  6740.   write runtime to runtimechar.
  6741.   concatenate watreedisplay-text2 '- runtime' runtimechar into watreedisplay-text2 separated by space.
  6743. * include header display record.
  6744.   watreedisplay-tlevel = '1'.
  6745.   watreedisplay-tlength2  = 60.
  6746.   watreedisplay-tcolor2    = 1.
  6747.   append watreedisplay to iloctreedisplay.
  6749.   loop at ilocdictionary assigning <wadictionary>.
  6750.     watreedisplay-tlevel = '2'.
  6751.     watreedisplay-text2 = <wadictionary>-tablename.
  6752.     watreedisplay-tcolor2    = 3.
  6753.     watreedisplay-tlength3   = 80.
  6754.     watreedisplay-tcolor3    = 3.
  6755.     watreedisplay-tpos3      = 60.
  6756.     concatenate 'Dictionary:' <wadictionary>-tabletitle into watreedisplay-text3 separated by space.
  6758.     append watreedisplay to iloctreedisplay.
  6759.   endloop.
  6760. endform.                                                                                            "fillTreeNodeTables
  6761.  
  6762. *----------------------------------------------------------------------------------------------------------------------
  6763. *  fillTreeNodeMessages...
  6764. *----------------------------------------------------------------------------------------------------------------------
  6765. form filltreenodemessages using ilocmessages like imessages[]
  6766.                                 iloctreedisplay like itreedisplay[]
  6767.                                 value(runtime).
  6768.  
  6769. data: tablelines type i.
  6770. data: watreedisplay like snodetext.
  6771. field-symbols: <wamessage> type tmessage.
  6772. data: tablelinesstring type string.
  6773. data: runtimechar(10).
  6774.  
  6775.   sort ilocmessages ascending by arbgb.
  6776.  
  6777.   loop at ilocmessages assigning <wamessage>.
  6778.     at new arbgb.
  6779.       tablelines = tablelines + 1.
  6780.     endat.
  6781.   endloop.
  6782.   tablelinesstring = tablelines.
  6783.  
  6784.   if tablelines = 1.
  6785.     concatenate tablelinesstring 'message class downloaded' into watreedisplay-text2 separated by space.
  6786.   else.
  6787.     concatenate tablelinesstring 'message classes downloaded' into watreedisplay-text2 separated by space.
  6788.   endif.
  6789.  
  6790.   write runtime to runtimechar.
  6791.   concatenate watreedisplay-text2 '- runtime' runtimechar into watreedisplay-text2 separated by space.
  6792.  
  6793. * include header display record.
  6794.   watreedisplay-tlevel = '1'.
  6795.   watreedisplay-tlength2 = 60.
  6796.   watreedisplay-tcolor2 = 1.
  6797.   append watreedisplay to iloctreedisplay.
  6798.  
  6799.   loop at ilocmessages assigning <wamessage>.
  6800.     at new arbgb.
  6801.       watreedisplay-tlevel = '2'.
  6802.       watreedisplay-text2 = <wamessage>-arbgb.
  6803.       watreedisplay-tcolor2    = 5.
  6804.       watreedisplay-tlength3   = 80.
  6805.       watreedisplay-tcolor3    = 5.
  6806.       watreedisplay-tpos3      = 60.
  6807.       watreedisplay-text3 = <wamessage>-stext.
  6808.       concatenate 'Message class:'  watreedisplay-text3 into watreedisplay-text3 separated by space.
  6809.       append watreedisplay to iloctreedisplay.
  6810.     endat.
  6811.   endloop.
  6812. endform.                                                                                          "fillTreeNodeMessages
  6814. *----------------------------------------------------------------------------------------------------------------------
  6815. *  fillTreeNodeFunctions...
  6816. *----------------------------------------------------------------------------------------------------------------------
  6817. form filltreenodefunctions using ilocfunctions like ifunctions[]
  6818.                                  iloctreedisplay like itreedisplay[]
  6819.                                  value(runtime).
  6821. data: tablelines type i.
  6822. data: watreedisplay like snodetext.
  6823. field-symbols: <wafunction> type tfunction.
  6824. field-symbols: <wascreen> type tscreenflow.
  6825. field-symbols: <waguititle> type tguititle.
  6826. field-symbols: <wadictionary> type tdicttable.
  6827. field-symbols: <wainclude> type tinclude.
  6828. field-symbols: <wamessage> type tmessage.
  6829. data: tablelinesstring type string.
  6830. data: runtimechar(10).
  6832.   sort ilocfunctions ascending by functionname.
  6834.   tablelines = lines( ilocfunctions ).
  6835.   tablelinesstring = tablelines.
  6837.   if tablelines = 1.
  6838.     concatenate tablelinesstring ` function downloaded` into watreedisplay-text2.
  6839.   else.
  6840.     concatenate tablelinesstring ` functions downloaded` into watreedisplay-text2.
  6841.   endif.
  6843.   write runtime to runtimechar.
  6845.   concatenate watreedisplay-text2 ` - runtime ` runtimechar into watreedisplay-text2.
  6846. * include header display record.
  6847.   watreedisplay-tlevel = '1'.
  6848.   watreedisplay-tlength2  = 60.
  6849.   watreedisplay-tcolor2    = 1.
  6850.   append watreedisplay to iloctreedisplay.
  6852. * Lets fill the detail in
  6853.   loop at ilocfunctions assigning <wafunction>.
  6854.     watreedisplay-tlevel = 2.
  6855.     watreedisplay-text2 = <wafunction>-functionname.
  6856.     watreedisplay-tcolor2    = 7.
  6857.     watreedisplay-tlength3   = 80.
  6858.     watreedisplay-tcolor3    = 7.
  6859.     watreedisplay-tpos3      = 60.
  6860.     concatenate `Function: ` <wafunction>-functionname into watreedisplay-text3.
  6861.     append watreedisplay to iloctreedisplay.
  6863. *   Screens.
  6864.     loop at <wafunction>-iscreenflow assigning <wascreen>.
  6865.       watreedisplay-tlevel = '2'.
  6866.       watreedisplay-text2 = <wascreen>-screen.
  6867.       watreedisplay-tcolor2    = 6.
  6868.       watreedisplay-tlength3   = 80.
  6869.       watreedisplay-tcolor3    = 6.
  6870.       watreedisplay-tpos3      = 60.
  6871.       watreedisplay-text3 = 'Screen'.
  6872.       append watreedisplay to itreedisplay.
  6873.     endloop.
  6875. *   GUI Title.
  6876.     loop at <wafunction>-iguititle assigning <waguititle>.
  6877.       watreedisplay-tlevel = '2'.
  6878.       watreedisplay-text2 = <waguititle>-obj_code.
  6879.       watreedisplay-tcolor2    = 6.
  6880.       watreedisplay-tlength3   = 80.
  6881.       watreedisplay-tcolor3    = 6.
  6882.       watreedisplay-tpos3      = 60.
  6883.       watreedisplay-text3 = 'GUI Title'.
  6884.       append watreedisplay to itreedisplay.
  6885.     endloop.
  6887. *   Fill in the tree with include information
  6888.     loop at <wafunction>-iincludes assigning <wainclude>.
  6889.       watreedisplay-tlevel = 3.
  6890.       watreedisplay-text2 =  <wainclude>-includename.
  6891.       watreedisplay-tcolor2    = 4.
  6892.       watreedisplay-tlength3   = 80.
  6893.       watreedisplay-tcolor3    = 4.
  6894.       watreedisplay-tpos3      = 60.
  6895.       concatenate `Include:   ` <wainclude>-includetitle into watreedisplay-text3.
  6896.       append watreedisplay to iloctreedisplay.
  6897.     endloop.
  6899. *   fill in the tree with dictionary information
  6900.     loop at <wafunction>-idictstruct assigning <wadictionary>.
  6901.       watreedisplay-tlevel = 3.
  6902.       watreedisplay-text2 =  <wadictionary>-tablename.
  6903.       watreedisplay-tcolor2    = 3.
  6904.       watreedisplay-tlength3   = 80.
  6905.       watreedisplay-tcolor3    = 3.
  6906.       watreedisplay-tpos3      = 60.
  6907.       concatenate `Dictionary:` <wadictionary>-tabletitle into watreedisplay-text3.
  6908.       append watreedisplay to iloctreedisplay.
  6909.     endloop.
  6911. *   fill in the tree with message information
  6912.     sort <wafunction>-imessages[] ascending by arbgb.
  6913.     loop at <wafunction>-imessages assigning <wamessage>.
  6914.       at new arbgb.
  6915.         watreedisplay-tlevel = 3.
  6916.         watreedisplay-text2 = <wamessage>-arbgb.
  6917.         watreedisplay-tcolor2    = 5.
  6918.         watreedisplay-tlength3   = 80.
  6919.         watreedisplay-tcolor3    = 5.
  6920.         watreedisplay-tpos3      = 60.
  6922. *       Select the message class text if we do not have it already
  6923.         if <wamessage>-stext is initial.
  6924.           select single stext from t100a
  6925.                               into <wamessage>-stext
  6926.                               where arbgb = <wamessage>-arbgb.
  6927.         endif.
  6929.         watreedisplay-text3 = <wamessage>-stext.
  6930.         concatenate `Message class: `  watreedisplay-text3 into watreedisplay-text3.
  6931.         append watreedisplay to iloctreedisplay.
  6932.       endat.
  6933.     endloop.
  6934.   endloop.
  6935. endform.                                                                                         "fillTreeNodeFunctions
  6936.  
  6937. *----------------------------------------------------------------------------------------------------------------------
  6938. *  fillTreeNodePrograms
  6939. *----------------------------------------------------------------------------------------------------------------------
  6940. form filltreenodeprograms using ilocprograms like iprograms[]
  6941.                                 ilocfunctions like ifunctions[]
  6942.                                 iloctreedisplay like itreedisplay[]
  6943.                                 value(runtime).
  6944.  
  6945. data: tablelines type i.
  6946. data: watreedisplay like snodetext.
  6947. field-symbols: <waprogram> type tprogram.
  6948. field-symbols: <wascreen> type tscreenflow.
  6949. field-symbols: <wafunction> type tfunction.
  6950. field-symbols: <wadictionary> type tdicttable.
  6951. field-symbols: <wainclude> type tinclude.
  6952. field-symbols: <wamessage> type tmessage.
  6953. data: tablelinesstring type string.
  6954. data: runtimechar(10).
  6955.  
  6956.   tablelines = lines( ilocprograms ).
  6957.   tablelinesstring = tablelines.
  6958.  
  6959.   if tablelines = 1.
  6960.     concatenate tablelinesstring ` program downloaded` into watreedisplay-text2.
  6961.   else.
  6962.     concatenate tablelinesstring ` programs downloaded` into watreedisplay-text2.
  6963.   endif.
  6964.  
  6965.   write runtime to runtimechar.
  6966.  
  6967.   concatenate watreedisplay-text2 ` - runtime ` runtimechar into watreedisplay-text2.
  6968. * include header display record.
  6969.   watreedisplay-tlevel = '1'.
  6970.   watreedisplay-tlength2  = 60.
  6971.   watreedisplay-tcolor2    = 1.
  6972.   append watreedisplay to itreedisplay.
  6973.  
  6974.   loop at ilocprograms assigning <waprogram>.
  6975. *   Main programs.
  6976.     watreedisplay-tlevel = '2'.
  6977.     watreedisplay-text2 = <waprogram>-progname.
  6978.     watreedisplay-tcolor2    = 1.
  6979. *   Description
  6980.     watreedisplay-tlength3   = 80.
  6981.     watreedisplay-tcolor3    = 1.
  6982.     watreedisplay-tpos3      = 60.
  6983.     concatenate `Program: ` <waprogram>-programtitle into watreedisplay-text3.
  6984.     append watreedisplay to itreedisplay.
  6985. *   Screens.
  6986.     loop at <waprogram>-iscreenflow assigning <wascreen>.
  6987.       watreedisplay-tlevel = '3'.
  6988.       watreedisplay-text2 = <wascreen>-screen.
  6989.       watreedisplay-tcolor2    = 6.
  6990.       watreedisplay-tlength3   = 80.
  6991.       watreedisplay-tcolor3    = 6.
  6992.       watreedisplay-tpos3      = 60.
  6993.       watreedisplay-text3 = 'Screen'.
  6994.       append watreedisplay to itreedisplay.
  6995.     endloop.
  6996. *   fill in the tree with message information
  6997.     sort <waprogram>-imessages[] ascending by arbgb.
  6998.     loop at <waprogram>-imessages assigning <wamessage>.
  6999.       at new arbgb.
  7000.         watreedisplay-tlevel = 3.
  7001.         watreedisplay-text2 = <wamessage>-arbgb.
  7002.         watreedisplay-tcolor2    = 5.
  7003.         watreedisplay-tlength3   = 80.
  7004.         watreedisplay-tcolor3    = 5.
  7005.         watreedisplay-tpos3      = 60.
  7006.  
  7007. *       Select the message class text if we do not have it already
  7008.         if <wamessage>-stext is initial.
  7009.           select single stext from t100a
  7010.                               into <wamessage>-stext
  7011.                               where arbgb = <wamessage>-arbgb.
  7012.         endif.
  7013.  
  7014.         watreedisplay-text3 = <wamessage>-stext.
  7015.         concatenate `Message class: `  watreedisplay-text3 into watreedisplay-text3.
  7016.         append watreedisplay to iloctreedisplay.
  7017.       endat.
  7018.     endloop.
  7019. *   Fill in the tree with include information
  7020.     loop at <waprogram>-iincludes assigning <wainclude>.
  7021.       watreedisplay-tlevel = 3.
  7022.       watreedisplay-text2 =  <wainclude>-includename.
  7023.       watreedisplay-tcolor2    = 4.
  7024.       watreedisplay-tlength3   = 80.
  7025.       watreedisplay-tcolor3    = 4.
  7026.       watreedisplay-tpos3      = 60.
  7027.       concatenate `Include:   ` <wainclude>-includetitle into watreedisplay-text3.
  7028.       append watreedisplay to iloctreedisplay.
  7029.     endloop.
  7030. *   fill in the tree with dictionary information
  7031.     loop at <waprogram>-idictstruct assigning <wadictionary>.
  7032.       watreedisplay-tlevel = 3.
  7033.       watreedisplay-text2 =  <wadictionary>-tablename.
  7034.       watreedisplay-tcolor2    = 3.
  7035.       watreedisplay-tlength3   = 80.
  7036.       watreedisplay-tcolor3    = 3.
  7037.       watreedisplay-tpos3      = 60.
  7038.       concatenate `Dictionary:    ` <wadictionary>-tabletitle into watreedisplay-text3.
  7039.       append watreedisplay to iloctreedisplay.
  7040.     endloop.
  7041.  
  7042. *   Function Modules
  7043.     loop at ilocfunctions assigning <wafunction> where programlinkname = <waprogram>-progname.
  7044.       watreedisplay-tlevel = 3.
  7045.       watreedisplay-text2 = <wafunction>-functionname.
  7046.       watreedisplay-tcolor2    = 7.
  7047.       watreedisplay-tlength3   = 80.
  7048.       watreedisplay-tcolor3    = 7.
  7049.       watreedisplay-tpos3      = 60.
  7050.       concatenate `Function:      ` <wafunction>-functionname into watreedisplay-text3.
  7051.       append watreedisplay to iloctreedisplay.
  7052.  
  7053. *     Fill in the tree with include information
  7054.       loop at <wafunction>-iincludes assigning <wainclude>.
  7055.         watreedisplay-tlevel = 4.
  7056.         watreedisplay-text2 =  <wainclude>-includename.
  7057.         watreedisplay-tcolor2    = 4.
  7058.         watreedisplay-tlength3   = 80.
  7059.         watreedisplay-tcolor3    = 4.
  7060.         watreedisplay-tpos3      = 60.
  7061.         concatenate `Include:       ` <wainclude>-includetitle into watreedisplay-text3.
  7062.         append watreedisplay to iloctreedisplay.
  7063.       endloop.
  7064.  
  7065. *     fill in the tree with dictionary information
  7066.       loop at <wafunction>-idictstruct assigning <wadictionary>.
  7067.         watreedisplay-tlevel = 4.
  7068.         watreedisplay-text2 =  <wadictionary>-tablename.
  7069.         watreedisplay-tcolor2    = 3.
  7070.         watreedisplay-tlength3   = 80.
  7071.         watreedisplay-tcolor3    = 3.
  7072.         watreedisplay-tpos3      = 60.
  7073.         concatenate `Dictionary:    ` <wadictionary>-tabletitle into watreedisplay-text3.
  7074.         append watreedisplay to iloctreedisplay.
  7075.       endloop.
  7076.  
  7077. *     fill in the tree with message information
  7078.       sort <wafunction>-imessages[] ascending by arbgb.
  7079.       loop at <wafunction>-imessages assigning <wamessage>.
  7080.         at new arbgb.
  7081.           watreedisplay-tlevel = 4.
  7082.           watreedisplay-text2 = <wamessage>-arbgb.
  7083.           watreedisplay-tcolor2    = 5.
  7084.           watreedisplay-tlength3   = 80.
  7085.           watreedisplay-tcolor3    = 5.
  7086.           watreedisplay-tpos3      = 60.
  7087.  
  7088. *         Select the message class text if we do not have it already
  7089.           if <wamessage>-stext is initial.
  7090.             select single stext from t100a
  7091.                                 into <wamessage>-stext
  7092.                                 where arbgb = <wamessage>-arbgb.
  7093.           endif.
  7094.  
  7095.           watreedisplay-text3 = <wamessage>-stext.
  7096.           concatenate `Message class:  `  watreedisplay-text3 into watreedisplay-text3.
  7097.           append watreedisplay to iloctreedisplay.
  7098.         endat.
  7099.       endloop.
  7100.     endloop.
  7101.   endloop.
  7102. endform.                                                                                          "fillTreeNodePrograms
  7104. *----------------------------------------------------------------------------------------------------------------------
  7105. *  fillTreeNodeClasses
  7106. *----------------------------------------------------------------------------------------------------------------------
  7107. form filltreenodeclasses using ilocclasses like iclasses[]
  7108.                                ilocfunctions like ifunctions[]
  7109.                                iloctreedisplay like itreedisplay[]
  7110.                                value(runtime).
  7112. data: tablelines type i.
  7113. data: watreedisplay like snodetext.
  7114. field-symbols: <waclass> type tclass.
  7115. field-symbols: <wamethod> type tmethod.
  7116. field-symbols: <wafunction> type tfunction.
  7117. field-symbols: <wadictionary> type tdicttable.
  7118. field-symbols: <wainclude> type tinclude.
  7119. field-symbols: <wamessage> type tmessage.
  7120. data: tablelinesstring type string.
  7121. data: runtimechar(10).
  7123.   tablelines = lines( ilocclasses ).
  7124.   tablelinesstring = tablelines.
  7126.   if tablelines = 1.
  7127.     concatenate tablelinesstring ` class downloaded` into watreedisplay-text2.
  7128.   else.
  7129.     concatenate tablelinesstring ` classes downloaded` into watreedisplay-text2.
  7130.   endif.
  7132.   write runtime to runtimechar.
  7134.   concatenate watreedisplay-text2 ` - runtime ` runtimechar into watreedisplay-text2.
  7135. * include header display record.
  7136.   watreedisplay-tlevel = '1'.
  7137.   watreedisplay-tlength2  = 60.
  7138.   watreedisplay-tcolor2    = 1.
  7139.   append watreedisplay to itreedisplay.
  7141.   loop at ilocclasses assigning <waclass>.
  7142. *   Main Class.
  7143.     watreedisplay-tlevel = '2'.
  7144.     watreedisplay-text2 = <waclass>-clsname.
  7145.     watreedisplay-tcolor2    = 1.
  7146. *   Description
  7147.     watreedisplay-tlength3   = 80.
  7148.     watreedisplay-tcolor3    = 1.
  7149.     watreedisplay-tpos3      = 60.
  7150.     concatenate `Class:    ` <waclass>-descript into watreedisplay-text3.
  7151.     append watreedisplay to itreedisplay.
  7153. *   fill in the tree with method information
  7154.     loop at <waclass>-imethods[] assigning <wamethod>.
  7155.       watreedisplay-tlevel = 3.
  7156.       watreedisplay-text2 =  <wamethod>-cmpname.
  7157.       watreedisplay-tcolor2    = 2.
  7158.       watreedisplay-tlength3   = 80.
  7159.       watreedisplay-tcolor3    = 2.
  7160.       watreedisplay-tpos3      = 60.
  7161.       concatenate `Method:   ` <wamethod>-descript into watreedisplay-text3.
  7162.       append watreedisplay to iloctreedisplay.
  7163.     endloop.
  7165. *   fill in the tree with message information
  7166.     sort <waclass>-imessages[] ascending by arbgb.
  7167.     loop at <waclass>-imessages assigning <wamessage>.
  7168.       at new arbgb.
  7169.         watreedisplay-tlevel = 3.
  7170.         watreedisplay-text2 = <wamessage>-arbgb.
  7171.         watreedisplay-tcolor2    = 5.
  7172.         watreedisplay-tlength3   = 80.
  7173.         watreedisplay-tcolor3    = 5.
  7174.         watreedisplay-tpos3      = 60.
  7176. *       Select the message class text if we do not have it already
  7177.         if <wamessage>-stext is initial.
  7178.           select single stext from t100a
  7179.                               into <wamessage>-stext
  7180.                               where arbgb = <wamessage>-arbgb.
  7181.         endif.
  7183.         watreedisplay-text3 = <wamessage>-stext.
  7184.         concatenate `Message class: `  watreedisplay-text3 into watreedisplay-text3.
  7185.         append watreedisplay to iloctreedisplay.
  7186.       endat.
  7187.     endloop.
  7189. *   fill in the tree with dictionary information
  7190.     loop at <waclass>-idictstruct assigning <wadictionary>.
  7191.       watreedisplay-tlevel = 3.
  7192.       watreedisplay-text2 =  <wadictionary>-tablename.
  7193.       watreedisplay-tcolor2    = 3.
  7194.       watreedisplay-tlength3   = 80.
  7195.       watreedisplay-tcolor3    = 3.
  7196.       watreedisplay-tpos3      = 60.
  7197.       concatenate `Dictionary:    ` <wadictionary>-tabletitle into watreedisplay-text3.
  7198.       append watreedisplay to iloctreedisplay.
  7199.     endloop.
  7201. *   Function Modules
  7202.     loop at ilocfunctions assigning <wafunction> where programlinkname = <waclass>-clsname.
  7203.       watreedisplay-tlevel = 3.
  7204.       watreedisplay-text2 = <wafunction>-functionname.
  7205.       watreedisplay-tcolor2    = 7.
  7206.       watreedisplay-tlength3   = 80.
  7207.       watreedisplay-tcolor3    = 7.
  7208.       watreedisplay-tpos3      = 60.
  7209.       concatenate `Function:      ` <wafunction>-functionname into watreedisplay-text3.
  7210.       append watreedisplay to iloctreedisplay.
  7212. *     Fill in the tree with include information
  7213.       loop at <wafunction>-iincludes assigning <wainclude>.
  7214.         watreedisplay-tlevel = 4.
  7215.         watreedisplay-text2 =  <wainclude>-includename.
  7216.         watreedisplay-tcolor2    = 4.
  7217.         watreedisplay-tlength3   = 80.
  7218.         watreedisplay-tcolor3    = 4.
  7219.         watreedisplay-tpos3      = 60.
  7220.         concatenate `Include:       ` <wainclude>-includetitle into watreedisplay-text3.
  7221.         append watreedisplay to iloctreedisplay.
  7222.       endloop.
  7224. *     fill in the tree with dictionary information
  7225.       loop at <wafunction>-idictstruct assigning <wadictionary>.
  7226.         watreedisplay-tlevel = 4.
  7227.         watreedisplay-text2 =  <wadictionary>-tablename.
  7228.         watreedisplay-tcolor2    = 3.
  7229.         watreedisplay-tlength3   = 80.
  7230.         watreedisplay-tcolor3    = 3.
  7231.         watreedisplay-tpos3      = 60.
  7232.         concatenate `Dictionary:    ` <wadictionary>-tabletitle into watreedisplay-text3.
  7233.         append watreedisplay to iloctreedisplay.
  7234.       endloop.
  7236. *     fill in the tree with message information
  7237.       sort <wafunction>-imessages[] ascending by arbgb.
  7238.       loop at <wafunction>-imessages assigning <wamessage>.
  7239.         at new arbgb.
  7240.           watreedisplay-tlevel = 4.
  7241.           watreedisplay-text2 = <wamessage>-arbgb.
  7242.           watreedisplay-tcolor2    = 5.
  7243.           watreedisplay-tlength3   = 80.
  7244.           watreedisplay-tcolor3    = 5.
  7245.           watreedisplay-tpos3      = 60.
  7247. *         Select the message class text if we do not have it already
  7248.           if <wamessage>-stext is initial.
  7249.             select single stext from t100a
  7250.                                 into <wamessage>-stext
  7251.                                 where arbgb = <wamessage>-arbgb.
  7252.           endif.
  7254.           watreedisplay-text3 = <wamessage>-stext.
  7255.           concatenate `Message class:  `  watreedisplay-text3 into watreedisplay-text3.
  7256.           append watreedisplay to iloctreedisplay.
  7257.         endat.
  7258.       endloop.
  7259.     endloop.
  7260.   endloop.
  7261. endform.                                                                                           "fillTreeNodeClasses
  7262.  
  7263. *----------------------------------------------------------------------------------------------------------------------
  7264. * displayTree...
  7265. *----------------------------------------------------------------------------------------------------------------------
  7266. form displaytree using iloctreedisplay like itreedisplay[].
  7267.  
  7268. data: watreedisplay type snodetext.
  7269.  
  7270. * build up the tree from the internal table node
  7271.   call function 'RS_TREE_CONSTRUCT'
  7272.        tables
  7273.             nodetab            = itreedisplay
  7274.        exceptions
  7275.             tree_failure       = 1
  7276.             id_not_found       = 2
  7277.             wrong_relationship = 3
  7278.             others             = 4.
  7279.  
  7280. * get the first index and expand the whole tree
  7281.   read table iloctreedisplay into watreedisplay index 1.
  7282.   call function 'RS_TREE_EXPAND'
  7283.        exporting
  7284.             node_id   = watreedisplay-id
  7285.             all       = 'X'
  7286.        exceptions
  7287.             not_found = 1
  7288.             others    = 2.
  7289.  
  7290. * now display the tree
  7291.   call function 'RS_TREE_LIST_DISPLAY'
  7292.        exporting
  7293.             callback_program      = sy-cprog
  7294.             callback_user_command = 'CB_USER_COMMAND'
  7295.             callback_text_display = 'CB_text_DISPLAY'
  7296.             callback_top_of_page  = 'TOP_OF_PAGE'
  7297.        exceptions
  7298.             others                = 1.
  7299. endform.                                                                                                   "displayTree
  7301. *----------------------------------------------------------------------------------------------------------------------
  7302. *  topOfPage... for tree display routines.
  7303. *----------------------------------------------------------------------------------------------------------------------
  7304. form topofpage.
  7306. endform.
  7309. *Messages
  7310. *----------------------------------------------------------
  7311. *
  7312. * Message class: OO
  7313. *000   & & & &
  7315. **----------------------------------------------------------------------------------
  7316. *Extracted by Direct Download Enterprise version 1.3 - E.G.Mellodew. 1998-2004 UK. Sap Release 700

 

转载于:https://www.cnblogs.com/charles-guo/p/3720487.html

声明：本文内容由网友自发贡献，不代表【wpsshop博客】立场，版权归原作者所有，本站不承担相应法律责任。如您发现有侵权的内容，请联系我们。转载请注明出处：https://www.wpsshop.cn/w/菜鸟追梦旅行/article/detail/459546
推荐阅读
相关标签

Copyright © 2003-2013 www.wpsshop.cn 版权所有，并保留所有权利。

  

闽ICP备14008679号