Regarding module pool programming,reports and gui status

hi,
I have created a mpp program in which i called a report using the SUBMIT statement.In the Report i have used Gui status for BACK.When i execute the MPP and press BACK it should call a another screen of the MPP,but it leaves to the program i.e., it comes out.
example,
case sy-ucomm.
When 'BACK'.
CALL SCREEN 0002.
endcase.
This is what i have used in my report program.
Please help me,
Thanks in advance,
Aruna

Hi.
Change the name BACK because it is standard FCode.
Try Changing the Fcode.
Awrd Points if useful
Bhupal

Similar Messages

Doubt regarding module pool program

Hi experts,
I need to use bapi in module pool program
can we use it ? I hope we can use,
Please any body give some sample code
Thanks in advance
Ranga

bapi like another function module can be used in module pool based ojn ur desire
a sample code is :
case sy-ucomm.
when 'create'
call bapi u require
end case
hope it gives u an idea
regards
navjot
reward accordingly

Regarding Module Pool program!

Hi experts,
I have the following issue.
in my first screen there is username and password input field and two push button. 1. logn .2. change password.
I am getting succesfully logon. and when i click change pwd button it will get old pwd, newpwd, and confirm new pwd in the another screen. (upto this also i am having no issue.)but when giving old pwd , new pwd and confirm new pwd i. in the input field i am unable to change the password moreover getting the error msg what I have handled.I have given the necessary codes.
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
PROCESS AFTER INPUT.
field zpasswords-psw module validate_logon_details.
module exit_from_prog AT EXIT-COMMAND.
MODULE USER_COMMAND_0100.
MODULE VALIDATE_LOGON_DETAILS INPUT.
SELECT * FROM ZPASSWORDS INTO WA_PSW WHERE PSW = ZPASSWORDS-PSW.
    ENDSELECT.
    IF SY-SUBRC <> 0.
      MESSAGE E000(ZSMSG).
      ENDIF.
ENDMODULE.
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
    WHEN 'LOGON'.
      SELECT * FROM ZPASSWORDS INTO WA_PSW WHERE PSW = ZPASSWORDS-PSW.
      ENDSELECT.
      IF SY-SUBRC = 0.
        CALL SCREEN 300.
      ENDIF.
    WHEN 'PSW'. "For change password pushbutton.
      SELECT * FROM ZPASSWORDS INTO WA_PSW WHERE PSW = ZPASSWORDS-PSW.
      ENDSELECT.
      IF SY-SUBRC = 0.
        CALL SCREEN 200.
      ELSE.
        MESSAGE E000(ZSMSG)." wrong entry
      ENDIF.
      CLEAR SY-UCOMM.
ENDCASE.
PROCESS BEFORE OUTPUT.
MODULE STATUS_0200.
PROCESS AFTER INPUT.
CHAIN.
FIELD : OLDPSW , NEWPSW , CONFIRMPSW
            MODULE VALIDATE_PASSWORD.
ENDCHAIN.
MODULE EXIT_FROM_PROG AT EXIT-COMMAND.
MODULE USER_COMMAND_0200.
MODULE USER_COMMAND_0200 INPUT.
CASE SY-UCOMM.
    WHEN 'SAVE'.
      UPDATE ZPASSWORDS SET PSW = NEWPSW WHERE PSW = OLDPSW.
      IF SY-SUBRC = 0.
        MESSAGE S001(ZSMSG). "Password Changed Successfully
      ENDIF.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
ENDCASE.
CLEAR SY-UCOMM.
MODULE VALIDATE_PASSWORD INPUT.
SELECT * FROM ZPASSWORDS INTO WA_PSW WHERE PSW = OLDPSW.
    ENDSELECT.
    IF SY-SUBRC = 0.
      IF NEWPSW <> CONFIRMPSW.
        MESSAGE E003(ZSMSG).
        ENDIF.
        ELSE.
          MESSAGE E004(ZSMSG).
          ENDIF.
ENDMODULE.
N.B. Points are assured in case of of helpful reply.
Thanks&Regards
Sarkar
Moderator Message: Use a more meaningful title. Do not tempt responders with points. Put your code between code tags.
Edited by: kishan P on Feb 16, 2011 4:56 PM
Edited by: kishan P on Feb 16, 2011 4:58 PM

hI...
There is no FM to Refresh the Fields in a Screen.
Use the CLEAR statement to Clear each variable.
In the PBO module of the Screen use this code.
IF OK_CODE = 'REFRESH'.
    CLEAR : WA.
ENDIF.
<b>Reward if Helpful</b>

Regarding module pool programming

hi champions,
                   i m using table control in my screen no doubt the horizontal scroll is coming but vertical scroll is not,vud u plz tell me wat sud i do so dat the vertiacal scroll will appear i hv to display the multiple records. in my report.........
looking forward to an early reply.
ravi gupta.

PROCESS BEFORE OUTPUT.
MODULE STATUS_0200.
MODULE clear_ok_code.
module data_retrieval.
Loop with Control TABCONT.
module populate_screen.
endloop.
    module vertical_scroll.
*&      Module vertical_scroll OUTPUT
*       text
module vertical_scroll output.
DATA N TYPE I.
describe table itab lines N.
tabcont-lines = N.
endmodule.                 " vertical_scroll OUTPUT

Differences between Module Pool Programming and Reports and Scripts

Hi,
please tell me the Differences between Module Pool Programming , Reports and Scripts .
Thanks nad Regards ,
PavanKumar

Hi
Type 1 - is a report programming it can be executed by both transaction and program (F8). Hence its is also called as Executable program.You can start logical databases together with reports.
Type M - Its a module pool program which is executed only by transaction code.
Scripts - report with GUI interface. we can have graphics, watermark .
SAPscript is a client dependent one.the Transaction for script is SE71.

Module Pool Programming Guide

Hi,
I have no specific question regarding the module pool program, but want to learn it from beginning.
can anyone help me by sending the Module pool programming material and table control.
Thanks,

Hi
hope it will help you.
reward if help.
Check the below link:
http://wiki.ittoolbox.com/index.php/FAQ:What_is_module_pool_program_in_abap%3F
http://help.sap.com/saphelp_46c/helpdata/en/35/26b1aaafab52b9e10000009b38f974/content.htm
http://sap.mis.cmich.edu/sap-abap/abap09/sld011.htm
http://sap.mis.cmich.edu/sap-abap/abap09/index.htm
http://www.geocities.com/ZSAPcHAT
http://www.allsaplinks.com/files/using_table_in_screen.pdf
http://help.sap.com/saphelp_webas630/helpdata/en/9f/db9cdc35c111d1829f0000e829fbfe/content.htm
http://www.sapdevelopment.co.uk/dialog/dialoghome.htm
http://www.sap-img.com/
http://help.sap.com/saphelp_46c/helpdata/en/08/bef2dadb5311d1ad10080009b0fb56/content.htm
http://www.sapgenie.com/links/abap.htm
http://help.sap.com/saphelp_nw04/helpdata/en/c9/5472fc787f11d194c90000e8353423/frameset.htm
You can also check the transaction ABAPDOCU which gives you lot of sample programs.
Also you can see the below examples...
Go to se38 and give demodynpro and press F4.
YOu will get a list of demo module pool programs.
One more T-Code is ABAPDOCU.
YOu can find more examples there.
See the prgrams:
DEMO_DYNPRO_TABLE_CONTROL_1 Table Control with LOOP Statement
DEMO_DYNPRO_TABLE_CONTROL_2 Table Control with LOOP AT ITAB
http://www.geocities.com/ZSAPcHAT
http://www.allsaplinks.com/files/using_table_in_screen.pdf

How to use one module pool program in another module pool programming?

Hi
I have one moodule pool program.
In one of my screen i want to use some code which already developed in another module pool program.
Is there any direct way for using one module pool programcode in another module pool program.
If there any approaches for this plz help me in this issue.

Dear,
If you want to use the code.
first you can write your code in a subroutine in module pool program 1
and then you can use it from module pool program 2 by
perform subroutine_name(program_name)
using P_1
changing C_1
if you wan to use one module pool data into other module pool.
so that is another requirement.

How to save a varaints in module pool programming

Hi All,
How to save a varaints in module pool programming.
Thanks in Advance.
GS.

Hi,
Forgot my previous reply.
Just now I checked.
Create transaction[say.,zzz_test1] using SE93 [choose the option Program and screen] for your module pool program.
Then use SHDS transaction to create a variant[say zzz_v1] for the transaction you created above.
Then use SE93 [choose the option Transaction with Variant] to create another transaction zzz_test2 by mentioning the module pool program name and zzz_test1 transaction which you created and zzz_v1 variant which you created.
Then if you run the transaction ZZZ_test2,then you can see the variant values.
I created just now all these and it works.
Hope this is clear.
If not,get back.

How to create a gui pf status and guititle in module pool programming?

hi frnds,
how to create a gui pf status and gui title in module pool programming?
my problem is i created a screen and wen execute the screen by a tcode.am nt able to activate SAVE BACK EXIT CANCEL COMMANDS?.how to do this can any one explain in detail procedure?
plz gve step by step process.

Hi,
For Title:In PBO...just write
SET TITLEBAR 'ZTITLE'.
double click on 'ZTITLE'....give whatever title u want...save it...activate...and check...reward points if useful...
PF means FUNCTION CODE
ex; set pf-status 'zrstatus'.
double click on the zrstatus expand the application server ,
at the time of execution the default menu(ie system,help),application toolbar buttons like enter,help etc and function keys(by default there will be no function keys)as are there on the normal
will appear on the screen.
Details:
PF-STATUS is used to set the GUI Status of a screen, ie you can control the options on your menu bar, application toolbar, the function keys assigned to various options etc.
Implementing the status for a screen can be done in 2 ways:
1) Create the GUI status using the object list of the program or by using the transaction SE41. Then, assign it to the screen using SET PF-STATUS statement.
2) Create the GUI status by means of forward navigation, ie, use the SET PF-STATUS 'XXX' statement where 'XXX' is the name of the GUI status and double click on it to create it.
Status names can have a maximum of 20 characters.
After assigning a GUI status to a screen, this is inherited to all subsequent screens. In order to have a different status for each of the subsequent screens, you have to set a separate status for each screen.
In transaction SE41,
1) Give the program name and the status name and click on the Create button.
2) Go to 'Function keys' and expand.
3) On top of the save icon type SAVE, on top of the back icon type BACK, on top the the exit icon type EXIT etc ie on top of all the icons that you want to use, type the respective names that you want to give.
Whatever you have typed now becomes the function codes of these icons and can be used in your program.
For example you have a screen 100.
In the 'Element list' tab of the screen, give "ok_code" as the name where "OK" is the type of screen element. Activate screen.
The flow logic for the screen looks like this:
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
Create the modules STATUS_0100 and USER_COMMAND_0100 in the main program by simply double clicking on them.
The code for these modules can be something like this:
MODULE status_0100 OUTPUT.
SET PF-STATUS 'Example'. "Example is the name of the GUI status
ENDMODULE.
MODULE user_command_0100 INPUT.
CASE ok_code.
WHEN 'SAVE'.
"call a subroutine to save the data or give statements to save data.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'EXIT'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE.
Regards,
Shiva Kumar (Reward If helpful)

Report program with detail list and GUI status.

Hi,
I am working on type 1 program (report) and want to use detail lists.
I want to use a GUI status and want to use AT LINE-SELECTION. But AT LINE-SELECTION does not work when I use a GUI status.
How do I achieve this?
Thanks.

Hi
In the secondary windows, it is not possible to have GUI Status.
If you need like that, you should go for ALV Reports.
Here, You can have GUI Status only in the selection-screen as below..
REPORT zak014 LINE-SIZE 60 LINE-COUNT 20(2).
TABLES: sscrfields.
* Appliction Tool Bar Elements
SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN FUNCTION KEY 2.
* Selection Screen
PARAMETERS: matnr TYPE matnr.
INITIALIZATION.
sscrfields-functxt_01 = 'TEST1'.
sscrfields-functxt_02 = 'TEST2'.
START-OF-SELECTION.
WRITE:/20 'CLICK HERE TO NAVIGATE'.
AT LINE-SELECTION.
WINDOW STARTING AT 5 5
         ENDING   AT 50 18.
CASE sy-lsind.
    WHEN 1.
      WRITE:/ 'This is First window'.
    WHEN 2.
      WRITE:/ 'This is second'.
ENDCASE.
TOP-OF-PAGE.
WRITE:/5 'LINE SELECTION'.

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

How to download and upload a module pool program ?

hi i am a sudent.can anyone suggest me how to download and upload a module pool program?
Moderator message: please search for available information/documentation.
Edited by: Thomas Zloch on May 29, 2011 12:45 PM

Hi,
You cannot just download and upload module pool programs .
There are 2 different ways.
1. Copy all the includes and and create the same in the target system. You can download and upload the the Screen.
But GUI status you have to manually create.
2. If you have completely saved the module-pool program in one Workbench request(including Z tables u have used) in the original system ,just release the workbench request and copy the data file and co file and upload to the target system ( use CG3Y & CG3Z).
If the workbench is a Local Request save it in a Transport of copies and then move.
Regards
Aromal R

HOw to find Report program associated module pool program?

HOw to find Report program associated module pool program?
I.e
Me21n is the tcode.I want to find screens related to this tcode.
Associated report program is RM_MEPO_GUI.(It has no screens hence it is a report program).
(if module program is attached to tcode,i can easily find entries in d020s)
Here report program is calling a module pool program SAPLMEGUI(Has screens).
If i give the Tcode Me21n,i want to list out all the screens of it..
Can u give any suggestion....

Hi Sampath.
Manually i can see it (by seeing in system-status)..
programmatically i want to know..
for ex:if u take Tcode:Va01
we can get program (dialog) and tcode in Tstc table .
If we know the program name(dialog), we can find program and screens in d020s table.
Va01 is atatched to a module pool program..No problem to find screens..
In case of me21n,
It is atatched to report program(calling module pool program)..
Here i could not be able to get the screens ..
I think u undrstood my problem..

How to use module pool program in my custom report?

Hi,
I am developing a custom report in abap. I want to fetch data from a standard module pool program.I want output of this standard module pool program to be used in my standad report.Submit cannot be used with module pool programs. How can i do this?Can u please suggest?

HI friend,
For this you can directly use the table fields i.e. each and every module pool screen fields will be having the table name along with its fields (which you can see by double clicking the field and selecting technical settings button) and since it is a standard module pool program that will get populated directly. So you can get the screen field values directly from the table. I think this will help. Please try and let us know wheather it is solved.
Thanks and regards,
Sri Hari Anand Kumar
Edited by: srihari.kumar on Apr 6, 2011 3:31 PM

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

Regarding module pool programming,reports and gui status

Similar Messages

Maybe you are looking for