HI Guru s

                  I am practicing FM. I am facing two issue

1) In source code if i use "DATA : ITAB_TABLE....." i get an error ITAB_TABLE is already use.

2) iF i use " DATA : A_TABLE......" i am able to activate it and get 1st o/p screen ,however when i insert the reqd info and click on value i didn't get the reqd info, i have attached all screenshot plz tell me Y  i am not getting output......

Hi all,

In many ABAP Programs i have seen that with table" zsparams" we compare some entries.

My Question is what is use of  zsparams table also ex. where we use this table?

I have search on net but getting complex answer with very little light on that.

Please can anyone explain with simplicity.

Many thanks and points will be rewarded.

REPORT  ZALV_BLOCKDIPLAY.

TYPE-POOLS SLIS.

PARAMETERS:P TYPE MARA-MATNR,

           Q TYPE MARA-MATNR.

DATA:BEGIN OF IMARA OCCURS 0,

  A TYPE MARA-MATNR,

  B TYPE MARA-MBRSH,

  C TYPE MARA-MTART,

  END OF IMARA.

DATA: BEGIN OF IMARC OCCURS 0,

  D TYPE MARC-MATNR,

  E TYPE MARC-WERKS,

  END OF IMARC.

DATA:FCAT TYPE SLIS_T_FIELDCAT_ALV,

      WA TYPE SLIS_FIELDCAT_ALV.

DATA:FCAT1 TYPE SLIS_T_FIELDCAT_ALV,

      WA1 TYPE SLIS_FIELDCAT_ALV.

DATA:LT TYPE SLIS_LAYOUT_ALV.

DATA:ET TYPE SLIS_T_EVENT.

SELECT MATNR MBRSH MTART FROM MARA INTO TABLE IMARA WHERE MATNR BETWEEN P AND Q.

SELECT MATNR WERKS FROM MARC INTO TABLE IMARC WHERE MATNR BETWEEN P AND Q.

WA-REF_TABNAME = 'MARA'.

WA-COL_POS = '1'.

WA-TABNAME = 'IMARA'.

WA-FIELDNAME = 'MATNR'.

APPEND WA TO FCAT.

CLEAR WA.

WA-REF_TABNAME = 'MARA'.

WA-COL_POS = '2'.

WA-TABNAME = 'IMARA'.

WA-FIELDNAME = 'MBRSH'.

APPEND WA TO FCAT.

CLEAR WA.

WA-REF_TABNAME = 'MARA'.

WA-COL_POS = '3'.

WA-TABNAME = 'IMARA'.

WA-FIELDNAME = 'MTART'.

APPEND WA TO FCAT.

CLEAR WA.

WA1-REF_TABNAME = 'MARC'.

WA1-COL_POS = '1'.

WA1-TABNAME = 'IMARC'.

WA1-FIELDNAME = 'MATNR'.

APPEND WA1 TO FCAT1.

CLEAR WA1.

WA1-REF_TABNAME = 'MARC'.

WA1-COL_POS = '2'.

WA1-TABNAME = 'IMARC'.

WA1-FIELDNAME = 'WERKS'.

APPEND WA1 TO FCAT1.

CLEAR WA1.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

  EXPORTING

    I_CALLBACK_PROGRAM             = 'SY-CPROG'

*   I_CALLBACK_PF_STATUS_SET       = ' '

*   I_CALLBACK_USER_COMMAND        = ' '

*   IT_EXCLUDING                   =

.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

  EXPORTING

    IS_LAYOUT                        = LT

    IT_FIELDCAT                      = FCAT[]

    I_TABNAME                        = 'IMARA'

    IT_EVENTS                        = ET[]

*   IT_SORT                          =

*   I_TEXT                           = ' '

  TABLES

    T_OUTTAB                         = IMARA

* EXCEPTIONS

*   PROGRAM_ERROR                    = 1

*   MAXIMUM_OF_APPENDS_REACHED       = 2

*   OTHERS                           = 3

          .

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'

* EXPORTING

*   I_INTERFACE_CHECK             = ' '

*   IS_PRINT                      =

*   I_SCREEN_START_COLUMN         = 0

*   I_SCREEN_START_LINE           = 0

*   I_SCREEN_END_COLUMN           = 0

*   I_SCREEN_END_LINE             = 0

* IMPORTING

*   E_EXIT_CAUSED_BY_CALLER       =

*   ES_EXIT_CAUSED_BY_USER        =

* EXCEPTIONS

*   PROGRAM_ERROR                 = 1

*   OTHERS                        = 2

          .

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Hello Experts,

There is a custom report that uses logical database DDF.

Please let me know how I can reconstruct this report such that it does not use logical db.

The GET KNA1... statements need to be replaced with custom select Queries.

Please let me know how GET works and how I can replace it with SELECT.

Thank You.

Regards,

Sraddha.

Hi All,

There is a particular requirement to populate the vendor in the purchasing data tab of an item in tcode IW32.

In IW32, when an item is created under components tab and checked for purchasing data information, the vendor should be automatically populated.

Right now, it is done manually by editing the purchase requisition created and clicking on 'Assign source to supply'.

Please let me know if there are any exits/BADIs where this requirement can be fulfilled.

Hi! I am new in ABAP and have problem in my module pool program.

So, I have selection screen as subscreen:

  SELECTION-SCREEN BEGIN OF SCREEN 300 AS SUBSCREEN.

  PARAMETERS: p_fname TYPE dd03l-fieldname MODIF ID fn OBLIGATORY.

  SELECT-OPTIONS: p_fvalue FOR (selected_type) MODIF ID fv.

  SELECTION-SCREEN END OF SCREEN 300.

In selection screen I enter field name in parameter p_fname. Based on this

parameter I search for field name in table dd03l:

SELECT SINGLE a~datatype a~fieldname a~tabname FROM dd03l as a

      INNER JOIN dd02l as b

      ON a~tabname = b~tabname

      INTO wa_table_type

      WHERE ( fieldname = p_fname ) AND

     ( b~tabclass = 'TRANSP' OR b~tabclass = 'CLUSTER' OR b~tabclass = 'POOL').

Then I use selected information to define SELECT-OPTIONS: p_fvalue type dynamicaly:

    selected_type = wa_table_type-tabname && '-' && wa_table_type-fieldname.

The problem is that when I run my Module Pool program, enter p_fname then

first time I get correct SELECT-OPTIONS: p_fvalue type, but when I enter another p_fname

then SELECT-OPTIONS: p_fvalue have old type in my screen. (See images)

Seems that screen is not refreshing.

If You have some misunderstandings or need more info, please let me know!

Hope for Your Help, best regards, Debuger!

Hi..

      My  doubts regarding HCM forms and process...i did generic service for date  difference..actually  in my requirement   need to read two dates and update the total number of days  between two dates..for that i did custom  generic service..in the do_operations  method... the values are comeing fine..but  when i am executing the  process..the values are not shown in process..i attached the screen  for  further  clarifacations..

while debugging the do_operations method the values are comeing fine...but in the process level its not trigeered..

regards

jayaprakash

Hi guys,

I have created a tab name as "other tab" ..in that i have added two field:  invoice item and quantity.

i need to fetch the data in field invoice and quantity....

In Migo tcode we get line items like

Line       Mat. short text      Qty in Une

1               Aluminium               25

so what i want that when i click on any line item   i'll get like aluminum in my  invoice field and 25 in qty field.

                 ...

if image is not clear then check attached image..

if it is possible the pls help me out.......................

Hi Abap'ers ,

I have a requirement in which i need to copy an existing script in Russian language into Ukrainian language with Cyrillic scripts.

I copied it in UK language but i want to know how to change the texts which are in Russian language in Ukrainian language since they are appearing in Russian language after copying.

The texts are plenty..including even one paragraph of 5-6 lines.. so is it that i have to translate single word through web and paste it in the new script.. or is there any other way in which this can be achieved?

Help.

hi guru

I inserted the following code in a infoset to have the latest date in the face of a selection, but does not work, please help me

thank you in advance

data: begin of itab_date occurs 0,

                    itab_date like ekbe,

                    NEWFIELDS like ekbe-budat,

                    end of itab_date.

clear itab_date.

clear NEWFIELDS.

select budat from ekbe into itab_date-budat

  WHERE EBELN = EKPO-EBELN

  AND   EBELP = EKPO-EBELP

  AND   VGABE = '8'.

  Sort itab_date by itab_date-budat  descending.

  read table itab_date index 1.

endselect.

NEWFIELDS = itab_date-budat.

We  need to update Net price of line item by copying from line item above. Our client use to change net price with the help of Z transaction. They are changing line item net price manually by Z transaction. Data  is coming from SNC Portal and we are using BAPI_PO_CHANGE in RFC function module. They want BAPI_PO_CHANGE should copy above line item net price into new created line item net price. But, as PO is created based upon reference of outline agreement, it is picking up the agreement price. They don’t want to go for re-determining pricing conditions. Please suggest any best possible solution as I guess using Z transaction BDC to change net price is not good solution just after BAPI_PO_CHANGE.

Thanks,

Praveen

After passing the material number into a customized function module  I am getting the output value in numerical format.

After getting that result I need to do the following operation on it

If the output has more than 2 decimal places then the value must be trimmed

If the output has 2 decimal places then the value must be showed alike

Here are the samples

4.6 % should be converted to 4.60 %

43 % should be converted to 43.00 %

16.325 % should be converted to 16.32 %

By using below code.Let variable be lv_variable.

data: lv_var type p decimals 2.

lv_var = lv_variable.

it worked only 1f we will pass the values like 12.22,3.65,2.5555

but if the value is 12.6999 means the value is we get the output as 12.70,But I need to get the value as 12.69 only but not 12.70

is it possible to select data from multiple table which are not related(i.e no join or no primary ,foreign key relation between them)

Hi All,

This report program helps us to get the all USER EXITS for given transcation.

   *&---------------------------------------------------------------------*
*& Report  ZUSEREXIT_FIND
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZUSEREXIT_FIND.

*&---------------------------------------------------------------------*

*&  Enter the transaction code that you want to search through in order

*&  to find which Standard SAP® User Exits exists.

*&---------------------------------------------------------------------*


*&---------------------------------------------------------------------*

*& Tables

*&---------------------------------------------------------------------*


TABLES : tstc,     "SAP® Transaction Codes

         tadir,    "Directory of Repository Objects

         modsapt,  "SAP® Enhancements - Short Texts

         modact,   "Modifications

         trdir,    "System table TRDIR

         tfdir,    "Function Module

         enlfdir,  "Additional Attributes for Function Modules

         tstct.    "Transaction Code Texts


*&---------------------------------------------------------------------*

*& Variables

*&---------------------------------------------------------------------*


DATA : jtab LIKE tadir OCCURS0WITHHEADERLINE.

DATA : field1(30).

DATA : v_devclass LIKE tadir-devclass.


*&---------------------------------------------------------------------*

*& Selection Screen Parameters

*&---------------------------------------------------------------------*

SELECTION-SCREENBEGINOFBLOCK a01 WITHFRAMETITLEtext-001.

SELECTION-SCREENSKIP.

PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.

SELECTION-SCREENSKIP.

SELECTION-SCREENENDOFBLOCK a01.


*&---------------------------------------------------------------------*

*& Start of main program

*&---------------------------------------------------------------------*


START-OF-SELECTION.


* Validate Transaction Code

  SELECTSINGLE * FROM tstc

    WHERE tcode EQ p_tcode.


* Find Repository Objects for transaction code

  IF sy-subrc EQ0.

    SELECTSINGLE * FROM tadir

       WHERE pgmid    = 'R3TR'

         AND object   = 'PROG'

         AND obj_name = tstc-pgmna.


    MOVE : tadir-devclass TO v_devclass.


    IF sy-subrc NE0.

      SELECTSINGLE * FROM trdir

         WHERE name = tstc-pgmna.


      IF trdir-subc EQ'F'.


        SELECTSINGLE * FROM tfdir

          WHERE pname = tstc-pgmna.


        SELECTSINGLE * FROM enlfdir

          WHERE funcname = tfdir-funcname.


        SELECTSINGLE * FROM tadir

          WHERE pgmid    = 'R3TR'

            AND object   = 'FUGR'

            AND obj_name = enlfdir-area.


        MOVE : tadir-devclass TO v_devclass.

      ENDIF.

    ENDIF.


* Find SAP® Modifactions

    SELECT * FROM tadir

      INTOTABLE jtab

      WHERE pgmid    = 'R3TR'

        AND object   = 'SMOD'

        AND devclass = v_devclass.


    SELECTSINGLE * FROM tstct

      WHERE sprsl EQ sy-langu

        AND tcode EQ p_tcode.


    FORMATCOLOR COL_POSITIVE INTENSIFIED OFF.

    WRITE:/(19) 'Transaction Code - ',

    20(20) p_tcode,

    45(50) tstct-ttext.

    SKIP.

    IFNOT jtab[] ISINITIAL.

      WRITE:/(95) sy-uline.

      FORMATCOLOR COL_HEADING INTENSIFIEDON.

      WRITE:/1 sy-vline,

      2'Exit Name',

      21 sy-vline ,

      22'Description',

      95 sy-vline.

      WRITE:/(95) sy-uline.


      LOOPAT jtab.

        SELECTSINGLE * FROM modsapt

        WHERE sprsl = sy-langu AND

        name = jtab-obj_name.

        FORMATCOLORCOL_NORMALINTENSIFIED OFF.

        WRITE:/1 sy-vline,

        2 jtab-obj_name HOTSPOTON,

        21 sy-vline ,

        22 modsapt-modtext,

        95 sy-vline.

      ENDLOOP.


      WRITE:/(95) sy-uline.

      DESCRIBETABLE jtab.

      SKIP.

      FORMATCOLOR COL_TOTAL INTENSIFIEDON.

      WRITE:/ 'No of Exits:' , sy-tfill.

    ELSE.

      FORMATCOLORCOL_NEGATIVEINTENSIFIEDON.

      WRITE:/(95) 'No User Exit exists'.

    ENDIF.

  ELSE.

    FORMATCOLORCOL_NEGATIVEINTENSIFIEDON.

    WRITE:/(95) 'Transaction Code Does Not Exist'.

  ENDIF.


* Take the user to SMOD for the Exit that was selected.

ATLINE-SELECTION.

  GETCURSORFIELD field1.

  CHECK field1(4) EQ'JTAB'.

  SETPARAMETERID'MON'FIELD sy-lisel+1(10).

  CALLTRANSACTION'SMOD'ANDSKIPFIRSTSCREEN.

**********************************************************************************

Hi All,

My requirement is to edit the coloumn in the ALV tree.

Its a module pool programme and iam using the class

  cl_gui_alv_tree.

I have passed the field catalog edit 'X' and while creating node I have passed

tha layout edit is 'X'. but iam not getting.

I have tried and searched in standard programs in SAP, and in portal,

thay are saying that we cannot edit the cell or coloumn in ALV tree, is it?

help me..

Field catalog

CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name = 'SFLIGHT'
    CHANGING
      ct_fieldcat      = gt_fieldcatalog.

LOOP AT gt_fieldcatalog ASSIGNING <LFS_FCAT>.
    <LFS_FCAT>-EDIT = 'X'.
  ENDLOOP.

layout

   DATA: lt_item_layout TYPE lvc_t_layi,
        ls_item_layout TYPE lvc_s_layi.

  ls_item_layout-class   = cl_gui_column_tree=>item_class_checkbox.
ls_item_layout-editable = 'X'.
  ls_item_layout-fieldname = tree1->c_hierarchy_column_name.

   APPEND ls_item_layout TO lt_item_layout.

* add node
  l_node_text =  ps_sflight-connid.

  CALL METHOD tree1->add_node
    EXPORTING
      i_relat_node_key = p_relat_key
      i_relationship   = relat
      i_node_text      = l_node_text
      is_outtab_line   = ls_sflight
      it_item_layout   = lt_item_layout
    IMPORTING
      e_new_node_key   = p_node_key.

Hi Experts,

Considering I have 7 fields

1. VKONT

2. DOCX

3. DOCY

4. MIGPR (Migrated_prin)

5. WAIVED_PRIN

6. RECOVERABLE_PRIN

7. CLOSING_PRIN

where DOCX and DOCY are into a 1 : MANY relation.

Formula that I am applying here is - Migrated_Principal - Waived - Recoverable = Closing

How will I get CLOSING_PRIN to become MIGPR for subsequent DOCYs where . e.g is as below.

Current Scenario which I am getting the output for.

Requirement

Appending is my code that I am using

FORM GET_DATA .

  SELECT DVBDOC VKONT VKONA OLDKNO LEGAL CSFNO ORGPR ORGLP ORGPRN ORGLPN MIGPR MIGLP MIGAL MIGPRN MIGLPN MIGALN ERDAT
  FROM ZCATR_DVBAR INTO CORRESPONDING FIELDS OF TABLE IT_ZCATR_DVBAR WHERE VKONT IN CONT_ACC AND ERDAT IN CREATDON AND DVBST = 'M'.

  SORT IT_ZCATR_DVBAR BY DVBDOC ASCENDING.

  SELECT DVBDOC VKONT VKONA OLDKNO LEGAL  CSFNO ORGPR ORGLP ORGPRN  ORGLPN  MIGPR MIGLP MIGAL MIGPRN  MIGLPN MIGALN DVBREF ERDAT APVR1 APVR2 APVR1_DATE APVR2_DATE DVBST WFSTAT
  FROM ZCATR_DVBAR_VW INTO CORRESPONDING FIELDS OF TABLE IT_ZCATR_DVBAR_VW FOR ALL ENTRIES IN IT_ZCATR_DVBAR WHERE  DVBREF = IT_ZCATR_DVBAR-DVBDOC .

  SORT IT_ZCATR_DVBAR_VW BY VKONT DVBREF DVBDOC ASCENDING.

*  BREAK-POINT.

  LOOP AT IT_ZCATR_DVBAR_VW INTO WA_ZCATR_DVBAR_VW.

    WA_FINAL-DVBST = WA_ZCATR_DVBAR_VW-DVBST.
    WA_FINAL-WFSTAT = WA_ZCATR_DVBAR_VW-WFSTAT.
    WA_FINAL-DVBREF = WA_ZCATR_DVBAR_VW-DVBREF.
    WA_FINAL-DVBDOC = WA_ZCATR_DVBAR_VW-DVBDOC.
    WA_FINAL-APVR1 = WA_ZCATR_DVBAR_VW-APVR1.
    WA_FINAL-APVR1_DATE = WA_ZCATR_DVBAR_VW-APVR1_DATE.
    WA_FINAL-APVR2 = WA_ZCATR_DVBAR_VW-APVR2.
    WA_FINAL-APVR2_DATE = WA_ZCATR_DVBAR_VW-APVR2_DATE.

    IF WA_ZCATR_DVBAR_VW-DVBST = 'W' AND WA_ZCATR_DVBAR_VW-WFSTAT = 'A'.

      WA_FINAL-WAIVED_PRIN = WA_ZCATR_DVBAR_VW-MIGPR.
      WA_FINAL-WAIVED_LPSC = WA_ZCATR_DVBAR_VW-MIGLP.
      WA_FINAL-WAIVEDACCRLP = WA_ZCATR_DVBAR_VW-MIGAL.
      WA_FINAL-WAIVED_NTA_P = WA_ZCATR_DVBAR_VW-MIGPRN.
      WA_FINAL-WAIVED_NTA_L = WA_ZCATR_DVBAR_VW-MIGLPN.
      WA_FINAL-WAIVED_NTACRLP = WA_ZCATR_DVBAR_VW-MIGALN.

    ELSEIF WA_ZCATR_DVBAR_VW-DVBST EQ 'R' AND WA_ZCATR_DVBAR_VW-WFSTAT = 'A'.

      WA_FINAL-RECOVERABLE_PRIN = WA_ZCATR_DVBAR_VW-MIGPR.
      WA_FINAL-RECOVERABLE_LPSC = WA_ZCATR_DVBAR_VW-MIGLP.
      WA_FINAL-RECOVERABLE_ACCRLP = WA_ZCATR_DVBAR_VW-MIGAL.
      WA_FINAL-RECOVERABLE_NTA_P = WA_ZCATR_DVBAR_VW-MIGPRN.
      WA_FINAL-RECOVERABLE_NTA_L = WA_ZCATR_DVBAR_VW-MIGLPN.
      WA_FINAL-RECOVERABLE_NTACRLP = WA_ZCATR_DVBAR_VW-MIGALN.

    ENDIF.

    READ TABLE IT_ZCATR_DVBAR INTO WA_ZCATR_DVBAR WITH KEY DVBDOC = WA_ZCATR_DVBAR_VW-DVBREF BINARY SEARCH.

    IF SY-SUBRC = 0.

      WA_FINAL-VKONT = WA_ZCATR_DVBAR-VKONT.
      WA_FINAL-VKONA = WA_ZCATR_DVBAR-VKONA.
      WA_FINAL-OLDKNO = WA_ZCATR_DVBAR-OLDKNO.
      WA_FINAL-ERDAT = WA_ZCATR_DVBAR-ERDAT.
      WA_FINAL-LEGAL = WA_ZCATR_DVBAR-LEGAL.
      WA_FINAL-CSFNO = WA_ZCATR_DVBAR-CSFNO.
      WA_FINAL-ORGPR = WA_ZCATR_DVBAR-ORGPR.
      WA_FINAL-ORGLP = WA_ZCATR_DVBAR-ORGLP.
      WA_FINAL-ORGPRN = WA_ZCATR_DVBAR-ORGPRN.
      WA_FINAL-ORGLPN = WA_ZCATR_DVBAR-ORGLPN.
      WA_FINAL-MIGPR = WA_ZCATR_DVBAR-MIGPR.
      WA_FINAL-MIGLP = WA_ZCATR_DVBAR-MIGLP.
      WA_FINAL-MIGAL = WA_ZCATR_DVBAR-MIGAL.
      WA_FINAL-MIGPRN = WA_ZCATR_DVBAR-MIGPRN.
      WA_FINAL-MIGLPN = WA_ZCATR_DVBAR-MIGLPN.
      WA_FINAL-MIGALN = WA_ZCATR_DVBAR-MIGALN.

    ENDIF.

    WA_FINAL-CLOSING_PRIN = WA_FINAL-MIGPR - WA_FINAL-WAIVED_PRIN - WA_FINAL-RECOVERABLE_PRIN .
    WA_FINAL-CLOSING_LPSC = WA_FINAL-MIGLP - WA_FINAL-WAIVED_LPSC - WA_FINAL-RECOVERABLE_LPSC.
    WA_FINAL-CLOSING_ACCRLP = WA_FINAL-MIGAL - WA_FINAL-WAIVEDACCRLP - WA_FINAL-RECOVERABLE_ACCRLP.
    WA_FINAL-CLOSING_NTA_P = WA_FINAL-MIGPRN - WA_FINAL-WAIVED_NTA_P - WA_FINAL-RECOVERABLE_NTA_P.
    WA_FINAL-CLOSING_NTA_L = WA_FINAL-MIGLPN - WA_FINAL-WAIVED_NTA_L - WA_FINAL-RECOVERABLE_NTA_L.
    WA_FINAL-CLOSING_NTACRLP = WA_FINAL-MIGALN - WA_FINAL-WAIVED_NTACRLP - WA_FINAL-RECOVERABLE_NTACRLP.

*    SORT IT_COUNT BY VKONT DVBREF DVBDOC ASCENDING.

*    APPEND WA_count TO IT_count.
    APPEND WA_FINAL TO IT_FINAL.

    CLEAR: WA_ZCATR_DVBAR, WA_ZCATR_DVBAR_VW, WA_FINAL.

  ENDLOOP.

Please guide.

regards

what is use of dataelement , we r creating domain , how we create data element