How to call set pf-status in 4.6C system ALV report

Hi All,
Am calling set pf-status as
form MAIN using rt_extab type slis_t_extab
set pf-status 'MAIN' excluding rt_extab.
ENDFORM.
and giving that PF-STATUS name in FM
"REUSE_ALV_GRID_DISPLAY"
but in out put my pf-status is not calling.
Its working fine in ECC 6.0 systems.
Can any one help me regarding the same
Thanks in Advance
Regards
SAI

Post relevant portion of your code to analyse. No point in shooting arrows in the dark.

Similar Messages

How to create field catalog using field-symbols in normal alv report?

hi all,
how to create field catalog using field-symbols in normal alv report? i.e, using function modules...reuse_alv_list_display/grid_display?
regards,
jack

HI
LIKE THIS
TYPE-POOLS : slis.
DATA : t_fieldcat TYPE slis_t_fieldcat_alv,
       st_fieldcat TYPE slis_fieldcat_alv.
st_fieldcat-fieldname     = 'STATUS'.
st_fieldcat-seltext_l     = 'STATUS INDICATOR'.
st_fieldcat-outputlen     = 17.
APPEND st_fieldcat TO t_fieldcat.
CLEAR st_fieldcat.
st_fieldcat-fieldname     = 'VBELN'.
st_fieldcat-do_sum        = ' '.
st_fieldcat-seltext_l     = 'Sales Document No.'.
st_fieldcat-outputlen     = 10.
APPEND st_fieldcat TO t_fieldcat.
CLEAR st_fieldcat.
st_fieldcat-fieldname     = 'AUDAT'.
st_fieldcat-do_sum        = ' '.
st_fieldcat-seltext_l     = 'Document Date'.
st_fieldcat-outputlen     = 10.
APPEND st_fieldcat TO t_fieldcat.
CLEAR st_fieldcat.
st_fieldcat-fieldname     = 'VBTYP'.
st_fieldcat-do_sum        = ' '.
st_fieldcat-seltext_l     = 'Document Type'.
st_fieldcat-outputlen     = 4.
APPEND st_fieldcat TO t_fieldcat.
CLEAR st_fieldcat.
st_fieldcat-fieldname     = 'AUART'.
st_fieldcat-do_sum        = ' '.
st_fieldcat-seltext_l     = 'Category'.
st_fieldcat-outputlen     = 1.
APPEND st_fieldcat TO t_fieldcat.
CLEAR st_fieldcat.
st_fieldcat-fieldname     = 'AUGRU'.
st_fieldcat-do_sum        = ' '.
st_fieldcat-seltext_l     = 'Reason'.
st_fieldcat-outputlen     = 3.
APPEND st_fieldcat TO t_fieldcat.
CLEAR st_fieldcat.
st_fieldcat-fieldname     = 'NETWR'.
st_fieldcat-do_sum        = 'X'.
st_fieldcat-seltext_l     = 'Net Amount'.
st_fieldcat-outputlen     = 15.
APPEND st_fieldcat TO t_fieldcat.
CLEAR st_fieldcat.
st_fieldcat-fieldname     = 'WAERK'.
st_fieldcat-do_sum        = ' '.
st_fieldcat-seltext_l     = 'Unit'.
st_fieldcat-outputlen     = 5.
APPEND st_fieldcat TO t_fieldcat.
CLEAR st_fieldcat.
*sortinfo
st_sort-fieldname = 'AUART'.
st_sort-up        = 'X'.
st_sort-subtot    = 'X'.
APPEND st_sort TO t_sort.
CLEAR st_sort.
st_sort-fieldname = 'VBTYP'.
st_sort-up        = 'X'.
st_sort-subtot    = ' '.
APPEND st_sort TO t_sort.
CLEAR st_sort.
st_sort-fieldname = 'WAERK'.
st_sort-up        = 'X'.
st_sort-subtot    = 'X'.
APPEND st_sort TO t_sort.
CLEAR st_sort.
st_sort-fieldname = 'VBELN'.
st_sort-up        = ' '.
st_sort-subtot    = 'X'.
APPEND st_sort TO t_sort.
CLEAR st_sort.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
   EXPORTING
     i_list_type     = 0
   IMPORTING
     et_events       = it_eventcat
   EXCEPTIONS
     list_type_wrong = 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.
IF grid = 'X'.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
     I_INTERFACE_CHECK                 = ' '
     I_BYPASSING_BUFFER                = ' '
     I_BUFFER_ACTIVE                   = ' '
      i_callback_program                = g_program
      I_CALLBACK_PF_STATUS_SET          = 'SET_PF_STATUS'
     I_CALLBACK_USER_COMMAND           = ' '
      I_CALLBACK_TOP_OF_PAGE            = 'TOP_OF_PAGE'
     I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
     I_CALLBACK_HTML_END_OF_LIST       = ' '
     I_STRUCTURE_NAME                  =
     I_BACKGROUND_ID                   = ' '
     I_GRID_TITLE                      =
     I_GRID_SETTINGS                   =
     IS_LAYOUT                         =
       it_fieldcat                       = t_fieldcat
     IT_EXCLUDING                      =
     IT_SPECIAL_GROUPS                 =
      it_sort                           = t_sort
     IT_FILTER                         =
     IS_SEL_HIDE                       =
     I_DEFAULT                         = 'X'
     I_SAVE                            = ' '
     IS_VARIANT                        =
     IT_EVENTS                         =
     IT_EVENT_EXIT                     =
     IS_PRINT                          =
     IS_REPREP_ID                      =
     I_SCREEN_START_COLUMN             = 0
     I_SCREEN_START_LINE               = 0
     I_SCREEN_END_COLUMN               = 0
     I_SCREEN_END_LINE                 = 0
     I_HTML_HEIGHT_TOP                 = 0
     I_HTML_HEIGHT_END                 = 0
     IT_ALV_GRAPHICS                   =
     IT_HYPERLINK                      =
     IT_ADD_FIELDCAT                   =
     IT_EXCEPT_QINFO                   =
     IR_SALV_FULLSCREEN_ADAPTER        =
   IMPORTING
     E_EXIT_CAUSED_BY_CALLER           =
     ES_EXIT_CAUSED_BY_USER            =
      TABLES
        t_outtab                          = it_final
      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.
REWARD IF USEFULL

How to display the header data on different position in alv report

hi all,
how to display the header data on different position in alv report.
for example ,
customer                                                   name
xxxx                                                         xxxx
                 vendor        name     street
                  xxxx         xxxx      xxxxx
pls   help me .

hi
as per my understanding you need to trnasfer header internal table data to pdf..
please check the following links for internal table to pdf..
Convertion of Internal table data to PDF
This link is related to ur issue
Re: how to insert the calling of the FM: OTF to PDF
Thanks

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 call function module/ class method of another system.

Suppose now i am working in System A. And i need to check the system Status of System B, System C, System D....
my design is to provide an interface. and each system realize the interface individually.now my question is how cani call the interface, because they are in different systems.
of course i know about the host name, port and logon information over these systems.
who can give my some suggestions or other solutions.
thanks in advance.
Johnney.

Hello,
If u want to call a FM of the other system then that FM should be a RFC enable on one.
<b>CALL FUNCTION func DESTINATION dest.</b>
Effect
Executes the function module from an external source (as a Remote Function Call or RFC); dest can be a literal or a variable.
Depending on the specified destination, the function module is executed in another R/3 or R/2 System. Externally callable function modules must be flagged as such in the Function Builder (of the target system).
Since each destination defines its own program context, further calls to the same or different function modules with the same destination can access the local memory (global data) of these function modules.
To maintain existing destinations, choose Tools -> Administration, Administration -> Network -> RFC destinations
Note
Under certain circumstances, an RFC may trigger a database commit. For this reason, RFCs must not be used between pairs of SQL statements that open and close a database cursor (such as SELECT... ENDSELECT).
Vasanth

How to call "long text" of master inspection characteristic in ALV

Dear All,
we have created customized QM report in ALV which shows Result, Valuation and Short text for each MIC against each inspection lot. Can we call long text also in the ALV.
Please guide how to call it in ALV?

just implement some function on the ALV toolbar, read the long with FM READ_TEXT and show it to the user e.g. using CATSXT_SIMPLE_TEXT_EDITOR.

How to make checkbox field inactive in the output of ALV report.

Dear All,
I am having one ALV report in whose output there are checkboxes against each record. Example: the output columns of my ALV report are:
Checkbox, Sales Document No, Billing Document No.
Now, my requirement is that if for the Sales Document No there exists any Billing Document No in the output then the Checkbox should be inactive but if the Billing document coloumn is empty for a particular Sales Document No then only the Checkbox field should become active.
Kindly guide me on how to make this checkbox field inactive.
Waiting for your reply.
Warm Regards,
N.Jain

Hello,
Follow the below steps:
1.Define as--> GS_STATUS TYPE SLIS_STATUS,
2.check layout check box fieldname is not initial.
then set the status according to your logical conditions
GS_STATUS-FLG_CHECKBOXES_ACTIVE = 'X'
Hope this would help you.
Let me know your feedback.
Regards,
Raju

How to inactive the push button on tool bar of alv report

hi masters,
i m working on the ALV interactive report, in this report i have to do 2 different operation on 2 screen.
eg.- on first screen i have the push button for 'data' and on second screen i will have the push button for 'upload'.
in this i don't want to give the 'upload' button on first screen and same i don't want to give the 'data' button on 2nd screen.
i tried with using the 2 different gui status and 2 different PF-STATUS but its not working.
anyone can tell me how i can deactivate the 'upload' button on first screen and how i can do same for 'get' buttton on 2nd screen.
regards,
vicky

HI Vicky ,
                  if u want an interactive ALV report , there are lot of forums already having the solution for that , but let me give u the solution anyway.
In the function module "REUSE_ALV_GRID_DISPLAY" , import parameters
     I_CALLBACK_PF_STATUS_SET          = 'FLIGHT'
     I_CALLBACK_USER_COMMAND           = 'BUTTON_CLICK'
has to be supplied to this function module . The PF status is where u hav created the two buttons , that PF status has to be given here .If the user clicks on the button then it is handled by the form routines . Inside the sub-routine based on the button the user has selected u could perform the action.
FORM FLIGHT    USING RT_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'FLIGHT' EXCLUDING RT_EXTAB.
ENDFORM.
Here the "Flight" is the PF_status .
FORM BUTTON_CLICK USING UCOMM type SY-UCOMM
                       SELFIELD type SLIS_SELFIELD.
CASE UCOMM.
    WHEN 'BUTTON!' .
write ur code for button 1.
WHEN "BUTTON"
*Write ur code for button2 .
end case.
endform.
for any queries reply back.
regards

Setting the column labels in webdynpro abap alv report

Hello,
Right now I have programmed an ALV report. The selection criterion and the display of the report all work.
However, there is an issue with the labels of columns in the ALV report. The report takes the field names of the structure I am using in the ALV report as the labels of the report. I have been trying to play around with the ALV class model to see if something will change the labels of the fields but to no avail. Would you guys know of some code or way to change the labels of the columns in the ALV report.
Thank you for your help in advance.
Sumit.
Here is some of the code I tried but does no work in the wdInit() method. It does not change the label. Any suggestions???
METHOD wddoinit .
* instantiate used component from wizard
DATA lo_cmp_usage TYPE REF TO if_wd_component_usage.
lo_cmp_usage =   wd_this->wd_cpuse_alv( ).
IF lo_cmp_usage->has_active_component( ) IS INITIAL.
lo_cmp_usage->create_component( ).
ENDIF.
* call a method in the used component from wizard
DATA lo_interfacecontroller TYPE REF TO iwci_salv_wd_table .
lo_interfacecontroller =   wd_this->wd_cpifc_alv( ).
    DATA lo_value TYPE REF TO cl_salv_wd_config_table.
    lo_value = lo_interfacecontroller->get_model(
DATA: lr_field TYPE REF TO cl_salv_wd_field.
lr_field = lo_value->if_salv_wd_field_settings~get_field( 'CUSTOMER_NUMBER' ).
* change the label of the report.
DATA: lr_CUSTOMER_NUMBER TYPE REF TO cl_salv_wd_column.
            CALL METHOD lo_value->if_salv_wd_column_settings~get_column
              EXPORTING
                id     = 'CUSTOMER_NUMBER'   receiving value = LR_CUSTOMER_NUMBER.
* SET THE LABEL OF THE COLUMN
DATA: HR_CUSTOMER_NUMBER TYPE REF TO CL_SALV_WD_COLUMN_HEADER.
CALL METHOD lr_customer_number->get_header
receiving
    value = HR_CUSTOMER_NUMBER.
***** set the text of the column
CALL METHOD hr_customer_number->set_text
EXPORTING
    value = 'Customer1 Number1'.
ENDMETHOD.

You have to disable the DDic binding on the column before your override text will show up:
data: l_ref_cmp_usage type ref to if_wd_component_usage.
l_ref_cmp_usage =   wd_this->wd_cpuse_alv( ).
if l_ref_cmp_usage->has_active_component( ) is initial.
    l_ref_cmp_usage->create_component( ).
endif.
data l_salv_wd_table type ref to iwci_salv_wd_table.
l_salv_wd_table = wd_this->wd_cpifc_alv( ).
data l_table type ref to cl_salv_wd_config_table.
l_table = l_salv_wd_table->get_model( ).
data l_column type ref to cl_salv_wd_column.
l_column = l_table->if_salv_wd_column_settings~get_column( 'POSTING_DATE' ).
data l_header type ref to cl_salv_wd_column_header.
l_header = l_column->get_header( ).
l_header->set_prop_ddic_binding_field(
    property = if_salv_wd_c_ddic_binding=>bind_prop_text
    value = if_salv_wd_c_ddic_binding=>ddic_bind_none ).
l_header->set_text( `Posting Date` ).

How to delete duplicate value in movement type 541 & 542(alv report)

hi experts,
i have some problem in alv report,
input we can give some movement type for ex(101,102,541,542, etc)
how to delete duplicate value in 541 and 542.
regards
gunasekaran.

Try:
Delete adjacent duplicates from ITAB comparing FIELD1, FIELD2.
to do this the ITAB must be Sorted first.!

How to call setter Method of ActionScript class with in a Flex Application

Hi
I have Action class as shown :
public class MyClass
private var name:String
public function get name():String {
    return _initialCount;
public function set name(name:String):void {
    name = name;
Now please let me know how can i access this Action class under my Flex Application and call the setter Method of it to set the value for the name .
For example on entering some data in a TextInput and click of a submit Button , on to the Event Listener , i want to call the set name method of my ActionScript class .
Please share your ideas on this .

Thanks Gordon for your resonse .
Say for example my Action class is like this :
public class MyClass
private var name:String
public function get name():String {
    return name;
public function set name(name:String):void {
    name = name;
This is inside the MXML
I know this way we can do it
public var myclass:MyClass = new MyClass();
myclass.name="Kiran";
Now my query is can we do in this way also ??
myclass.set name(SomeTextInput.text);
Please share your views on this , waiting for your replies .
Thanks in advance .

How to call set method

hi i have a set method which i what to call from another class how can i do that
Edited by: ADF007 on 2012/09/13 2:08 PM
Edited by: ADF007 on 2012/09/13 2:08 PM
Edited by: ADF007 on 2012/09/13 3:14 PM

Where are these methods written? What technologies/versions are you using?
From the looks of it, I'm assuming assignRolesToUser seems to be a method in some ADFbc component (AM?)
and RowButtonListener seems to be a managed bean method.
You need to first read and understand how to expose ADFbc service operations (such as AM methods) in a client interface and call from your UI layer (such as bean method or similar UI action).
Here's something: https://blogs.oracle.com/jdevotnharvest/entry/best_practice_invoking_business_services

How to set print format what I want in ALV Report

Hi, guys...
Let me ask something.
In AVL Report, I want to set print format when users print list.
so, I used function 'SET_PRINT_PARAMETERS' on INITIALIZATION Event. but it doesn't work.
Looks like it works list program(using 'WRITE') only.
Please, give me some hint^^

Thanks for the reply...
But, I want to set print format like 'X_58_170'...
I call the fuction 'SET_PRINT_PARAMETERS'
... example)
CALL FUNCTION 'SET_PRINT_PARAMETERS'
    EXPORTING
      LAYOUT     = 'X_90_120'
      LINE_COUNT = '55'
      LINE_SIZE = '110'.
but, it doesn't work in ALV list program. It only works 'write' list program.
Give me an answer plz...
Regards
Kyung Woo

How to call WDA Application from an other SAP System

hello all,
I have a WDA Application and if the user click on a Button in this Application, i need to call an other WDA Application from an other SAP System.
example: SYStem X01 has a WDA Application and there is a Button in this Application, if the User click on this Button, a WDA Application from an Other System X09 shoud be displayed in the same window, same WDA IFRAME .
can any one tell me how can I do this?
Thank you all

Hi,
As mentioned earlier, you need to pass the host name and port of the second system. If the application name is same, pass the same application name.
DATA: lv_url TYPE string,
       lv_host TYPE string,
        lv_port TYPE string,
        lv_protocol TYPE string.
CALL METHOD cl_wd_utilities=>construct_wd_url
    EXPORTING
      application_name = 'ZWD_APPL_NAME'
      in_host          = lv_host   " host name of second system (X09)
      in_port          = lv_port    " port of second system
      in_protocol      = lv_protocol " protocol of second system
*      in_parameters    = lt_parameters
      namespace        = 'sap'
    IMPORTING
      out_absolute_url = lv_url.
To get the Host, Port and Protocol of second system, wrap the below code in a Function Module(RFC) in X09 and call this in X01 and then pass them to the cl_wd_utilities=>construct_wd_url as mentioned above
CALL METHOD cl_http_server=>if_http_server~get_location
    IMPORTING
      host         = host
      port         = port
      out_protocol = out_protocol.
hope this helps,
Regards,
Kiran

How to call an EXE file on a remote system from SAP system?

Hi Friends,
I want to execute an EXE file existing on the remote system from SAP system. Could some one give me an idea of how to execute that?
Thanx in advance,
Ram

Hi Ram,
Try this
SXPG_COMMAND_EXECUTE
Reward if this helps,
Satish

How to call set pf-status in 4.6C system ALV report

Similar Messages

Maybe you are looking for