Conditional call to a subscreen in module pool program.

Hi,
Could anybody please let me know how i will be able to call a subscreen conditionally in a module pool program?
Example: I have to call a subscreen XXXX if a FLAG = X. How will I achieve this?
I tried to write the below code in PAI
if flag = 'X'.
call subscreen XXXX.
endif.
This produced an error.
Regards,
Smithesh

Hi
In TOP Include
data repid type sy-repid,
dynnr type sy-dynnr.
In PBO of main screen
module status_100. " First Call This Module to provide the SubScreen Number to below Code
call subscreen sub including repid dynnr. " This serves the purpose of calling subscreen based on condition
in Program.
module status_100.
repid = sy-repid.
if your_condition = 'X'. " This also can be implemented in any PAI logi as its purpose is just to pass a value to DYNNR
dynnr = '200'. " The SUB Screen Number you want to pass
else.
dynnr = '300'. " Dummy Sub Screen Screen or any other (Make Sure these are of SUB SCREEN type )
endif.
endmodule
Cheerz
Ram

Similar Messages

Call report selection screen in module pool program with tab strip control

Hi,
Could anyone explain in detail to call report selection screen in module pool program with tab strip control.
Thanks
Mano

Hi,
Refer std program:
demo_sel_screen_in_tabstrip.
demo_sel_screen_with_tabstrip.
Call your program with SUBMIT stmt form module program.
Reward points if this Helps.
Manish

Getting error while calling a subscreen in module pool program

HI ALL,
 ACTUALLY I'M GETTING A SYNTAX ERROR WHILE I'M CALLING A SUBSCREEN
 IN A MODULE POOL PROGRAM IN PAI MODULE
 THE ERROR IS AS FOLLOW
 "." or "ID ... FIELD ..." expected after "SUBSCREEN"
 CAN ANYBODY PLS HELP ME.
REGARDS
ANDREWS

HI MAX ,
 THE CODE IS AS FOLLOWS:
*& Report ZTABSTRIP_PS
REPORT ZTABSTRIP_PS.
type-pools : vrm.
DATA:number1 type I,
 number2 type I,
 result type I,
 ok_code like SY-UCOMM,
 employee1 type c,
 ABAP(19) type c,
 SALES(19) type c,
 HR(19) type c,
 MM(19) type c,
employee type c.
 emp type c.
CONTROLS tabstrip TYPE TABSTRIP.
CALL SCREEN 100.
call screen 110.
call screen 130.
call screen 120.
call screen 140.
*& Module STATUS_0100 OUTPUT
 text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'STATUS'.
SET TITLEBAR 'TITLE'.
CASE OK_CODE.
 WHEN 'BACK' or 'EXIT' or 'DELETE'.
 leave program.
 WHEN 'SAVE'.
 MESSAGE 'please choose a valid function' TYPE 'I'.
 WHEN 'BACK'.
 leave PROGRAM.
when 'EXIT' or 'DELETE'.
 leave to screen 0.
 WHEN 'SAVE'.
 MESSAGE 'please choose a valid function' TYPE 'I'.
endcase.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
 text
MODULE USER_COMMAND_0100 INPUT.
CASE OK_CODE.
when 'TAB1'.
tabstrip-activetab = 'TAB1'.
 when 'TAB2'.
tabstrip-activetab = 'TAB2'.
result = number1 + number2.
 when 'TAB3'.
tabstrip-activetab = 'TAB3'.
SET TITLEBAR 'TITLE1'.
when 'TAB4'.
 tabstrip-activetab = 'TAB4'.
 if employee = 'NEERAJ'.
 ABAP = 'NEERAJ'.
 elseif employee = 'UMESH'.
 SALES = 'UMESH'.
 ELSEIF employee = 'RAM'.
 HR = 'RAM'.
 elseif employee = 'ANIL'.
 MM = 'ANIL'.
 endif.
 employee = employee.
WHEN 'BACK'.
 leave PROGRAM.
when 'EXIT' or 'DELETE'.
 leave to screen 0.
 WHEN 'SAVE'.
 MESSAGE 'please choose a valid function' TYPE 'I'.
ENDCASE.
 WHEN 'BACK' or 'EXIT' or 'DELETE'.
 leave program .
 WHEN 'SAVE'.
 MESSAGE 'please choose a valid function' TYPE 'I'.
endcase.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Module STATUS_0110 OUTPUT
 text
**MODULE STATUS_0110 OUTPUT.
SET PF-STATUS 'STATUS1'.
SET TITLEBAR 'xxx'.
**case ok_code.
**WHEN 'back' or 'exit' or 'delete'.
 leave PROGRAM.
 WHEN 'save'.
 MESSAGE 'please choose a valid function ' TYPE 'W'.
ENDCASE.
**ENDMODULE. " STATUS_0110 OUTPUT
*& Module USER_COMMAND_0110 INPUT
 text
MODULE USER_COMMAND_0110 INPUT.
number1 = number1.
number2 = number2.
CLEAR NUMBER1.
CLEAR NUMBER2.
REFRESH NUMBER1.
REFRESH NUMBER2.
ENDMODULE. " USER_COMMAND_0110 INPUT
*& Module STATUS_0130 OUTPUT
 text
MODULE STATUS_0130 OUTPUT.
SET PF-STATUS 'STATUS2'.
SET TITLEBAR 'xxx'.
RESULT = number1 + number2.
*CLEAR RESULT.
REFRESH RESULT.
ENDMODULE. " STATUS_0130 OUTPUT
*& Module STATUS_0120 OUTPUT
 text
MODULE STATUS_0120 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
DATA: l_name TYPE vrm_id,
 li_list TYPE vrm_values,
 l_value LIKE LINE OF li_list.
l_value-key = '1'.
l_value-text = 'ANIL'.
APPEND l_value TO li_list.
CLEAR l_value.
CLEAR li_list.
l_value-key = '2'.
l_value-text = 'RAM'.
APPEND l_value TO li_list.
CLEAR l_value.
CLEAR li_list.
l_value-key = '3'.
l_value-text = 'NEERAJ'.
APPEND l_value TO li_list.
CLEAR l_value.
CLEAR li_list.
l_value-key = '4'.
l_value-text = 'UMESH'.
APPEND l_value TO li_list.
CLEAR l_value.
CLEAR li_list.
l_name = 'employee'.
CALL FUNCTION 'VRM_SET_VALUES'
 EXPORTING
 ID = l_name
 VALUES = li_list
 EXCEPTIONS
 ID_ILLEGAL_NAME = 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.
CLEAR li_list.
ENDMODULE. " STATUS_0120 OUTPUT
*& Module USER_COMMAND_0120 INPUT
 text
MODULE USER_COMMAND_0120 INPUT.
INCLUDING sy-repid '140'.
employee1 = employee.
IF employee1 CS 'NEERAJ'.
call SUBSCREEN sub4 .
ABAP = 'NEERAJ'.
CLEAR ABAP.
ELSEIF employee1 CS 'UMESH'.
 call SUBSCREEN sub4 .
 SALES = 'UMESH'.
 CLEAR SALES.
elseif employee1 CS 'RAM'.
call SUBSCREEN sub4 .
 HR = 'RAM'.
 CLEAR HR.
ELSEIF employee1 CS 'ANIL'.
 call SUBSCREEN sub4 .
 MM = 'ANIL'.
 CLEAR MM.
 endif.
ENDMODULE. " USER_COMMAND_0120 INPUT
*& Module STATUS_0140 OUTPUT
 text
MODULE STATUS_0140 OUTPUT.
*CASE OK_CODE.
 WHEN employee1 'NEERAJ'.
 screen-active = 1.
 ABAP = 'NEERAJ'.
 WHEN employee1 = 'UMESH'.
 screen-active = 1.
 SALES = 'UMESH'.
 WHEN employee1 = 'RAM'.
 screen-active = 1.
 HR = 'RAM'.
 WHEN employee1 = 'ANIL'.
 screen-active = 1.
 MM = 'ANIL'.
 endif.
*ENDCASE.
ENDMODULE. " STATUS_0140 OUTPUT

Calling search helps dynamically in module pool program

Hi Experts,
I have created two search helps. I need to call these search helps in my module pool program dynamically for a single field (i.e ZMATNR).
you might be known... if it is a single search help, we can assign that in field attributes.
But here... I need to call different search helps for a single field based on the condition.
Pls help me.
Thanks
Raghu

Hi,
Use the below function module and pass the search help created in search help field according to the condition.
Process on Value-request.
if condition = A.
call function " F4IF_FIELD_VALUE_REQUEST"
TABNAME           =
FIELDNAME        =
SEARCHHELP     = "Mention search help created
Elseif Conditon =B.
call function " F4IF_FIELD_VALUE_REQUEST"
TABNAME           =
FIELDNAME        =
SEARCHHELP     = "Mention search help created
Endif.
Regards,
Prabhudas

How to call table control in subscreen in module pool program

Hi all,
I have req,need call table control in subscreen,but have done but when scroll bar value getting changed ,
please guide how to do it.if its possable send the code.
regards
santosh

Hi,
The navigation happens like this.
Consider you have a main screen and 2 subscreens.
When you click or do some event in the Subscreen 2 (lets say this is the one that has the table control), this will first trigger PAI of the Main Screen. In the flow logic of the Main screen, you would have written call subscreen <subscreen area1> and call subscreen <subscreen area2>.
Now the subscreens get triggered based on the order in which you have written in the flow logic.
So, here the modules before the first call subscreen statement in the Main Screen PAI is all executed. Now, it goes to the subscreen on which you have triggered an event and executes the modules in the subscreen.
This is how the execution goes when you have subscreens.
So there is no problem with the navigation. You only have to worry about the screen where you have the table control. Just debug and find where data is getting changed or duplicated.

Subscreen in module pool programming

hello
i want to call to subscreens to subscreen area of main screen dynamically.
i tried using statement under PBO OF MAIN SCREEN flow logic.
call subscreen including '<program name>' variable1'.
i declared all the things in layout as well as in main program.
data............
variable1 type sy-dynnr.
if ( statement).
variable = 'screen number'.
endif.in this way i have three sub screens.
i am not getting any sytatic errors.
but when i execute this . it showing some message.

HI,
CALL SUBSCREEN subscreen_name INCLUDING prog_name dynnr.
where subscreen_name = your subscreen area
prog_name = a variable which holds the name of desired program
dynnr = a variable holding the screen number from the desired program
br

Calling a report from module pool program

Hi all,
I had a requirement where I need to call a report from the module pool program where in when we click REPORT button, it should display the report output in the another screen.
Can we do by calling screen after pushing REPORT button. If so, where we should write that code ( In pbo or pai). Please give me an idea.
Thanking you,
Regards,
Murali Krishna T

Use submit syntax.
Press F1 on submit, Donot use return statement with it.
If so, where we should write that code ( In pbo or pai).
Please understand about these two events before doing the requirement.

How to call a "Z"module pool program in a "z"report

Hi Guys,
I have two reports .
1. Report : uploads a tab delimited " .Txt1" file and update the "z1" table
 ".TXT1" : File contains 4 fields
2. Module pool. :Uploads a a tab delimited " .Txt2" file and update another "z2" table
 ".TXT2" file contains the 4 fileds of ".TXT1" and also 2 extra fields.
I want to merge (call) the module pool program in the Report and perform the upload function using only one ".TXT" file.Please do guide me precisely .
*Report:*
REPORT zrswbgcs009 NO STANDARD PAGE HEADING MESSAGE-ID zwb
 LINE-SIZE 185.
TABLES: zgcs_foc. "FOC Parts Table
*data count buffer
DATA: read_cnt(6) TYPE p, "Find read record
 update_cnt(6) TYPE p, "OK record
 error_cnt(6) TYPE p. "Error record
*file buffer(FOC)
DATA: BEGIN OF FOC_inrec OCCURS 0,
 CUSTOMER(10), "Customer
 PART_CODE(18), "Parts Code
 REF_NO(35), "Ref No.
 REF_DATE(10), "Ref Date
 QTY(12), "Parts Qty
 TEXT(100), "Remark
 END OF FOC_inrec.
*file buffer
DATA: BEGIN OF inrec OCCURS 0,
 CUSTOMER(10), "Customer
 PART_CODE(18), "Parts Code
 REF_NO(35), "Ref No.
 REF_DATE(10), "Ref Date
 QTY(12), "Parts Qty
 PRICE(15), "Parts Price
 WAERK(5), "Parts Currency
 TEXT(100), "Remark
 END OF inrec.
DATA : v_file LIKE rlgrap-filename.
DATA gt_zgcs_foc LIKE zgcs_foc OCCURS 0 WITH HEADER LINE.
DATA gs_zgcs_foc LIKE zgcs_foc.
*File name ACCEPT--------------------------------------------------
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
*Company code
PARAMETERS: p_comp LIKE zgcs_imei-company OBLIGATORY.
PARAMETERS: pcfile LIKE rlgrap-filename OBLIGATORY LOWER CASE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
PARAMETERS: HQfile RADIOBUTTON GROUP b2.
SELECTION-SCREEN COMMENT 7(20) text-101 FOR FIELD HQfile.
SELECTION-SCREEN POSITION 31.
PARAMETERS: SUBfile RADIOBUTTON GROUP b2.
SELECTION-SCREEN COMMENT 37(20) text-102 FOR FIELD SUBfile.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK box WITH FRAME.
SELECTION-SCREEN: COMMENT /2(40) text-011, COMMENT 42(40) text-001,
 ULINE,
 COMMENT /2(40) text-012, COMMENT 42(40) text-002,
 COMMENT /2(40) text-013, COMMENT 42(40) text-003,
 COMMENT /2(40) text-014, COMMENT 42(40) text-004,
 COMMENT /2(40) text-015, COMMENT 42(40) text-005,
 COMMENT /2(40) text-016, COMMENT 42(40) text-006,
 COMMENT /2(40) text-017, COMMENT 42(40) text-007,
 COMMENT /2(40) text-018, COMMENT 42(40) text-008,
 COMMENT /42(40) text-009.
SELECTION-SCREEN END OF BLOCK box.
* -- AT SELECTION SCREEN ON
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pcfile.
CALL FUNCTION 'WS_FILENAME_GET'
 EXPORTING
 def_filename = space
 def_path = 'C:\'
 mask = ',*.txt,*.TXT.'
 mode = 'O'
 title = ' '
 IMPORTING
 filename = pcfile
 EXCEPTIONS
 inv_winsys = 1
 no_batch = 2
 selection_cancel = 3
 selection_error = 4
 OTHERS = 5.
*-----------------------------start--------------------------------
START-OF-SELECTION.
CLEAR: read_cnt, update_cnt, error_cnt.
REFRESH gt_zgcs_foc. CLEAR gs_zgcs_foc.
PERFORM file_upload_from_pc.
SORT gt_zgcs_foc.
DELETE ADJACENT DUPLICATES FROM gt_zgcs_foc
 COMPARING COMPANY CUSTOMER PART_CODE REF_NO REF_DATE.
*// customer code check
DATA: LT_ZESTD LIKE ZESTD OCCURS 0 WITH HEADER LINE.
IF NOT gt_zgcs_foc[] IS INITIAL.
 SELECT COMPANY CUSTOMER CURRENCY
 INTO CORRESPONDING FIELDS OF TABLE LT_ZESTD
 FROM ZESTD
 FOR ALL ENTRIES IN gt_zgcs_foc
 WHERE COMPANY = gt_zgcs_foc-COMPANY
 AND CUSTOMER = gt_zgcs_foc-CUSTOMER.
ENDIF.
SORT LT_ZESTD BY COMPANY CUSTOMER.
*// part code check
DATA: LT_MARA LIKE MARA OCCURS 0 WITH HEADER LINE.
IF NOT gt_zgcs_foc[] IS INITIAL.
 SELECT *
 INTO TABLE LT_MARA
 FROM MARA
 FOR ALL ENTRIES IN gt_zgcs_foc
 WHERE MATNR = gt_zgcs_foc-PART_CODE.
ENDIF.
SORT LT_MARA BY MATNR.
LOOP AT gt_zgcs_foc.
*// customer code check
 READ TABLE LT_ZESTD WITH KEY
 COMPANY = gt_zgcs_foc-COMPANY
 CUSTOMER = gt_zgcs_foc-CUSTOMER.
 IF SY-SUBRC <> 0.
 WRITE:/'Invalid Customer code ',
 gt_zgcs_foc-COMPANY, ' ',
 gt_zgcs_foc-CUSTOMER.
 STOP.
 ENDIF.
*// part code check
 READ TABLE LT_MARA WITH KEY MATNR = gt_zgcs_foc-PART_CODE
 BINARY SEARCH.
 IF SY-SUBRC <> 0.
 WRITE:/ 'Invalid part code ', gt_zgcs_foc-PART_CODE.
 STOP.
 ENDIF.
*// REF_NO
 TRANSLATE gt_zgcs_foc-REF_NO TO UPPER CASE.
 SHIFT gt_zgcs_foc-REF_NO LEFT DELETING LEADING SPACE.
 IF gt_zgcs_foc-REF_NO = SPACE.
 WRITE:/'Ref No. is blank'.
 STOP.
 ENDIF.
*// REF_DATE
 IF gt_zgcs_foc-REF_DATE = 0.
 WRITE:/'Invalid Ref Date'.
 STOP.
 ENDIF.
*// QTY
* IF gt_zgcs_foc-QTY CO ' 0123456789'.
* ELSE.
* WRITE:/ gt_zgcs_foc-QTY, ' Invalid Qty value'.
* STOP.
* ENDIF.
ENDLOOP.
* Insert/Update table
* MODIFY zgcs_foc FROM TABLE gt_zgcs_foc.
INSERT zgcs_foc FROM TABLE gt_zgcs_foc.
IF sy-subrc EQ 0.
 COMMIT WORK.
 DESCRIBE TABLE gt_zgcs_foc LINES update_cnt.
 error_cnt = read_cnt - update_cnt.
ELSE.
 ROLLBACK WORK.
 error_cnt = read_cnt - update_cnt.
ENDIF.
ULINE.
FORMAT COLOR 3.
WRITE: / 'Read count :', read_cnt.
WRITE: / 'Insert/Update count :', update_cnt.
WRITE: / 'Error count :', error_cnt.
FORMAT COLOR OFF.
*end-of-selection--------------------------------------------------
END-OF-SELECTION.
*& Form FILE_UPLOAD_FROM_PC
FORM file_upload_from_pc.
IF pcfile IS INITIAL.
 WRITE: / 'SELECT UPLOAD FILE !'.
ELSE.
 MOVE pcfile TO v_file.
* HQ file upload
 IF HQfile EQ 'X'.
 CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
 filename = v_file
 filetype = 'DAT'
 TABLES
 data_tab = FOC_inrec
 EXCEPTIONS
 conversion_error = 1
 file_open_error = 2
 file_read_error = 3
 invalid_type = 4
 no_batch = 5
 unknown_error = 6
 invalid_table_width = 7
 gui_refuse_filetransfer = 8
 customer_error = 9
 OTHERS = 10.
 IF sy-subrc <> 0.
 WRITE: / 'FILE UPLOAD :', sy-subrc.
 ENDIF.
 LOOP AT FOC_inrec.
 ADD 1 TO read_cnt.
 call function 'CONVERSION_EXIT_ALPHA_INPUT'
 exporting
 input = FOC_inrec-customer
 importing
 output = FOC_inrec-customer.
 call function 'CONVERSION_EXIT_ALPHA_INPUT'
 exporting
 input = FOC_inrec-part_code
 importing
 output = FOC_inrec-part_code.
 MOVE-CORRESPONDING FOC_inrec TO gs_zgcs_foc.
 MOVE p_comp TO gs_zgcs_foc-company.
 MOVE gs_zgcs_foc-qty TO gs_zgcs_foc-balan.
 MOVE sy-uname TO gs_zgcs_foc-ERNAM.
 MOVE sy-datum TO gs_zgcs_foc-ERDAT.
 MOVE sy-UZEIT TO gs_zgcs_foc-ERZET.
* Source(1:HQ,2:SUB,0:Etc)
 MOVE '1' TO gs_zgcs_foc-source.
 APPEND gs_zgcs_foc TO gt_zgcs_foc.
 ENDLOOP.
* SGE file upload
 ELSE.
 CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
 filename = v_file
 filetype = 'DAT'
 TABLES
 data_tab = inrec
 EXCEPTIONS
 conversion_error = 1
 file_open_error = 2
 file_read_error = 3
 invalid_type = 4
 no_batch = 5
 unknown_error = 6
 invalid_table_width = 7
 gui_refuse_filetransfer = 8
 customer_error = 9
 OTHERS = 10.
 IF sy-subrc <> 0.
 WRITE: / 'FILE UPLOAD :', sy-subrc.
 ENDIF.
 LOOP AT inrec.
 ADD 1 TO read_cnt.
 call function 'CONVERSION_EXIT_ALPHA_INPUT'
 exporting
 input = inrec-customer
 importing
 output = inrec-customer.
 call function 'CONVERSION_EXIT_ALPHA_INPUT'
 exporting
 input = FOC_inrec-part_code
 importing
 output = FOC_inrec-part_code.
 MOVE-CORRESPONDING inrec TO gs_zgcs_foc.
 MOVE p_comp TO gs_zgcs_foc-company.
 MOVE gs_zgcs_foc-qty TO gs_zgcs_foc-balan.
 MOVE sy-uname TO gs_zgcs_foc-ERNAM.
 MOVE sy-datum TO gs_zgcs_foc-ERDAT.
 MOVE sy-UZEIT TO gs_zgcs_foc-ERZET.
* Source(1:HQ,2:SUB,0:Etc)
 MOVE '2' TO gs_zgcs_foc-source.
 APPEND gs_zgcs_foc TO gt_zgcs_foc.
 ENDLOOP.
 ENDIF.
ENDIF.
ENDFORM.
*MODULE POOL::*
*& Module Name : Warranty Bill
*& Sub-Module : W/B
*& Description : Parts Q'ty Adjust(Sales & Warranty)
*& Program Name : ZRSWBP004
*& History
*& Date Author Reason
*& 2007.05.08 Song, Ji-Hyun Initial Coding Req.by WH.Song
*& Logic Process
* - CONDITIONS
* Company, Customer, Material
* - PROCESS
* Display,Insert,Update data in the T/B ZESP04
REPORT zrswbp004 NO STANDARD PAGE HEADING
 MESSAGE-ID 00
 LINE-SIZE 250
 LINE-COUNT 50.
* G L O B A L V A R I A B L E S *
TABLES : zesp04.
DATA : BEGIN OF itab_list OCCURS 0,
 company LIKE zesp04-company,
 customer LIKE zesp04-customer,
 material LIKE zesp04-material,
 adj_date LIKE zesp04-adj_date,
 adjust LIKE zesp04-adjust,
 reason LIKE zesp04-reason,
 reason_code LIKE zesp04-reason_code,
 doc_no LIKE zesp04-doc_no,
 in_date LIKE zesp04-in_date,
 create_id LIKE zesp04-create_id,
 END OF itab_list.
DATA : itab_upload LIKE TABLE OF zesp04 WITH HEADER LINE.
DATA : s_mode(10).
DATA : table_name(10) VALUE 'ZESP04'.
DATA : tot_cnt TYPE i.
DATA : ref_flag(1).
* M A C R O D E F I N E *
DEFINE conversion_kunnr.
call function 'CONVERSION_EXIT_ALPHA_INPUT'
 exporting
 input = &1
 importing
 output = &1.
END-OF-DEFINITION.
DEFINE conversion_material.
call function 'CONVERSION_EXIT_MATN1_INPUT'
 exporting
 input = &1
 importing
 output = &1.
END-OF-DEFINITION.
* S E L E C T I O N S C R E E N *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE title1.
PARAMETERS : company LIKE zesp04-company MEMORY ID buk MODIF ID v1
 OBLIGATORY.
SELECT-OPTIONS : customer FOR zesp04-customer MEMORY ID kun
 MODIF ID v1.
SELECT-OPTIONS : material FOR zesp04-material MEMORY ID mat
 MODIF ID v1.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 3.
SELECTION-SCREEN COMMENT 3(12) text-002 MODIF ID v2.
PARAMETERS : up_flag AS CHECKBOX MODIF ID v2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(12) text-001 MODIF ID v2.
PARAMETERS : p_fname(300) LOWER CASE MODIF ID v2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE title2.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(53) text-003 MODIF ID v2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(10) text-004 MODIF ID v2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(12) text-005 MODIF ID v2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(12) text-006 MODIF ID v2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(15) text-007 MODIF ID v2.
PARAMETERS : df1 TYPE c RADIOBUTTON GROUP grp1.
SELECTION-SCREEN COMMENT 24(13) text-012 MODIF ID v2.
PARAMETERS : df2 TYPE c RADIOBUTTON GROUP grp1.
SELECTION-SCREEN COMMENT 41(11) text-013 MODIF ID v2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(14) text-008 MODIF ID v2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(11) text-009 MODIF ID v2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(14) text-010 MODIF ID v2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(10) text-011 MODIF ID v2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b2.
INCLUDE zrswbp004_pbo.
INCLUDE zrswbp004_pai.
INITIALIZATION.
title1 = ' Parts Quantity Adjustment '.
title2 = ' Text File Layout '.
* S T A R T O F S E L E C T I O N *
TOP-OF-PAGE.
PERFORM write_header.
TOP-OF-PAGE DURING LINE-SELECTION.
PERFORM write_header.
START-OF-SELECTION.
IF up_flag = 'X'.
 PERFORM upload_data.
ELSE.
 PERFORM select_data.
 SET PF-STATUS 'PF01' EXCLUDING 'SAVE'.
 PERFORM display_data.
ENDIF.
AT USER-COMMAND.
PERFORM user_command.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.
PERFORM get_filename.
*& Form SELECT_DATA
* Select Data for Display
FORM select_data.
SELECT * FROM (table_name)
 INTO CORRESPONDING FIELDS OF TABLE itab_list
 WHERE company = company
 AND customer IN customer
 AND material IN material.
CHECK sy-subrc <> 0.
WRITE: 'No data found with your option.'.
ENDFORM. " SELECT_DATA
*& Form DISPLAY_DATA
* Display Data following Condition
FORM display_data.
LOOP AT itab_list.
 FORMAT COLOR 2 INTENSIFIED.
 WRITE : / '|' NO-GAP.
 WRITE : (07) itab_list-company CENTERED NO-GAP, '|' NO-GAP,
 (10) itab_list-customer CENTERED NO-GAP, '|' NO-GAP,
 (20) itab_list-material CENTERED NO-GAP, '|' NO-GAP,
 (10) itab_list-adj_date CENTERED NO-GAP, '|' NO-GAP,
 (15) itab_list-adjust RIGHT-JUSTIFIED NO-GAP, '|'
NO-GAP,
 (55) itab_list-reason LEFT-JUSTIFIED NO-GAP, '|' NO-GAP,
 (11) itab_list-reason_code CENTERED NO-GAP, '|' NO-GAP,
 (10) itab_list-doc_no CENTERED NO-GAP, '|' NO-GAP,
 (10) itab_list-in_date CENTERED NO-GAP, '|' NO-GAP,
 (12) itab_list-create_id CENTERED NO-GAP, '|' NO-GAP.
 FORMAT INTENSIFIED OFF.
 HIDE itab_list.
ENDLOOP.
WRITE : / sy-uline(171).
ENDFORM. " DISPLAY_DATA
*& Form WRITE_HEADER
* Write Report Header
FORM write_header.
DATA : line(1024).
CLEAR line WITH '-'.
DESCRIBE TABLE itab_list LINES tot_cnt.
FORMAT INTENSIFIED ON.
WRITE : 15 'Parts Quantity Adjustment'.
SKIP.
WRITE : / 'Total Count : ', tot_cnt.
WRITE : /.
WRITE : (171) sy-uline.
WRITE : / '|' NO-GAP.
WRITE : (07) 'Company' CENTERED NO-GAP, '|' NO-GAP,
 (10) 'Customer' CENTERED NO-GAP, '|' NO-GAP,
 (20) 'Material' CENTERED NO-GAP, '|' NO-GAP,
 (10) 'Adj. Date' CENTERED NO-GAP, '|' NO-GAP,
 (15) 'Adjust' CENTERED NO-GAP, '|' NO-GAP,
 (55) 'Reason' CENTERED NO-GAP, '|' NO-GAP,
 (11) 'Reason Code' CENTERED NO-GAP, '|' NO-GAP,
 (10) 'Doc No' CENTERED NO-GAP, '|' NO-GAP,
 (10) 'IN DATE' CENTERED NO-GAP, '|' NO-GAP,
 (12) 'CREATE ID' CENTERED NO-GAP, '|' NO-GAP.
WRITE : /(171) sy-uline.
FORMAT INTENSIFIED OFF.
ENDFORM. " WRITE_HEADER
*& Form UPLOAD_DATA
* Data Upload from File
FORM upload_data.
DATA : l_filename LIKE rlgrap-filename,
 temp_dateformat TYPE dateformat.
IF df1 = 'X'.
 temp_dateformat = 'YYYY.MM.DD'.
ELSE.
 temp_dateformat = 'DD.MM.YYYY'.
ENDIF.
MOVE p_fname TO l_filename.
CHECK l_filename NE space.
CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
 filename = l_filename
 filetype = 'DAT'
 dat_d_format = temp_dateformat
 TABLES
 data_tab = itab_list
 EXCEPTIONS
 conversion_error = 1
 file_open_error = 2
 file_read_error = 3
 invalid_type = 4
 no_batch = 5
 unknown_error = 6
 invalid_table_width = 7
 gui_refuse_filetransfer = 8
 customer_error = 9.
IF sy-subrc NE 0.
 MESSAGE s000 WITH 'File upload is failed!'.
 STOP.
ELSE.
 CLEAR : itab_upload, itab_upload[].
 LOOP AT itab_list.
 MOVE-CORRESPONDING itab_list TO itab_upload.
 conversion_kunnr itab_upload-customer.
 conversion_material itab_upload-material.
 itab_upload-mandt = sy-mandt.
 itab_upload-in_date = sy-datum.
 itab_upload-create_id = sy-uname.
*>>>>Insert by GSCHOI 2007.11.08
 IF itab_list-adj_date+0(6) NE sy-datum+0(6).
 MESSAGE i368 WITH 'Adjust month must same as current month!'.
 ROLLBACK WORK.
 STOP.
 ENDIF.
*<<<<End
 APPEND itab_upload.
 INSERT INTO (table_name) VALUES itab_upload.
 IF sy-subrc EQ 0.
 CONTINUE.
 ELSEIF sy-subrc EQ 4.
 MESSAGE s368 WITH 'Duplicated Data Error!'.
 ROLLBACK WORK.
 STOP.
 ELSE.
 MESSAGE s368 WITH 'File Error!'.
 ROLLBACK WORK.
 STOP.
 ENDIF.
 ENDLOOP.
ENDIF.
IF sy-subrc EQ 0.
 MESSAGE s368 WITH 'Uploaded Successfully!'.
ENDIF.
ENDFORM. " UPLOAD_DATA
*& Form USER_COMMAND
* User Command Execution in Screen 1000
FORM user_command.
MOVE-CORRESPONDING itab_list TO zesp04.
CASE sy-ucomm.
 WHEN 'INSERT'.
 PERFORM insert_item.
 WHEN 'UPDATE'.
 PERFORM update_item.
 WHEN 'DISPLAY'.
 PERFORM display_item.
 WHEN 'REFRESH'.
 PERFORM refresh_list.
ENDCASE.
IF ref_flag = 'Y'.
 PERFORM refresh_list.
 CLEAR ref_flag.
ENDIF.
ENDFORM. " USER_COMMAND
*& Form INSERT_ITEM
* When Clicking Insert Button
FORM insert_item.
CLEAR : s_mode.
CLEAR : zesp04.
s_mode = 'INSERT'.
CALL SCREEN '100'.
ENDFORM. " INSERT_ITEM
*& Form UPDATE_ITEM
* When Clicking Update Button
FORM update_item.
CLEAR : s_mode.
s_mode = 'UPDATE'.
CALL SCREEN '100'.
ENDFORM. " UPDATE_ITEM
*& Form DISPLAY_ITEM
* When Clicking Display Button
FORM display_item.
CLEAR : s_mode.
s_mode = 'DISPLAY'.
CALL SCREEN '100'.
ENDFORM. " DISPLAY_ITEM
*& Form REFRESH_LIST
* When Clicking Refresh Button or Returning Display Screen
FORM refresh_list.
CLEAR : itab_list, itab_list[].
PERFORM select_data.
sy-lsind = sy-lsind - 1.
PERFORM display_data.
ENDFORM. " REFRESH_LIST
*& Form GET_FILENAME
* Get Filename
FORM get_filename.
DATA: l_fname LIKE ibipparms-path .
DATA : p_name LIKE sy-repid.
p_name = sy-repid.
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 program_name = p_name
 dynpro_number = sy-dynnr
 field_name = ''
 IMPORTING
 file_name = l_fname.
p_fname = l_fname.
ENDFORM. " GET_FILENAME
Edited by: Matt on Nov 24, 2008 11:24 AM - surrounded the ABAP with tags

Hi,
 Use SUBMIT statement in your first Report zrswbgcs009 at the end, to call the Modulepool program zrswbp004.
do a search in SDN you will get lot of threads on SUBMIT statement with selection screen.
SUBMIT... [VIA SELECTION-SCREEN]
 [USING SELECTION-SET <var>]
 [WITH <sel> <criterion>]
 [WITH FREE SELECTIONS <freesel>]
 [WITH SELECTION-TABLE <rspar>].
http://help.sap.com/saphelp_nw04/Helpdata/EN/9f/dba51a35c111d1829f0000e829fbfe/content.htm
Regards
Bala Krishna

Select-option on subscreen for Module pool

Hi all,
I need to add some elements on standard screen of a standard transaction. Everything works fine, but the problem starts when I want to add select-option. It is displayed, but when I press on Multiple selection button no action occurs, no window appears...I simplified the case and created test program with test screen and also I get the same behaviour. Anyone had similiar problem?
Thnak you in advance for help,
Anna

I donot know how u have created the select-option. but u can try these 2 methods to create it. And I have checked that both of them work fine.
1) How to create a select-options in a module pool screen.
Method 1
a) Create a subscreen area in your screen layout where you want to create the select options.
b) In the top include of your module pool program declare a selection screen as a subscreen e.g.
 SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
 select-options s_matnr for mara-matnr.
 SELECTION-SCREEN END OF SCREEN.
c) In the PBO and PAI of the main screen where the select options needs to be created do a call subscreen of the above screen (100).
 CALL SUBCREEN sub_area INCLUDING <program> <screen>
This call subscreen statement is necessary for transport of values between screen and program.
Note: All validations of the selection screen fields e.g. the s_matnr field created above should be done in selection screen events like AT SELECTION-SCREEN etc and not in PAI. These selection screen validations etc should be done in the top include only.
Method 2
a) Create 2 separate fields in your screen layout - one for the low value and one for the high value. Insert an icon beside the high value which will call the multiple selections popup screen on user command. Use function module COMPLEX_SELECTIONS_DIALOG to achieve this.
struc_tab_and_field-fieldname = con_cust. " 'KUNNR'
struc_tab_and_field-tablename = con_kna1. " 'KNA1'.
CALL FUNCTION 'COMPLEX_SELECTIONS_DIALOG'
 EXPORTING
 TITLE = ' '
 text = g_titl1 " 'Customers'
 tab_and_field = struc_tab_and_field
 TABLES
 RANGE = rng_kunnr
 EXCEPTIONS
 NO_RANGE_TAB = 1
 CANCELLED = 2
 INTERNAL_ERROR = 3
 INVALID_FIELDNAME = 4
 OTHERS = 5.
IF NOT rng_kunnr[] IS INITIAL.
 Read the very first entry of the range table and pass it to
 dynpro screen field
 READ TABLE rng_kunnr INDEX 1.
 IF sy-subrc = 0.
 g_cust = rng_kunnr-low.
ENDIF.
You can use the return table rng_kunnr to populate your own internal range table with the values entered by the user. Basically here you are just simulating the work of a select-options parameter by module pool screen elements.
Regards,
Joy.

Module Pool Programming - Calling SAP Standard Text Screen

Hi Gurus
I am working on Module Pool Programming...In the one of the screen there is a column named "Description" where I need to keep a Button to call a SAP standard text editing screen and what ever information I enter in the field should be downloadable
is this option possible?If so...Plz send me the Sample code
Thanks
Ganesh

Hi Gani,
I can help you till getting the text editor in your module pool program.
TOP
PROGRAM ZREDDY_TEXT.
constants: line_length type i value 132.
   data:
reference to wrapper class of control
   g_editor type ref to cl_gui_textedit,
reference to custom container: necessary to bind TextEdit Control
   g_editor_container type ref to cl_gui_custom_container,
   g_repid like sy-repid,                        " getting program name
   g_ok_code like sy-ucomm,                " return code from screen
   g_mytable(132) type c occurs 0,        " getting the text of table
   g_mycontainer(30) type c,                " string for the containers
   v_result(256) type c,                        " getting the text of table control
   gw_thead like thead,                        " for header information
   it_line type table of tline with header line. " internal table of type tline
PBO
MODULE STATUS_0900 OUTPUT.
SET PF-STATUS 'ZTEXT'.
SET TITLEBAR 'xxx'.
if g_editor is initial.
create control container
   create object g_editor_container
   exporting
   container_name = 'CUSTOM_CONTROL' " Make sure when you create custom container in layout give name as Custom container
   exceptions
   cntl_error = 1
   cntl_system_error = 2
   create_error = 3
   lifetime_error = 4
   lifetime_dynpro_dynpro_link = 5.
   g_mycontainer = 'CUSTOM_CONTROL'.
create calls constructor, which initializes, creates and links
TextEdit Control
create object g_editor
   exporting
   parent = g_editor_container
   wordwrap_mode =
cl_gui_textedit=>wordwrap_off
   cl_gui_textedit=>wordwrap_at_fixed_position
cl_gui_textedit=>WORDWRAP_AT_WINDOWBORDER
   wordwrap_position                      = line_length
   wordwrap_to_linebreak_mode     = cl_gui_textedit=>true.
   refresh g_mytable. " to initialize table upon OK_CODE 'BACK' at PAI
   endif.
ENDMODULE.                 " STATUS_0900 OUTPUT
Cheers!!
Balu
Edited by: Balu CH on Oct 22, 2008 8:55 PM

Is there a user exit called when a module pool program is launch ?

Hello,
I know the exit 'EXIT_SAPLSABE_010' and it's very usefull for adding code before a report is launch.
But this exit is not called when a program is a "Module pool" type.
Is there a way to add my own code before this kind of program is launch ?
Thanks in advance,
Simon
Edited by: Simon Desbonnets on Mar 9, 2010 2:23 PM

Thanks for your answer.
No it's not for initializing values. It's for logging statistics into a specific table (program name, date ...).
The event "load-of-program" can be use for one program, it's not what I'm looking for.
I would like to know if there is an exit that is called each time a module pool program is executed.

Calling a module pool program screen to an executable program

Hi gurus,
I have created a executable program to use selection-screen and want to see my output in module pool program where I have designed table control according to my requirement.
How can I call the module-pool program screen from an executable program?
Any help?
Regards
Mac

Hi Mac,
I think you can proceed with a report program alone . There you create a screen with the table control to populate your result.
In the report program, after getting values for internal table for your display, just call the said screen.
i.e.
CALL SCREEN <screen number>.
Hope this may help you.
Regards,
Smart Varghese

Call Module pool program in report

Dear guys,
i have Module pool program ZSDMODPOOL,which is transaction ZSDORD(ADDON SCREEN),Which creates sales order and shipment.
Now i want, one new screen to display before this ZSDORD Screen. In new screen i will have Table control having Internal table displaying in it.
Now, My requirement is how to pass this New screen internal table datas into Module pool program.
or i can put question as how to call module pool program
from other report program or screen.
Pls give me ideas.
ambichan

You can call the transaction using CALL TRANSACTION, or you can setup a DIALOG and call it using CALL DIALOG. Using CALL DIALOG you will be able to pass values. You create a DIALOG via transation SE35.
Regards,
Rich Heilman

Call module pool program from report

Hi,
Iam calling module pool program from a report, while passing values to module pool program, one of the field doesn't have parameter id, how to pass value to it. and also please let me know how to call module pool program.
Appreciate your help.
Thanks in advance
jog

Hi Jog,
Module pool program can be run in background. Most of the BDC's are written on module pool programs and they run in the background.
Also regarrding copying the standard program, if you require to make the changes for every user then instead of copying the program make modification in standard program as copied program are much harder to maintain during support pack implementation or upgrade that modification to standard program.
Reward points if useful.
Regards,
Atish

How to hide subscreen in module pool

hello expert.
i created one Box, and inside box i created one subscreen in Module pool ->layout.and two radio button out side of the Box.
if i select 2nd radio button , want to hide subscreen.
how to hide subscreen. could you please send me the solution asap , it's urgent.
i written below code but not working.
LOOP AT SCREEN.
IF rad2 Eq 'X'
     IF SCREEN-NAME = 'SUB1' .
            SCREEN-INPUT = 0.
            SCREEN-INVISIBLE = 1.
            MODIFY SCREEN.
     ENDIF.
ENDIF.
ENDLOOP.
Regards
srinivas

example:
BOX1
        MATNR [                          ] (Normal screen)
BOX2
        BOM [ BOM-OW] TO [BOM-HIGH] (subscreen)
BOX3
       radio buttons
       push button
       selection screnn etc..
if i selection 2nd radio button i will get.
BOX1
        MATNR [                          ] (Normal screen)
BOX2
        empty
BOX3
       radio buttons
       push button
       selection screnn etc..
my requirement is:
BOX1
        MATNR [                          ] (Normal screen)
BOX3
       radio buttons
       push button
       selection screnn etc..

Conditional call to a subscreen in module pool program.

Similar Messages

Maybe you are looking for