Registration

Dear SAP Community Member,
In order to fully benefit from what the SAP Community has to offer, please register at:
http://scn.sap.com
Thank you,
The SAP Community team.
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