Demo of of complex list writing

Demo of of complex list writing[@more@]

*&---------------------------------------------------------------------*
*& Report ZPROG06 *
*& *
*&---------------------------------------------------------------------*
*& Demo of of complex list writing *
*& *
*&---------------------------------------------------------------------*

REPORT ZPROG06 LINE-SIZE 90 LINE-COUNT 20(3)
NO STANDARD PAGE HEADING.

WRITE: 'Page width: ', sy-linsz.
WRITE: 'Page length: ', sy-linct.

skip 1.

* Using colour in list
DATA i TYPE i VALUE 0.
DATA col(15) TYPE c.

WHILE i < 8.

CASE i.
WHEN 0. col = 'COL_BACKGROUND '.
WHEN 1. col = 'COL_HEADING '.
WHEN 2. col = 'COL_NORMAL '.
WHEN 3. col = 'COL_TOTAL '.
WHEN 4. col = 'COL_KEY '.
WHEN 5. col = 'COL_POSITIVE '.
WHEN 6. col = 'COL_NEGATIVE '.
WHEN 7. col = 'COL_GROUP '.
ENDCASE.

FORMAT INTENSIFIED COLOR = i.
WRITE: /(4) i, AT 7 sy-vline,
col, sy-vline,
col INTENSIFIED OFF, sy-vline,
col INVERSE.

i = i + 1.

ENDWHILE.

* Using Hotspot
INCLUDE .

skip 2.

FORMAT COLOR 4 INTENSIFIED OFF.
WRITE 'Click here ->'.

FORMAT HOTSPOT ON.
WRITE icon_list AS ICON HOTSPOT..
FORMAT HOTSPOT OFF COLOR OFF.

AT LINE-SELECTION.

WRITE / 'Generate New page when AT-LINE-SELECTION'.
SKIP.
WRITE 'This is a new page'.

* Write top of page
TOP-OF-PAGE.

WRITE: 'Top of page Header', 30 'Page', sy-pagno.
ULINE AT /(90).

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

转载于:http://blog.itpub.net/581999/viewspace-903766/