Display Traffic lights ALV

 * If student id < 5 display red color.

*  If student id = 5 display yellow color.

 * If student id > 5 display green color.


Report program


    REPORT YRP_ALV_TRAFIC_LIGHTS.

    TABLES: ZST_DET.

    TYPES: BEGIN OF TY_STU,

                ZST_ID   TYPE ZST_DET-ZST_ID,

                ZST_NAME TYPE ZST_DET-ZST_NAME,

                ZST_DEPT TYPE ZST_DET-ZST_DEPT,

                ZST_FEE TYPE ZST_DET-ZST_FEE,

                ICON TYPE C,

              END OF TY_STU.

    DATA: IT_STU TYPE TABLE OF TY_STU,

                  WA_STU TYPE TY_STU,

                  WA_fieldcat TYPE slis_fieldcat_alv,

                  it_fieldcat TYPE slis_t_fieldcat_alv,

                  is_layout    TYPE slis_layout_alv.


    SELECT-OPTIONS : S_ID FOR ZST_DET-ZST_ID.

    IF S_ID IS INITIAL.

              MESSAGE 'PLEASE GIVE STUDENT ID' TYPE 'W'.

    ELSE.

        SELECT ZST_ID

                  ZST_NAME

                  ZST_DEPT

                  ZST_FEE

                  FROM ZST_DET

                  INTO TABLE IT_STU

                  WHERE ZST_ID IN S_ID.

    ENDIF.

    " 1 -RED 2 -YELLOW 3-GREEN

    LOOP AT IT_STU INTO WA_STU.

          IF WA_STU-ZST_ID < 5.

                WA_STU-ICON = 1.

          ELSEIF WA_STU-ZST_ID = 5.

              WA_STU-ICON = 2.

          ELSEIF WA_STU-ZST_ID > 5.

                WA_STU-ICON = 3.

          ENDIF.

    ENDLOOP.


      wa_fieldcat-fieldname  = 'ZST_ID'.

      wa_fieldcat-seltext_m  = 'STU ID'.

      APPEND wa_fieldcat TO it_fieldcat.

      CLEAR wa_fieldcat.

      wa_fieldcat-fieldname  = 'ZST_NAME'.

      wa_fieldcat-seltext_m  = 'STU NAME'.

      APPEND wa_fieldcat TO it_fieldcat.

      CLEAR wa_fieldcat.

      wa_fieldcat-fieldname  = 'ZST_DEPT'.

      wa_fieldcat-seltext_m  = 'STU DEPT'.

      APPEND wa_fieldcat TO it_fieldcat.

      CLEAR wa_fieldcat.

      wa_fieldcat-fieldname  = 'ZST_FEE'.

      wa_fieldcat-seltext_m  = 'STU FEE'.

      APPEND wa_fieldcat TO it_fieldcat.

      CLEAR wa_fieldcat.


      IS_LAYOUT-LIGHTS_FIELDNAME = 'ICON'.


      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

       EXPORTING

         IS_LAYOUT                         = IS_LAYOUT

         IT_FIELDCAT                     = IT_FIELDCAT

    TABLES

          T_OUTTAB                         = IT_STU

      EXCEPTIONS

         PROGRAM_ERROR         = 1

         OTHERS                              = 2.


Input



Output



Comments

Post a Comment

Popular posts from this blog

New syntax for append- VALUE (new syntax 7.4+) in ABAP

Image
* We use APPEND statement to insert the records at the last of the internal table. * In SAP ABAP new syntax, we can use VALUE expression instead of APPEND statement. * Value expression is a powerful mechanism to declare as well as initialize the internal tables. * It is a powerful utility where we can achieve the result with minimal coding. * Value expression is of 2 types.      -  Define the type before using it with VALUE keyword. The type defined is structure type  or table type.      -  Using # character for type and use it with VALUE keyword. Report REPORT  zab_rp_append_value . TYPES :  BEGIN  OF  ls_stu ,          st_id ( 10 )    TYPE  n ,          st_name ( 15 )  TYPE  c ,         END  OF  ls_stu . DATA :  lt_stu  TYPE  TABLE...
Read more

Read statement new syntax in ABAP. (7.4+).

Image
*  Before ABAP 7.4, we used READ TABLE statement to read the first matching record from the internal table  based upon key or index . * In SAP ABAP new syntax, instead of READ TABLE , we can use the table expressions. * We need to use the square bracket [ ], In the square bracket, we need to specify the key or index. * While using table expression, If the table entry does not exist, system throws the exception CX_SY_ITAB_LINE_NOT_FOUND. * Use line_exists statement to check the existence of a record. Report REPORT  zab_rp_read_new . TABLES :   vbak . SELECT-OPTIONS :   s_vbeln  FOR  vbak - vbeln . SELECT  vbeln , erdat , erzet , ernam , auart         FROM  vbak         INTO  TABLE  @DATA ( lt_vbak )          WHERE  vbeln  IN  @s_vbeln . WRITE :   'Index value'  COLOR  5 . READ  T...
Read more

Add custom tab to me51n at item level in ABAP

Image
                                        * Customer exit for ME51N is -  MEREQ001                                         * To implement the customer exit in CMOD. Step 1: Goto T-code: CMOD. Step 2: Give project name and click on create. Step 3: Give short text and click on Enhancement assignments . Press enter and click on save. Step 4: Click on components . Double click on CI_EBANDB include and create the include. Step5: Give your field names (If your enhancement category can't be enhanced) as per our requirement. Otherwise click on append structure and create. Field names must started with ZZ. Step 6: Save and activate the structure. Step 7: Double click on C_EBANDBX and create structure like this. Step 7: Double click on screen ...
Read more