通过ABAP Write语句来打印报表

REPORT ZRPP_SID_0002 .
TABLES: MARC,MARA.

PARAMETERS: T_WERKS LIKE MARC-WERKS.

*top-of-page.
*  perform. list_column_header(zcbx0001) using 1 2.
*  uline.

START-OF-SELECTION.
  WRITE:/ T_WERKS.
  CLEAR T_WERKS.
*  PERFORM. WRITE_DOCUMENT.

*&------------------------------------------------------------------
*&      Form  write_document
*&-------------------------------------------------------------------
form. write_document .
  data:l_program like rs38m-programm,
       abaplist like abaplist occurs 0,
       ascilist(120) occurs 0 with header line,
       linesize type i,
       linecount type i,
       layout like pri_params-paart.

        l_program = 'ZRPP_SID_0002'.
        linesize = 100.
        linecount = 28.
*        layout = 'ZX_28_100_L'.

        submit (l_program)
*         with s_docnum eq zmm010tab-docnumber
*         with sdocyear eq sdocyear
         exporting list to memory
         and return.


    call function 'LIST_FROM_MEMORY'
      tables
        listobject = abaplist
      exceptions
        not_found  = 1
        others     = 2.

*    call function 'LIST_TO_ASCI'
*      exporting
*        list_index               = -1
*        with_line_break          = ' '
*      tables
*        listasci                 = ascilist
*        listobject               = abaplist
*      exceptions
*        empty_list               = 1
*        list_index_invalid       = 2
*        others                   = 3.
*
**    new-page line-count linecount line-size linesize.
**    call function 'SET_PRINT_PARAMETERS'
**      exporting
**        layout = layout.
*
    call function 'WRITE_LIST'
      exporting
        write_only = 'X'
      tables
        listobject = abaplist
      exceptions
        empty_list = 1
        others     = 2.


endform.

**&-------------------------------------------------------------------
**&      Form  list_column_header
**&-------------------------------------------------------------------
*form. list_column_header using value(fromline) value(toline).
*  data: textpool like textpool occurs 0 with header line,
*        textline type i.
*
*  read textpool sy-cprog into textpool language sy-langu.
*  format color col_heading intensified on.
*  loop at textpool where id eq 'H'.
*    add 1 to textline.
*    if textline between fromline and toline.
*      write: textpool-entry.
*    endif.
*  endloop.
*  format color off.
*endform.                    " list_column_header

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/15117617/viewspace-557411/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/15117617/viewspace-557411/