SAP ABAP

Some time requirement to print traffic light in your program so here simple code to print traffic light REPORT  ychatest . TYPES :  BEGIN  OF  ty_final ,         light ( 4 )  TYPE  c ,         name1   TYPE  char40 ,         name2  TYPE  char40 ,         name3   TYPE  char40 ,         END  OF    ty_final . DATA :  gt_final  TYPE  STANDARD  TABLE  OF  ty_final ,       gs_final  TYPE                    ty_final . DATA :  it_fieldcat  TYPE  slis_t_fieldcat_alv ,       wa_fieldcat  LIKE  LINE  OF  it_fieldcat . wa_fieldcat - fieldname  =  'LIGHT' . wa_fieldcat - col_pos    =  0 . **  wa_fieldcat-EDIT = 'X'. **  wa_fieldcat-checkbox = 'X'. wa_fieldcat - seltext_m  =  'LiGHT' ( 000 ) . APPEND  wa_fieldcat  TO  it_fieldcat . *  CLEAR wa_fieldcat. wa_fieldcat - fieldname  =  'NAME1' . wa_fieldcat - col_pos    =  0 . **  wa_fieldcat-EDIT = 'X'. **  wa_fieldcat-checkbox = 'X'. wa_fieldcat - seltext_m  =  

Call transaction FB03        s_selfield  TYPE  slis_selfield .    READ  TABLE  gt_final  INTO  gs_final  INDEX  s_selfield - tabindex .    SET  PARAMETER  ID  'BLN'  FIELD  gs_final - belnr .    SET  PARAMETER  ID  'BUK'  FIELD  p_bukrs .    SET  PARAMETER  ID  'GJR'  FIELD  p_gjahr .    CALL  TRANSACTION  'FB03'  AND  SKIP  FIRST  SCREEN .