Skip to end of metadata
Go to start of metadata

Hi Coders,

This program displays the icons in the SAP.Hope it will help you in some ways beneficial,

REPORT  Zsample_ICON NO STANDARD PAGE HEADING LINE-COUNT 3000 LINE-SIZE 75.
******************************************************
TABLES: ICON.
DATA: COL
TYPE I,
LIN
TYPE I,
LENGTH TYPE I,
PG
TYPE I.

*** BOXIFY MACRO **
*********************
DEFINE WRITE_GRID.
COL = SY-COLNO. LIN = SY-LINNO.
WRITE: '|' NO-GAP, (&2) &1 &3 &4 &5 &6 NO-GAP,
'|' NO-GAP.
LENGTH = SY-COLNO - COL.
LIN = LIN - 1. SKIP TO LINE LIN. POSITION COL.
ULINE AT COL(LENGTH).
LIN = LIN + 2. SKIP TO LINE LIN. POSITION COL.
ULINE AT COL(LENGTH).
LIN = LIN  1. COL = SY-COLNO  2. SKIP TO LINE LIN.
POSITION COL.
END-OF-DEFINITION.
SKIP 1.

********************
* REPORT HEADING ***
********************
END-OF-PAGE.
*********************
TOP-OF-PAGE.

NEW-PAGE NO-HEADING.
*******************************************
SKIP 1.
POSITION 1.
WRITE_GRID 'SRL NO' 6
INVERSE ON COLOR COL_TOTAL.
WRITE_GRID '**** I C O N N A M E ****' 30
INVERSE ON COLOR COL_KEY.
WRITE_GRID 'PICTURE' 7
INVERSE ON COLOR COL_POSITIVE.
WRITE_GRID 'CODE' 4
INVERSE ON COLOR COL_HEADING.
SKIP 1.
POSITION 1.
********************
********************
START-OF-SELECTION.
FORMAT INTENSIFIED ON.
SELECT * FROM ICON ORDER BY NAME.
WRITE_GRID SY-DBCNT 6
INVERSE ON COLOR COL_TOTAL.
WRITE_GRID ICON-NAME 30
INVERSE ON COLOR COL_KEY.
WRITE_GRID ICON-ID 7
INVERSE ON COLOR COL_POSITIVE.
WRITE_GRID ICON+1(2) 4
INVERSE ON COLOR COL_HEADING.
SKIP 2.
POSITION 1.
ENDSELECT.

Thanks&regards

Karthik.R

  • No labels