Code: Alles auswählen.
REPORT z LINE-SIZE 1000 NO STANDARD PAGE HEADING.
TYPE-POOLS: icon.
PARAMETERS: i TYPE i DEFAULT 10.
*** 5 Geheime Zeilen *****************************
INITIALIZATION.
*** 2 Geheime Zeilen *****************************
END-OF-SELECTION.
CHECK i < 100. " Mehr nicht
DO i TIMES.
WRITE:/ 'Mit Lücke'.
POSITION 20.
DO sy-index TIMES.
WRITE icon_okay AS ICON.
ENDDO.
WRITE:/ 'Ohne Lücke'.
POSITION 20.
DO sy-index TIMES.
WRITE icon_okay AS ICON NO-GAP.
ENDDO.
WRITE:/ 'Rätsel' color 7.
POSITION 20.
*** 14 Geheime Zeilen *****************************
ULINE.
ENDDO.
Code: Alles auswählen.
INCLUDE <Kernel6-40>.
INCLUDE <SAP-Special-Icons-for-Stefan>.
Code: Alles auswählen.
REPORT z LINE-SIZE 1000 NO STANDARD PAGE HEADING.
TYPE-POOLS: icon.
PARAMETERS: i TYPE i DEFAULT 10.
types: ty_x2(2) type x.
DATA: n TYPE i,
zeile type i value 3.
field-symbols: <okay> type ty_x2,
<cancel> type ty_x2.
INITIALIZATION.
assign icon_okay+1(2) to <okay> casting.
assign icon_cancel+1(2) to <cancel> casting.
END-OF-SELECTION.
CHECK i < 100. " Mehr nicht
DO i TIMES.
WRITE:/ 'Mit Lücke'.
POSITION 20.
DO sy-index TIMES.
WRITE icon_okay AS ICON.
ENDDO.
WRITE:/ 'Ohne Lücke'.
POSITION 20.
DO sy-index TIMES.
WRITE icon_okay AS ICON NO-GAP.
ENDDO.
WRITE:/ 'Rätsel' color 7.
POSITION 20.
DO sy-index TIMES.
n = sy-index MOD 2.
IF n <> 0.
WRITE icon_okay AS ICON NO-GAP.
ELSE.
WRITE icon_cancel AS ICON NO-GAP.
ENDIF.
ENDDO.
read line zeile.
while sy-subrc = 0.
replace <cancel> with <okay> into sy-lisel.
endwhile.
modify current line.
add 4 to zeile.
ULINE.
ENDDO.