ABAP展示代码内容

ag • 2020.05.13 22:45 • 文章 • 阅读 727

适用场景：直接在include文件中写程序说明文档，提供一个function code供点击查看。

form fm_fc01 .

  tables:trdir.

  types: begin of itype,
           line(150),
         end of itype  .

  data:itab  type itype occurs 0 with header line,
       ls_tr like trdir,
       itxt  type textpool occurs 0 with header line,
       title type char50,
       app   type c length 30.

  app = 'ZFIR001_DOC'.
  title = 'Document for' && ' ' && sy-tcode. "为全角空格，从word特殊符号复制.

  clear ls_tr.
  select single *
    into ls_tr
  from trdir
    where name eq app.

  read report app into itab.
  editor-call for itab  title title display-mode.

endform.