Add field in output list in ZRFUMSV00

Hi:
I am facing a problem with Z version of RFUMSV00 program. I have created a variant with a new output list, bur I need to add some new fields in output list, but I only can add the some fields in a list, but I don´t know how to add different fields in change layout.
Please, any idea?
Thanks in advance.
Best regards.

Hi,
Its you mention it is Z program . Please request ABAp er to add fiield in program so that you can see in output list and add in your report .
many Thanks

Similar Messages

How to add fields to output list of BP search

Hi,
We have MDM 3.0. Currently we use the standard SAP-MDM Business Partner search functionality for searching a business partner. In the output list/result list of a search currently the fields street2/street4 are not shown. Can anybody tell me if it is possible to add those fields to the output list/result list? If yes how.
regards

Information on that has been provided in the Help Portal:
http://help.sap.com/saphelp_mdm300/helpdata/EN/af/2a679db94f11458e3ccabe47a14d47/frameset.htm
Navigate further:
-> Search
-> For Administrators
-> Enhancement of the Search with New Attributes
Hope this helps.
Best regards,
Markus

How to add new fields on output list of ME5A(Purchase Requisitions)

Hi Friends,
I have to do a task to add a new field ABC Indicator (MARC-MAABC) on the output list of ME5A. IS there any standard way to to this or do I have to copy ME5A to ZME5A and do? Please advice.
Apprecaite your suggestions ont his thread.
Thanks,
Harry

Hi,
Already there are some ENHANCEMENT spots are available in the program RM06BA00.. check if you can use them to add your logic to get the new field...

Regarding rental object-I want to add some fields in output list?

Hi,
I am creating Ze program of transaction REISROOC.I want to add some fields in the output list .
here logical database is used & for adding some fields i need to write Select query.
how n where should i add this query?
can anyone help me????
Thanks,
vaishali

Solved
Edited by: vaishali patil on Mar 2, 2009 1:32 PM

MB51 - Add a field in output list

We changed the layout of MB51 to add, in the output screen (ALV list), the fields: MSEG-ANLN1 (main asset number), MSEG-ANLN2 (asset subnumber).
The customer also wants to have the field ANLA-MCOA1 (asset description).
How do we add? Maybe there are a BADI or UserExit for customize the program RM07DOCS. Perhaps it is better to write a custom program Z_RM07DOCS (changing the standard program), or change the view V_MMIM_REP_CUST, adding the missing field.
Please help: which path to take and how?
Serena

Hi
See SAP Note 357187 - MB51: Fields in field catalog / selection screen
Regards
Eduardo

Add field TIDNR to list edit PM reports

Hi,
We have a requirement to add field TIDNR (Technical Identification number) from ITOB table into several list edit PM reports (IW28/29/38/39/64 to 69)
I have read sap note [586523|https://websmp230.sap-ag.de/sap(bD1lbiZjPTAwMQ==)/bc/bsp/spn/sapnotes/index2.htm?numm=586523] but this relates to adding customer defined fields and amending output structures and as the above field is a Sap standard field is it possible someone could give me some advice on how this could be done.
Regards
Gary

Hi,
For IW28:
Create a custom append at the end of structure RIHQMEL_LIST.
Create an implicit enhancement in the SAP programmes that need the new field (that you will have to find out yourself)
Roy

EA05 extra fields to output list

Hi All,
At my current customer I need to add extra fields to the outsorting output list. Is thsi possible?
I need to add the EAN code, the counsumtion and the total amount of the invoice.
Is there an event that can be used or is it better create a new program based on EA05?
Regards R.L.Groener

Information on that has been provided in the Help Portal:
http://help.sap.com/saphelp_mdm300/helpdata/EN/af/2a679db94f11458e3ccabe47a14d47/frameset.htm
Navigate further:
-> Search
-> For Administrators
-> Enhancement of the Search with New Attributes
Hope this helps.
Best regards,
Markus

Add field to output of CATC

Hi,
Is it possible to add Employee Subgroup to the output of CATC (Time Leveling). The delivered output field options are very limited. I seen a BADI called CATS_REPORTING, but the CATC program isn't listed.
Thanks in advance.
Brandyn

Hi Brandyn ,
Yes - we can pick up Employee subgroup in CATC selection screen ,Please find the below screenshot.
Process :- Enter tcode - CATC , click on "further selection" and select the employee subgroup and click on okay button.
Thanks
Siva

Display hidden fields in output list when submitting a report from another

I have a report A that is submitting another report B and exporting the list to memory. Report B is a standard report and cannot be executed on its own.
SUBMIT ReportB
           WITH p_select = p_select
           EXPORTING LIST TO MEMORY
           AND RETURN.
CALL FUNCTION 'LIST_FROM_MEMORY'
      TABLES
        listobject = t_list
      EXCEPTIONS
        not_found = 1
        OTHERS     = 2.
    CALL FUNCTION 'LIST_TO_ASCI'
      TABLES
        listasci           = t_ascitab
        listobject         = t_list
      EXCEPTIONS
        empty_list         = 1
        list_index_invalid = 2
        OTHERS             = 3.
The output of report B displays an ALV report, default layout of this ALV has a number of hidden fields. So when I am exporting the list to memory, the returned internal table finally extracted (t_ascitab) has only the default fields and not the hidden fields.
The default layout of the standard report B cannot be altered (as per requirement).
Is there any way the hidden fields of the output of report B can be returned to report A??

Hi ,
You have to Set layout of report B as per your requirment .
There is also other method
You can include Reportb   in main report and access internal table data for further processing .
regards
Deepak.
Edited by: Deepak Dhamat on Aug 25, 2011 7:59 AM

Add additional field in the output list

Tcode(VL10G) .ie.out put list will not showing one new field.I want to add one more field to output list. field(VIKP-SDABW) In the SHP_VL10_ITEM and write the logic in the exit LV50R_VIEWG05----
>USEREXIT_PREPARE_LAYOUT_FILL.Plase explain me step-by-step.It is very uggent?Please help me.
Thanks & Regards,
sairam

Hi Sairam,
Go through this info.
/3 provides three "customization spots" that allow you to enhance FI/CO features without modifying the standard code. Although often collectively referred to as "user exits," two of the three have different names. SAP Enhancements are used to expand the standard functionality within SAP. Enhancements use function modules and are called from the standard SAP code. Each module in the system has a set of delivered enhancements that help companies expand the standard functionality where they need it. Enhancements were new in release 3.0.
The Open FI Interfaces or Business Transaction Events are also used to expand the standard functionality within SAP. These events are defined in the IMG. Business Transaction Events were new in release 4.0. They are not available for all modules and are not called on all integrated transactions into FI as of release 4.5B. This will change with each release and should be retested.The older User Exits in FI/CO are "Z" programs that are defined in table T80D for client-dependent user exits, and in table T80I for client-independent user exits. These are also used to expand the standard functionality within the FI/CO modules. These User Exits have been available since the early releases of SAP. All of these FI/CO User Exits are listed in this document in the Configuring User Exits (Older). The list is included because these User Exits are not a part of the Enhancements or Business Transaction Events and do not have an Info System for searching.
Benefits        Standard SAP functionality can be enhanced without modification to the standard code.
        Upgrades do not erase the functionality and it does not have to be re-transported or re-entered into the system. The enhancements should be thoroughly tested when upgrading to ensure the system will still work as implemented.
Configuring SAP Enhancements
Basic Steps in Configuring an Enhancement
        Find the appropriate Enhancement.
        Enter the ABAP code in the "Z" program within the function module.
        Create a project.
        Add the Enhancement to the project.
        Activate the project.
Example Business Scenario for Enhancements
Company A has a requirement to validate all customer master records created with a U.S. address. The U.S. entity reports on the industry field on the customer master. This is only a U.S. requirement and should not be required for the other countries, so the field status would not work. To accomplish this requirement, Company A will need to set up an Enhancement for the customer master transaction. The necessary steps are detailed below with screenprints. This example was configured in a 4.6C system.
Detailed Steps
1.    Tools   ABAP Workbench   Utilities   Enhancements   Definition   Utilities   List Enhancements
2.    Do not execute this without any parameters! There are too many Enhancements and it will probably time out. Youre searching for a customer master exit. Enter mast in the short text (see Figure 1). Youll start there. Searching for an exit can be tricky, so make sure you try several things before giving up.
3.    Execute the search.
Figure 1. Start Your Search for a Master Exit Here
4.    Look through the list until you find the Enhancement for User exits: Customer Master Data.
5.    Double-click on the enhancement SAPMF02D. This will take you to the details of the Enhancement and list the function modules included in the Enhancement.
6.    To continue, double-click on the function module EXIT_SAPMF02D_001
7.    This will take you to the source code for the function module. Click on the Import tab to review the tables/fields that are available for the Enhancement (see Figure 2).
Figure 2. The Tables That Are Available for the Enhancement
8.      To view the tables/fields that can be changed in the function module, click on the Export and Changing tabs. For this function module, these tabs are empty because you can only validate data. You cannot change any fields in this enhancement.
9.      Return to the Source Code tab.
10. Scroll down until you see the Include statement in the program. The "Z" program listed after the Include is where your code will be written (see Figure 3).
Figure 3. Your Program Will Begin After the Include Statement
11.   Double-click on the Include. You will be prompted to create the include. Click on Yes to create.
12.   At this point you will be prompted to enter a development class and to create a transport request. If you do not know which development class to use, please contact your technical team.
13. Enter the following ABAP code into the program (Figure 4):
User exit to ensure that all US customers have a group key
entered on the customer master.
if i_kna1-land1 = 'US' and
i_kna1-brsch = ' '.
message e001(F2).
endif.
Figure 4. The ABAP Code You Need to Enter
14.   Note that the table name matches the table name in the import tab tables.
15.   In this example you are using the standard message class F2 with message number 001. Normally, you will create your own message within your own message class. All customer message classes must begin with a "Z" and are created in transaction SE91.
16. Save the program.
17. The next step is to create the project. Go to transaction code CMOD or follow menu path: Tools   ABAP Workbench   Utilities   Enhancements   Project Management.
18. Enter the project name; begin the name with a "Z."
19. Click on the Create button.
Figure 5. Click on Create After You Type in the Project Name
20.   Enter in a description for the project.
21.   Click on the Enhancement Assignments button.
22.   You will be prompted to save the enhancement. Click on Yes.
23.   At this point you will be asked for a development class and to create a transport for the project. You may use the same one created when adding the ABAP code to the function module.
24. Enter the name of the enhancement SAPMF02D (see Figure 6).
Figure 6. Enter the Name of the Enhancement Here
25. Save the project.
26. Back out of the enhancement assignment.
27. Activate the project by hitting the Activate button.
The SAP Enhancement is ready to be tested! Try creating a customer with U.S. as the country and a blank group key. Be sure to test one with a group key to make sure the message is not displayed in error as well.
Configuring Business Transaction Events
Basic Steps in Configuring an Event
        Make sure the application is active for Business Transaction Events.
        Copy the sample interface function module into a "Z" function module.
        Enter the ABAP code into the source code section of the new "Z" function module. You may choose to create a "Z" program to enter the code into and then insert the "Z" program into your function module source code.
        Activate the function module.
        Assign the function module to the event, country and application.
Example Business Scenario for Business Transaction Events
Company A would like to copy the group key field from the vendor master into the allocation field on all the line items within a vendor invoice and payments, including the vendor lines. This requirement assumes only one vendor is posted to in a document.
To accomplish this requirement, Company A will use the Business Transaction Event 1130, Post Document: SAP Internal Field Substitution.
1.      IMG Menu Path: Financial Accounting   Financial Accounting Global Settings   Use Business Transaction Events   Environment   Infosystem (Processes).
2.      Find the correct Business Event. You are updating a field, so you select the Processes Info System instead of the Publish and Subscribe Info System.
3.      Execute the search with the defaults.
4.      Find the correct interface for updating a document: Post Document: SAP- Internal Field Substitution (see Figure 7).
Figure 7. Find the Correct Interface for the Business Event
5.      Put your cursor on the event and click on the Sample Function Module button.
6.      You are now in transaction SE37 Function Builder. This is the function module (sample_process_00001130) you will need to copy into a "Z" name function module for your coding (see Figure 8).
Figure 8. This Is the Function Module You Need to Copy Your "Z" Name Function Module
7.      Click on the Copy button.
8.      Enter the "Z" function module name in the To Function Module field (see Figure 9).
9.      Enter a Function Group. If you need to create a "Z" function group, go to transaction code SE37 and follow menu path: Go to   Function Groups   Create Group. A function group is a logical grouping of function modules, and the ABAP code is generated for function groups. You will be prompted for a development class and transport when creating the function group.
Figure 9. Enter Your "Z" Function Module Name Here
10. In Function Builder (transaction SE37), enter the new "Z" function module. Click on the Change button.
11. The system will default into the source code screen where you may enter your ABAP code.
12. Notice the tables available for the code. Additional tables may be declared if necessary.
13. Enter the following source code (see Figure 10):
tables: lfa1.
data: z_groupkey like lfa1-konzs.
z_groupkey = ' '.
loop at t_bseg.
check for vendor lines. If one is found, read the vendor master and
retrieve the group key field.
if t_bseg-koart eq 'K'.
select single konzs from lfa1 into z_groupkey
    where lifnr = t_bseg-lifnr.
endif.
Move the group key field into all line items allocation field.
loop at t_bsegsub.
t_bsegsub-zuonr = z_groupkey.
modify t_bsegsub index sy-tabix.
endloop. "t_bsegsub
endloop. "t_bseg
Figure 10. The Screen Where You Enter Your Source Code
14. Save the function module.
15. Back out to the main Function Builder screen by clicking on the green arrow button.
16. Activate the function module by clicking on the Activate button (see Figure 11).
Figure 11. Activate the Function Module from This Screen
17. Assign the function module to the event in the IMG: Financial Accounting   Financial Accounting Global Settings   Business Transaction Events   Settings   Process Function Modules   of an SAP Appl.
18. Hit enter past the warning messages that this is SAP data.
19. Click on the New Entries button.
20. Enter the process for your interface. In your example it is 00001130.
21. Enter the country the interface is valid for. If it is valid for all countries, leave this field blank.
22. Enter the application the interface should be called for. If it should be called for all applications, leave this field blank. Please note that not all integrated transactions are programmed to go through these interfaces! You will need to test to find out!
23. Enter the new "Z" function module (see Figure 12).
Figure 12. Enter Your New "Z" Function Module Here
24. Save the settings. At this point you will be prompted for a CTS number for the configuration change.
25. The Business Transaction Event is complete! You are ready for testing.
Configuring User Exits (Older)
Basic Steps in Configuring an User Exit
      Create a "Z" program for the User Exits and enter the necessary ABAP code.
      Enter the new program name into table T80D.
      Configure the application to call the User Exit.
List of User Exits
      Variable Field Movements
      Substitutions in FI, CO, PCA
      Validations in FI, CO, PCA
      Rollups in SPL
      Fixed Field Movements in SPL
      Cost Center Summarization on Detail Screen
      Sets Formula Variables
Example Business Scenario for User Exits
Company A would like to add a "Z" field in the Special Purpose Ledger to capture a Business Unit field for reporting. They have used all the standard SAP fields such as Business Area and Profit Center. The field will only be used for reporting and is only needed in the Special Purpose Ledger. You created a special ledger table (ZZSPL1) with field Z_BUNIT and need to populate this field based on a combination of G/L account, fund and functional area.
To accomplish this requirement, Company A will use the Variable Field Movement User Exit. To make maintenance easier, table ZZBUSUNIT was created with the G/L account, fund and functional area fields as key fields, and the business unit field as a non-key field. You generated the table maintenance so the table could be updated using transaction SM30. SAP users update the business unit determination rules in table ZZBUSUNIT by entering the G/L account, fund and functional area, and then the business unit that combination should be posting to. The User Exit will read table ZZBUSUNIT using the G/L account, fund and functional area from the posting transaction and determine the business unit. The steps for using the user exit are detailed below. This example was created on a 4.6C system.
1.      Copy the delivered template User Exit program RGIVU000_TEMPLATE into a "Z" program. Follow menu path Tools   ABAP Workbench   Development   ABAP Editor (transaction code SE38). In early releases, the delivered program was RGIVU000.
2.      You will be prompted for a development class and a transport. Please check with the technical team for the correct development class.
3.      At the initial ABAP Editor screen, enter your new "Z" program name, select the Source Code button and click on Change (see Figure 13).
Figure 13. To Enter Your New Code, Select Source Code and Click on the Change Button
4.      Enter the following code in the User Exit (Figure 14):
FORM E01_MVC USING FROM_FIELD TO_FIELD.
to_field = 'CORP'. "Set a default business unit.
read table zzbusunit to determine the business unit field.
select single z_bunit from zzbusunit into to_field
   where hkont = accit_glx-hkont and
    geber = accit_glx-geber and
    fkber = accit_glx-fkber.
ENDFORM.
Figure 14. Enter Your New Code at This Screen.
5.      Activate the program by clicking on the Activate button.
6.      Change the configuration in the User Exit table to point to your new "Z" program.
7.      Follow the IMG menu path: Financial Accounting   Special Purpose Ledger   Basic Settings   User Exits   Maintain Client Specific User Exits.
8.      The entry to maintain is application area GIMV: Variable Field Movement. Enter your "Z" program (see Figure 15).
Figure 15. Enter Your "Z" Program in the Application Area GIMV: Variable Field Movement
9.      Save the changes.
10. The final configuration step is to assign the User Exit in the variable field movement for your special ledger table. In the IMG: Financial Accounting ? Special Purpose Ledger ? Basic Settings ? Master Data ? Maintain Field Movements. Field movements control how the fields in a special ledger table are populated. They can be populated straight from other fields in a posting or through User Exits.
Figure 16. After You Assign the Business Unit Field and the G/L Account, the Exit Field Should Contain U01.
11. Assign the business unit field as a receiver and the G/L account as the sender. The Exit field should contain U01 (see Figure 16).
12. The User Exit number U01 calls User Exit E01_MVC form in the "Z" program.
13. Save the field movement.
14. You are ready to test your User Exit!
Rewords some points.
Rgds,
P.Naganjana Reddy

Add fields in FBL5N output

Hi
     I have to add some fields in output list in FBL5N transaction code.
How to add the fields?
     Is it possible to copy the standard program and again shall i add the new fields in output list.
    Please tell me how to do it?
Thanks.

There is a Business Transaction Event (BTE) for that, its number [00001650|https://www.sdn.sap.com/irj/sdn/advancedsearch?cat=sdn_all&query=00001650+bte&adv=false&sortby=cm_rnd_rankvalue]. Look at OSS [Note 112312 - Line item: Display of offsetting a/c information|https://service.sap.com/sap/support/notes/112312] and [Note 373268 - Line item: new display field|https://service.sap.com/sap/support/notes/373268] for an implementation sample and guidance.
- Append a structure to structure [RFPOS|https://www.sdn.sap.com/irj/sdn/advancedsearch?cat=sdn_all&query=rfpos&adv=false&sortby=cm_rnd_rankvalue] with your fields (SE11)
- Run report [RFPOSXEXTEND|https://www.sdn.sap.com/irj/sdn/advancedsearch?query=rfposxextend&cat=sdn_all]
- Create a FM (copy of [SAMPLE_INTERFACE_00001650|https://www.sdn.sap.com/irj/sdn/advancedsearch?cat=sdn_all&query=sample_interface_00001650&adv=false&sortby=cm_rnd_rankvalue]) to fill these fields (SE37)
- Optimize and bufferize your FM (accountants love when there are many lines) (SE37)
- Link the FM to the BTE ([FIBF|https://www.sdn.sap.com/irj/sdn/advancedsearch?cat=sdn_all&query=fibf&adv=false&sortby=cm_rnd_rankvalue])
- Run [BALVBUFDEL|https://www.sdn.sap.com/irj/sdn/advancedsearch?cat=sdn_all&query=balvbufdel&adv=false&sortby=cm_rnd_rankvalue] to correct the ALV buffer inconsistency
- Adapt your layout variants
In more recent versions take also a look at BADI like [BADI FI_ITEMS*|https://www.sdn.sap.com/irj/sdn/advancedsearch?cat=sdn_all&query=badi+fi_items&adv=false&sortby=cm_rnd_rankvalue]
Regards

What are all the ways that can add fields in the output list of FBL3N transaction?

Hello dear experts,
There is this transaction FBL3N, which you might be aware of. Now, the requirement is to add 4 new fields in the output list of the standard program.
The fields are:
NAME1   KNA1
LOKKT    BSEG
USNAM   BKPF
TXT50      SKA1 -> SKAT
Please tell me how to do this apart from implementing the note 310886. What are the other ways?

I agree, start reading 984305 - Line item: Definition of special fields (T021S)
Then for non BSEG/BKPF fields, better use BAdI FI_ITEMS_CH_DATA (1323512) and not the good old BTE 1650, the BAdI will be called once with the full internal table with special fields already filled, when the BTE will be executed for each and every record without special fields, so harder to optimize, and may require access to BKPF/BSEG for missing fields.
Regards,
Raymond
PS: Did you use search tool, there are already many discussions/threads on this subject.

Adding fields to ALV output list in Tcode S_ALR_87012357

Hi,
I need your help to insert new fields in output at standard t-code S_ALR_87012357 for GST Report.
Report name is RFUMSV00.
The add/insert columns are
1)Vendor Description,
2)SGD Gross Amt(100% tax Reporting curr)
3)SGD Tax Base Amt(100% Tax Reporting curr),
4)SGD Input Tax(7% Tax Reporting curr) and
5) Value(100%Vendor Curr)
Could anyone help me how to do this.
Thanks,
Shabareesh

Changing the field catalog should not add the new fields required in internal table (e.g. structure RFUMS_TAX_ITEM for items)
You could try to append a structure to those, and fill its value with FI_TAX_BADI_011 ?
Regards,
Raymond
PS: List of BAdI for this report
FI_TAX_BADI_010
RFUMSV00: Events for List Output Using ALV
FI_TAX_BADI_011
RFUMSV00: Event 'APPEND' for Line Item Lists
FI_TAX_BADI_012
RFUMSV00: Event 'GET bkpf LATE' during Selection
FI_TAX_BADI_013
RFUMSV00: Set Parameters for DME Tool (Tree Type UMS1)
FI_TAX_BADI_014
RFUMSV00: Field Catalog of Output Lists for ALV
FI_TAX_BADI_015
RFUMSV00: Event "END-OF-SELECTION" before Data File Creation
FI_TAX_BADI_016
RFUMSV00: Transfer of All Tax Data

Add Vendor Name to FBL3N output list

Dear All ,
I need to add vendor name to FBL3N output list . Is there any way to add the vendor name ?
Thanks
Dash

Hi
U need to implement the BTE 1650 (trx FIBF)
-1) A copy the sample fm SAMPLE_INTERFACE_00001650 to your Z<function module>;
-2) Assign your your Z<function module> to the BTE 1650 (trx BF31 or BF34);
-3) Enhance to the structure RFPOS and RFPOSX with the field to store the name
-3) Run the report RFPOSXEXTEND
-4) Insert the code to get out the name into Z<function module>
Max

I want to add new field to this list

hi all,
i want to add new field to this list.
kostenstelle from table zfmkstel
*& Report ZFM_MOBLIST                                                 *
REPORT ZFM_MOBLIST.
TABLES: zfm_handy , pa0002.
TYPE-POOLS : slis.
DATA: g_repid LIKE sy-repid,
      gs_print            TYPE slis_print_alv,
      gt_list_top_of_page TYPE slis_t_listheader,
      gt_list_end_of_page TYPE slis_t_listheader,
      gt_events           TYPE slis_t_event,
      gt_sort             TYPE slis_t_sortinfo_alv,
      gs_layout           TYPE slis_layout_alv,
      gt_fieldcat         TYPE slis_t_fieldcat_alv,
      fieldcat_ln LIKE LINE OF gt_fieldcat,
      col_pos TYPE i.
*DATA : BEGIN OF it_moblist OCCURS 0.
       INCLUDE STRUCTURE zfm_handy.
*DATA : nachn TYPE pa0002-nachn,
       vorna TYPE pa0002-vorna,
     END OF it_moblist.
DATA : BEGIN OF IT_MOBLIST OCCURS 0,
       TELNUM TYPE ZFM_HANDY-TELNUM,
       KARTNR TYPE ZFM_HANDY-KARTNR,
       ZUTART TYPE ZFM_HANDY-ZUTART,
       PERNR TYPE ZFM_HANDY-PERNR,
       nachn TYPE pa0002-nachn,
       VORNA TYPE pa0002-vorna,
       ZDATE TYPE ZFM_HANDY-ZDATE,
       PINNR TYPE ZFM_HANDY-PINNR,
       PUKNR TYPE ZFM_HANDY-PUKNR,
       TARIF1 TYPE ZFM_HANDY-TARIF1,
       TARIF2 TYPE ZFM_HANDY-TARIF2,
       TARIF3 TYPE ZFM_HANDY-TARIF3,
       GTYPE TYPE ZFM_HANDY-GTYPE,
       IMEI TYPE ZFM_HANDY-TARIF1,
        twincard type zfm_handy-twincard,
        twinbill type zfm_handy-twinbill,
        einbau type zfm_handy-einbau,
        beschr type zfm_handy-beschr,
        text1 type zfm_handy-text1,
         text2 type zfm_handy-text2,
          text3 type zfm_handy-text3,
          end of it_moblist.
DATA : BEGIN OF IT_zfm_handy OCCURS 0,
     TELNUM TYPE ZFM_HANDY-TELNUM,
     KARTNR TYPE ZFM_HANDY-KARTNR,
     ZUTART TYPE ZFM_HANDY-ZUTART,
     PERNR TYPE ZFM_HANDY-PERNR,
     ZDATE TYPE ZFM_HANDY-ZDATE,
     PINNR TYPE ZFM_HANDY-PINNR,
     PUKNR TYPE ZFM_HANDY-PUKNR,
     TARIF1 TYPE ZFM_HANDY-TARIF1,
     TARIF2 TYPE ZFM_HANDY-TARIF2,
     TARIF3 TYPE ZFM_HANDY-TARIF3,
     GTYPE TYPE ZFM_HANDY-GTYPE,
     IMEI TYPE ZFM_HANDY-TARIF1,
      twincard type zfm_handy-twincard,
      twinbill type zfm_handy-twinbill,
      einbau type zfm_handy-einbau,
      beschr type zfm_handy-beschr,
      text1 type zfm_handy-text1,
       text2 type zfm_handy-text2,
        text3 type zfm_handy-text3,
        end of it_zfm_handy.
*DATA : BEGIN OF it_zfm_handy OCCURS 0.
       INCLUDE STRUCTURE zfm_handy.
*DATA END OF it_zfm_handy.
DATA : BEGIN OF it_pa0002 OCCURS 0,
        pernr TYPE pa0002-pernr,
        nachn   TYPE pa0002-nachn,
       vorna     TYPE pa0002-vorna,
       pernr TYPE pa0002-pernr,
       END OF it_pa0002.
INITIALIZATION.
g_repid = sy-repid.
PERFORM print_build USING gs_print.      "Print PARAMETERS
START-OF-SELECTION.
PERFORM data_selection.
PERFORM build_fieldcat.
PERFORM eventtab_build CHANGING gt_events.
PERFORM comment_build CHANGING gt_list_top_of_page.
PERFORM call_alv.
*&      Form TOP_OF_PAGE
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = gt_list_top_of_page.
WRITE: sy-datum, 'Page No', sy-pagno RIGHT-JUSTIFIED.
ENDFORM.                    "TOP_OF_PAGE
*&      Form END_OF_PAGE
FORM end_of_page.
WRITE: /.
WRITE AT (sy-linsz) sy-pagno CENTERED.
ENDFORM.                    "END_OF_PAGE
### PRINT SETTINGS
FORM print_build USING ls_print TYPE slis_print_alv.
ls_print-print              = ' '. "PRINT IMMEDIATE
ls_print-no_print_selinfos = 'X'. "NO SELECTION INFO
ls_print-no_coverpage       = ' '. "NO COVER PAGE
ls_print-no_new_page        = ' '. "NO NEW PAGE
ls_print-no_print_listinfos = 'X'. "NO PRINT LIST INFO
ls_print-reserve_lines      = 2.   " FOOTERLINE
ENDFORM.                    "PRINT_BUILD
*&      Form data_selection
      text
--> p1        text
<-- p2        text
FORM data_selection .
data : n(8) type n.
SELECT * FROM
             zfm_handy
       INTO CORRESPONDING FIELDS OF TABLE it_zfm_handy where pernr ne space.
IF NOT it_zfm_handy[] IS INITIAL.
    loop at it_zfm_handy.
      n = it_zfm_handy-pernr.
      it_zfm_handy-pernr = n.
      modify it_zfm_handy.
    endloop.
    SELECT pernr nachn
           vorna
     FROM pa0002
     INTO TABLE it_pa0002
     FOR ALL ENTRIES IN it_zfm_handy
     WHERE pernr = it_zfm_handy-pernr and endda = '99991231'.
   SELECT pernr nachn
          vorna
    FROM pa0002
    INTO TABLE it_pa0002
    FOR ALL ENTRIES IN it_zfm_handy
    WHERE pernr = it_zfm_handy-pernr and begda le sy-datum and endda ge sy-datum.
ENDIF.                              " not it_zfm_handy
LOOP AT it_zfm_handy.
    MOVE-CORRESPONDING it_zfm_handy TO it_moblist.
    clear it_pa0002.
    READ TABLE it_pa0002 WITH KEY pernr = it_zfm_handy-pernr.
    if sy-subrc = 0.
      move it_pa0002-nachn to it_moblist-nachn.
      move it_pa0002-vorna to it_moblist-vorna.
      move it_pa0002-pernr to it_moblist-pernr.
    ENDIF.
    APPEND it_moblist.
    CLEAR   it_moblist.
*endif.
ENDLOOP.
ENDFORM.                    " data_selection
*&      Form BUILD
      text
--> p1        text
<-- p2        text
FORM build_fieldcat .
Explain Field Description to ALV
DATA: fieldcat_in TYPE slis_fieldcat_alv.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'TELNUM'.
fieldcat_ln-tabname   = 'IT_MOBLIST'.
fieldcat_ln-no_out    = ' '.
fieldcat_ln-seltext_l = 'TELNUM'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'KARTNR'.
fieldcat_ln-tabname   = 'IT_MOBLIST'.
fieldcat_ln-no_out    = ' '.
fieldcat_ln-seltext_l = 'KARTNR'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'ZUTART'.
fieldcat_ln-tabname   = 'IT_MOBLIST'.
fieldcat_ln-no_out    = ' '.
fieldcat_ln-seltext_l = 'ZUTART'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'PERNR'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'PERNR'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'NACHN'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'NACHN'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'VORNA'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'VORNA'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'ZDATE'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'ZDATE'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'PINNR'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'PINNR'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'PUKNR'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'PUKNR'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'TARIF1'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'TARIF1'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'TARIF2'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'TARIF2'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'TARIF3'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'TARIF3'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'GTYPE'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'GTYPE'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'IMEI'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'IMEI'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'TWINCARD'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'TWINCARD'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'TWINBILL'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'TWINBILL'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'EINBAU'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'EINBAU'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'BESCHR'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'BESCHR'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'TEXT1'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'TEXT1'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'TEXT2'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'TEXT2'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname     = 'TEXT3'.
fieldcat_ln-tabname       = 'IT_MOBLIST'.
fieldcat_ln-no_out        = ' '.
fieldcat_ln-seltext_l = 'TEXT3'.
APPEND fieldcat_ln TO gt_fieldcat.
DATA SORTING
DATA: gs_sort TYPE slis_sortinfo_alv.
CLEAR gs_sort.
gs_sort-fieldname = 'TELNUM'.
gs_sort-spos      = 1.
gs_sort-up        = 'X'.
GS_SORT-SUBTOT    = 'X'.
APPEND gs_sort TO gt_sort.
CLEAR GS_SORT.
GS_SORT-FIELDNAME = 'KARTNR'.
GS_SORT-SPOS      = 2.
GS_SORT-UP        = 'X'.
*GS_SORT-SUBTOT    = 'X'.
APPEND gs_sort TO gt_sort.
ENDFORM.                    " BUILD
*&      Form EVENTTAB_BUILD
      text
     <--P_GT_EVENTS text
FORM eventtab_build CHANGING lt_events TYPE slis_t_event.
CONSTANTS:
gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE',
gc_formname_end_of_page TYPE slis_formname VALUE 'END_OF_PAGE'.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = lt_events.
READ TABLE lt_events WITH KEY name = slis_ev_top_of_page
                           INTO ls_event.
IF sy-subrc = 0.
    MOVE gc_formname_top_of_page TO ls_event-form.
    APPEND ls_event TO lt_events.
ENDIF.
define END_OF_PAGE event
READ TABLE lt_events WITH KEY name = slis_ev_end_of_page
                           INTO ls_event.
IF sy-subrc = 0.
    MOVE gc_formname_end_of_page TO ls_event-form.
    APPEND ls_event TO lt_events.
ENDIF.
ENDFORM.                    " EVENTTAB_BUILD
*&      Form COMMENT_BUILD
      text
     <--P_GT_LIST_TOP_OF_PAGE text
FORM comment_build CHANGING gt_top_of_page TYPE slis_t_listheader.
DATA: gs_line TYPE slis_listheader.
DATA: today_date(10) TYPE c.
CONCATENATE
sy-datum+6(2) '.'
sy-datum+4(2) '.'
sy-datum(4) INTO today_date.
CLEAR gs_line.
gs_line-typ = 'H'.
gs_line-info = 'MOBLIST DETAILS'.
APPEND gs_line TO gt_top_of_page.
CLEAR gs_line.
gs_line-typ = 'S'.
gs_line-key = 'Date:'.
gs_line-info = today_date.
APPEND gs_line TO gt_top_of_page.
GS_LINE-KEY = 'User:'.
GS_LINE-INFO = sy-uname.
APPEND gs_line TO gt_top_of_page.
CLEAR gs_line.
gs_line-typ = 'A'.
gs_line-info = 'ACTION'.
APPEND gs_line TO gt_top_of_page.
ENDFORM.                    " COMMENT_BUILD
*&      Form CALL_ALV
      text
--> p1        text
<-- p2        text
FORM call_alv .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
   i_callback_program = g_repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
   is_layout = gs_layout
   it_fieldcat = gt_fieldcat
     it_sort = gt_sort
     it_events = gt_events
     is_print = gs_print
   TABLES
     t_outtab = IT_MOBLIST
   EXCEPTIONS
     program_error = 1
   OTHERS = 2.
ENDFORM.                    "CALL_ALV.

Hi,
add:
1) to IT_MOBLIST
text3 type zfm_handy-text3,
kostl type csks-kostl,
end of it_moblist.
2)...
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'KOSTL'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'KOSTL'.
APPEND fieldcat_ln TO gt_fieldcat.

Add field in output list in ZRFUMSV00

Similar Messages

Maybe you are looking for