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

Pf status and user command in factory method - OOPS ALV in ABAP

Image
  1. Goto  SE38 . 2. Give  program name  and click on  create . 3. Give  title  and  click on save . 4. Write  code. REPORT  zab_rp_oops_pfstatus_ucomm . TABLES :   ekko , ekpo . TYPES :   BEGIN  OF  ty_ekko ,          ebeln  TYPE  ekko - ebeln ,          bukrs  TYPE  ekko - bukrs ,          bstyp  TYPE  ekko - bstyp ,          bsart  TYPE  ekko - bsart ,         END  OF  ty_ekko . TYPES :   BEGIN  OF  ty_ekpo ,          ebeln  TYPE  ekpo - ebeln ,          ebelp  TYPE  ekpo - ebelp ,          matnr  TYPE  ekpo - matnr ,          werks  TYPE  ekpo - werks ,         END  OF  ty_ekpo . DATA :   lt_ekko  TYPE  TABLE  OF  ty_ekko ,       lr_ekko  TYPE  ty_ekko ,       lt_ekpo  TYPE  TABLE  OF  ty_ekpo ,       lr_ekpo  TYPE  ty_ekpo . DATA :   lo_salv1 TYPE   REF  TO  cl_salv_table ,       lo_salv2  TYPE  REF  TO  cl_salv_table ,       lo_events  TYPE  REF  TO  cl_salv_events_table ,       lo_grid    TYPE  REF  TO  cl_gui_alv_grid ,       lt_rows    TYPE  lvc_t_row ,       lr_rows    TYPE 
Read more

fetch the data from table and send an email in ABAP

Image
  Send an email in abap. REPORT  ZAJAY_EF_ZSTU . tables : zstu . data :  maildata  LIKE  sodocchgi1 ,       mailtxt   LIKE  solisti1  OCCURS  10  WITH  HEADER  LINE ,       mailrec   LIKE  somlrec90  OCCURS  0  WITH  HEADER  LINE ,       it_zstu  type  table  of  zstu  WITH  HEADER  LINE ,       wa_zstu  type  zstu . START-OF-SELECTION .      clear : maildata , mailtxt , mailrec .      REFRESH : mailtxt , mailrec . select-OPTIONS  :  s_id  for  zstu - zstu_id . SELECT  *  from  zstu  into  TABLE  it_zstu  where  zstu_id  in  s_id .    sort  it_zstu  by  zstu_id . maildata - obj_descr  =  | Employee details | . mailtxt  =  '<!DOCTYPE html>' . append  mailtxt . mailtxt  =  '<html lang="en">' . append  mailtxt . mailtxt  =  '<head>' . append  mailtxt .   mailtxt  =  '<title>Email Functionality</title>' .   append  mailtxt . * mailtxt = ' <style>'. * append mailtxt. * *  mailtxt = 'table, th, td { bor
Read more

Enhancements in abap

 Enhancements     *  Will enhance the sap functionality in customer name space.     *  Customer  name space-> (z or y) Modifications      *  Will enhance the sap functionality in sap name space.     *  Name  should not start with z or y. Types      1. Implicit and Explicit enhancements { enhancements }      2. Customer exit. { enhancements }      3. Badi { enhancements }      4. User exit { modification } Implicit      *  Implicit point is available at the starting or at the last of program.     *  Subroutines, function  modules  etc. Explicit        *  Explicit point & section are available at any line.     *  Point  - It will not give default implementation .                     -  You can only add additional codes, you can't replace the existing code.     *  Section - It will give default implementation .      -  You can change or replace the existing code. BADI             - Badi is an enhancement. we enhance the sap functionalities in customer name space. -
Read more