| Using Different Color in ABAP
* * Different Color in ABAP * * Written by : SAP Basis, ABAP Programming and Other IMG Stuff * https://www.erpgreat.com * REPORT ZCOLOR LINE-SIZE 90 NO STANDARD PAGE HEADING. DATA: BEGIN OF TP OCCURS 10, ID, NR(8), TEXT(255), END OF TP. DATA: LENGTH TYPE I VALUE 8, " Length of list TESTSTRING(15) TYPE C VALUE '012345678901234', WIDTH TYPE I. " Width of list DATA: TXT_REPORT LIKE DOKHL-OBJECT. START-OF-SELECTION. PERFORM HEADING. PERFORM OUTPUT_BODY. FORM HEADING. FORMAT INTENSIFIED OFF. " Remove any INTENSIFIED ULINE AT (WIDTH). " Upper frame border FORMAT COLOR COL_HEADING INTENSIFIED." Title color WRITE: / SY-VLINE. " Left border WRITE: 'No |Colour |intensified |intensified off|', 'inverse' NO-GAP. WRITE: AT WIDTH SY-VLINE. " Right border ULINE AT (WIDTH). " Line below titles FORMAT COLOR OFF. ENDFORM. FORM OUTPUT_BODY. DO LENGTH TIMES. PERFORM WRITE_LINE USING SY-INDEX. ENDDO. ENDFORM. FORM WRITE_LINE USING COUNT TYPE I. DATA: HELP(14) TYPE C, COUNT1 TYPE I. COUNT1 = SY-INDEX - 1. WRITE: / SY-VLINE NO-GAP. WRITE: (4) COUNT1 COLOR COL_KEY INTENSIFIED NO-GAP. WRITE: SY-VLINE NO-GAP. CASE COUNT1. WHEN '0'. HELP = 'COL_BACKGROUND'. WHEN '1'. HELP = 'COL_HEADING'. WHEN '2'. HELP = 'COL_NORMAL'. WHEN '3'. HELP = 'COL_TOTAL'. WHEN '4'. HELP = 'COL_KEY'. WHEN '5'. HELP = 'COL_POSITIVE'. WHEN '6'. HELP = 'COL_NEGATIVE'. WHEN '7'. HELP = 'COL_GROUP'. ENDCASE. WRITE: HELP COLOR COL_KEY INTENSIFIED NO-GAP. WRITE: SY-VLINE NO-GAP. WRITE: TESTSTRING COLOR = COUNT1 INTENSIFIED NO-GAP. WRITE: SY-VLINE NO-GAP. WRITE: TESTSTRING COLOR = COUNT1 INTENSIFIED OFF NO-GAP. WRITE: SY-VLINE NO-GAP. WRITE: TESTSTRING COLOR = COUNT1 INVERSE NO-GAP. WRITE AT WIDTH SY-VLINE NO-GAP. ENDFORM. *-- End of Program Get help for your ABAP problems
ABAP Books
ABAP Functions Tips
ABAP Tips
Best regards,
All the site contents are Copyright © www.erpgreat.com
and the content authors. All rights reserved.
|