ALV Pop up

* To Display pop up ALV.

Report program.

    REPORT YRP_ALV_POP.

    type-POOLs : slis.

    TABLES: ZST_DET.

    TYPES:  BEGIN OF TY_ZST,

                        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,

                    END OF TY_ZST.


    data:    it_ZST type table of ty_ZST,

                  wa_ZST type ty_ZST,

                  ls_selfld TYPE slis_selfield.

    select-OPTIONS : S_ID FOR ZST_DET-ZST_ID.

    START-OF-SELECTION.

    IF s_ID is not INITIAL.

      select ZST_ID

              ZST_NAME

              ZST_DEPT

              ZST_FEE

              FROM ZST_DET

              INTO TABLE IT_ZST

            WHERE ZST_ID IN S_iD.

    ENDIF.

    CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'

      EXPORTING

           I_TITLE                       = 'POP UP ALV'

           I_SELECTION                   = 'X'

        *   I_ALLOW_NO_SELECTION          =

           I_ZEBRA                       = 'X'

        *   I_SCREEN_START_COLUMN         = 0

        *   I_SCREEN_START_LINE           = 0

        *   I_SCREEN_END_COLUMN           = 0

        *   I_SCREEN_END_LINE             = 0

        *   I_CHECKBOX_FIELDNAME          =

        *   I_LINEMARK_FIELDNAME          =

        *   I_SCROLL_TO_SEL_LINE          = 'X'

            I_TABNAME                     = 'IT_ZST'

            I_STRUCTURE_NAME              = 'ZST_DET'

        *   IT_FIELDCAT                   =

        *   IT_EXCLUDING                  =

        *   I_CALLBACK_PROGRAM            =

        *   I_CALLBACK_USER_COMMAND       =

        *   IS_PRIVATE                    =

    IMPORTING

       ES_SELFIELD                   = ls_selfld

        *   E_EXIT                        =

    TABLES

        T_OUTTAB                      = IT_ZST

    EXCEPTIONS

       PROGRAM_ERROR                 = 1

       OTHERS                        = 2.

          

Input



Table



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

Concatenation new syntax( 7.4+ ).

Image
  Report REPORT  zab_rp_concat_7_4 . DATA :   lv_str1    TYPE  string  VALUE  'ajay' ,       lv_str2    TYPE  string  VALUE  'babu' ,       lv_str3    TYPE  string  VALUE  'varikallu' ,       lv_final1  TYPE  string ,       lv_final2  TYPE  string . CONCATENATE  lv_str1 lv_str2 lv_str3  INTO  lv_final1  SEPARATED  BY  space . WRITE :   /  'Old syntax: '  ,  lv_final1  COLOR  4 . lv_final2  =  | { lv_str1 } { lv_str2 } { lv_str3 } | . WRITE :   /  'New syntax: '  ,  lv_final2  COLOR  5 . Output ****** *********** ******** Thank You ****** ******* *********
Read more