Two ALV on Selection Screen

Hi Abapers,
I have small query
Can we add Two ALV on the selection Screen. I am not talking about OOALV or not Block ALV
Please suggest if it can be possible to create two ALV on screen using Simple ABAP.

HI,
REPORT YMS_TWOALV .
TYPE-POOLS: slis.
DATA: BEGIN OF i_clients OCCURS 0,
mandt LIKE t000-mandt,
mtext LIKE t000-mtext,
ort01 LIKE t000-ort01.
DATA: END OF i_clients.
DATA: BEGIN OF i_industry OCCURS 0,
mandt LIKE t016t-mandt,
spras LIKE t016t-spras,
brsch LIKE t016t-brsch,
brtxt LIKE t016t-brtxt.
DATA: END OF i_industry.
DATA: i_fcat_c TYPE slis_t_fieldcat_alv,
i_fcat_i TYPE slis_t_fieldcat_alv.
DATA: i_layout_c TYPE slis_layout_alv.
DATA: i_layout_i TYPE slis_layout_alv.
DATA: i_events_c TYPE slis_t_event.
DATA: i_events_i TYPE slis_t_event.
DATA: gt_print TYPE slis_print_alv.
START-OF-SELECTION.
*BREAK-POINT.
SELECT mandt mtext ort01
FROM t000 INTO CORRESPONDING FIELDS OF TABLE i_clients.
SELECT mandt spras brsch brtxt
FROM t016t INTO CORRESPONDING FIELDS OF TABLE i_industry.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = 'ZKB_BLOCK_LIST_REPORT'
i_internal_tabname = 'I_CLIENTS'
I_STRUCTURE_NAME = 'T000'
I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME = 'ZKB_BLOCK_LIST_REPORT'
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
CHANGING
ct_fieldcat = i_fcat_c
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3 .
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = 'ZKB_BLOCK_LIST_REPORT'
i_internal_tabname = 'I_INDUSTRY'
I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME = 'ZKB_BLOCK_LIST_REPORT'
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
CHANGING
ct_fieldcat = i_fcat_i
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3 .
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
i_callback_program = 'ZKB_BLOCK_LIST_REPORT'
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
IT_EXCLUDING =
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = i_layout_c
it_fieldcat = i_fcat_c
i_tabname = 'I_CLIENTS'
it_events = i_events_c
IT_SORT =
I_TEXT = ' '
TABLES
t_outtab = i_clients
EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 2
OTHERS = 3
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = i_layout_i
it_fieldcat = i_fcat_i
i_tabname = 'I_INDUSTRY'
it_events = i_events_i
IT_SORT =
I_TEXT = ' '
TABLES
t_outtab = i_industry
EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 2
OTHERS = 3
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
gt_print-reserve_lines = 2.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
is_print = gt_print
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Thanks,
Sankar M

Similar Messages

Two ALV in Same Screen..

Hello Guys.....
As Per My New Requirement I Have to Display Data in two ALV Drid . like.........
ALV1
ALV2
In a sample Program at SAP slis library I found Two ALV in same screen but they are in ALV1 ALV2 format.. it's will not fullfill my requirement..
any one have any idea..
Please send me test program ..
Regard
Swati Namdev..

Hi Swati,
see given code
REPORT Z7RNP_ALV_SO_BLOCK MESSAGE-ID Z7NEW .
TABLE DECLARATION
TABLES: VBAK , "Sales Document: Header Data
 VBAP , "Sales Document: Item Data
 MAKT , "Material Descriptions
 LIPS . "SD document: Delivery: Item data
DECLARATION OF TYPE-POOL
*THIS TYPE-POOL CONTAINS THE EVENTS,
TYPE-POOLS : SLIS.
DECLARATION OF EVENTS
DECLARATION OF FIELD LAYOUT
DATA: I_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: T_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: T_EVENT TYPE SLIS_T_EVENT.
DATA: X_EVENT TYPE SLIS_ALV_EVENT.
DECLARATION OF LIST HEADER
DATA: I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DECLARATION OF FIELD CATALOG FOR SCREEN 1
DATA: I_FLDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
DECLARATION OF FIELD CATALOG FOR SCREEN 2
DATA: I_FLDCAT2 TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
SORTING OF OUTPUT
DATA: I_SORT TYPE SLIS_T_SORTINFO_ALV.
DATA: T_SORT TYPE SLIS_T_SORTINFO_ALV.
*DATA DECLARATION
DATA: V_AUART TYPE TVAK-AUART,
 V_VKORG TYPE TVKO-VKORG,
 V_KUNNR TYPE KNA1-KUNNR,
 V_MATNR TYPE MARA-MATNR ,
 V_SPART TYPE TVTA-SPART .
DATA: V_REPID LIKE SY-REPID .
TYPES: BEGIN OF IT_SO ,
 VBELN TYPE VBELN_VA , "SALES ORDER NO.
 AUART TYPE AUART , "SALES DOC. TYPE
 VKORG TYPE VKORG , "SALES ORG.
 SPART TYPE SPART , "DIVISION
 KUNNR TYPE KUNAG , "SOLD TO PARTY
 POSNR TYPE POSNR_VA , "SALES DOC. ITEM
 MATNR TYPE MATNR , "MATERIAL NO
 MAKTX TYPE MAKTX , "DESCRIPTION
 KWMENG TYPE KWMENG , "QUANTITY
 VRKME TYPE VRKME , "SALES UNIT
 END OF IT_SO .
TYPES: BEGIN OF IT_DEL ,
 VBELN TYPE VBELN_VL , "SALES ORDER NO.
 POSNR TYPE POSNR_VL , "SALES DOC. ITEM
 MATNR TYPE MATNR , "MATERIAL NO
 WERKS TYPE WERKS_D , "PLANT
 LGORT TYPE LGORT_D , "STORAGE LOCATION
 CHARG TYPE CHARG_D , "BATCH NO.
 LFIMG TYPE LFIMG , "ACTUAL DELIVERY QTY.
 VRKME TYPE VRKME , "SALES UNIT
 END OF IT_DEL .
TYPES: BEGIN OF TYPE_VBFA ,
 VBELV TYPE VBELN_VON ,
 "Preceding sales and distribution document
 POSNV TYPE POSNR_VON , "Preceding item of an SD document
 VBELN TYPE VBELN_NACH ,
 "Subsequent sales and distribution document
 POSNN TYPE POSNR_NACH,
 "Document category of subsequent document
 VBTYP_N TYPE VBTYP_N ,
 END OF TYPE_VBFA .
DATA: IT_SO1 TYPE STANDARD TABLE OF IT_SO ,
 IT_DEL1 TYPE STANDARD TABLE OF IT_DEL ,
 IT_VBFA TYPE STANDARD TABLE OF TYPE_VBFA,
 IT_DEL_FUL TYPE STANDARD TABLE OF IT_DEL.
DATA: WA_SO TYPE IT_SO ,
 WA_DEL TYPE IT_DEL ,
 WA_VBFA TYPE TYPE_VBFA,
 wa_IT_DEL_FUL TYPE IT_DEL.
*SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-004 .
SELECT-OPTIONS: S_VBELN FOR VBAK-VBELN ,
 S_AUART FOR V_AUART ,
 S_VKORG FOR V_VKORG ,
 S_SPART FOR V_SPART ,
 S_KUNNR FOR V_KUNNR ,
 S_MATNR FOR V_MATNR .
SELECTION-SCREEN END OF BLOCK BLK1 .
*AT SELECTION SCREEN
AT SELECTION-SCREEN.
SELECT SINGLE VBELN
 FROM VBAK INTO VBAK-VBELN
 WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
 MESSAGE E202.
ENDIF.
*START OF SELECTION
INITIALIZATION.
V_REPID = SY-REPID.
START-OF-SELECTION .
PERFORM DATA_SELECT.
FOR BLOCK 1
PERFORM INITIALIZE_BLOCK .
PERFORM FLD_CAT USING I_FLDCAT[] .
PERFORM T_LAYOUT USING I_LAYOUT .
PERFORM I_SORT USING I_SORT .
PERFORM EVENT USING T_EVENT .
PERFORM CALL_ALV.
FOR BLOCK 2
PERFORM FLD_CAT2 USING I_FLDCAT2[] .
PERFORM I_LAYOUT USING I_LAYOUT .
PERFORM T_SORT USING I_SORT .
PERFORM EVENT1 USING T_EVENT .
PERFORM CALL_ALV1.
PERFORM BLOCK-DISPLAY .
*& Form DATA_SELECT
 text
--> p1 text
<-- p2 text
FORM DATA_SELECT .
REFRESH: IT_VBFA, IT_SO1, IT_DEL1, IT_DEL_FUL.
SELECT
 A~VBELN
 A~AUART
 A~VKORG
 A~SPART
 A~KUNNR
 B~POSNR
 B~MATNR
 C~MAKTX
 B~KWMENG
 B~VRKME
 INTO TABLE IT_SO1 FROM VBAK AS A
 JOIN VBAP AS B ON BVBELN = AVBELN
 JOIN MAKT AS C ON CMATNR = BMATNR
 AND C~SPRAS = SY-LANGU
 WHERE A~VBELN IN S_VBELN .
IF SY-SUBRC = 0.
 SELECT VBELV POSNV VBELN POSNN VBTYP_N INTO TABLE IT_VBFA
 FROM VBFA
 FOR ALL ENTRIES IN IT_SO1
 WHERE VBELV = IT_SO1-VBELN
 AND POSNN = IT_SO1-POSNR
 AND VBTYP_N ='J' .
 IF SY-SUBRC = 0.
 SELECT VBELN POSNR MATNR WERKS LGORT CHARG LFIMG VRKME
 FROM LIPS INTO TABLE IT_DEL_FUL
 FOR ALL ENTRIES IN IT_VBFA
 WHERE VBELN = IT_VBFA-VBELN
 AND POSNR = IT_VBFA-POSNN.
 ENDIF.
 ENDIF .
 V_REPID = SY-REPID .
ENDFORM. " DATA_SELECT
*& Form INITIALIZE_BLOCK
 text
--> p1 text
<-- p2 text
FORM INITIALIZE_BLOCK .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
 I_CALLBACK_PROGRAM = V_REPID .
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
IT_EXCLUDING =
ENDFORM. " INITIALIZE_BLOCK
*& Form FLD_CAT
 text
 -->P_I_FLDCAT[] text
FORM FLD_CAT USING P_I_FLDCAT TYPE SLIS_T_FIELDCAT_ALV.
CLEAR I_FLDCAT.
I_FLDCAT-FIELDNAME = 'VBELN'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT-TABNAME = 'IT_SO1'.
I_FLDCAT-SELTEXT_M = 'SALES ORDER NO.'.
I_FLDCAT-COL_POS = 1. " POSITION OF THE COLUMN.
I_FLDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT-KEY = 'X'. " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT = 'X'.
APPEND I_FLDCAT.
CLEAR I_FLDCAT.
I_FLDCAT-FIELDNAME = 'AUART'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT-TABNAME = 'IT_SO1'.
I_FLDCAT-SELTEXT_M = 'SALES DOC. TYPE'.
I_FLDCAT-COL_POS = 2. " POSITION OF THE COLUMN.
I_FLDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT-KEY = 'X'.
" SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT = 'X'.
APPEND I_FLDCAT.
CLEAR I_FLDCAT.
I_FLDCAT-FIELDNAME = 'VKORG'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT-TABNAME = 'IT_SO1'.
I_FLDCAT-SELTEXT_M = 'SALES ORG.'.
I_FLDCAT-COL_POS = 3. " POSITION OF THE COLUMN.
I_FLDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT-KEY = 'X'.
" SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT = 'X'.
APPEND I_FLDCAT.
CLEAR I_FLDCAT.
I_FLDCAT-FIELDNAME = 'SPART'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT-TABNAME = 'IT_SO1'.
I_FLDCAT-SELTEXT_M = 'DIVISION'.
I_FLDCAT-COL_POS = 4. " POSITION OF THE COLUMN.
I_FLDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT-KEY = 'X'.
" SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT = 'X'.
APPEND I_FLDCAT.
CLEAR I_FLDCAT.
I_FLDCAT-FIELDNAME = 'KUNNR'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT-TABNAME = 'IT_SO1'.
I_FLDCAT-SELTEXT_M = 'SOLD TO PARTY'.
I_FLDCAT-COL_POS = 5. " POSITION OF THE COLUMN.
I_FLDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT-KEY = 'X'.
" SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT = 'X'.
APPEND I_FLDCAT.
CLEAR I_FLDCAT.
I_FLDCAT-FIELDNAME = 'POSNR'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT-TABNAME = 'IT_SO1'.
I_FLDCAT-SELTEXT_M = 'SALES DOC. ITEM'.
I_FLDCAT-COL_POS = 6. " POSITION OF THE COLUMN.
I_FLDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT-KEY = 'X'.
" SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT = 'X'.
APPEND I_FLDCAT.
CLEAR I_FLDCAT.
I_FLDCAT-FIELDNAME = 'MATNR'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT-TABNAME = 'IT_SO1'.
I_FLDCAT-SELTEXT_M = 'MATERIAL NO.'.
I_FLDCAT-COL_POS = 7. " POSITION OF THE COLUMN.
I_FLDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT-KEY = 'X'.
" SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT = 'X'.
APPEND I_FLDCAT.
CLEAR I_FLDCAT.
I_FLDCAT-FIELDNAME = 'MAKTX'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT-TABNAME = 'IT_SO1'.
I_FLDCAT-SELTEXT_M = 'DESCRIPTION'.
I_FLDCAT-COL_POS = 8. " POSITION OF THE COLUMN.
I_FLDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT-KEY = 'X'.
" SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT = 'X'.
APPEND I_FLDCAT.
CLEAR I_FLDCAT.
I_FLDCAT-FIELDNAME = 'KWMENG'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT-TABNAME = 'IT_SO1'.
I_FLDCAT-SELTEXT_M = 'QUANTITY'.
I_FLDCAT-COL_POS = 9. " POSITION OF THE COLUMN.
I_FLDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT-KEY = 'X'.
" SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT = 'X'.
APPEND I_FLDCAT.
CLEAR I_FLDCAT.
I_FLDCAT-FIELDNAME = 'VRKME'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT-TABNAME = 'IT_SO1'.
I_FLDCAT-SELTEXT_M = 'SALES UNIT'.
I_FLDCAT-COL_POS = 10. " POSITION OF THE COLUMN.
I_FLDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT-KEY = 'X'.
" SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT = 'X'.
APPEND I_FLDCAT.
ENDFORM. " FLD_CAT
*& Form T_LAYOUT
 text
 -->P_I_LAYOUT text
FORM T_LAYOUT USING P_I_LAYOUT TYPE SLIS_LAYOUT_ALV .
P_I_LAYOUT-ZEBRA = 'X'.
P_I_LAYOUT-KEY_HOTSPOT = 'X'.
P_I_LAYOUT-F2CODE = 'DISP'.
ENDFORM. " T_LAYOUT
*& Form I_SORT
 text
 -->P_I_SORT text
FORM I_SORT USING P_I_SORT TYPE SLIS_T_SORTINFO_ALV .
DATA: I_SORT TYPE SLIS_SORTINFO_ALV .
REFRESH P_I_SORT .
CLEAR I_SORT.
I_sort-spos = 1.
I_sort-fieldname = 'VBELN'.
I_sort-up = 'X'.
I_sort-subtot = 'X'.
I_sort-group = '*'.
APPEND I_SORT TO P_I_SORT.
ENDFORM. " I_SORT
*& Form CALL_ALV
 text
--> p1 text
<-- p2 text
FORM CALL_ALV .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
 IS_LAYOUT = T_LAYOUT
 IT_FIELDCAT = I_FLDCAT[]
 I_TABNAME = 'IT_SO1'
 IT_EVENTS = T_EVENT
 IT_SORT = I_SORT
 I_TEXT = TEXT-202
TABLES
 T_OUTTAB = IT_SO1
EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 2
OTHERS = 3
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
REFRESH T_EVENT .
CLEAR T_EVENT .
ENDFORM. " CALL_ALV
*& Form FLD_CAT2
 text
 -->P_I_FLDCAT2[] text
FORM FLD_CAT2 USING P_I_FLDCAT2 TYPE SLIS_T_FIELDCAT_ALV.
CLEAR I_FLDCAT2.
I_FLDCAT2-FIELDNAME = 'VBELN'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT2-SELTEXT_M = 'DELIVERY NO.'.
I_FLDCAT2-COL_POS = 1. " POSITION OF THE COLUMN.
I_FLDCAT2-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT2-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT2-KEY = 'X'. " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
I_FLDCAT2-HOTSPOT = 'X'.
APPEND I_FLDCAT2.
CLEAR I_FLDCAT2.
I_FLDCAT2-FIELDNAME = 'POSNR'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT2-SELTEXT_M = 'DELIVERY ITEM'.
I_FLDCAT2-COL_POS = 2. " POSITION OF THE COLUMN.
I_FLDCAT2-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT2-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT2-KEY = 'X'. " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT = 'X'.
APPEND I_FLDCAT2.
CLEAR I_FLDCAT2.
I_FLDCAT2-FIELDNAME = 'MATNR'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT2-SELTEXT_M = 'MATERIAL NO.'.
I_FLDCAT2-COL_POS = 3. " POSITION OF THE COLUMN.
I_FLDCAT2-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT2-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT2-KEY = 'X'. " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT = 'X'.
APPEND I_FLDCAT2.
CLEAR I_FLDCAT2.
I_FLDCAT2-FIELDNAME = 'WERKS'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT2-SELTEXT_M = 'PLANT.'.
I_FLDCAT2-COL_POS = 4. " POSITION OF THE COLUMN.
I_FLDCAT2-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT2-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT2-KEY = 'X'. " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT = 'X'.
APPEND I_FLDCAT2.
CLEAR I_FLDCAT2.
I_FLDCAT2-FIELDNAME = 'LGORT'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT2-SELTEXT_M = 'ST. LOCATION'.
I_FLDCAT2-COL_POS = 5. " POSITION OF THE COLUMN.
I_FLDCAT2-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT2-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT2-KEY = 'X'. " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT = 'X'.
APPEND I_FLDCAT2.
CLEAR I_FLDCAT2.
I_FLDCAT2-FIELDNAME = 'CHARG'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT2-SELTEXT_M = 'BATCH NO.'.
I_FLDCAT2-COL_POS = 6. " POSITION OF THE COLUMN.
I_FLDCAT2-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT2-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT2-KEY = 'X'. " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT = 'X'.
APPEND I_FLDCAT2.
CLEAR I_FLDCAT2.
I_FLDCAT2-FIELDNAME = 'LFIMG'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT2-SELTEXT_M = 'ACT. DEL. QTY.'.
I_FLDCAT2-COL_POS = 7. " POSITION OF THE COLUMN.
I_FLDCAT2-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT2-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT2-KEY = 'X'. " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT = 'X'.
APPEND I_FLDCAT2.
CLEAR I_FLDCAT2.
I_FLDCAT2-FIELDNAME = 'VRKME'. "FIELD FOR WHICH CATALOG ID FILLED
I_FLDCAT2-SELTEXT_M = 'SALES UNIT.'.
I_FLDCAT2-COL_POS = 8. " POSITION OF THE COLUMN.
I_FLDCAT2-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
I_FLDCAT2-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.
I_FLDCAT2-KEY = 'X'. " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT = 'X'.
APPEND I_FLDCAT2.
ENDFORM. " FLD_CAT2
*& Form I_LAYOUT
 text
 -->P_I_LAYOUT text
FORM I_LAYOUT USING P_I_LAYOUT TYPE SLIS_LAYOUT_ALV .
P_I_LAYOUT-ZEBRA = 'X'.
P_I_LAYOUT-KEY_HOTSPOT = 'X'.
P_I_LAYOUT-F2CODE = 'DISP'.
ENDFORM. " I_LAYOUT
*& Form CALL_ALV1
 text
--> p1 text
<-- p2 text
FORM CALL_ALV1 .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
 IS_LAYOUT = I_LAYOUT
 IT_FIELDCAT = I_FLDCAT2[]
 I_TABNAME = 'IT_DEL_FUL'
 IT_EVENTS = T_EVENT
IT_SORT =
I_TEXT = ' '
TABLES
 T_OUTTAB = IT_DEL_FUL
EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 2
OTHERS = 3
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " CALL_ALV1
*& Form BLOCK-DISPLAY
 text
--> p1 text
<-- p2 text
FORM BLOCK-DISPLAY .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
IS_PRINT =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " BLOCK-DISPLAY
*& Form EVENT
 text
 -->P_T_EVENT text
FORM EVENT USING P_T_EVENT type slis_t_event.
x_event-form = 'TOP_OF_LIST1'.
x_event-name = slis_ev_top_of_list.
append x_event to p_t_event.
clear x_event .
ENDFORM. " EVENT
*& Form EVENT1
 text
 -->P_T_EVENT text
FORM EVENT1 USING P_T_EVENT type slis_t_event.
x_event-form = 'TOP_OF_LIST2'.
x_event-name = slis_ev_top_of_list.
append x_event to p_t_event.
ENDFORM. " EVENT1
FORM TOP_OF_LIST1.
SKIP 1.
WRITE: 10 'BLOCK LIST 1 FOR SALES ORDER DETAILS ' COLOR 4 .
skip 1.
format reset.
endform.
FORM TOP_OF_LIST2.
skip 1.
WRITE: 10 'BLOCK LIST 2 FOR DELIVERY ORDER DETAILS ' COLOR 4 .
skip 1.
format reset.
endform.
Reward point if useful.

Tooltip on pushbutton on alv report selection screen

Hi Experts,
I have a selection screen with two pushbuttons i want to provide tooltip on this button when user takes his cursor on it .. some part of my code
Selection screen:
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(20) text-t02 FOR FIELD p_info.
PARAMETERS: p_info TYPE string.
SELECTION-SCREEN: PUSHBUTTON 68(10) but1 USER-COMMAND cli1.
SELECTION-SCREEN : END OF LINE.
PARAMETERS: r_exe_im RADIOBUTTON GROUP rb1.
PARAMETERS: r_st RADIOBUTTON GROUP rb1.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN: PUSHBUTTON /1(20) exec1 USER-COMMAND cli2.
SELECTION-SCREEN: FUNCTION KEY 1.
SELECTION-SCREEN END OF BLOCK b1.
please tell me on these selection fields how to display tool tip.
Thanks and regards,
Roshan.

Hi,
After completing your executable program in SE38, activate it and goto SE51(Screen painter).
Here give the name of your program and screen number as 1000.
Click on Change.
Goto Element List Tab.
Here you will find all your elements from your program.
Select the required element and click on Properties.
Here you will find a Tooltip Text property. Click on the button 'Text' of this property.
You will be given 2 options 1) Text from Text element 2) Text from Variable
Enter as per requirement
Save and Activate.
Hope this will be useful
Regards
Bhupal

ALV Report - Selection screen information should appear in Output screen

Hi experts,
I am working on ALV Reports.
I want selection screen information to appear in ouputscreen when report executed.
Those who know the sloution pls tell me as soon as possible.
regards,
Imran

Hi Imrangs ,
Ur requirement is not clear -
if u want ur selection screen and the output screen on the same screen, i.e if u fill ur selection options with input and press the button then ur ALV will display on the same screen. For this try to use Screen painter, it will get resolved.
http://www.kodyaz.com/articles/sap-abap-tutorial-alv-grid-cl_gui_alv_grid-screen-painter.aspx
chreers
Regards
Neha

Customised Back button in ALV loses selection screen parameters

Hi,
In my ALV output, the user interacts with the output. I had to program my own back button in the pf-status so that when the user hit back they didnt return to the original alv output. (if that makes sense)
I use LEAVE TO TRANSACTION 'ZZZZ' (user_command form) but the problem is that i lose all the selection parameters that the user has entered.
I have tried everything.........set screen 0, leave screen etc..........and searched the forum but cant find the answer.
Anyone know what i need i do..........
Cheers..........

try submit ...
submit the report of ZZZZ tcode... with the selection parameters of your existing report....
e.g.
SUBMIT zbbp_sc_arch_initial_upload
VIA SELECTION-SCREEN
WITH p_r01    EQ p_r01
WITH p_r02    EQ p_r02
WITH p_mode   EQ p_mode.

Reg: Alv and selection-screen

Hi,
I created a ALV report,
I gave the user provision delete rows and dispalyed the new list without the deleted rows( one row at a time)
when i deleted few rows and when i press the back button i am getting all the rows deleted, but i want to jump directly to selection screen
please help me how to jump to selection screen after pressing the back button
i tried set screen 0     leave to screen 0 but of no use,
please help in this regard
thnx

Hi learner,
After deleting a row in ur internal tab u hav to refresh the display to remove dat row from display rite .....how r u doing it...??
Are u calling the ALV FM again... if ur doin so !! its a wrong way and der lies de problem....
check the sample code below in which if u double click on a row dat row gets deleted and the screen is refreshed.....also if u click back it goes to the selection-screen and not the previous alv display with deleted rows......
TYPE-POOLS: slis.
PARAMETERS rows TYPE i DEFAULT 20.
DATA: itab        TYPE TABLE OF mara      WITH HEADER LINE,
      ls_layout   TYPE slis_layout_alv.
START-OF-SELECTION.
SELECT * UP TO rows ROWS
FROM   mara
INTO   CORRESPONDING FIELDS OF TABLE itab.
ls_layout-colwidth_optimize = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_structure_name        = 'MARA'
      is_layout               = ls_layout
      i_callback_program      = sy-repid
      i_grid_title            = 'Double click on a row'
      i_callback_user_command = 'EVENT_HANDLER'
    TABLES
      t_outtab                = itab[].
*&      Form event_handler
FORM event_handler USING r_ucomm     TYPE sy-ucomm
                          rs_selfield TYPE slis_selfield.
CLEAR itab.
DELETE itab INDEX rs_selfield-tabindex.
MOVE 'X'   TO rs_selfield-refresh .                 " this automatically refreshes the display
ENDFORM.                    "event_handler
Cheers,
jose.

ALV Type Selection Screen

Hi,
I am having a selection screen with few parameters and also having a push button. When the user clicks on the push button, a new selection screen should open(like varaint screen) with check boxes. The user should have possibility of saving the screen.
The initial screen had been done. I want help when the user click on the push button.
Any idea of how this can be done. Any inputs will be appreciated.
Regards,
Ramesh.

Hi,
Declare the 2nd screen using ....
SELECTION-SCREEN: BEGIN OF SCREEN 2000.
declare the checkboxes ....
SELECTION-SCREEN: END OF SCREEN 2000.
At the time of variant saving both the screen values will be saved.
Regards,
Amitava

Check box in ALV selection screen

Hi to all
I like to know how to create a checkbox in the input screen of an ALV.

What do you mean by ALV check box selection screen?
ALV and selection screen check box( you are mixing two cases in your Question).
You need use the Function moduel in the user command to get the updated data.
in fieldcatalog you have to use INPUT = 'X' and EDIT = 'X' for the columns which ever you want edit.
GET_GLOBALS_FROM_SLVC_FULLSCR
follow the sample code.
REPORT ZTEST_ALV_CHECK MESSAGE-ID ZZ .
TYPE-POOLS: SLIS.
DATA: X_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
L_LAYOUT TYPE SLIS_LAYOUT_ALV,
X_EVENTS TYPE SLIS_ALV_EVENT,
IT_EVENTS TYPE SLIS_T_EVENT.
DATA: BEGIN OF ITAB OCCURS 0,
VBELN LIKE VBAK-VBELN,
POSNR LIKE VBAP-POSNR,
CHK(1),
color(4),
END OF ITAB.
SELECT VBELN
POSNR
FROM VBAP
UP TO 20 ROWS
INTO TABLE ITAB.
X_FIELDCAT-FIELDNAME = 'CHK'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 1.
X_FIELDCAT-INPUT = 'X'.
X_FIELDCAT-EDIT = 'X'.
X_FIELDCAT-CHECKBOX = 'X'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'VBELN'.
X_FIELDCAT-SELTEXT_L = 'VBELN'.
X_FIELDCAT-HOTSPOT = 'X'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 2.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
X_FIELDCAT-FIELDNAME = 'POSNR'.
X_FIELDCAT-SELTEXT_L = 'POSNR'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 3.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_LAYOUT-info_fieldname = 'COLOR'.
*L_LAYOUT-ZEBRA = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
IS_LAYOUT = L_LAYOUT
I_CALLBACK_PF_STATUS_SET = 'STATUS'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IT_FIELDCAT = IT_FIELDCAT
TABLES
T_OUTTAB = ITAB
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
IF SY-SUBRC 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*& Form STATUS
text
-->P_EXTAB text
FORM STATUS USING P_EXTAB TYPE SLIS_T_EXTAB.
Pf status
SET PF-STATUS 'STATUS'.
ENDFORM. " STATUS
*& Form USER_COMMAND
text
-->R_UCOMM text
-->RS_SELFIELD text
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
DATA: GD_REPID LIKE SY-REPID, "Exists
REF_GRID TYPE REF TO CL_GUI_ALV_GRID.
IF REF_GRID IS INITIAL.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
IMPORTING
E_GRID = REF_GRID.
ENDIF.
IF NOT REF_GRID IS INITIAL.
CALL METHOD REF_GRID->CHECK_CHANGED_DATA .
ENDIF.
loop at itab where chk = 'X'.
itab-color = 'C300'.
modify itab index sy-tabix transporting color.
endloop.
RS_SELFIELD-refresh = 'X'.
break-point.
ENDFORM. "USER_COMMAND
Regards
Vijay Babu Dudla

ALV using OOABAP fieldnames changing in the selection screen

Hi
I am new to OOABAP.Here is the requirement.
I need to create a ALV report, in the selection screen field label can change and it needs to display in ALV report. selection screen contains 4 checkboxes. based on selection hide the columns in ALV display.
Can anyone help me in this?
Thanks
sapien

u build field cat "at selection-screen event.
LET S_A, S_B, S_C, S_D BE THE SELECTION SCREEN FIELD.
AT SELECTION-SCREEN.
PERFORM BUILD_FIELDCAT USING S_A S_B S_C S_D.
form build_fieldcat using s_a type ... s_b type .... so on
if s_a = 'X'.
FIELDCAT-FIELDNAME = '......'.
append fieldcat.
if s_b = 'X'.
FIELDCAT-FIELDNAME = '......'.
append fieldcat.
IF S_C = 'X'.
FIELDCAT-FIELDNAME = '......'.
append fieldcat.
IF S_D = 'X'.
FIELDCAT-FIELDNAME = '......'.
append fieldcat.

ALV Layout on selection screen?

Is it possible to offer the ALV Layouts on the selection screen? And how can i pass such a variant to the reuse-FM?

Hi,
Yes u can do it.Check this sample code
Variant for ALV display
SELECTION-SCREEN BEGIN OF BLOCK 0 WITH FRAME TITLE text-000.
PARAMETERS: p_varnt LIKE disvariant-variant.
DATA: w_save(1) TYPE c,
 w_default(1) TYPE c,
 i_variant LIKE disvariant,
 i_variant1 LIKE disvariant.
INITIALIZATION.
i_variant-report = w_repid.
i_variant1 = i_variant.
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
 EXPORTING
 i_save = w_save
 CHANGING
 cs_variant = i_variant1
 EXCEPTIONS
 not_found = 2.
IF sy-subrc = 0.
 p_varnt = i_variant1-variant.
ENDIF.
Process on value request (list of possible variants)
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_varnt.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
 EXPORTING
 is_variant = i_variant
 i_save = w_save
 it_default_fieldcat =
 IMPORTING
 e_exit = w_exit
 es_variant = i_variant1
 EXCEPTIONS
 not_found = 2.
IF sy-subrc = 2.
 MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
 IF w_exit = space.
 p_varnt = i_variant1-variant.
 ENDIF.
ENDIF.
AT SELECTION-SCREEN.
 IF NOT p_varnt IS INITIAL.
 MOVE i_variant TO i_variant1.
 MOVE p_varnt TO i_variant1-variant.
 CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
 EXPORTING
 i_save = w_save
 CHANGING
 cs_variant = i_variant1.
 i_variant = i_variant1.
ELSE.
 PERFORM variant_init.
ENDIF.
START_OF_SELECTION.
Call ABAP/4 List Viewer
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_INTERFACE_CHECK = ' '
 i_callback_program = w_repid
 I_CALLBACK_PF_STATUS_SET = ' '
 I_CALLBACK_USER_COMMAND = ' '
 I_CALLBACK_TOP_OF_PAGE = ' '
 I_CALLBACK_HTML_TOP_OF_PAGE = ' '
 I_CALLBACK_HTML_END_OF_LIST = ' '
 i_structure_name = 'SFLIGHT'
 i_background_id = 'ALV_BACKGROUND'
 I_GRID_TITLE =
 I_GRID_SETTINGS =
 is_layout = i_layout
 it_fieldcat = i_fieldcat[]
 IT_EXCLUDING =
 it_special_groups = i_sp_group[]
 it_sort = i_sort[]
 IT_FILTER =
 IS_SEL_HIDE =
 I_DEFAULT = 'X'
 i_save = w_save
 is_variant = i_variant
 it_events = i_events[]
 IT_EVENT_EXIT =
 is_print = i_print
 IS_REPREP_ID =
 I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
 IMPORTING
 E_EXIT_CAUSED_BY_CALLER =
 ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab = i_sflight
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Hope u understood.
Thanks&Regards,
Ruthra.

ALV grid list report when selected from selection screen

Hi folks,
 I need to get ALV grid display in my list report when selected the interval values from the selection screen. If I change the values in list of ALV grid it needs to be updated when I press UPDATE pushbutton. The output of list should be in ALV grid display.I need sorting ,flitering,totaling functionality in the list output.
For example if I selected BUKRS = 100 and 200 in the selection screen ,I need to display the ALV grid list in below the selection screen as ALV grid display...
Its urgent as I am new to ALV grid functionality...
Thanks in advance..

hi raja,
check with the folllowing code.
REPORT zca0m_zca0fcstftop NO STANDARD PAGE HEADING
 MESSAGE-ID zcsv_usrtbl_maintain.
Type pools *
TYPE-POOLS : slis. " Used for ALV display
Tables
TABLES: zca0fcstftop,
 dd04t, "R/3 DD: Data element texts
 tactt. "Activities that can be protected
internal tables
DATA: BEGIN OF wa_zca0fcstftop .
 INCLUDE STRUCTURE zca0fcstftop.
DATA: END OF wa_zca0fcstftop.
DATA: t_zca0fcstftop LIKE STANDARD TABLE OF wa_zca0fcstftop.
DATA: BEGIN OF i_fcode OCCURS 0,
 fcode LIKE sy-ucomm,
 END OF i_fcode.
*Record for variant selection
DATA : BEGIN OF ws_variant,
 selected TYPE c,
 variant LIKE ltdx-variant, "Variant name
 text LIKE ltdxt-text, "Variant description
 END OF ws_variant.
*Table for variant selection
data : itab_variant LIKE STANDARD TABLE OF ws_variant WITH HEADER LINE.
Variant selection pop-up global variables
DECLARATION OF TABLECONTROL 'VARIANT_CNTL' ITSELF
CONTROLS: variant_cntl TYPE TABLEVIEW USING SCREEN 0200.
LINES OF TABLECONTROL 'VARIANT_CNTL'
DATA: g_variant_cntl_lines LIKE sy-loopc.
DATA:grid1 TYPE REF TO cl_gui_alv_grid ,
 g_custom_container TYPE REF TO cl_gui_custom_container.
Work fields
DATA: table_name LIKE dd02l-tabname, "To store table name
 field_name LIKE dd03l-fieldname, "To Store Field Name
 act_auth LIKE tactz-actvt, "To pass Activity ID
 tab_maint LIKE dd02l-tabname, "To pass Table Name to be Maintd.
 wg_confirm_ind, "To trap User responses
 flag, "To trap changes made to an entry
 f_copy, "To Identify 'COPY' Command Use
 f_select, "To decide between Select-options
 " and Internal Table
 l_transaction_code LIKE tstc-tcode,
 v_langu LIKE sy-langu,
 v_repid LIKE sy-repid,
 s_variant TYPE disvariant.
DATA: ok_code LIKE sy-ucomm.
DATA:selected_rows TYPE lvc_t_row ,
 sel_rows TYPE lvc_t_row WITH HEADER LINE.
DATA:t_lines TYPE i.
Constants *
CONSTANTS :
 c_x TYPE c VALUE 'X', " Constant 'X'.
 c_f TYPE c VALUE 'F'. " Constant 'F'.
Parameters and Selection Options
*Selection Screen for table maintenance
*Selection option for Plant
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-b01.
PARAMETERS: p_werks LIKE zca0fcstftop-werks OBLIGATORY.
SELECT-OPTIONS: s_prdfml FOR zca0fcstftop-product_family,
 s_bmach FOR zca0fcstftop-base_machine,
 s_factop FOR zca0fcstftop-factory_top,
 s_optval FOR zca0fcstftop-option_value,
 s_week FOR zca0fcstftop-week.
SELECTION-SCREEN END OF BLOCK block1.
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-b02.
PARAMETERS : p_varant LIKE ltdx-variant. " ALV variant
SELECTION-SCREEN END OF BLOCK block2.
At selection screen *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_varant.
PERFORM alv_variant_f4 CHANGING p_varant.
AT SELECTION-SCREEN ON p_werks .
Validating Plant on the selection screen
PERFORM validate_plant.
Initialization
INITIALIZATION.
Check Authorization for the Transaction
Authorization Check For T Code
SELECT tcode
 INTO l_transaction_code
 FROM tstc UP TO 1 ROWS
 WHERE pgmna = sy-repid.
ENDSELECT.
AUTHORITY-CHECK OBJECT 'S_TCODE'
 ID 'TCD' FIELD l_transaction_code.
IF sy-subrc NE 0.
 MESSAGE e001 WITH l_transaction_code.
ENDIF.
v_langu = sy-langu. " language
v_repid = sy-repid . " abap Program name
Start Of Selection
START-OF-SELECTION.
CALL SCREEN 0050.
*& Form validate_plant *
 Validating Plant on the selection screen *
FORM validate_plant .
DATA : l_werks LIKE t001w-werks. " Plant
IF p_werks IS NOT INITIAL.
 SELECT SINGLE werks
 FROM t001w
 INTO l_werks
 WHERE werks EQ p_werks.
 IF sy-subrc NE 0.
 MESSAGE e100(ra) WITH text-001 .
 ENDIF.
ENDIF.
AUTHORITY-CHECK OBJECT 'Z_PP_PLANT'
 ID 'ACTVT' FIELD '03'
 ID 'WERKS' FIELD p_werks
 ID 'TCD' FIELD l_transaction_code.
IF sy-subrc NE 0.
 MESSAGE e000(oo) WITH 'No authorization for plant:'(e80) p_werks.
ENDIF.
ENDFORM. " validate_plant
*& Form get_data *
 Get data *
FORM get_data .
SELECT * FROM zca0fcstftop
 INTO TABLE t_zca0fcstftop
 WHERE werks = p_werks
 AND product_family IN s_prdfml
 AND base_machine IN s_bmach
 AND factory_top IN s_factop
 AND option_value IN s_optval
 AND week IN s_week.
ENDFORM. " get_data
*& Form fill_fcode
FORM fill_fcode USING value(p_0029).
i_fcode-fcode = p_0029.
APPEND i_fcode.
CLEAR i_fcode.
ENDFORM. " fill_fcode
*& Module STATUS_0100 OUTPUT
MODULE status_0100 OUTPUT.
SET PF-STATUS 'UPDATE'.
CLEAR flag.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module MODIFY_0100 OUTPUT
MODULE modify_0100 OUTPUT.
IF sy-ucomm = 'CHNG' OR
 sy-ucomm = 'PICK'.
 LOOP AT SCREEN.
 CHECK screen-group1 = 'CHG'.
 screen-required = '0'.
 screen-output = '1'.
 screen-input = '0'.
 MODIFY SCREEN.
 ENDLOOP.
ENDIF.
Check if you are in create mode & if yes then set the screen elements
as mandatory
IF ok_code = 'CREA'.
 LOOP AT SCREEN.
 CHECK screen-group1 = 'CHG'.
 screen-required = '1'.
 screen-output = '1'.
 screen-input = '1'.
 MODIFY SCREEN.
 ENDLOOP.
ENDIF.
ENDMODULE. " MODIFY_0100 OUTPUT
*& Module Check_Exit INPUT
 text
MODULE check_exit INPUT.
IF ( sy-ucomm = 'BACK' OR sy-ucomm = 'CANC' OR sy-ucomm = 'EXIT' ) AND
 ( flag = 'Y' ).
 CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
 EXPORTING
 defaultoption = 'Y'
 textline1 = text-008
 textline2 = text-009
 titel = text-004
 cancel_display = ' '
 IMPORTING
 answer = wg_confirm_ind.
 CASE wg_confirm_ind.
 WHEN 'J'. "Yes
 sy-ucomm = 'SAVE'.
 CLEAR flag.
 WHEN 'N'. "No
 sy-ucomm = 'BACK'.
 CLEAR flag.
 ENDCASE.
ENDIF.
ENDMODULE. " Check_Exit INPUT
*& Module Exit_0100 INPUT
 text
MODULE exit_0100 INPUT.
SET SCREEN 0. LEAVE SCREEN.
ENDMODULE. " Exit_0100 INPUT
*& Module USER_COMMAND_0100 INPUT
 text
MODULE user_command_0100 INPUT.
CASE sy-ucomm.
 WHEN 'SAVE'. "Save
 Check to see if the user has the appropriate authorization
 IF p_werks NE zca0fcstftop-werks.
 could not update - not in selection
 MESSAGE e000(oo) WITH 'Entry not within selection'.
 SET SCREEN 0. LEAVE SCREEN.
 PERFORM get_data.
 ENDIF.
 IF f_copy = 'X'.
 INSERT zca0fcstftop.
 IF sy-subrc = 0.
 MESSAGE s004.
 PERFORM initialize.
 SET SCREEN 0. LEAVE SCREEN.
 PERFORM get_data.
 ELSE.
 MESSAGE w005.
 ENDIF.
 ELSE.
 MODIFY zca0fcstftop.
 IF sy-subrc = 0.
 MESSAGE s004.
 PERFORM initialize.
 SET SCREEN 0. LEAVE SCREEN.
 PERFORM get_data.
 ELSE.
 MESSAGE w005.
 ENDIF.
 ENDIF.
 PERFORM get_data.
 WHEN 'BACK'. "Back
 SET SCREEN 0. LEAVE SCREEN.
 WHEN 'CANC'. "Cancel
 SET SCREEN 0. LEAVE SCREEN.
 WHEN OTHERS.
ENDCASE.
COMMIT WORK.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form Initialize
FORM initialize.
CLEAR : table_name,
 field_name,
 wg_confirm_ind,
 f_copy,
 flag,
 t_zca0fcstftop,
 zca0fcstftop,
 wa_zca0fcstftop,
 i_fcode.
REFRESH: t_zca0fcstftop.
ENDFORM. " Initialize
*& Form alv_variant_f4
 text
 <--P_VARIANT text
FORM alv_variant_f4 CHANGING variant.
DATA: rs_variant LIKE disvariant.
DATA nof4 TYPE c.
CLEAR nof4.
LOOP AT SCREEN.
 IF screen-name = 'VARIANT'.
 IF screen-input = 0.
 nof4 = 'X'.
 ENDIF.
 ENDIF.
ENDLOOP.
rs_variant-report = sy-repid.
rs_variant-username = sy-uname.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
 EXPORTING
 is_variant = rs_variant
 i_save = 'A'
 IMPORTING
 es_variant = rs_variant
 EXCEPTIONS
 OTHERS = 1.
IF sy-subrc = 0 AND nof4 EQ space.
 variant = rs_variant-variant.
ENDIF.
ENDFORM. " ALV_VARIANT_F4
*& Module STATUS_0050 OUTPUT
 text
MODULE status_0050 OUTPUT.
In this module Initialize the container and put the grid in it
DATA:grid_layout TYPE lvc_s_layo,
 fieldcat TYPE lvc_t_fcat,
 wa_fieldcat LIKE LINE OF fieldcat.
PERFORM set_auth.
SET PF-STATUS 'UPD_0050' EXCLUDING i_fcode.
SET TITLEBAR 'UPD_0050'.
IF g_custom_container IS INITIAL .
 CREATE OBJECT g_custom_container
 EXPORTING
 container_name = 'FTDATA'.
 CREATE OBJECT grid1
 EXPORTING
 i_parent = g_custom_container.
ELSE.
 CALL METHOD grid1->free.
 CALL METHOD g_custom_container->free.
 CREATE OBJECT g_custom_container
 EXPORTING
 container_name = 'FTDATA'.
 CREATE OBJECT grid1
 EXPORTING
 i_parent = g_custom_container.
ENDIF.
Every time refresh The variables
PERFORM initialize.
PERFORM get_data.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
 EXPORTING
 i_structure_name = 'ZCA0FCSTFTOP'
 CHANGING
 ct_fieldcat = fieldcat.
grid_layout-grid_title = text-t01.
grid_layout-sel_mode = 'A'.
grid_layout-stylefname = 'CT'.
s_variant-report = sy-repid.
s_variant-username = sy-uname.
s_variant-variant = p_varant.
CALL METHOD grid1->set_table_for_first_display
 EXPORTING
 i_structure_name = 'ZCA0FCSTFTOP'
 is_layout = grid_layout
 is_variant = s_variant
 i_save = 'A'
 CHANGING
 it_outtab = t_zca0fcstftop
 it_fieldcatalog = fieldcat.
Create Object to receive events and link them to handler methods.
When the ALV Control raises the event for the specified instance
the corresponding method is automatically called.
CREATE OBJECT event_receiver.
SET HANDLER event_receiver->handle_button_click FOR grid1.
ENDMODULE. " STATUS_0050 OUTPUT
*& Module USER_COMMAND_0050 INPUT
MODULE user_command_0050 INPUT.
CALL METHOD grid1->get_selected_rows
 IMPORTING
 et_index_rows = selected_rows.
DESCRIBE TABLE selected_rows LINES t_lines.
IF t_lines > 1 .
 MESSAGE e048(zcsv_sfdr).
ENDIF.
Clear Header
CLEAR wa_zca0fcstftop.
sel_rows[] = selected_rows .
READ TABLE sel_rows INDEX 1.
READ TABLE t_zca0fcstftop INTO wa_zca0fcstftop INDEX sel_rows-index.
CASE ok_code.
 WHEN 'EXIT'.
 PERFORM exit_program.
 WHEN 'CREA'.
 CLEAR zca0fcstftop.
 ok_code = sy-ucomm.
 zca0fcstftop-werks = p_werks.
 CALL SCREEN 100.
 WHEN 'COPY'.
 MOVE wa_zca0fcstftop TO zca0fcstftop .
 CLEAR wa_zca0fcstftop.
 f_copy = 'X'.
 CALL SCREEN 100.
 WHEN 'CHNG'.
 CHECK NOT wa_zca0fcstftop IS INITIAL.
 MOVE wa_zca0fcstftop TO zca0fcstftop .
 CLEAR wa_zca0fcstftop.
 ok_code = sy-ucomm.
 CALL SCREEN 100.
 WHEN 'DELE'.
 CHECK NOT wa_zca0fcstftop IS INITIAL.
 CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
 EXPORTING
 defaultoption = 'N'
 textline1 = text-005
 textline2 = text-006
 titel = text-007
 cancel_display = ' '
 IMPORTING
 answer = wg_confirm_ind.
 IF wg_confirm_ind EQ 'J'.
 DELETE zca0fcstftop FROM wa_zca0fcstftop .
 IF sy-subrc EQ 0.
 MESSAGE s004.
 ELSE.
 MESSAGE e005.
 ENDIF.
 ELSEIF wg_confirm_ind EQ 'N'.
 ENDIF.
ENDCASE.
CLEAR ok_code.
ENDMODULE. " USER_COMMAND_0050 INPUT
*& Form exit_program
FORM exit_program .
CALL METHOD g_custom_container->free.
CALL METHOD cl_gui_cfw=>flush.
SET SCREEN 0.
LEAVE SCREEN.
ENDFORM. " exit_program
*& Form set_auth
FORM set_auth.
REFRESH: i_fcode.
Check authorization for change
MOVE '02' TO act_auth. "02 --> Change
MOVE 'ZCA0FCSTFTOP' TO tab_maint.
AUTHORITY-CHECK OBJECT 'ZZ:TABLMNP'
 ID 'ACTVT' FIELD act_auth
 ID 'TABLE' FIELD tab_maint.
IF sy-subrc NE 0.
 PERFORM fill_fcode USING 'CHNG'.
ENDIF.
Check for authorization for create
MOVE '01' TO act_auth. "01 --> Create
MOVE 'ZCA0FCSTFTOP' TO tab_maint.
AUTHORITY-CHECK OBJECT 'ZZ:TABLMNP'
 ID 'ACTVT' FIELD act_auth
 ID 'TABLE' FIELD tab_maint.
IF sy-subrc NE 0.
 PERFORM fill_fcode USING 'CREA'.
 PERFORM fill_fcode USING 'COPY'.
ENDIF.
Check for authorization for delete
MOVE '06' TO act_auth. "06 --> Delete
MOVE 'ZCA0FCSTFTOP' TO tab_maint.
AUTHORITY-CHECK OBJECT 'ZZ:TABLMNP'
 ID 'ACTVT' FIELD act_auth
 ID 'TABLE' FIELD tab_maint.
IF sy-subrc NE 0.
 PERFORM fill_fcode USING 'DELE'.
ENDIF.
ENDFORM. " set_auth
*& Module check_change INPUT
MODULE check_change INPUT.
flag = 'Y'.
ENDMODULE. " check_change INPUT
regards,
vikas.
plz reward if helpful

Display alv grids in selection screen based on the user event

Hi All,
I am workign on displaying ALV in same selection screen.I am able to display the ALV in selection screen.
But i have 2 buttons in my selection screen 'Create' and 'change'.
When i click on create i need with some type of data and when i click on 'change' my alv grid another type of data.Ex: if i click on crate mara data should be dispalyed when i click on change makt table data should be dispalyed and also i have user defined buttons are in my grids.
So i have used 2 containers to dispaly to different data.I am able to display the perfectly but the problem is first time when i click on create the grid is displaying when i click on change button the create alv grid is displaying down and change data is dispalying up.
I need only one alv grid at a time.Can anybody please let me know how can i do this.
Thanks,
Taragini

Hello,
Also I would suggest if it is relevant data maintain in one interntal table and show/hide based on condition
through fieldcatalog (NO_OUT) parameter.
Thanks

Urgent : selection screen

Hi Experts ,
   i am passing sub screens dynamically into the selection screen . IN output i am getting vertical scroll bar in subscreen. my requirement is to avoid scroll bar to that perticular subscreen.
pls send the code how to avoid that scroll bar , here i am sending the coed below ( for 1300 sub screen i am getting scroll bar)
pls do needfull .
Thanks,
Nagendra.
tables
TABLES:
sscrfields,
draw,          "Document Info Records
drat,          "Texts for Document Info Records
cabn,          "Characteristic
cawn,          "characteristic values
cawnt,         "characteristic value text
ausp,          "Characteristic values
tdwa,          "Document Types
lfa1,          "Vendors
ekko,          "Purchasing Documents Header
ekpo,          "Purchasing Document items
t023t,         "Material Group Descriptions
klah,          "Classes
cabnt,         "Characteristic descriptions
lfb1,          "Vendor master (company Code)
t059t,         "texts for minority indicators
tdws,          "Document status
tdwst,         "Document Status Text
sos04,         "SAPoffice: screen fields for function group SO04
t006,          "Units of Measurement
tcurx,         "Decimal Places in Currencies
*+MD1K960995
ekbe.
Parameters
Program Parameters
SELECTION-SCREEN BEGIN OF SCREEN 1100 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK buyingguide
                          WITH FRAME TITLE text-104.
Company Code
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-300 FOR FIELD s_bukrs.
SELECT-OPTIONS: s_bukrs FOR ekko-bukrs MEMORY ID buk.
SELECTION-SCREEN END   OF LINE.
Purchasing Document Category
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-301 FOR FIELD s_bstyp.
SELECT-OPTIONS: s_bstyp FOR ekko-bstyp DEFAULT 'K'.
SELECTION-SCREEN END   OF LINE.
Purchasing Document type
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-302 FOR FIELD s_bsart.
SELECT-OPTIONS: s_bsart FOR ekko-bsart MEMORY ID bsa.
SELECTION-SCREEN END   OF LINE.
Purchasing Document Creation Date
SELECTION-SCREEN BEGIN OF LINE. "MD1K964692
SELECTION-SCREEN COMMENT 1(28) text-303 FOR FIELD s_aedat. "MD1K964692
SELECT-OPTIONS: s_aedat FOR ekko-aedat.   "MD1K964692
SELECTION-SCREEN END   OF LINE.           "MD1K964692
Purchasing Document Creator
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-304 FOR FIELD s_ernam.
SELECT-OPTIONS: s_ernam FOR ekko-ernam.
SELECTION-SCREEN END   OF LINE.
Purchasing Document Vendor Account Number
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-305 FOR FIELD s_lifnr.
SELECT-OPTIONS: s_lifnr FOR ekko-lifnr MEMORY ID lif.
SELECTION-SCREEN END   OF LINE.
Purchasing Organization
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-306 FOR FIELD s_ekorg.
SELECT-OPTIONS: s_ekorg FOR ekko-ekorg MEMORY ID eko.
SELECTION-SCREEN END   OF LINE.
*+G1
Purchasing Group
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-340 FOR FIELD s_ekorg.
SELECT-OPTIONS: s_ekgrp FOR ekko-ekgrp MEMORY ID ekg.
SELECTION-SCREEN END   OF LINE.
Purchasing Document date
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-341 FOR FIELD s_ekorg.
SELECT-OPTIONS: s_bedat FOR ekko-bedat MEMORY ID bed.
SELECTION-SCREEN END   OF LINE.
Purchasing Document item plant
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-307 FOR FIELD s_werks.
SELECT-OPTIONS: s_werks FOR ekpo-werks MEMORY ID wrk.
SELECTION-SCREEN END   OF LINE.
*+MD1K971124
*+MD1K971479
Number of Purchasing Info Record
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-342 FOR FIELD s_infnr.
SELECT-OPTIONS: s_infnr FOR ekpo-infnr MEMORY ID inf.
SELECTION-SCREEN END   OF LINE.
Purchasing Document item material group
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-308 FOR FIELD s_matkl.
SELECT-OPTIONS: s_matkl FOR ekpo-matkl MEMORY ID mkl.
SELECTION-SCREEN END   OF LINE.
Purchasing Document item category
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-309 FOR FIELD s_pstyp.
SELECT-OPTIONS: s_pstyp FOR ekpo-pstyp DEFAULT 8 TO 9.
SELECTION-SCREEN END   OF LINE.
Purchasing Document item material number
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-310 FOR FIELD s_matnr.
SELECT-OPTIONS: s_matnr FOR ekpo-matnr MEMORY ID mat.
SELECTION-SCREEN END   OF LINE.
Purchasing Document item deletion indicator
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-311 FOR FIELD s_loekz.
SELECT-OPTIONS: s_loekz FOR ekpo-loekz DEFAULT space.
SELECTION-SCREEN END   OF LINE.
Purchasing Document
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-317 FOR FIELD s_ebeln.
SELECT-OPTIONS: s_ebeln FOR ekko-ebeln MEMORY ID vrt.
SELECTION-SCREEN END   OF LINE.
Purchasing Document item
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-312 FOR FIELD s_ebelp.
SELECT-OPTIONS: s_ebelp FOR ekpo-ebelp MEMORY ID bsp.
SELECTION-SCREEN END   OF LINE.
Purchasing Document item purchase req number
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-313 FOR FIELD s_banfn.
SELECT-OPTIONS: s_banfn FOR ekpo-banfn MEMORY ID ban.
SELECTION-SCREEN END   OF LINE.
Purchasing Document item reference purchase document
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-318 FOR FIELD s_konnr.
SELECT-OPTIONS: s_konnr FOR ekpo-konnr.
SELECTION-SCREEN END   OF LINE.
Purchasing Document item reference purchase document item
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-319 FOR FIELD s_ktpnr.
SELECT-OPTIONS: s_ktpnr FOR ekpo-ktpnr.
SELECTION-SCREEN END   OF LINE.
Purchasing Document validity from date
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-314 FOR FIELD s_kdatb.
SELECT-OPTIONS: s_kdatb FOR ekko-kdatb.
SELECTION-SCREEN END   OF LINE.
Purchasing Document validity to date
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-315 FOR FIELD s_kdate.
SELECT-OPTIONS: s_kdate FOR ekko-kdate DEFAULT sy-datum
                                            TO '99991231'.
SELECTION-SCREEN END   OF LINE.
Vendor Rating
SELECTION-SCREEN BEGIN OF LINE.
*SELECTION-SCREEN COMMENT 1(28) text-316 FOR FIELD s_zmrate.
*SELECT-OPTIONS: s_zmrate FOR ekko-zz_moc_rating.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN END OF BLOCK buyingguide.
SELECTION-SCREEN END OF SCREEN 1100.
SELECTION-SCREEN BEGIN OF SCREEN 1200 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK document
                          WITH FRAME TITLE text-024.
Document number
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) c_dokar FOR FIELD s_dokar.
SELECT-OPTIONS: s_dokar FOR draw-dokar DEFAULT 'CN1'.
SELECTION-SCREEN END   OF LINE.
Document type
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) c_doknr FOR FIELD s_doknr.
SELECT-OPTIONS: s_doknr FOR draw-doknr.
SELECTION-SCREEN END   OF LINE.
Document part
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) c_doktl FOR FIELD s_doktl.
SELECT-OPTIONS: s_doktl FOR draw-doktl.
SELECTION-SCREEN END   OF LINE.
Document version
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) c_dokvr FOR FIELD s_dokvr.
SELECT-OPTIONS: s_dokvr FOR draw-dokvr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN SKIP 1.
Document Status
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) c_dokst FOR FIELD s_dokst.
SELECT-OPTIONS: s_dokst FOR draw-dokst." DEFAULT 'AC'.
SELECTION-SCREEN END   OF LINE.
Document Creation Date
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) c_adat   FOR FIELD s_adat.
SELECT-OPTIONS: s_adat FOR draw-adatum.
SELECTION-SCREEN END   OF LINE.
Document Creator
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) c_dwnam FOR FIELD s_dwnam.
SELECT-OPTIONS: s_dwnam FOR draw-dwnam.
SELECTION-SCREEN END   OF LINE.
Document text
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) c_dktxt FOR FIELD s_dktxt.
SELECT-OPTIONS: s_dktxt FOR drat-dktxt.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN SKIP 1.
Parent Document number
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) c_prear FOR FIELD s_prear.
SELECT-OPTIONS: s_prear FOR draw-prear.
SELECTION-SCREEN END   OF LINE.
Parent Document type
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) c_prenr FOR FIELD s_prenr.
SELECT-OPTIONS: s_prenr FOR draw-prenr.
SELECTION-SCREEN END   OF LINE.
Parent Document part
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) c_pretl FOR FIELD s_pretl.
SELECT-OPTIONS: s_pretl FOR draw-pretl.
SELECTION-SCREEN END   OF LINE.
Parent Document version
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) c_prevr FOR FIELD s_prevr.
SELECT-OPTIONS: s_prevr FOR draw-prevr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN END OF BLOCK document.
SELECTION-SCREEN END OF SCREEN 1200.
SELECTION-SCREEN BEGIN OF SCREEN 1300 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK charact
                          WITH FRAME TITLE text-025.
Class
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) c_class FOR FIELD p_class.
PARAMETERS: p_class LIKE klah-class OBLIGATORY
                                    MATCHCODE OBJECT clas
                                    DEFAULT 'CONTRACTS'.
SELECTION-SCREEN END   OF LINE.
Class Type
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) c_klart FOR FIELD p_klart.
PARAMETERS: p_klart LIKE klah-klart OBLIGATORY DEFAULT '017'.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN COMMENT /1(67) text-203.
SELECTION-SCREEN COMMENT /5(16) text-204.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_01atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_01atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_01atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_02atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_02atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_02atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_03atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_03atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_03atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_05atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_05atm LIKE cabn-atnam OBLIGATORY
                               VISIBLE LENGTH 26
                               MODIF ID chr.
SELECT-OPTIONS: s_05atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_04atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_04atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_04atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_06atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_06atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_06atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_07atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_07atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_07atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_08atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_08atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_08atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_09atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_09atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_09atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_10atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_10atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_10atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_11atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_11atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_11atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_12atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_12atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_12atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_13atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_13atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_13atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_14atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_14atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_14atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_15atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_15atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_15atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_16atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_16atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_16atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_17atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_17atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_17atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_18atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_18atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_18atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_19atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_19atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_19atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_20atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_20atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_20atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_21atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_21atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_21atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_22atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_22atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_22atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_23atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_23atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_23atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_24atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_24atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_24atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pc_25atm AS CHECKBOX
                              MODIF ID chr.
PARAMETERS: pt_25atm LIKE cabn-atnam OBLIGATORY
                              VISIBLE LENGTH 26
                              MODIF ID chr.
SELECT-OPTIONS: s_25atm FOR ausp-atwrt
                              MODIF ID chr.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN END OF BLOCK charact.
SELECTION-SCREEN END OF SCREEN 1300.
Main Selection screen that will incorporate the subscreens
SELECTION-SCREEN BEGIN OF TABBED BLOCK tabs FOR 24 LINES.
SELECTION-SCREEN TAB (20) text-103 USER-COMMAND ucomm1
                                   DEFAULT SCREEN 1100.
SELECTION-SCREEN TAB (20) text-100 USER-COMMAND ucomm2
                                   DEFAULT SCREEN 1200.
SELECTION-SCREEN TAB (30) text-101 USER-COMMAND ucomm3
                                   DEFAULT SCREEN 1300.
SELECTION-SCREEN END OF BLOCK tabs.
SELECTION-SCREEN BEGIN OF BLOCK misc WITH FRAME TITLE text-061.
    ALV Variant
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) text-066 FOR FIELD p_alvvar.
PARAMETERS: p_alvvar LIKE disvariant-variant. "alv variant
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN END   OF BLOCK misc.

hi nagendra,
i got ur problem. i put the subscreen in ur main screen.
i was gone through from ur program. there is number of parameters and select-option. and ur subscreen size is small according to your taken fields.
there is two option
1 ) . make your subscreen size full in main screen .
2) . Or you can put all fields in main screen . it does not matter for codding.
rewards if helpfull.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR not input value in input field

Dear All,
I make search help for field ARBPL in selection screen are not excepted selected value.
Code is
SELECT-OPTIONS: p_arbpl FOR zdmde-arbpl MODIF ID two.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_arbpl-low.
REFRESH sh_arbpl.
SELECT * from crhd into CORRESPONDING FIELDS OF TABLE sh_arbpl.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
   EXPORTING
     RETFIELD               = 'P_ARBPL'
     DYNPROFIELD            = 'P_ARBPL'
     VALUE_ORG              = 'S'
   TABLES
     VALUE_TAB              = sh_arbpl.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_arbpl-high.
REFRESH sh_arbpl.
SELECT * from crhd into CORRESPONDING FIELDS OF TABLE sh_arbpl.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
   EXPORTING
     RETFIELD               = 'P_ARBPL'
     DYNPROFIELD            = 'P_ARBPL'
     VALUE_ORG              = 'S'
   TABLES
     VALUE_TAB              = sh_arbpl.
Please tell how to input selected field from search help into input field in both low and high.
Would appreciate your reply .
Regards,
Pooja

Hi Pooja,
For getting the response back from the user selection , please get the return code too. Before that instead of directly using the table crhd structure.. please do create a type declaration of that table , make sure that the field that you wanted to get using search help be specified at last of declaration type like this
TYPES: BEGIN OF ty,
   OBJTY TYPE CR_OBJTY,
        ARBPL TYPE ARBPL,
END OF ty.
this is because the return parameter t_rtn will holds the last value of type which been selected by user.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD               = 'P_ARBPL'
      DYNPROFIELD            = 'P_ARBPL'
      VALUE_ORG              = 'S'
    TABLES
      VALUE_TAB              = sh_arbpl
      return_tab             = t_rtn.
LOOP AT t_rtn INTO x_rtn .
   ENDLOOP.
try executing this code.
TABLES crhd.
TYPES: BEGIN OF ty,
   OBJTY TYPE CR_OBJTY,
        ARBPL TYPE ARBPL,
   END OF ty.
DATA: sh_arbpl TYPE TABLE OF ty.
       DATA: dynpfields TYPE TABLE OF DYNPREAD,
x_dynpfields TYPE dynpread,
t_rtn TYPE STANDARD TABLE OF DDSHRETVAL ,
x_rtn TYPE DDSHRETVAL.
SELECT-OPTIONS: p_arbpl FOR crhd-ARBPL MODIF ID two.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_arbpl-low.
REFRESH sh_arbpl.
SELECT * from crhd into CORRESPONDING FIELDS OF TABLE sh_arbpl WHERE werks eq '1000'.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD               = 'P_ARBPL'
      DYNPROFIELD            = 'P_ARBPL'
      VALUE_ORG              = 'S'
    TABLES
      VALUE_TAB              = sh_arbpl
      return_tab             = t_rtn.
LOOP AT t_rtn INTO x_rtn .
   ENDLOOP.
x_dynpfields-fieldname = 'P_ARBPL-LOW' .
   x_dynpfields-fieldvalue = x_rtn-fieldval.
   APPEND x_dynpfields TO dynpfields.
   CALL FUNCTION 'DYNP_VALUES_UPDATE'
     EXPORTING
       dyname                     = sy-cprog
       dynumb                     = sy-dynnr
     TABLES
       dynpfields                 = dynpfields
*   EXCEPTIONS
*     INVALID_ABAPWORKAREA       = 1
*     INVALID_DYNPROFIELD        = 2
*     INVALID_DYNPRONAME         = 3
*     INVALID_DYNPRONUMMER       = 4
*     INVALID_REQUEST            = 5
*     NO_FIELDDESCRIPTION        = 6
*     UNDEFIND_ERROR             = 7
*     OTHERS                     = 8
Regards,
Sivaganesh

Logical Database- Selection screen

Hi
I am using a logical database SDF . The logical DB has two blocks in selection screen. But I don't want to display these two blocks. I need only one . please suggest how would i do that

Hello
You may want to look at fm SELECT_OPTIONS_RESTRICT.
This FM can be used to modify the selection screen of a LDB.
It is documented by SAP so check the documentation for an example.
Regards
Greg Kern
Edited by: Greg Kern on Oct 28, 2008 8:32 AM

Two ALV on Selection Screen

Similar Messages

Maybe you are looking for