Error in GETWA_NOT_ASSIGNED in VL10A

Dear All,<br><br>
      Recently we upgrade 4.6c to ECC 6. After that we have a problem, while we run the Sales return useing VL10A in background, it's going to dump.<br><br>
<br>Error is,
       <pre>GETWA_NOT_ASSIGNED.
What happened?                                                              
    Error in the ABAP Application Program
    The current ABAP program "SAPLV50S" had to be terminated because it has 
    come across a statement that unfortunately cannot be executed.     
Error analysis  
    You attempted to access an unassigned field symbol
    (data segment 466).                        
    This error may occur if
    - You address a typed field symbol before it has been set with
      ASSIGN                                         
    - You address a field symbol that pointed to the line of an
      internal table that was deleted                       
    - You address a field symbol that was previously reset using
      UNASSIGN or that pointed to a local field that no      
      longer exists                                           
    - You address a global function interface, although the
      respective function module is not active - that is, is     
      not in the list of active calls. The list of active calls    
      can be taken from this short dump.                       
*Trigger Location of Runtime Error *   
    Program                                 SAPLV50S
    Include                                 /SPE/V50SF07
    Row                                     437
    Module type                             (FORM)
    Module Name                             /SPE/RET_HUS_GET
429 ****************************************************
430 *  This should only run in delivery item processing     
431 ****************************************************        
432   CHECK if_get_hus IS INITIAL.                              
433  
434
435
436 *...First: Read corresponding item(s) of HU(S) to delivery item
>>>>   LOOP AT verpo_tab ASSIGNING <fs_verpo_tab> WHERE vbeln = xlips-vbeln AND
438                                                    posnr = xlips-posnr.
439
440 *...Second: Read corresponing HU head send by EWM for necessary compare of VENUM
441                 
442     READ TABLE verko_tab INTO ls_verko_tab WITH KEY venum = <fs_verpo_tab>-venum
443                                                                    BINARY SEARCH.
       <fs_verko_tab>  local data field was not found in subroutine SAPLV50S</pre>
<br><br>
      Please could you help me as soon as possible.
<br><br>
Thanks & Regards,<br>
Ahmed Arsath. A
<br><br>
Edited by: Ahmed Arsath Abdul Azees on Dec 15, 2009 7:48 AM
<br><br>Edited by: Matt on Dec 15, 2009 12:48 PM - fixed formatting

The code is
LOOP AT verpo_tab ASSIGNING <fs_verpo_tab> WHERE vbeln = xlips-vbeln AND
                                                 posnr = xlips-posnr.
Total nonsense to say that the problem is caused by verpo_tab being empty.
As I've already said: unless this is part of a user exit it is standard SAP code.   The original poster hasn't left anything out! Therefore OSS is the correct place to look.
Edited by: Matt on Dec 15, 2009 4:52 PM

Similar Messages

  • Error in "GETWA_NOT_ASSIGNED" in cor1 tocde ?

    Hi Exports,
                     In Development system process order is creating successfully in COR1 tcode but
                     in production system while creating process order it is giving error,
                     The error is "GETWA_NOT_ASSIGNED"
                    what is the problem ? pls help me in this.

    Hi Ram ,
    GETWA_NOT_ASSIGNED means that any field-symbol is unassigned.
    You can do the following:
    a) Go to st22
    b) Check Active Call events.
    c) Isolate the field-symbol which is unassigned.
    d) Make sure you have performed the check if the field-symbol is assigned.
    If you need further help please post the code which is dumping.
    Regards
    Kavindra

  • Facing a Runtime Error u201C GETWA_NOT_ASSIGNED u201C in report at background

    Hi All,
    I am facing a Runtime Error u201C GETWA_NOT_ASSIGNED u201C when a custom report is executed in the background,
    whereas the same report in getting executed properly in foreground.
    The reason, which, the Dump Analysis specifies is u201C Field symbol has not yet been assigned in the ABAP program "SAPLKKBL "
    Any one pls. let me know the solution
    I have already checked my field catalog & all the field names are in Capital.
    Please suggest the solution.
    Thanks in advance.
    Thanks & Regards,
    Sudhir Dure
    9972097464

    please check the fields in the output display with currency /quantity fields/packed decimal fields...
    try by moving the data into a char field..it will work..

  • Getting error message GETWA_NOT_ASSIGNED"

    Hi,
    I created a report for the uploading of the excel data in the system and displaying in the alv grid display.
    I am getting an error message "GETWA_NOT_ASSIGNED" .
    Can anyone tell whats the problem in the feildcat and how to resolve it.
    I think the problem is in BUILD_CATALOG.
    {      FORM BUILD_CATALOG.
                WA_FIELDCAT-OUTPUTLEN = '15' .
                WA_FIELDCAT-FIELDNAME = 'PROCESSING TYPE'.
                wa_fieldcat-fieldname = 'proctype'.
                 wa_fieldcat-tabname = 'ZNEWFINE_045'.
                 APPEND WA_FIELDCAT TO IT_FIELDCAT .
                 CLEAR WA_FIELDCAT .
                WA_FIELDCAT-OUTPUTLEN = '15' .
                WA_FIELDCAT-FIELDNAME = 'PROCESSING TYPE'.
                wa_fieldcat-fieldname = 'BLART'.
                 wa_fieldcat-tabname = 'ZNEWFINE_045'.
                 APPEND WA_FIELDCAT TO IT_FIELDCAT .
                 CLEAR WA_FIELDCAT.
                 wa_fieldcat-no_out = ''.
          ENDFORM.
          FORM BUILD_LAYOUT.
            FS_LAYOUT-WINDOW_TITLEBAR = 'EXCEL JOURNAL UPLOAD'.
            FS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
            ENDFORM.
    Edited by: neel_arya15 on May 24, 2011 1:04 PM

    Hi,
    Instead of
    wa_fieldcat-fieldname = 'proctype'.
    Try with
    wa_fieldcat-fieldname = 'PROCTYPE'.
    Thanks and Regards,
    Chandra

  • Urgent: getting error while pressing SAVE button on final grid screen

    Hi ABAPers,
          please help me to sort this problem, i want to save the records selected by the user to database table. but when i m pressing save on o/p grid screen its giving error as GETWA_NOT_ASSIGNED.
    This is my code
    TABLES: plaf,
            mara,
            makt,
            zcdr_d.
    Type Pools for ALV *************************************
    TYPE-POOLS: SLIS,
                ABAP.
    TYPES DECLARATION ************************************
    TYPES:
    ******Types declaration for the plaf
    BEGIN OF ty_plaf,
    plnum TYPE plaf-plnum,
    matnr TYPE plaf-matnr,
    END OF ty_plaf,
    ******Types declaration for the makt
    BEGIN OF ty_makt,
    maktx TYPE makt-maktx,
    END OF ty_makt.
    INTERNAL TABLE DECLARATION ***************************
    DATA:
    *---internal table for the type ty_plaf
    it_plaf TYPE TABLE OF ty_plaf,
    *---internal table for the type t_bseg
    it_makt TYPE TABLE OF ty_makt,
    *---internal table for fieldcat
    it_fcat TYPE TABLE OF slis_fieldcat_alv WITH NON-UNIQUE DEFAULT KEY
    WITH HEADER LINE INITIAL SIZE 0,
    *it_fcat1 TYPE TABLE OF slis_fieldcat_alv WITH NON-UNIQUE DEFAULT KEY
    *WITH HEADER LINE INITIAL SIZE 0,
    *---internal table for alv events
    it_events TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
    WITH HEADER LINE INITIAL SIZE 0,
    *it_events1 TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
    *WITH HEADER LINE INITIAL SIZE 0,
    *---final Internal table
    BEGIN OF it_final OCCURS 0,
    plnum LIKE plaf-plnum,
    sel TYPE C,
    matnr LIKE plaf-matnr,
    maktx LIKE makt-maktx,
    END OF it_final,
    BEGIN OF it_zcdr_d OCCURS 0,
    DSEL TYPE C,
            CBOOKNO LIKE zcdr_d-CBOOKNO,
            PLNUM LIKE zcdr_d-plnum,
            MATNR LIKE zcdr_d-matnr,
            MAKTX LIKE zcdr_d-maktx,
    END OF it_zcdr_d,
    *-------to pass the internal table data to database table
    itab TYPE TABLE OF zcdr_d with header line,
    it_save TYPE TABLE OF zcdr_d with header line.
    WORK AREA DECLARATION ********************************
    DATA:
    *---workarea for the type ty_plaf
    wa_plaf TYPE ty_plaf,
    *---workarea for the type ty_makt
    wa_makt TYPE ty_makt,
    *---workarea for the fieldcatalog
    wa_fcat TYPE slis_fieldcat_alv,
    wa_final LIKE LINE OF it_final,
    *---WORKAREA FOR THE PROCESSED DOCUMENT
    wa_zcdr_d LIKE LINE OF it_zcdr_d,
    *---LAYA OUT DECLARATION
    wa_layout TYPE slis_layout_alv.
    *---LAYA OUT DECLARATION
    *wa_layout1 TYPE slis_layout_alv.
    Variables DECLARATION ********************************
    DATA: v_repid LIKE SY-REPID,
               v_hkont LIKE bseg-hkont,
               v_pifno(16) TYPE C,
               v_pifdat LIKE SY-DATUM,
               v_pif(6) TYPE C,
               Field_Cat type Slis_T_fieldcat_alv with HEADER LINE,
               List_Top_Of_Page type Slis_T_Listheader.
    PARAMETERS ****************************************
    SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
    PARAMETERS : CBOOKNO(16) TYPE n OBLIGATORY.      "Customs Book number
    SELECTION-SCREEN END OF BLOCK b1.
    SELECT OPTION ****************************************
    SELECTION-SCREEN : BEGIN OF BLOCK blk WITH FRAME TITLE text-001.
    SELECTION-SCREEN SKIP 1.
    SELECT-OPTIONS:
    Date
    so_pertr for plaf-pertr,
    Material
    so_matnr for plaf-matnr,
    Material Group
    so_matkl for mara-matkl,
    Plant
    so_plwrk for plaf-plwrk OBLIGATORY,
    Sales Order
    so_kdauf for plaf-kdauf.
    SELECTION-SCREEN : END OF BLOCK blk.
    LOAD OF PROGRAM ***************************************
    *LOAD-OF-PROGRAM.
    *IF sy-tcode NE text-002. "Condition for TCode Check
    MESSAGE 'RUN THROUGH THE TRANSACTION CODE' TYPE 'X'.
    *ENDIF. "End Condition for TCode
    INITIALIZATION ****************************************
    INITIALIZATION.
    PERFORM CLEAR_DATA.
    CLEAR: wa_layout.
    START-OF-SELECTION *************************************
    START-OF-SELECTION.
    *-------Getting the data from database
    PERFORM GET_DATA.
    *-------Populating field catalog
    PERFORM populate_fieldcatalog.
    PERFORM set_events USING it_events[].
    PERFORM top_of_page.
    *------Processing the Data and Moving to final Internal Table
    *PERFORM PROCESS_DATA.
    *------Displaying the data in the Output
    PERFORM DISPLAY_OUTPUT.
    *end-of-SELECTION.
    *call screen 0500.
    **&      Module  d0100_set_status  OUTPUT
          text
    *module d0500_set_status output.
    data : rt_extab TYPE slis_t_extab.
    perform set_pf_status USING rt_extab.
    *endmodule.                 " d0100_set_status  OUTPUT
    *module d0100_fcode input.
    perform user_command.
    *endmodule.                 " d0100_fcode  INPUT
    form CLEAR_DATA .
    **CLEARDING THE TABLES AND WORK AREAS
    CLEAR: it_plaf[],
    it_makt[],
    wa_plaf,
    wa_makt.
    endform. " CLEAR_DATA
    *& Form GET_DATA
    text
    --> p1 text
    <-- p2 text
    form populate_fieldcatalog.
      DATA: L_POS TYPE I.
    FIELD_CAT-COL_POS   = L_POS.
    L_POS = L_POS + 1.
    CLEAR FIELD_CAT.
    field_cat-SELTEXT_M = 'Planned Order Nos.'.
    field_cat-tabname = wa_final.
    field_cat-fieldname = 'PLNUM'.
    append field_cat.
    FIELD_CAT-COL_POS   = L_POS.
    L_POS = L_POS + 1.
    CLEAR FIELD_CAT.
    *field_cat-checkbox = 'X'.
    field_cat-SELTEXT_M = 'Check Box'.
    Field_Cat-outputlen = '1'.
    field_cat-tabname = wa_final.
    field_cat-checkbox  = abap_true.
    field_cat-edit = abap_true.
    field_cat-fieldname = 'CHK'.
    append field_cat.
    FIELD_CAT-COL_POS   = L_POS.
    L_POS = L_POS + 1.
    CLEAR FIELD_CAT.
    field_cat-SELTEXT_M = 'Material'.
    field_cat-tabname = wa_final.
    field_cat-fieldname = 'MATNR'.
    append field_cat.
    FIELD_CAT-COL_POS   = L_POS.
    L_POS = L_POS + 1.
    CLEAR FIELD_CAT.
    field_cat-SELTEXT_M = 'Material Description'.
    field_cat-tabname = wa_final.
    field_cat-fieldname = 'MAKTX'.
    append field_cat.
    endform. "  build_fieldcatalog
    form GET_DATA .
    SELECT
              a~PLNUM
              a~MATNR
              b~MAKTX
              c~matkl
              INTO CORRESPONDING FIELDS OF TABLE it_final
              FROM plaf as a
              Inner join makt as b
              on amatnr  = bmatnr
              Inner join mara as c
              on cmatnr = bmatnr
              where a~pertr in so_pertr
                    or a~matnr in so_matnr
                    or c~matkl in so_matkl
                    or a~kdauf in so_kdauf
                    or a~plwrk in so_plwrk.
    SORT it_final by plnum.
    endform. " GET_DATA
    FORM TOP_OF_PAGE.
      CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
        EXPORTING
          IT_LIST_COMMENTARY = List_Top_Of_Page.
      ENDFORM.
    form DISPLAY_OUTPUT .
    DATA:   repid LIKE sy-REPID,
            Eventcat type Slis_T_Event,
            LAYOUT TYPE SLIS_LAYOUT_ALV.
        LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
        LAYOUT-ZEBRA = 'X'.
    repid = sy-repid.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_INTERFACE_CHECK                 = ' '
      I_BYPASSING_BUFFER                = ' '
      I_BUFFER_ACTIVE                   = ' '
      I_CALLBACK_PROGRAM                  =  repid
       I_CALLBACK_PF_STATUS_SET          = 'SET_PF_STATUS'
       I_CALLBACK_USER_COMMAND           = '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                      = 'PLANNED ORDERS'
      I_GRID_SETTINGS                   =
      IS_LAYOUT                         = layout
       IT_FIELDCAT                       = Field_Cat[]
      IT_EXCLUDING                      =
      IT_SPECIAL_GROUPS                 =
      IT_SORT                           =
      IT_FILTER                         =
      IS_SEL_HIDE                       =
       I_DEFAULT                         = 'X'
       I_SAVE                            = 'X'
      IS_VARIANT                        =
      IT_EVENTS                         = IT_EVENTS[]
      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.
    ENDFORM.
    FORM set_events USING it_events TYPE slis_t_event.
    DATA: x_event TYPE LINE OF slis_t_event.
    clear x_event.
    x_event-name = 'USER_COMMAND'.
    x_event-form = 'USER_COMMAND'.
    append x_event to it_events.
    CLEAR x_event.
    call function 'REUSE_ALV_EVENTS_GET'
      EXPORTING
        I_LIST_TYPE           = 0
      IMPORTING
        ET_EVENTS             = IT_EVENTS
      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.
    read table it_events into x_event with key name = 'USER_COMMAND'.
          if sy-subrc = 0.
          x_event-form = 'USER_COMMAND'.
          modify it_events from x_event index sy-tabix transporting form .
          endif.
    ENDFORM.
    FORM set_pf_status USING rt_extab TYPE slis_t_extab.
    SET PF-STATUS 'Z_PFSTAT'.
    ENDFORM. "set_pf_status
    *& Form user_command
    text
    -->R_UCOMM text
    -->RS_SELFIELDtext
    FORM user_command USING
             r_ucomm TYPE sy-ucomm
             rs_selfield TYPE slis_selfield. "#EC *
    if r_ucomm = '&DATA_SAVE' .
    LOOP AT it_final INTO wa_final.
    IF wa_final-sel EQ 'X'.
    MOVE: wa_final-plnum TO it_save-plnum,
    wa_final-matnr TO it_save-matnr,
    wa_final-maktx TO it_save-maktx,
    v_pifno TO it_save-CBOOKNO,
    SY-MANDT TO it_save-mandt.
    MOVE it_save to zcdr_d.
    *INSERT zcdr_d.
    *if l_valid = 'X'.
    MODIFY zcdr_d FROM TABLE it_save.
    endif.
    ENDLOOP.
    IF it_save is initial.
    MESSAGE 'Select Atleast one Check Box' TYPE 'E' .
    ELSE.
    *CONCATENATE 'Number ' V_PIFNO ' Genrated'
    IF SY-SUBRC EQ 0.
    MESSAGE S001(zcdr_d) WITH 'Number ' CBOOKNO ' Genrated'.
    ENDIF.
    endif.
    ENDFORM.

    Thanks a lot for the reply Kiran, but i have already checked it, but its the same one. In debugging mode its going for error when there is a call for method like: 
    call method gt_grid-grid->set_function_code
          changing
            c_ucomm = l_okcode.
    so i dont know where is the problem. & this is in PAI module of the system program.
    Thanks
    Pankaj

  • Asset master creation (run time error)

    Dear all
    I am facing problem with  asset accounting at that time creation of asset master getting to  run time error message
    Error message: GETWA_NOT_ASSIGNED
    Fields symbol not yet been assigned(segment 32770)
    Thanks & Regards
    suresh
    Edited by: prasad y on Jul 5, 2011 3:23 PM

    Dear:
                  Please check notes, they have to be implemented in the system
                   992846
                   988238
                   Regards

  • Error when select posting level in document type

    Hi,
    Did anyone have an experience to face the Abab run time error when select "posting level" in document type?
    The Error is : GETWA_NOT_ASSIGNED
    Short text
    Field symbol has not yet been assigned.
    What happened?
    Error in the ABAP Application Program
    The current ABAP program "CL_UC_ITKEY_FACTORY===========CP" had to be
    terminated because it has
    come across a statement that unfortunately cannot be executed.

    If you searched the notes, as Dan proposed (and didn't find anything relevant), and the answer to the Greg's question is positive, then I would suggest regeneration data basis and ConsArea due to data model inconsistency.
    If it doesn't not help - open customer message to SAP.
    Edited by: Eugene Khusainov on Jan 26, 2010 10:26 AM

  • GETWA_NOT_ASSIGNED DUMP while creating quotation.from existing quotation.

    hi,
    when i am creating an quotation from the existing quotation using the COPY button in the crmd_order
    i get an runtime error (DUMP)
    "GETWA_NOT_ASSIGNED" C
    "SAPLSLVC" or "LSLVCF36"
    "DATA_TABLE_FILL"
    this is happenning in production server,  but in the development and quality and maintenance servers
    we are not facing this dump.
    can you please explain,  how to proceed in fixing this dump..
    ADV. thanks
    dhineshsm.

    Try SAP Notes 431889 and 1004771. See if they help.
    Edited by: Amar Nath on Aug 28, 2008 7:27 PM

  • Problem in migration of Territory Attributes - dump : GETWA_NOT_ASSIGNED

    Hi,
    I am trying to migrate CRM Territory attributes using rule builder. But, I am getting run time error saying 'GETWA_NOT_ASSIGNED.
    Program : CRM_TERRMAN_DATA_MIGRATION
    Termination occurred in the ABAP program "CRM_TERRMAN_DATA_MIGRATION" - in
      "EXECUTE_DM".
    Code Extract:
      777       LOOP AT lt_data_mig_output_all ASSIGNING <fs_data_mig_output_all> .
      778         READ TABLE lt_terr_rule_dm ASSIGNING <fs_terr_rule_dm>
      779           WITH KEY terr_id = <fs_data_mig_output_all>-terr_id .
      780         IF <fs_data_mig_output_all>-success = '3'. "green
      781           <fs_terr_rule_dm>-status = '@08@'.
      782         ELSE.
      783           <fs_terr_rule_dm>-status = '@0A@'.  "red.
      784         ENDIF.
    >>>>>         MODIFY lt_terr_rule_dm INDEX sy-tabix
      786         FROM <fs_terr_rule_dm> TRANSPORTING status .
      787       ENDLOOP.
    Can you please let me know, how can I solve my issue.
    Thanks,
    Sandeep

    Hi Sandeep,
    Can you please check what's the value in lt_terr_rule_dm, sy-tabix and <fs_terr_rule_dm> in debug mode?
    If possible, can you please attach the debuggin screen?
    Or, please report an SAP Customer Message, because it seems to be a standard coding problem.
    Best regards,
    Maggie

  • Run time error in ALV editable

    Hi Gurus
    I am getting a run time error when I edit a field in the ALV report and press enter. The run time error is : GETWA_NOT_ASSIGNED. It says I tried to access an unassigned field symbol. I have not used any field symbols in my field catalog or anywhere. It also says that the location of the termination was : cl_gui_alv_grid .
    I have to get this report working today at anycost. Any help will be very useful

    Yes , I have internal tables , a whole lot of them ...here is the code.
    REPORT ZSCREENREPORT NO STANDARD PAGE HEADING MESSAGE-ID YE.
    TABLES : VBUK ,
             VEPVG ,
             LIKP  ,
             VTTP  ,
             LIPS  ,
             LQUA  ,
             MAKT.
    DATA :  PWERKS TYPE LIPS-WERKS , PLGNUM TYPE LIPS-LGNUM.
    DATA  PTKNUM TYPE VTTP-TKNUM.
    DATA  PVBELN TYPE LIPS-VBELN.
    DATA : t_toolbar   type ui_functions with header line.
    DATA  OKCODE LIKE SY-UCOMM.
    DATA  S_OKCODE LIKE SY-UCOMM.
    DATA  B_VIEWREPORT.
    DATA  B_CLEARALL.
    DATA  B_PRINT.
    DATA  pr_data_changed TYPE REF TO cl_alv_changed_data_protocol.
    *DATA: g_event_receiver TYPE REF TO lcl_event_receiver.
    *TYPES: PR_DATA_CHANGED TYPE xxxxxx.
    *TYPES: LCL_EVENT_RECEIVER TYPE .
    class lcl_event_receiver definition deferred.
    selection-screen begin of block b2 with frame title text-001.
    selection-screen begin of block b1 with frame.
    BLOCK B1 FOR FIRST SET OF SELECT OPTIONS
    ALL ENTRIES ARE NECESSARY IN THIS BLOCK
    SELECT-OPTIONS : S_ORG      FOR  LIKP-VKORG MODIF ID B1,  "Sales Org
                     S_DISCHA   FOR  LIKP-VTWIV MODIF ID B1,  "Dis Cha
                     S_DIV      FOR  LIKP-SPAIV MODIF ID B1,  "Division
                     S_SPOINT   FOR  LIKP-VSTEL MODIF ID B1.  "Shipping
    "point
    selection-screen end of block b1.
    selection-screen begin of block b3 with frame.
    *BLOCK B3 FOR PICKING DATE . THIS FIELD IS OBLIGATORY
    PARAMETERS :     P_DEL    LIKE  VBUK-KOSTK DEFAULT 'A'.
    SELECT-OPTIONS : S_PICDAT     FOR  LIKP-KODAT OBLIGATORY ,
                     S_PGDAT FOR  LIKP-WADAT .
    selection-screen end of block b3.
    selection-screen begin of block b4 with frame.
    BLOCK B4 FOR SHIPMENT NUMBER / DELIVERY NUMBER. ONLY ONE CAN BE
    *ENTERED
    SELECT-OPTIONS:  S_SHNUM  FOR  VTTP-TKNUM MODIF ID B2 ,     " Shipment
                                                                "Number
                     S_DENUM  FOR  LIKP-VBELN MODIF ID B2 .     " Delivery
    " Number
    selection-screen end of block b4.
    PARAMETERS : C_BBINS  AS CHECKBOX .
    selection-screen end of block b2.
    RANGES :         R_ORG      FOR  VEPVG-VKORG ,  "Sales Org
                     R_DISCHA   FOR  VEPVG-VTWEG ,  "Dis Cha
                     R_DIV      FOR  VEPVG-SPART ,  "Division
                     R_SPOINT   FOR  VEPVG-VSTEL ,  "Shipping point
                     R_PICDAT   FOR  LIKP-KODAT  , " Planned Pick Date
                     R_PGDAT   FOR  LIKP-WADAT  ,      " Planned goods issue
                     R_SHNUM  FOR  VTTK-TKNUM  ,     " Shipment Number
                     R_DENUM  FOR  LIKP-VBELN  ,     " Delivery Number
                     R_VBELN FOR   VBUK-VBELN  ,
                     R_MATNR FOR LIPS-MATNR .
    DATA : BEGIN OF ITAB1 OCCURS 0.
    DATA:  MATL  LIKE LIPS-MATNR,
           QUANT LIKE LIPS-LFIMG,
           UOM   LIKE LIPS-VRKME,
           KUNR  LIKE LIKP-KUNNR ,
           WERKS LIKE LIKP-WERKS,
           LGNUM LIKE LIPS-LGNUM,
           LGTYP LIKE LIPS-LGTYP ,
           VBELN LIKE LIPS-VBELN ,
           TKNUM LIKE VTTP-TKNUM.
    DATA : END OF ITAB1.
    DATA : BEGIN OF ITAB2 OCCURS 0.
    DATA :
           MATL  LIKE LIPS-MATNR,
           QUANT TYPE I,
           UOM   LIKE LIPS-VRKME,
           KUNR  LIKE LIKP-KUNNR.
    DATA : END OF ITAB2.
    DATA : BEGIN OF ITAB3 OCCURS 0.
    DATA : MATL  LIKE LIPS-MATNR,
           QUANT LIKE LIPS-LFIMG,
           UOM   LIKE LIPS-VRKME,
           KUNR  LIKE LIKP-KUNNR.
    DATA : END OF ITAB3.
    DATA : BEGIN OF ITAB_VBELN OCCURS 0.
    DATA : IBLN LIKE VBUK-VBELN.
    DATA : END OF ITAB_VBELN.
    DATA : BEGIN OF DEMANDTAB OCCURS 0.
    DATA : D_MATL LIKE LIPS-MATNR,
           D_MQUANT LIKE LIPS-LFIMG,
           D_MUOM LIKE LIPS-VRKME,
           D_QUANT LIKE LIPS-LFIMG,
           D_UOM LIKE LIPS-VRKME,
           D_KUNR LIKE LIKP-KUNNR.
    DATA : END OF DEMANDTAB.
    DATA : VMATNR LIKE LIPS-MATNR,
           VKUNR  LIKE LIKP-KUNNR,
           VQUANT LIKE LIPS-VRKME.
    DATA : BEGIN OF INVTAB OCCURS 0.
    DATA : IMATL   LIKE LIPS-MATNR,
           IBINLOC LIKE LQUA-LGPLA,
           IBATCH  LIKE LQUA-CHARG,
           IWARSTK LIKE LQUA-VERME,
           IUOM LIKE LQUA-MEINS.
    DATA : END OF INVTAB.
    DATA : BEGIN OF ITABX OCCURS 0.
    DATA : XMATL LIKE LIPS-MATNR,
           XMATDESC LIKE MAKT-MAKTX,
           XQUANT TYPE I,
           XUOM LIKE LIPS-VRKME,
           XBALQ TYPE I.
          EXPAND.
    DATA : END OF ITABX.
    DATA : BEGIN OF ITABMASTER OCCURS 0 .
    DATA : MMATL LIKE LIPS-MATNR,
           MKUNR LIKE LIKP-KUNNR,
           M_KQUANT  TYPE I,
           M_KUOM LIKE LIPS-VRKME,
           MBINLOC LIKE LQUA-LGPLA,
           MBATCH LIKE LQUA-CHARG,
           MWATSTK LIKE LQUA-VERME,
           M_IUOM LIKE LQUA-MEINS.
    DATA : END OF ITABMASTER.
    DATA : BEGIN OF ITABDESC OCCURS 0.
    DATA : MATNR LIKE MAKT-MATNR,
           MATDESC LIKE MAKT-MAKTX.
    DATA : END OF ITABDESC.
    TYPES : BEGIN OF ITABT ,
           FMATL LIKE LIPS-MATNR,
           FINDEX LIKE SY-TABIX,
           FKEY LIKE LIPS-MATNR,
           FMATDESC LIKE MAKT-MAKTX,
           FQUANT LIKE LIPS-LFIMG,
           FUOM LIKE ITAB1-UOM,
           FKUNR LIKE LIKP-KUNNR,
           F_KQUANT LIKE LIPS-LFIMG,"TYPE I,
           F_KUOM LIKE LIPS-VRKME,
           F_BALQUANT LIKE LIPS-LFIMG,"TYPE I,
           FBINLOC LIKE LQUA-LGPLA,
           FBATCH LIKE LQUA-CHARG,
           FWATSTK LIKE LQUA-VERME,
           F_IUOM LIKE LQUA-MEINS ,
           SEL_QUANT type LIPS-LFIMG," corr_1,
           END OF ITABT.
    DATA : BEGIN OF FLAGTAB OCCURS 0 .
    DATA : SEL_QUANT TYPE I , FKEY LIKE LIPS-MATNR.
    DATA : END OF FLAGTAB.
    DATA : ITAB type  ITABT occurs 0 with header line  .
    data : itab_w like line of itab .
    DATA t_layout    type lvc_s_layo.
    DATA: ok_code LIKE sy-ucomm .
    DATA:
         go_grid             TYPE REF TO cl_gui_alv_grid,
         go_custom_container TYPE REF TO cl_gui_custom_container.
    DATA : I_SELECTED_ROWS TYPE LVC_T_ROW,
           W_SELECTED_ROWS TYPE LVC_T_ROW,
           I_MODIFIED TYPE STANDARD TABLE OF ITABT,
           W_MODIFIED TYPE ITABT,
           WA TYPE ITABT.
    *field catalogs -
    DATA : WA_FIELDCAT TYPE lvc_t_fcat with header line.
    data : fcat type  lvc_t_fcat WITH HEADER LINE .
    FIELD-SYMBOLS : <FS_FIELDCAT> TYPE LVC_S_FCAT .
    DATA : V_VALID TYPE C.
    clear fcat.
          CLASS LCL_EVENTS_D0100 DEFINITION
    CLASS LCL_EVENT_receiver DEFINITION.
    PUBLIC SECTION.
    METHODS :
        handle_data_changed         for event data_changed
                             of cl_gui_alv_grid
                            IMPORTING er_data_changed.
    ENDCLASS.
    data : my_application type ref to lcl_event_receiver.
          CLASS LCL_EVENTS_D0100 IMPLEMENTATION
    CLASS LCL_EVENT_receiver IMPLEMENTATION.
    METHOD handle_data_changed.
    DATA: ls_good TYPE lvc_s_modi.
    DATA : L_PLANETYPE TYPE LIPS-ANZSN.
    data : swapper type LIPS-ANZSN .
    LOOP AT er_data_changed->mt_good_cells INTO ls_good.
         CASE ls_good-fieldname.
           WHEN 'SEL_QUANT'.
             CALL METHOD pr_data_changed->get_cell_value
                EXPORTING
                  i_row_id = ls_good-row_id
                  i_fieldname = ls_good-fieldname
                IMPORTING
                  e_value = l_planetype.
    *read table itab into itab_w index  ls_good-row_id.
        swapper = itab_w-f_balquant - l_planetype.
         move swapper to itab_w-f_balquant.
         modify itab FROM itab_w .
       ENDCASE.
    ENDLOOP.
    ENDMETHOD.
    ENDCLASS.
    DATA: g_event_receiver TYPE REF TO lcl_event_receiver.
    INITIALIZATION.
      S_PICDAT-SIGN = 'I'.
      S_PICDAT-OPTION = 'BT'.
      S_PGDAT-SIGN = 'I'.
      S_PGDAT-OPTION = 'BT'.
      S_PICDAT-LOW = SY-DATUM.
      S_PICDAT-HIGH = SY-DATUM + 1.
      APPEND S_PICDAT.
      S_PGDAT-LOW  = SY-DATUM.
      S_PGDAT-HIGH = SY-DATUM + 1.
      APPEND S_PGDAT.
    **--VALIDATIONS--
    AT SELECTION-SCREEN .
      IF  S_ORG IS  initial AND  S_DISCHA IS INITIAL AND S_DIV  IS
    INITIAL AND S_SPOINT  IS initial AND S_SHNUM  IS INITIAL AND S_DENUM  IS
       INITIAL .
        MESSAGE E082(YE) WITH 'AT LEAST ONE FIELD MUST BE ENTERED'.
      ENDIF.
      DATA LV_COUNT TYPE I VALUE 0.
      IF NOT S_ORG IS  initial OR NOT S_DISCHA IS INITIAL OR NOT S_DIV  IS
      INITIAL OR  NOT  S_SPOINT  IS initial.
        lv_COUNT = 1.
      ENDIF.
      IF NOT S_SHNUM  IS INITIAL .
        LV_COUNT = LV_COUNT + 1.
      ENDIF.
      IF NOT S_DENUM  IS INITIAL .
        LV_COUNT = LV_COUNT + 1.
      ENDIF.
      IF LV_COUNT > 1.
        MESSAGE E081(YE) WITH 'Please Enter Only in Block1 Or Block3' .
      endif.
      read table s_PICDAT index 1.
      data: days type i.
      days = s_PICDAT-high  - s_PICDAT-low .
      if days > 2.
        message e080(YE) with 'Range can not be > 2 days'.
      endif.
      read table s_PGDAT index 1.
      data: days2 type i.
      days2 = s_PGDAT-high  - s_PGDAT-low .
      if days2 > 2.
        message e080(YE) with 'Range can not be > 2 days'.
      endif.
    VALIDATIONS FOR FIRST BLOCK---------------------------------------
    *IF S_SHNUM IS INITIAL AND S_DENUM IS INITIAL.
    IF S_ORG IS INITIAL OR S_SPOINT IS INITIAL OR S_DISCHA IS INITIAL OR
    *S_DIV IS INITIAL .
    *MESSAGE E083(YE) WITH 'ALL FIELDS IN BLOCK ONE REQUIRED'.
    ENDIF.
    *ENDIF.
    *--START OF SELECTION--
    START-OF-SELECTION .
      IF NOT S_ORG IS  initial OR NOT S_DISCHA IS INITIAL OR NOT S_DIV  IS
      INITIAL OR  NOT  S_SPOINT  IS initial.
        PERFORM INPUTBLOCK1.
        PERFORM TABPRINT1.
      ENDIF.
      IF NOT S_SHNUM  IS INITIAL .
        PERFORM INPUTBLOCK2 .
        PERFORM TABPRINT1.
      ENDIF .
      IF NOT S_DENUM  IS INITIAL .
        PERFORM INPUTBLOCK3 .
        PERFORM TABPRINT1.
      ENDIF .
      CLEAR ITAB2.
    *LOOP AT ITABX.
       R_MATNR-SIGN = 'I'.
       R_MATNR-OPTION = 'EQ'.
       R_MATNR-LOW = ITABX-XMATL.
       APPEND R_MATNR. CLEAR R_MATNR.
    *ENDLOOP.
      PERFORM WARINVENTORY.
      PERFORM WARMASTERUPLD.
      CALL SCREEN 100.
    *=====================================================
    *&      Module  user_command_0100  input
          text
    MODULE USER_COMMAND_0100 INPUT.
    SAVED_OKCODE = OKCODE.
      S_OKCODE = OKCODE.
      CLEAR OKCODE.
      CASE S_OKCODE.
      WHEN 'EXIT' OR 'BACK' OR 'CANC'.
       LEAVE PROGRAM.
      WHEN OTHERS.
      call method go_grid->check_changed_data
       importing
          e_valid = V_VALID .
      PERFORM SAVE_ITAB.
    endcase.
    case sy-ucomm.
      when 'b_clearall'.
      loop at itab.
      itab-sel_quant = 30.
      modify itab.
      endloop.
      CALL TRANSACTION 'YWMINI'.
       ENDCASE.
      call method go_grid->check_changed_data.
       importing
         e_valid = v_valid.
    *LOOP AT ITAB.
    *IF ITAB-SEL_QUANT NE 0.
    *MOVE ITAB-SEL_QUANT TO FLAGTAB-SEL_QUANT.
    *MOVE ITAB-FKEY TO FLAGTAB-FKEY.
    *COLLECT FLAGTAB.
    *ENDIF.
    *ENDLOOP.
    LOOP AT ITAB.
      LOOP AT FLAGTAB WHERE FKEY = ITAB-FKEY.
      ITAB-F_BALQUANT = ITAB-F_BALQUANT - FLAGTAB-SEL_QUANT.
      MODIFY ITAB.
      ENDLOOP.
    *ENDLOOP.
    ENDMODULE.                 " USER_COMMAND_0100  INPUT
    *&      Module  STATUS_0100  OUTPUT
          text
    MODULE STATUS_0100 OUTPUT.
    *SET PF-STATUS 'ZSTAT'.
      set pf-status 'STAT'.
    SET TITLEBAR 'WAVEPICK'.
    *call screen 1010  .
      IF go_custom_container IS INITIAL.
        CREATE OBJECT go_custom_container
          EXPORTING container_name = 'ALV_CONTAINER'.
        CREATE OBJECT go_grid
          EXPORTING
            i_parent = go_custom_container.
    set handler  pr_data_changed=>on_data_changed
    *for all instances.
    call method go_grid->register_edit_event
                   exporting
                      i_event_id = cl_gui_alv_grid=>mc_evt_enter.
      CREATE OBJECT g_event_receiver.
      SET HANDLER g_event_receiver->handle_data_changed FOR go_grid.
      PERFORM xclude_toolbar.
      PERFORM CREATE_FIELDCAT.
      PERFORM load_data_into_grid.
    ENDIF.
    else .
    call method my_application->refresh_table_display.
      endif.
    *call method go_grid->register_edit_event
    *exporting
    *i_event_id = cl_gui_alv_grid=>mc_evt_enter.
    *CALL METHOD GO_GRID->REFRESH_TABLE_DISPLAY
    perform load_data_into_grid.
      CLEAR ITAB1.
      READ TABLE ITAB1 .
      PWERKS = ITAB1-WERKS.
      PLGNUM  = ITAB1-LGNUM.
      PVBELN = ITAB1-VBELN.
      PTKNUM = ITAB1-TKNUM.
    ENDMODULE.                 " STATUS_0100  OUTPUT
          FORM INPUTBLOCK1                                              *
    FORM INPUTBLOCK1.
      SELECT LIPSMATNR  LIPSLFIMG LIPSVRKME LIKPKUNNR LIPS~WERKS
       LIPS~LGNUM
       LIPSLGTYP LIPSVBELN  INTO TABLE ITAB1 FROM
       LIPS JOIN LIKP ON LIPSVBELN = LIKPVBELN JOIN VBUK ON LIKP~VBELN =
      VBUK~VBELN   WHERE
      LIKP~VKORG IN S_ORG AND
      LIKP~VTWIV IN S_DISCHA AND
      LIKP~SPAIV IN S_DIV    AND
      LIKP~VSTEL IN S_SPOINT AND
      LIKP~KODAT IN S_PICDAT AND
      LIKP~WADAT IN S_PGDAT  AND
      LIPS~LGTYP = '001' ."    AND
    *VBUK~KOSTK = 'A' .
    ENDFORM .
          FORM INPUTBLOCK2                                              *
    FORM INPUTBLOCK2.
      SELECT LIPSMATNR LIPSLFIMG LIPSVRKME LIKPKUNNR  INTO
      TABLE ITAB1
    FROM LIPS JOIN LIKP ON LIPSVBELN = LIKPVBELN JOIN VTTP ON LIKP~VBELN =
      VTTPVBELN JOIN VBUK ON LIKPVBELN = VBUK~VBELN  WHERE
      VTTP~TKNUM IN S_SHNUM
       AND
      LIKP~KODAT IN S_PICDAT AND
      LIKP~WADAT IN S_PGDAT AND
      VBUK~KOSTK = 'A'.
    ENDFORM.
          FORM INPUTBLOCK3                                              *
    FORM INPUTBLOCK3 .
      SELECT LIPSMATNR LIPSLFIMG LIPSVRKME LIKPKUNNR  INTO
      TABLE ITAB1
    FROM LIPS JOIN LIKP ON LIPSVBELN = LIKPVBELN JOIN VBUK ON LIKP~VBELN =
       VBUKVBELN WHERE LIKPVBELN IN
      S_DENUM
      AND
      LIKP~KODAT IN S_PICDAT AND
      LIKP~WADAT IN S_PGDAT AND
      VBUK~KOSTK = 'A'.
    ENDFORM.
          FORM TABPRINT1                                                *
    FORM TABPRINT1.
      LOOP AT ITAB1 .
        MOVE: ITAB1-MATL TO ITAB2-MATL,
              ITAB1-UOM  TO ITAB2-UOM,
              ITAB1-KUNR TO ITAB2-KUNR,
              ITAB1-QUANT TO ITAB2-QUANT.
        COLLECT ITAB2.
      ENDLOOP.
      LOOP AT ITAB2.
        MOVE ITAB2-MATL TO ITABX-XMATL.
        MOVE ITAB2-QUANT TO ITABX-XQUANT.
        MOVE ITAB2-UOM TO ITABX-XUOM.
        MOVE ITABX-XQUANT TO ITABX-XBALQ.
        COLLECT ITABX.
      ENDLOOP.
      clear ITABX .
      LOOP AT ITABX.
        R_MATNR-SIGN = 'I'.
        R_MATNR-OPTION = 'EQ'.
        R_MATNR-LOW = ITABX-XMATL.
        APPEND R_MATNR. CLEAR R_MATNR.
      ENDLOOP.
      SELECT  MAKTMATNR MAKTMAKTX INTO TABLE ITABDESC FROM MAKT
      WHERE MAKT~MATNR IN R_MATNR .
      DATA  C_DESC LIKE MAKT-MAKTX.
      C_DESC = '0'.
      LOOP AT ITABDESC   .
        IF ITABDESC-MATNR = C_DESC .
          DELETE ITABDESC.
        ELSE .
          C_DESC = ITABDESC-MATNR.
        ENDIF.
      ENDLOOP.
      LOOP AT ITABDESC.
        LOOP AT ITABX WHERE XMATL = ITABDESC-MATNR.
          ITABX-XMATDESC = ITABDESC-MATDESC.
          MODIFY ITABX.
        ENDLOOP.
      ENDLOOP.
      CLEAR ITABX.
    *ENDSELECT.
    ENDFORM.
          FORM WARINVENTORY                                             *
    FORM WARINVENTORY.
    *Select matnr from LQUA
              into LQUA where
                  matnr in r_matnr.
                  endselect.
    *if not r_matnr-low is initial .
    MESSAGE E080(YE) WITH 'NOT IN RANGE'.
    SELECT LQUAMATNR LQUALGPLA LQUACHARG LQUAVERME LQUA~MEINS INTO TABLE
      INVTAB FROM LQUA WHERE LQUA~MATNR
    IN R_MATNR AND LQUAWERKS = ITAB1-WERKS AND LQUALGNUM = ITAB1-LGNUM AND
       LQUA~LGTYP = '001' AND
       NOT LQUA~LGPLA = '000'.
    ENDFORM .
          FORM WARMASTERUPLD                                            *
    FORM WARMASTERUPLD .
      LOOP AT ITAB2.
        DELETE ITAB2.
        LOOP AT INVTAB WHERE IMATL = ITAB2-MATL.
          MOVE:  ITAB2-MATL TO ITABMASTER-MMATL ,
                 ITAB2-KUNR TO ITABMASTER-MKUNR,
                 ITAB2-QUANT TO ITABMASTER-M_KQUANT,
                 ITAB2-UOM TO ITABMASTER-M_KUOM ,
                 INVTAB-IBINLOC TO ITABMASTER-MBINLOC,
                 INVTAB-IBATCH TO ITABMASTER-MBATCH,
                 INVTAB-IWARSTK TO ITABMASTER-MWATSTK,
                 INVTAB-IUOM TO ITABMASTER-M_IUOM.
          APPEND ITABMASTER.
          DELETE INVTAB.
          CLEAR INVTAB.
          CLEAR ITAB2.
          EXIT.
        ENDLOOP.
      ENDLOOP.
      IF NOT INVTAB[] IS INITIAL.
        LOOP AT INVTAB.
          MOVE:  INVTAB-IMATL TO ITABMASTER-MMATL,
                 INVTAB-IBINLOC TO ITABMASTER-MBINLOC,
                 INVTAB-IBATCH TO ITABMASTER-MBATCH,
                 INVTAB-IWARSTK TO ITABMASTER-MWATSTK,
                 INVTAB-IUOM TO ITABMASTER-M_IUOM.
          ITABMASTER-MKUNR = SPACE.
          ITABMASTER-M_KQUANT = SPACE.
          ITABMASTER-M_KUOM = SPACE.
          APPEND ITABMASTER.
        ENDLOOP.
      ENDIF.
    *-- BEGIN ITAB UPLOAD--
      DATA : MATCHK LIKE ITABX-XMATL VALUE 0.
      LOOP AT ITABX.
    DELETE ITAB2.
        LOOP AT ITABMASTER   WHERE MMATL = ITABX-XMATL.
    IF ITABX-XMATL NE MATCHK .
         IF ITABMASTER-MMATL = ITABX-XMATL.
            MOVE:
                  ITABX-XMATL TO ITAB-FMATL,
                  ITABMASTER-MMATL TO ITAB-FKEY,
                  ITABX-XMATDESC TO ITAB-FMATDESC,
                  ITABX-XQUANT TO ITAB-FQUANT,
                  ITABX-XUOM TO ITAB-FUOM ,
                  ITABX-XBALQ TO ITAB-F_BALQUANT.
            MATCHK = ITABX-XMATL.
          ELSE .
            MOVE ITABMASTER-MMATL TO ITAB-FKEY.
            ITAB-FMATL = SPACE  .
            ITAB-FMATDESC = SPACE.
            ITAB-FQUANT = SPACE .
            ITAB-FUOM = SPACE .
            ITAB-F_BALQUANT = SPACE.
          ENDIF.
          MOVE:
                  ITABMASTER-MKUNR TO ITAB-FKUNR,
                  ITABMASTER-M_KQUANT TO ITAB-F_KQUANT,
                  ITABMASTER-M_KUOM TO ITAB-F_KUOM,
                  ITABMASTER-MBINLOC TO ITAB-FBINLOC,
                  ITABMASTER-MBATCH TO ITAB-FBATCH,
                  ITABMASTER-MWATSTK TO ITAB-FWATSTK,
                  ITABMASTER-M_IUOM TO ITAB-F_IUOM.
          ITAB-FINDEX = SY-TABIX.
          ITAB-SEL_QUANT = 0.
          APPEND ITAB.
          DELETE INVTAB.
          CLEAR INVTAB.
          CLEAR ITABX.
    *EXIT.
        ENDLOOP.
      ENDLOOP.
    *----- END ITAB UPLOAD--
    *TEST----
    *LOOP AT ITABMASTER.
    DELETE ITAB2.
    LOOP AT ITABX  WHERE XMATL = ITABMASTER-MMATL.
    **IF ITABX-XMATL NE MATCHK .
    *MOVE:
          ITABX-XMATL TO ITAB-FMATL,
          ITABX-XMATDESC TO ITAB-FMATDESC,
          ITABX-XQUANT TO ITAB-FQUANT,
          ITABX-XUOM TO ITAB-FUOM ,
          ITABX-XBALQ TO ITAB-F_BALQUANT,
           ITABMASTER-MKUNR TO ITAB-FKUNR,
           ITABMASTER-M_KQUANT TO ITAB-F_KQUANT,
           ITABMASTER-M_KUOM TO ITAB-F_KUOM,
           ITABMASTER-MBINLOC TO ITAB-FBINLOC,
           ITABMASTER-MBATCH TO ITAB-FBATCH,
           ITABMASTER-MWATSTK TO ITAB-FWATSTK,
           ITABMASTER-M_IUOM TO ITAB-F_IUOM.
           APPEND ITAB.
          DELETE INVTAB.
          CLEAR INVTAB.
          CLEAR ITABX.
    **EXIT.
    ENDLOOP.
    *ENDLOOP.
    *SORT ITAB BY FMATL.
    *END TEST----
    ENDFORM.
          FORM load_data_into_grid                                      *
    FORM load_data_into_grid.
      CALL METHOD go_grid->set_table_for_first_display
        EXPORTING
          IS_LAYOUT                     = t_layout
        i_structure_name = 'ITABT'
        IT_TOOLBAR_EXCLUDING    = t_toolbar[]
        CHANGING
        it_outtab        = ITAB[]
        IT_FIELDCATALOG  = fcat[]
    *call method go_grid->refresh_table_display
    *EXPORTING
    *i_event_id = cl_gui_alv_grid=>mc_evt_modified.
    i_structure_name = 'ITABT'
    CHANGING
    IT_OUTTAB = ITAB[]
    ENDFORM.
    form create_fieldcat.
    CLEAR wa_fieldcat.
    WA_FIELDCAT-REPTEXT = 'MATERIAL'.
    WA_FIELDCAT-COLTEXT = 'MATERIAL'.
    wa_fieldcat-fieldname = 'FMATL'.
    wa_fieldcat-col_pos =  1.
    wa_FIELDCAT-ref_table = 'ITAB'.
    wa_fieldcat-outputlen = 8.
    APPEND wa_fieldcat to fcat .
    CLEAR wa_fieldcat.
    WA_FIELDCAT-REPTEXT = 'MATERIAL'.
    WA_FIELDCAT-COLTEXT = 'MATERIAL DESCRIPTION'.
    wa_fieldcat-fieldname = 'FMATDESC'.
    wa_fieldcat-col_pos =  2.
    wa_FIELDCAT-ref_table = 'ITAB'.
    wa_fieldcat-outputlen = 20.
    APPEND wa_fieldcat to fcat .
    CLEAR wa_fieldcat.
    WA_FIELDCAT-COLTEXT = 'QUANTITY'.
    wa_fieldcat-fieldname = 'FQUANT'.
    wa_fieldcat-col_pos =  8.
    wa_FIELDCAT-ref_table = 'ITAB'.
    wa_fieldcat-outputlen = 8.
    WA_FIELDCAT-QUANTITY = 'VRKME'.
    WA_FIELDCAT-QFIELDNAME = 'VRKME'.
    APPEND wa_fieldcat to fcat.
    CLEAR wa_fieldcat.
    wa_fieldcat-fieldname = 'FUOM'.
    wa_fieldcat-col_pos =  4.
    wa_FIELDCAT-ref_table = 'ITAB'.
    WA_FIELDCAT-COLTEXT = 'UOM'.
    wa_fieldcat-outputlen = 4.
    APPEND wa_fieldcat to fcat.
    CLEAR wa_fieldcat.
    wa_fieldcat-fieldname = 'FKUNR'.
    wa_fieldcat-col_pos =  5.
    wa_FIELDCAT-ref_table = 'ITAB'.
    WA_FIELDCAT-COLTEXT = 'CUSTOMER'.
    wa_fieldcat-outputlen = 8.
    APPEND wa_fieldcat to fcat.
    CLEAR wa_fieldcat.
    wa_fieldcat-fieldname = 'F_KQUANT'.
    wa_fieldcat-col_pos =  6.
    wa_FIELDCAT-ref_table = 'ITAB'.
    WA_FIELDCAT-COLTEXT = 'QUANTITY'.
    wa_fieldcat-outputlen = 8.
    WA_FIELDCAT-QUANTITY = 'VRKME'.
    WA_FIELDCAT-QFIELDNAME = 'VRKME'.
    APPEND wa_fieldcat to fcat.
    CLEAR wa_fieldcat.
    wa_fieldcat-fieldname = 'F_KUOM'.
    wa_fieldcat-col_pos =  7.
    wa_FIELDCAT-ref_table = 'ITAB'.
    WA_FIELDCAT-COLTEXT = 'UOM'.
    wa_fieldcat-outputlen = 4.
    APPEND wa_fieldcat to fcat.
    CLEAR wa_fieldcat.
    WA_FIELDCAT-COLTEXT = 'BALANCE QTY TO PICK'.
    wa_fieldcat-fieldname = 'F_BALQUANT'.
    wa_fieldcat-col_pos =  8.
    wa_FIELDCAT-ref_table = 'ITAB'.
    wa_fieldcat-outputlen = 8.
    WA_FIELDCAT-QUANTITY = 'VRKME'.
    WA_FIELDCAT-QFIELDNAME = 'VRKME'.
    APPEND wa_fieldcat to fcat .
    CLEAR wa_fieldcat.
    wa_fieldcat-fieldname = 'FBINLOC'.
    wa_fieldcat-col_pos =  9.
    wa_FIELDCAT-ref_table = 'ITAB'.
    WA_FIELDCAT-COLTEXT = 'BIN LOCATION'.
    wa_fieldcat-outputlen = 8.
    APPEND wa_fieldcat to fcat.
    CLEAR wa_fieldcat.
    wa_fieldcat-fieldname = 'FBATCH'.
    wa_fieldcat-col_pos =  10.
    wa_FIELDCAT-ref_table = 'ITAB'.
    WA_FIELDCAT-COLTEXT = 'BATCH'.
    wa_fieldcat-outputlen = 8.
    APPEND wa_fieldcat to fcat.
    CLEAR wa_fieldcat.
    wa_fieldcat-fieldname = 'FWATSTK'.
    wa_fieldcat-col_pos =  11.
    wa_FIELDCAT-ref_table = 'ITAB'.
    WA_FIELDCAT-COLTEXT = 'WAREHOUSE STK'.
    wa_fieldcat-outputlen = 8.
    APPEND wa_fieldcat to fcat.
    CLEAR wa_fieldcat.
    wa_fieldcat-fieldname = 'F_IUOM'.
    wa_fieldcat-col_pos =  12.
    wa_FIELDCAT-ref_table = 'ITAB'.
    WA_FIELDCAT-COLTEXT = 'UOM'.
    wa_fieldcat-outputlen = 4.
    APPEND wa_fieldcat to fcat.
    CLEAR wa_fieldcat.
    wa_fieldcat-fieldname = 'SEL_QUANT'.
    wa_fieldcat-col_pos =  13.
    wa_FIELDCAT-ref_table = 'ITAB'.
    WA_FIELDCAT-COLTEXT = 'SELECTED QTY'.
    wa_fieldcat-edit    =  'X'.
    wa_fieldcat-outputlen = 8.
    WA_FIELDCAT-QUANTITY = 'VRKME'.
    WA_FIELDCAT-QFIELDNAME = 'VRKME'.
    APPEND wa_fieldcat to fcat.
    *LOOP AT FCAT ASSIGNING <FS_FIELDCAT>.
    *CASE <FS_FIELDCAT>-FIELDNAME.
    *WHEN 'SEL_QUANT'.
    *<FS_FIELDCAT>-EDIT = 'X'.
    *ENDCASE.
    *ENDLOOP.
    *CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    *EXPORTING
    *I_STRUCTURE_NAME = 'ITABT'
    *CHANGING
    *CT_FIELDCATALOG = FCAT.
    *LOOP AT FCAT ASSIGNING <FS_FIELDCAT>.
    *CASE <FS_FIELDCAT>-FIELDNAME.
    *WHEN 'SEL_QUANT'.
    *<FS_FIELDCAT>-EDIT = 'X'.
    *ENDCASE.
    *ENDLOOP.
    endform.
    form xclude_toolbar .
    t_toolbar = '&DETAIL'.
    append t_toolbar.
    t_toolbar = '&&SEP00'.
    append t_toolbar.
    t_toolbar = '&&SEP01'.
    append t_toolbar.
    t_toolbar = '&&SEP02'.
    append t_toolbar.
    t_toolbar = '&SORT_ASC'.
    append t_toolbar.
    t_toolbar = '&SORT_DSC'.
    append t_toolbar.
    t_toolbar = '&FIND'.
    append t_toolbar.
    t_toolbar = '&MB_FILTER'.
    append t_toolbar.
    t_toolbar = '&&SEP04'.
    append t_toolbar.
    t_toolbar = '&MB_SUM'.
    append t_toolbar.
    t_toolbar = '&MB_SUB_TOTAL'.
    append t_toolbar.
    t_toolbar = '&PRINT_BACK'.
    append t_toolbar.
    t_toolbar = '&MB_VIEW'.
    append t_toolbar.
    t_toolbar = '&MB_EXPORT'.
    append t_toolbar.
    t_toolbar = '&GRAPH'.
    append t_toolbar.
    t_toolbar = '&COLO'.
    append t_toolbar.
    t_toolbar = '&&SEP06'.
    append t_toolbar.
    t_toolbar = '&&SEP07'.
    append t_toolbar.
    t_toolbar = '&INFO'.
    append t_toolbar.
    t_toolbar = '&&SEP03'.
    append t_toolbar.
    endform.
    FORM SAVE_ITAB.
    *CALL METHOD GO_GRID->GET_SELECTED_ROWS
    *IMPORTING
    *ET_INDEX_ROWS = I_SELECTED_ROWS.
    *LOOP AT I_SELECTED_ROWS INTO W_SELECTED_ROWS.
    *READ TABLE ITAB INTO WA INDEX W_SELECTED_ROWS-INDEX.
    *IF SY-SUBRC EQ 0.
    *MOVE-CORRESPONDING WA TO W_MODIFIED.
    *APPEND W_MODIFIED TO I_MODIFIED.
    *ENDIF.
    *ENDLOOP.
    *MODIFY ITAB FROM TABLE I_MODIFIED.
    *ENDFORM.
    ENDFORM.

  • Benefit  Workflow error

    Hi Friends,
    I am working on open enrollment benefits workflow scenario. Basically when even a health plan is entered through ESS for an employee, I have to send an email to set of people. I have done following workflow steps, but getting an error : RFC_ERROR_SYSTEM_FAILURE ,  GETWA_NOT_ASSIGNED
    Step 1: BUS3029 extended to ZBUS3029 to include Custom event CREATED. Delegated.
    Step 2 :  SWEHR1. u2013 Made following  .
               type : P ,  Info type : 0167 ,  Object Type : BUS3029
    Step 3:  SWEHR3
               Object type : P , Infotype : 0167 ,  Update op : INS ,  Event object type : BUS302901 and event : CREATED.
    Step 4:  Create a custom workflow and Liked event CREATED to it.
    I would really appreciate if you could help me out.
    Thanks
    Nash

    Hi Babar. How are you? I am good.
    When you hire any dummy employee, did you make sure all the master data information are exactly the same as an existing employee including date range etc. Is the HDHP and HSA together in your system?
    Can you try posting the screen shot here in this forum? You can upload the screen shot on any free sites, like photobucket etc and paste the link here.
    Giving email addresses is against the SDN rules.

  • Reg Dump in MIGO Transaction

    Hi all,
    When I am executing MIGO transaction in Pre-Production I am getting error as 'GETWA_NOT_ASSIGNED'. IF I check thru ST22, showing message as 'Field symbol has not yet been assigned'. Could anybody please assist in this regard.Thanks in advance.
    Thanks & Regards.
    I. Reddy Prasad

    Hi
    Pls check the following notes
    Note 496258 - MIGO: ABAP runtime error GETWA_NOT_ASSIGNED
    Note 712454 - MB1B/MIGO aborts with GETWA_NOT_ASSIGNED
    Note 979013 MIGO: Programmabbruch GETWA_NOT_ASSIGNED in LMIGOKC2
    Note 379448 GETWA_NOT_ASSIGNED for return delivery with MIGO
    Note 965675 MIGO: Termination after setting OK flag for tied empties
    Pls take opinion from SAP / Basis before implementing the note
    Regards
    Madhan

  • Dump while creating Process Order -COR1

    Hi,
                    I am getting dump while creating a Process Order thru COR1. the dump error discription GETWA_NOT_ASSIGNED .

    HI omprasath rajendiran,
    Do you solve the problème, because i get the same problème with COR1 ?

  • While loading the data in transaction RSA1 we are getting dump in SCM 5.1

    Hi,
    I am getting runtime error while loading the data in transaction RSA1.
    Runtime error is GETWA_NOT_ASSIGNED associated with program /SAPAPO/CL_PDEM_WORKDAYS.
    Please help me out with this.

    Hi Rahul,
    Check whether sap note 482494 can be applicable to you.

  • Variable in FOX - bps

    Hello all
    i am using variable in BPS  in order to multiply data with the value in the variable.
    When i execute the FOX, i get a dump, error.
    The error goes " GETWA_NOT_ASSIGNED  - Field Symbol has not yet been assigned"
    Can you tell me what can be the problems?
    Best
    Yuval

    Hi,
    May be you set up incorrectly a value for the vaiable. This value is not in master data of charater for this variable.
    Regards,
    Veronika.

Maybe you are looking for

  • New iMac 750 GB Hard Drive Fail Smart Drive Test - Glitch or Problem

    Greetings! I have a new 24" imac with 750 GB hard drive which has had problems out of the box (system crashing several times a day/unable to re-start/application crashes/general sluggishness). Five re-installs of Leopard (upgrade/clean install/instal

  • Down payment request against PO

    Hi SAP Guru, When user entering down payment request in F-47 against  a purchase oder the system is allowing to post the amount more than PO value which is logically incorrect. How can I prevent this ? Kindly reply with details. Regards, Sajib

  • JTDS version for UCCX 9.0?

    What is the recommended/supported version of JTDS for UCCX 9.0? I have used 1.2.5 successfully with 8.5.1, but I see recently released version of 1.2.6, 1.2.7, and 1.3.0. Anybody have any expereience with the newer JTDS versions?           

  • New AP2 with  serial no. but "not for resale"??

    I just received a copy of AP2 from a seller on Amazon and it does include the serial number, but only came with CD/DVD, no box. Upon installation (I first deleted the trial version, even though I suspect I didn't have to, but wanted the fresh install

  • Iphone has frozen

    a family member tried to break my pass code and phone has now frozen i can't do anything any ideas?