Issue on a maintenance view

I want to fetch the data from a maintenance view: V_001_B.
I used the select statement to retrieve the data.But, I got a message saying that "it's not a table or a database view or a projection view".
Any body please help me, how to retrieve data from a maintenance view.

these r the 3 tables which r connected to ur view - T882,T001,T001Z
if u want data based on some join on these 3 tables then put a join in ur code on these 3 tables and then fetch ur record..if u want datra specific to one table only then u can directly select tht frm a single table..
amit

Similar Messages

Maintenance View issues with an ABAP program

Hi,
I need to update a Maintenance view(V_JURIC) from a txt file. I created an ABAP module to do this and when I update the tables that compose the view(TABLE_A and TABLE_B), the view is not completely getting updated in the last field. Any suggestions? Here is sample of the code:
REPORT zbr_loc_mast_data_1 MESSAGE-ID fb.
TABLES: j_1btxjurt,
        j_1btxjur.
DATA wa_j_1btxjurv TYPE j_1btxjurv.
DATA wa_j_1btxjurt TYPE j_1btxjurt.
DATA wa_j_1btxjur TYPE j_1btxjur.
DATA: BEGIN OF i_j_1btxjurt OCCURS 2000.
        INCLUDE STRUCTURE j_1btxjurt.
DATA: END OF i_j_1btxjurt.
DATA: i_j_1btxjurv LIKE j_1btxjurv OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF rec OCCURS 0,
      tbl_name(10)     TYPE c,        " Table name(Constant 'J_1BTXJURV')
      field_2(1)       TYPE c,        " Constant "X"
      jur_code(10)     TYPE c,        " Jurisdiction code
      municip(60)      TYPE c,        " Municipality Name
END OF rec.
DATA: w_num_recs TYPE i.
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
PARAMETERS: in_file TYPE localfile OBLIGATORY
            DEFAULT 'C:\lista de municipios.txt'.
SELECTION-SCREEN END OF BLOCK block1.
START-OF-SELECTION.
PERFORM read_file.
IF sy-subrc = 0.
    PERFORM update_table.
ENDIF.
END-OF-SELECTION.
*Summary
    WRITE: / 'Number of records read: ' COLOR COL_TOTAL INVERSE OFF INTENSIFIED ON,
         32 w_num_recs COLOR COL_POSITIVE INVERSE OFF
            INTENSIFIED ON.
*       Form read_file
*       text
* --> p1        text
* <-- p2        text
FORM read_file.
DATA: l_filename TYPE string.
MOVE in_file TO l_filename.
CALL METHOD cl_gui_frontend_services=>gui_upload
    EXPORTING
      filename                = l_filename
      filetype                = 'DAT'
*      HAS_FIELD_SEPARATOR     = SPACE
*      HEADER_LENGTH           = 0
*      READ_BY_LINE            = 'X'
*      DAT_MODE                = SPACE
*      CODEPAGE                = SPACE
*      IGNORE_CERR             = ABAP_TRUE
*      REPLACEMENT             = '#'
*      VIRUS_SCAN_PROFILE      =
*    IMPORTING
*      FILELENGTH              =
*      HEADER                  =
    CHANGING
      data_tab                = rec[]
    EXCEPTIONS
      file_open_error         = 1
      file_read_error         = 2
      no_batch                = 3
      gui_refuse_filetransfer = 4
      invalid_type            = 5
      no_authority            = 6
      unknown_error           = 7
      bad_data_format         = 8
      header_not_allowed      = 9
      separator_not_allowed   = 10
      header_too_long         = 11
      unknown_dp_error        = 12
      access_denied           = 13
      dp_out_of_memory        = 14
      disk_full               = 15
      dp_timeout              = 16
      not_supported_by_gui    = 17
      error_no_gui            = 18
      OTHERS                  = 19.
IF sy-subrc <> 0.
    MESSAGE e039 WITH in_file.
ENDIF.
ENDFORM.                    " read_file
*       Form update_table
*       text
* --> p1        text
* <-- p2        text
FORM update_table.
CLEAR: w_num_recs,
         w_num_recs_btable,
         w_num_recs_atable,
         w_num_recs_inserted.
    LOOP AT rec.
    w_num_recs = w_num_recs + 1.
    MOVE 'BR'          TO wa_j_1btxjur-country.
    MOVE rec-jur_code TO wa_j_1btxjur-taxjurcode.
    MOVE 'PT'          TO wa_j_1btxjurt-spras.
    MOVE 'BR'          TO wa_j_1btxjurt-country.
    MOVE rec-jur_code TO wa_j_1btxjurt-taxjurcode.
    MOVE rec-municip   TO wa_j_1btxjurt-text.
    INSERT into j_1btxjurt values wa_j_1btxjurt.
    IF sy-subrc = 0.
      COMMIT WORK.
    ENDIF.
    INSERT into j_1btxjur values wa_j_1btxjur.
    IF sy-subrc = 0.
      COMMIT WORK.
    ENDIF.
ENDLOOP.
ENDFORM.                    " update_table
Edited by: Thomas Zloch on Nov 5, 2010 9:24 AM - please use code tags

MOVE 'PT'          TO wa_j_1btxjurt-spras.
maybe change that to:
MOVE 'P'          TO wa_j_1btxjurt-spras.

In Maintenance View - Pushbutton called 'POSITION' - f4 help issue

Hi all,
A Maintenanve view was created for a Table with some 15 columns.This table contains 2 key fields and for first key field there is a Search help created in another table which contains this same fieid as key field.The second key field does not contain any search help.
This Maintenance view is used in another program.When viewing this Maintenance view there is pushbutton called 'POSITION'.
When clicked on this POSITION a POP-UP appears with this 2 key fields.F4 Help on these fields shows all fields from the table.
The second key field contains 3 fixed value in domain.
Need to restict the F4 VALUE HELP .How can I implement this.
With thanks,
Dina.

HI Dina,
Recently I have done this.Please find the below code. Here in SVAL structure there is a field NOVALUEHLP. Please enable or disable this field according to your requirement.
DATA:   IT_FIELDS TYPE STANDARD TABLE OF SVAL WITH HEADER LINE,
       popup_title type string,
       returncode type c,
       lv_emp_cc type bukrs,
       lv_sold_to_cc type bukrs,
       lv_nw_so type AUFNR,
       lv_SMS_CON type NUM7,
       lv_EMP_NO type NUM8,
       lv_SMS_ORG type NUM7,
       lv_ACTIVITY type VORNR,
       lv_ZCOSTALLOC type ZCOSTALLOC.
       POPUP_TITLE = 'Select entry'.
       REFRESH: IT_FIELDS.
       CLEAR: IT_FIELDS, returncode.
       IT_FIELDS-TABNAME    = 'ZCRM_MUS_DERIV'.
       IT_FIELDS-FIELDNAME = 'EMP_CC'.
       IT_FIELDS-FIELD_ATTR = ' '.
       IT_FIELDS-FIELD_OBL = ' '.
       APPEND IT_FIELDS.
       CLEAR it_fields.
       IT_FIELDS-TABNAME    = 'ZCRM_MUS_DERIV'.
       IT_FIELDS-FIELDNAME = 'SOLD_TO_CC'.
       IT_FIELDS-FIELDTEXT = 'Sold to CC'.
       IT_FIELDS-FIELD_OBL = ' '.
       APPEND IT_FIELDS.
       CLEAR it_fields.
        IT_FIELDS-TABNAME    = 'ZCRM_MUS_DERIV'.
        IT_FIELDS-FIELDNAME = 'NW_SO'.
        IT_FIELDS-FIELD_ATTR = ' '.
        IT_FIELDS-FIELD_OBL = ' '.
        APPEND IT_FIELDS.
        CLEAR it_fields.
       CALL FUNCTION 'POPUP_GET_VALUES'
         EXPORTING
           NO_VALUE_CHECK = 'X'
           POPUP_TITLE     = POPUP_TITLE
           START_COLUMN    = '5'
           START_ROW       = '5'
         IMPORTING
           RETURNCODE      = RETURNCODE
         TABLES
           FIELDS          = IT_FIELDS
         EXCEPTIONS
           ERROR_IN_FIELDS = 1
           OTHERS          = 2.
       IF SY-SUBRC <> 0.
           "No action required.
       ENDIF.

Issue in Maintenance View

Hi All -
I have added new field in existing Maintenance view and I have regenerated the table maintenece generated. The view had APPLK (Application area) application filed earlier which was showing field value, but after i re generated the view its showing value description instead value.
I have not done any changes on that filed, can anyone please let me know how to display the value rather than value description.
Thanks,
Kannan
Edited by: Kannan K Venkatachalam on Sep 3, 2010 10:38 PM

Hi,
Add fields to the standard table using Append structure and then regenerate the table maintanence Generator.. then you can see the newly added field in the maintanence view..
hope this will help you..
Regards,
kiran

Create a Maintenance view for table T500P

Hi Experts,
We have a requirement where customer want an additional field in table T500P and for the same a custom maintenanve view has to be created.Moreover, If there is any update insert or change in the ZView/Ztable the same should be reflected in standard table T500P.
Steps already taken :-
We have created a ztable (copy of T500P ) and add the required custom field to it.
We have also copied the view i.e V_T500P to our custom view and also use base table as T500P .
We also create a foreign key for PERSA in Ztable and use T500P as check table for that with cardinality 1:1.
To update the MOLGA & BUKRS field data in ztable we have set both the field as a primary key & create a foreign key with check table T500L & T001 & cardianality as 1:CN for key fields.
In custom maintenance view we have set the realtionship of ztable t500l & t001 with the base table T500P.
Now, if we are trying to maintain the view only T500P table is getting updated and Ztable is updated with only PERSA value.
Please provide some directions for the resolution of this issue.
Thanks,
Pooja Goel.

Scheduler007 --
The view you selected by clicking File > Options > Project View is the default view for every new project you create from a blank project template. This is a global option, so setting it from the checked out Enterprise Global file serves no purpose.
When you select a view as your default view, you will see that view applied to the blank project that is opened when you launch Microsoft Project 2010, and you will see it applied if you create new blank projects. If you create enterprise templates for
people to use in your organization, you should simply apply the view to the template that you want as the default so that users will see this view immediately when they create a new project from the template. In addition, if you apply a view to an open
project, close and check in the project, and then reopen the project, you will see the last view applied in that project (as Guillaume correctly points out).
Beyond this, there is no method possible for the Project Server administrator to specify a default view for the Microsoft Project application used by the project managers in your organization. This is an option each PM must set. Hope this helps.
Dale A. Howard [MVP]

Maintenance view problem

Dear gurus
I have generated a table and created a maintenance view for that table.
created a function group and assign that group to maintenance view of that table
create a transaction from se93 calling SM30 with table name and update stats X
its working on development server
but when i transport it to 800 server it says that PRD server is not modifiable
i have done the same process on another table but its working not in this table
where i have gone wrong ?
Regards
Saad Nisar.

Hi Saad Nisar,
In the table delivery and maintenance tab, change the 'delivery class' from C (Customizing table, maintenance only by cust., not SAP import) to A (Application table (master and transaction data)). This will take care of Your issue...
Regards,
Birendra

Maintenance view error

Hi All,
I am facing a weird issue: -
There is a view /asgws/scr_v001 (a z view in custom namespace). This view is transported from system G1 to G2.
G1 system is SAP4.7 and G2 system is SAP ECC6.0.
Now maintenance view for this view is maintained and generated successfully. It is working fine in G1 system.
But in G2 system when i try to see its contents through Se11, it shows "No database view exists for the view /asgws/scr_v001".
I have seen other threads also and found relevant solutions : -
1) View Type: It is C in both the cases, so no problem with that
2) Table maintenance allowed or not: It is 'Table display/maintenance allowed with restrictions' in both the systems G1 and G2.
However, I could see one difference while comparing the tables in both systems.
Database entry Dd02L-Mainflag is 'X' in G1 system where it is working fine.
Database entry DD02L-mainflag is ' ' in G2 system where it is not working.
As per my understanding this is because table maintenance is not allowed in this case. but again there are no differences in both the systems.
Also Is compare flag related to this in anyways. Though i could not find any reelvance just confirming because so far no clues of why things are going wrong ??
Request you to please help me sorting this issue.
Thanks in advance for your valuable time and inputs.

Hello,
You really need to pay attention when transporting objects especially dictionary objects between different releases of SAP.
Technically the import will succeed most of the time, but generation errors can happen, certain functionalities may no longer work, table data can be truncated, etc ...
I never transport view definitions from a lower release towards an ECC 6.0 system (Netweaver 7.0).
In Netweaver 7.0 SAP has built in new features for dictionary objects like views, tables, etc.
This is why most of the DD0** tables in Netweaver 7.0 contain extra fields and extra field values.
These new field values can never be transported from a lower release because they don't exist there !
A good starting point is the composite OSS-note:
SAP Note 1090842 Composite note: Transport across several releases
Wim

Wiki Pages - Open Web Part Page in maintenance view

I am trying add custom .aspx pages to a SharePoint 2010 Document Library. When I try to edit properties for those pages, the edit page shows "Open Web Part Page in maintenance view to delete problem Web Parts and remove personal settings.
Open Web Part Page in maintenance view." I click Open Web Part Page in maintenance view
The page displays
The are currently no Web Parts associated with any Web Part Zones on this page. Web Parts added to the page outside of a Web Part Zone will not appear in this list.
I don't do anything with the maintenance view because there are no Web Parts to delete.
As a test, I save the content of the custom.aspx page as a text file, custom.txt. The edit properties displays just fine.
Another test, I save the content as custom.htm. The edit properties displays just fine.
I try many variations of saving the content of custom.aspx with various html tags and even no tags at all. One version just has the text,"test" in the page. Save error:
Open Web Part Page in maintenance view to delete problem Web Parts and remove personal settings. Open Web Part Page in maintenance view."
Going down another path, I try to compare the source of this aspx page with other SharePoint aspx pages. One test is the Wiki Page. All Wiki pages display the same message on my farm. Is this a known issue with Wiki Pages?
<apparently I'm not allowed to add images yet>
As another point of comparison I opened the Edit Properties part within an Office 365 Wiki. Same message.
<apparently I'm not allowed to add images yet>

Hi Chris,
As your description, when you uploaded a .aspx page into a library and edited the properties, the message "Open Web Part Page in maintenance view to delete problem Web Parts and remove personal settings. Open Web Part Page in maintenance view"
showed.
I could reproduce this issue if I uploaded a .aspx page into a library and edited its properties.
Then I went to Site Pages library, and select a page and edit its property, the same message also showed like the screenshot:
It seems that the message will show when we edit the properties of a page no matter which library we upload it to, it seems to be by design.
In addition, if you want to upload a image into the thread, you can first upload the image into OneDrive, then copy and paste the URL of the image here.
Thanks,
Wendy
TechNet Community Support
Please remember to mark the replies as answers if they help, and unmark the answers if they provide no help. If you have feedback for TechNet Support, contact
[email protected]

QUESTION on MAINTENANCE VIEW

Hi gurus,
I am not familiar with MAINTENANCE VIEW TABLE, can someone please tell me on how to create it and how can I use it for query or select.
I hope someone can help me.
Thanks in advance.

hello gurus,
im new to this community please help me out from this please explain what are different conditions are there for install and replace in this code pzzzzzzzzz its really urgent evening is my delivery
THIS IS MIS SHOWS A LEAD TIME FOR DEVICES PERTAINING TO A SELECTION*
CRITERIA FROM THE TIME OF ISSUE OF METER FROM THE DEPOT FOR NEW   *
INSTALLATION / REPLACEMENT CONNECTION TO THE FIRST BILL          *
Designer           : K SRIKANTH                                 *
Programmer            : K SRIKANTH                                 *
Programming Date      : 29/12/2004
Change Tracking No     : D90K                                    *
Program Title          : LEAD TIME REPORT FROM DEVICE * *
                    INSTALLATION/REPLACEMENT TO FIRST BILL *
MODIFICATIONS                                                     *
DATE       | BY      | DESCRIPTION       | Chg Trck No             *
dd.mm.yy   | xxxxx   |                   |                         *
           |         |                   |                         *
           |         |                   |                         *
ASSUMPTIONS:
THE VALUES FROM THE TABLE V_EABL ARE SELECTED ONLY FOR METER       *
READING REASON '01','02','03' & '22' FOR THE FIELD ABLESGR.
THE VALUES FROM THE TABLE ETDZ ARE SELECTED ONLY FOR REGISTER
CODE '01' FOR THE FIELD ZWKENN .
THE NUMBER OF RECORDS FETCHED FROM TABLE EGERH, WHILE RUNNING IN   *
FOREGROUND, DEPENDS UPON THE SELECTION CRITERIA. WHILE RUNNING IN *
BACKGROUND THIS CONDITION IS NOT APPLICABLE.                        *
REPORT ZRDMD01A MESSAGE-ID ZS LINE-SIZE 150 .
TYPE-POOLS : SLIS .
TABLE DECLARATION*********************
TABLES :
IFLOT ,
TE401 , "   Transactions reasons
EGERH ,          " Historical Data of ISU Device Master Record
EQUI ,           " Equipment master data
EASTL,          " Billing data: Installation Structure at Device Level
EANL ,          " Installation
EVBS ,          " Premise
EADRREGAREAA,   " Role-Spec. Allocation: Reg. Str. Area to Reg. StrGroup
EHAUISU ,       " Connect. Obj.
ILOA ,          " PM Object Location and Account Assignment
EABLG ,         " MR Reasons in MR Document
EABL ,          " MR Document
EVER ,           " IS-U Cont.
ERCH ,           " Billing Doc. Data
ERCHC    ,      " Invoicing/Reversal History: ERCH
ETYP ,
ETDZ,
EASTS ,
V_EABL ,
EADRREGAREAT .
***INTERNAL TABLE DECLARATION*****
DATA : BEGIN OF ITCOM OCCURS 100,
         STATUS(50) TYPE C ,
        REGIOAREA LIKE EADRREGAREAA-REGIOAREA,
        DESCRIPT LIKE EADRREGAREAT-DESCRIPT ,
        V0_15 TYPE I,
        V16_30 TYPE I,
        V31_45 TYPE I,
        V46_60 TYPE I,
        V61_75 TYPE I,
        V76_90 TYPE I,
        V90 TYPE I,
        VNTAV TYPE I,
        TOTAL TYPE I ,
       REGIOGROUP LIKE EADRREGAREAA-REGIOGROUP ,
      END OF ITCOM .
DATA : ITFLD TYPE SLIS_T_FIELDCAT_ALV ,
       SFLD TYPE SLIS_FIELDCAT_ALV ,
       ITH TYPE SLIS_T_FIELDCAT_ALV ,
       STH TYPE SLIS_FIELDCAT_ALV ,
       SIT TYPE SLIS_FIELDCAT_ALV,
       ITA TYPE SLIS_T_FIELDCAT_ALV ,
       IEVENTS TYPE SLIS_T_EVENT ,
       ALV_T_EVENT TYPE SLIS_T_EVENT WITH HEADER LINE,
       ITEVENTS TYPE SLIS_ALV_EVENT ,
         EVENTS TYPE SLIS_T_EVENT ,
        EVNTS TYPE SLIS_ALV_EVENT ,
        EVNTS1 TYPE SLIS_ALV_EVENT ,
        EVNTS2 TYPE SLIS_ALV_EVENT ,
        EVNTS3 TYPE SLIS_ALV_EVENT ,
        EVENTS_SUMM TYPE SLIS_T_EVENT ,
        EVENTS_DETAIL TYPE SLIS_T_EVENT ,
        EVENTS_SPL TYPE SLIS_T_EVENT .
DATA : ITHD TYPE SLIS_T_LISTHEADER ,
        HD TYPE SLIS_LISTHEADER ,
       ITD TYPE SLIS_T_LISTHEADER ,
        TD TYPE SLIS_LISTHEADER .
DATA : BEGIN OF ITFIN OCCURS 0,
    EQUNR   LIKE EGERH-EQUNR ,   " EQUIPMENT NUMBER
    ANLAGE LIKE EASTL-ANLAGE , "INSTLLATION NUMBER
    VSTELLE LIKE EANL-VSTELLE,   "PREMISE
    LOGIKNR LIKE EGERH-LOGIKNR, "LOGICAL DEVICE NUMBER
    SERNR   LIKE EQUI-SERNR,     "DEVICE NUMBER
    VKONTO LIKE EVER-VKONTO,    "CONTRACT NUMBER
    REGIOAREA LIKE EADRREGAREAA-REGIOAREA,
    REGIOGROUP LIKE EADRREGAREAA-REGIOGROUP,
    LTPU(8) TYPE C ,   "LEAD FROM PREMISE T UI
    LTUB(8) TYPE C,    "LEAD FROM UTILITY INS TO BILLING INS
    LTBM(8) TYPE C,    "LEAD FROM BI TO MR ORDER
    LTMA(8) TYPE C,    "LEAD MR ORDER TO ACTUAL MR
    LTAB(8) TYPE C,    "LEAD FROM ACTUAL MR TO SCHEDULE BILL ORDER
    LTBA(8) TYPE C,    "LEAD TIME FROM SCHED BILL ORDER TO ACTUAL BILL
    SUM(8) TYPE C ,    "TOTAL LEAD FROM UI TO ACTUAL BILL
    SERIAL TYPE I ,
    BIS LIKE EGERH-BIS ,
       AB   LIKE EGERH-AB,
       ZWGRUPPE LIKE EGERH-ZWGRUPPE ,
       EINBDAT LIKE EGERH-EINBDAT,
       AUSBDAT LIKE EGERH-AUSBDAT,
       GERWECHS LIKE EGERH-GERWECHS,
       DEVLOC   LIKE EGERH-DEVLOC,
       SPARTE LIKE EQUI-SPARTE,
        ANLART LIKE EANL-ANLART,
        HAUS LIKE EVBS-HAUS,
        VBSART LIKE EVBS-VBSART,
        ABLBELNR LIKE EABLG-ABLBELNR,
       ABLESGR LIKE EABLG-ABLESGR ,
       ADAT LIKE V_EABL-ADAT ,
      VERTRAG LIKE EVER-VERTRAG,
          DESCRIPT(20) TYPE C, " LIKE EADRREGAREAT-DESCRIPT ,
         STATUS(40) TYPE C ,
     END OF ITFIN .
DATA : ITAAA LIKE ITFIN OCCURS 100 WITH HEADER LINE ,
       ITBBB LIKE ITFIN OCCURS 100 WITH HEADER LINE .
DATA : BEGIN OF ITTE4 OCCURS 100,
      GERWECHS LIKE TE401-GERWECHS,
      EAWKENNZE LIKE TE401-EAWKENNZE,
      EAWKENNZA LIKE TE401-EAWKENNZA,
      EAWKENNZW LIKE TE401-EAWKENNZW,
      GERWETXT LIKE TE401T-GERWETXT ,
      END OF ITTE4 .
DATA : BEGIN OF ITEAS OCCURS 100,
       ANLAGE LIKE EASTL-ANLAGE,
       LOGIKNR LIKE EASTL-LOGIKNR,
      BIS LIKE EASTL-BIS,
      AB LIKE EASTL-AB,
       ERDAT LIKE EASTL-ERDAT,
        END OF ITEAS .
DATA : BEGIN OF ITDES OCCURS 0 ,
       LANGU LIKE EADRREGAREAT-LANGU,
       ROLE   LIKE EADRREGAREAT-ROLE ,
      REGIOAREA LIKE EADRREGAREAA-REGIOAREA ,
      DESCRIPT(20) type c ," LIKE EADRREGAREAT-DESCRIPT ,
      END OF ITDES .
DATA : BEGIN OF ITMX1 OCCURS 0 ,
       EQUNR LIKE EGERH-EQUNR,
       BIS LIKE EGERH-BIS ,
       AB   LIKE EGERH-AB,
       LOGIKNR LIKE EGERH-LOGIKNR,
       ZWGRUPPE LIKE EGERH-ZWGRUPPE ,
       EINBDAT LIKE EGERH-EINBDAT,
       AUSBDAT LIKE EGERH-AUSBDAT,
       GERWECHS LIKE EGERH-GERWECHS,
       DEVLOC   LIKE EGERH-DEVLOC,
       MATNR LIKE EQUI-MATNR,
       SERNR LIKE EQUI-SERNR,
       SPARTE LIKE EQUI-SPARTE,
        ANLAGE LIKE EASTL-ANLAGE,
        ERDAT_EAS LIKE EASTL-ERDAT, "ERDAT_EAS
        VSTELLE LIKE EANL-VSTELLE,
        ANLART LIKE EANL-ANLART,
        ERDAT_EAN LIKE EANL-ERDAT, "ERDAT_EAN
         HAUS LIKE EVBS-HAUS,
         VBSART LIKE EVBS-VBSART,
         ERDAT_EVB LIKE EVBS-ERDAT, "ERDAT_EVB
        REGIOGROUP LIKE EADRREGAREAA-REGIOGROUP,
         REGIOAREA LIKE EADRREGAREAA-REGIOAREA ,
         DESCRIPT(20) type c ,
          ABLBELNR LIKE V_EABL-ABLBELNR ,
        ABLESGR LIKE V_EABL-ABLESGR ,
        ADAT LIKE V_EABL-ADAT ,
        ADATSOLL LIKE V_EABL-ADATSOLL ,
        VERTRAG LIKE EVER-VERTRAG,
       VKONTO LIKE EVER-VKONTO,
        BELNR LIKE ERCH-BELNR,
      VKONT LIKE ERCH-VKONT,
      BEGABRPE LIKE ERCH-BEGABRPE,
      ENDABRPE LIKE ERCH-ENDABRPE,
      ABRDATS LIKE ERCH-ABRDATS,
      BUDAT LIKE ERCHC-BUDAT,
       LFDNR LIKE ERCHC-LFDNR,
      END OF ITMX1 .
DATA : BEGIN OF ITMX2 OCCURS 0,
       EQUNR LIKE EGERH-EQUNR,
       BIS LIKE EGERH-BIS ,
       AB   LIKE EGERH-AB,
      LOGIKNR LIKE EGERH-LOGIKNR,
       ZWGRUPPE LIKE EGERH-ZWGRUPPE ,
       EINBDAT LIKE EGERH-EINBDAT,
       AUSBDAT LIKE EGERH-AUSBDAT,
       GERWECHS LIKE EGERH-GERWECHS,
       DEVLOC   LIKE EGERH-DEVLOC,
       MATNR LIKE EQUI-MATNR,
       SERNR LIKE EQUI-SERNR,
       SPARTE LIKE EQUI-SPARTE,
        ANLAGE LIKE EASTL-ANLAGE,
        LOGIKNR LIKE EGERH-LOGIKNR,
        ERDAT LIKE EASTL-ERDAT, "ERDAT_EAS
        END OF ITMX2 .
DATA : BEGIN OF ITMX4 OCCURS 0 ,
        ANLAGE LIKE EANL-ANLAGE ,
        VSTELLE LIKE EANL-VSTELLE,
         HAUS LIKE EVBS-HAUS,
         VBSART LIKE EVBS-VBSART,
         ERDAT LIKE EVBS-ERDAT, "ERDAT_EVB
        REGIOGROUP LIKE EADRREGAREAA-REGIOGROUP,
         REGIOAREA LIKE EADRREGAREAA-REGIOAREA ,
          DESCRIPT(20) type c ,
       ANLART LIKE EANL-ANLART,
         END OF ITMX4 .
DATA : BEGIN OF ITEVE OCCURS 0 ,
        ANLAGE LIKE EVER-ANLAGE ,
         VKONTO LIKE EVER-VKONTO,
        VERTRAG LIKE EVER-VERTRAG,
       SPARTE LIKE EVER-SPARTE ,
       END OF ITEVE .
DATA : BEGIN OF ITMX3 OCCURS 0 ,
         EQUNR LIKE V_EABL-EQUNR ,
        ABLBELNR LIKE V_EABL-ABLBELNR ,
        ABLESGR LIKE V_EABL-ABLESGR ,
        ADAT LIKE V_EABL-ADAT ,
        ADATSOLL LIKE V_EABL-ADATSOLL ,
         ANLAGE LIKE EVER-ANLAGE ,
         VKONTO LIKE EVER-VKONTO,
        VERTRAG LIKE EVER-VERTRAG,
       SPARTE LIKE EVER-SPARTE ,
     VKONT LIKE ERCH-VKONT,
      BEGABRPE LIKE ERCH-BEGABRPE,
      ENDABRPE LIKE ERCH-ENDABRPE,
      ABRDATS LIKE ERCH-ABRDATS,
        BELNR LIKE ERCH-BELNR,
      LFDNR LIKE ERCHC-LFDNR,
       BUDAT LIKE ERCHC-BUDAT,
      SWERK LIKE ILOA-SWERK ,
        END OF ITMX3.
data : BEGIN OF ITERC OCCURS 0 ,
      BEGABRPE LIKE ERCH-BEGABRPE,
      ENDABRPE LIKE ERCH-ENDABRPE,
      ABRDATS LIKE ERCH-ABRDATS,
      VERTRAG like ERCH-VERTRAG ,
      BELNR LIKE ERCH-BELNR,
      VKONT LIKE ERCH-VKONT ,
      LFDNR LIKE ERCHC-LFDNR,
       BUDAT LIKE ERCHC-BUDAT,
      END OF ITERC .
DATA : BEGIN OF ITMX7 OCCURS 0,
      SRNO   TYPE I ,
       STATUS(40) TYPE C ,
       REGIOAREA LIKE EADRREGAREAA-REGIOAREA ,
       REGIOGROUP LIKE EADRREGAREAA-REGIOGROUP ,
       DESCRIPT(20) TYPE C ," LIKE EADRREGAREAT-DESCRIPT ,
       V0_15 LIKE ITCOM-V0_15 ,
       V16_30 LIKE ITCOM-V16_30 ,
       V31_45 LIKE ITCOM-V31_45 ,
       V46_60 LIKE ITCOM-V46_60 ,
      V61_75 LIKE ITCOM-V61_75 ,
      V76_90 LIKE ITCOM-V76_90 ,
      V90   LIKE ITCOM-V90 ,
      VNTAV LIKE ITCOM-VNTAV ,
      TOTAL TYPE I ,
         END OF ITMX7 .
DATA : BEGIN OF ITETD OCCURS 0,
      EQUNR LIKE ETDZ-EQUNR ,
      ZWNUMMER LIKE ETDZ-ZWNUMMER,
      ZWKENN LIKE ETDZ-ZWKENN ,
      LOGIKZW LIKE ETDZ-LOGIKZW ,
      ANLAGE LIKE EASTS-ANLAGE ,
     BIS     LIKE EASTS-BIS,
      ZWNABR LIKE EASTS-ZWNABR ,
      END OF ITETD .
DATA : BEGIN OF ITEAN OCCURS 100,
      ANLAGE LIKE EASTL-ANLAGE,
     SPARTE LIKE EQUI-SPARTE,
      VSTELLE LIKE EANL-VSTELLE,
      ANLART LIKE EANL-ANLART,
      ERDAT LIKE EANL-ERDAT ,
         HAUS LIKE EVBS-HAUS,
         VBSART LIKE EVBS-VBSART,
         ERDAT_EVBS LIKE EVBS-ERDAT, "ERDAT_EVB
        REGIOGROUP LIKE EADRREGAREAA-REGIOGROUP,
         REGIOAREA LIKE EADRREGAREAA-REGIOAREA ,
          DESCRIPT(20) type c ,
      END OF ITEAN .
DATA : BEGIN OF ITSPL OCCURS 0 ,
        TPLNR LIKE IFLOT-TPLNR ,
        TPLMA LIKE IFLOT-TPLMA ,
        HAUS LIKE EHAUISU-HAUS ,
        REGIOGROUP LIKE EADRREGAREAA-REGIOGROUP ,
        END OF ITSPL .
DATA : BEGIN OF ITEGE OCCURS 0,
       EQUNR LIKE EGERH-EQUNR ,
       LOGIKNR LIKE EGERH-LOGIKNR,
       MATNR   LIKE EQUI-MATNR ,
       SERNR LIKE EQUI-SERNR,
       SPARTE LIKE EQUI-SPARTE,
       DEVLOC LIKE EGERH-DEVLOC,
       END OF ITEGE .
DATA : ITMOD LIKE ITMX2 OCCURS 0 WITH HEADER LINE ,
       WA_ITMX2 LIKE ITMX2 .
DATA : WA-EQUNR LIKE EQUI-EQUNR ,
       WA-ANLAGE LIKE EASTL-ANLAGE .
DATA : w_variant like disvariant ,
         W_VARIANT_SAVE TYPE C .
DATA : REP-ID LIKE SY-REPID,
     W_REPID LIKE SY-REPID .
DATA PUSH TYPE SSCRFIELDS-UCOMM .
DATA COUNT TYPE I .
DATA : V13 TYPE I ,
       V17 TYPE I.
DATA CNT TYPE I .
DATA VARIANT LIKE SY-TABIX .
DATA : SNT TYPE I ,
        PNT TYPE I ,
     V_COUNT TYPE I VALUE 1 .
DATA: ylayout TYPE slis_layout_alv ,
     XLAYOUT TYPE SLIS_LAYOUT_ALV .
DATA KNT TYPE I VALUE 0 .
DATA I_SORT TYPE slis_t_sortinfo_alv WITH HEADER LINE .
DATA : V_DATE LIKE SY-DATUM ,
      V_DATUM(10) TYPE C ,
      GX_VARIANT LIKE DISVARIANT,
      G_VARIANT LIKE DISVARIANT,
            G_SAVE(1) TYPE C VALUE 'A',
            G_EXIT(1) TYPE C,
            N TYPE I ,
            M TYPE I ,
            C TYPE I VALUE 0 .
DATA G_REPID LIKE SY-REPID .
DATA: GT_PRINT TYPE SLIS_PRINT_ALV.
DATA YREPID LIKE SY-REPID .
DATA: X_LAYOUT TYPE SLIS_LAYOUT_ALV ,
      Y_LAYOUT TYPE SLIS_LAYOUT_ALV ,
      Z_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA : TITLE LIKE SY-TITLE .
DATA : V_ENTER TYPE I ,
       V_MODIFY TYPE I .
******************SELECTION SCREEN ************************
SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-001 .
PARAMETERS P_SPART LIKE EQUI-SPARTE DEFAULT '01' .
SELECTION-SCREEN COMMENT 40(15) TEXT-005 .
SELECT-OPTIONS : S_SWERK FOR ILOA-SWERK DEFAULT 'M011',
                 S_RAREA FOR EADRREGAREAA-REGIOAREA ,
                 S_RGROUP FOR EADRREGAREAA-REGIOGROUP,
                 S_AB FOR EGERH-AB OBLIGATORY .
SELECTION-SCREEN END OF BLOCK BL1 .
SELECTION-SCREEN BEGIN OF BLOCK BL2 WITH FRAME TITLE TEXT-002 .
SELECT-OPTIONS: S_SERNR FOR EQUI-SERNR ,
                S_MATNR FOR EQUI-MATNR OBLIGATORY ,
                S_VSTELL FOR EANL-VSTELLE ,
                S_HAUS FOR EHAUISU-HAUS .
SELECTION-SCREEN END OF BLOCK BL2.
SELECTION-SCREEN BEGIN OF BLOCK BL3 WITH FRAME TITLE TEXT-003 .
SELECT-OPTIONS: S_VKONTO FOR EVER-VKONTO .
SELECTION-SCREEN END OF BLOCK BL3 .
SELECTION-SCREEN BEGIN OF BLOCK BL4 WITH FRAME TITLE TEXT-004 .
PARAMETERS: P_INSTA RADIOBUTTON GROUP RAD1 DEFAULT 'X' ,
            P_REPLC RADIOBUTTON GROUP RAD1 ,
            P_IP RADIOBUTTON GROUP RAD1 .
SELECT-OPTIONS : S_GERWE FOR EGERH-GERWECHS .
SELECTION-SCREEN END OF BLOCK BL4 .
SELECTION-SCREEN BEGIN OF BLOCK BL5 WITH FRAME TITLE TEXT-006.
PARAMETERS : P_VARI LIKE DISVARIANT-VARIANT ."DEFAULT '/ALL'.
SELECTION-SCREEN COMMENT 47(40) varname FOR FIELD P_VARI .
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN PUSHBUTTON /5(25) BUT1 USER-COMMAND UCSS .
PARAMETERS: P_FIXVAR LIKE KAEP_SETT-FIXVAR NO-DISPLAY,
            P_MAXSEL LIKE KAEP_SETT-MAXSEL NO-DISPLAY DEFAULT 1000.
SELECTION-SCREEN END OF BLOCK BL5.
*******INITIALIZATION************************
INITIALIZATION .
SET PF-STATUS 'INST' .
G_REPID = SY-REPID.
PERFORM VARIANT_INIT.
Default variant
GX_VARIANT = G_VARIANT.
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
       EXPORTING
            I_SAVE     = G_SAVE
       CHANGING
            CS_VARIANT = GX_VARIANT
       EXCEPTIONS
            NOT_FOUND = 2.
IF SY-SUBRC = 0.
    P_VARI = GX_VARIANT-VARIANT.
ENDIF.
MOVE 'Further Settings' TO BUT1 .
AT SELECTION SCREEN EVENT******
AT SELECTION-SCREEN .
CASE SY-UCOMM .
    WHEN 'UCSS' .
      CALL FUNCTION 'K_LINE_ITEM_TECH_SETTINGS_SET'
           CHANGING
                C_FIXVAR = P_FIXVAR
                C_MAXSEL = P_MAXSEL.
ENDCASE .
IF NOT S_RAREA IS INITIAL .
    SELECT SINGLE * FROM EADRREGAREAA
     WHERE REGIOAREA IN S_RAREA .
    IF SY-SUBRC <> 0 .
      MESSAGE E058(00) WITH S_RAREA-LOW S_RAREA-HIGH.
      LEAVE TO LIST-PROCESSING .
    ENDIF .
ENDIF.
IF NOT S_MATNR IS INITIAL .
    SELECT SINGLE * FROM ETYP
          WHERE MATNR IN S_MATNR
          AND KOMBINAT = 'Z'.
      IF SY-SUBRC <> 0 .
        MESSAGE E411(EG) .
        LEAVE TO LIST-PROCESSING .
      ENDIF.
   ENDIF.
IF NOT S_SWERK IS INITIAL .
    SELECT SINGLE * FROM ILOA
          WHERE SWERK IN S_SWERK .
      IF SY-SUBRC <> 0 .
        MESSAGE E412(I0) .
        LEAVE TO LIST-PROCESSING .
      ENDIF.
ENDIF.
IF NOT S_RGROUP IS INITIAL .
    SELECT SINGLE * FROM EADRREGAREAA
          WHERE REGIOGROUP IN S_RGROUP .
      IF SY-SUBRC <> 0 .
        MESSAGE E025(E7) .
        LEAVE TO LIST-PROCESSING .
      ENDIF.
ENDIF.
IF NOT S_HAUS IS INITIAL .
SELECT SINGLE * FROM EHAUISU
    WHERE HAUS IN S_HAUS .
    IF SY-SUBRC <> 0 .
      MESSAGE E011(E9) WITH 'Connection Object' S_HAUS-LOW S_HAUS-HIGH .
        LEAVE TO LIST-PROCESSING .
      ENDIF.
ENDIF.
IF NOT S_VSTELL IS INITIAL .
SELECT SINGLE * FROM EANL
    WHERE VSTELLE IN S_VSTELL .
    IF SY-SUBRC <> 0 .
        MESSAGE E011(E9) WITH 'Premise' S_VSTELL-LOW S_VSTELL-HIGH .
        LEAVE TO LIST-PROCESSING .
      ENDIF.
ENDIF.
IF NOT S_VKONTO IS INITIAL .
SELECT SINGLE * FROM EVER
    WHERE VKONTO IN S_VKONTO .
    IF SY-SUBRC <> 0 .
        MESSAGE E001(>3) .
        LEAVE TO LIST-PROCESSING .
      ENDIF.
ENDIF.
IF NOT S_GERWE IS INITIAL .
SELECT SINGLE * FROM TE401
   WHERE GERWECHS IN S_GERWE .
    IF SY-SUBRC <> 0 .
      MESSAGE E058(00) WITH S_GERWE-LOW S_GERWE-HIGH .
      LEAVE TO LIST-PROCESSING .
    ENDIF.
ENDIF.
IF NOT P_SPART IS INITIAL .
SELECT SINGLE * FROM EQUI
WHERE SPARTE = P_SPART .
    IF SY-SUBRC <> 0 .
      MESSAGE E058(00).
       LEAVE TO LIST-PROCESSING .
    ENDIF.
ENDIF.
CASE SY-UCOMM .
WHEN '&LFO'.
WRITE:/ ' DOCUMENTATION' .
ENDCASE .
PERFORM VARIANT_EXISTENCE .
AT SELECTION-SCREEN OUTPUT .
LOOP AT SCREEN .
    IF SCREEN-NAME = 'P_SPART' .
      SCREEN-INPUT = 0 .
      MODIFY SCREEN .
    ENDIF .
ENDLOOP .
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARI .
PERFORM F4_FOR_VARIANT.
***************START OF SELECTION EVENT****************
START-OF-SELECTION .
IF P_INSTA = 'X' .
    PERFORM INSTALL .
ELSEIF P_REPLC = 'X' .
    PERFORM REPLACE .
ELSEIF P_IP = 'X' .
    PERFORM INS_REPL .
ENDIF.
IF SY-BATCH = ' ' .
SELECT A~EQUNR
         A~BIS
          A~AB
         A~LOGIKNR
          A~ZWGRUPPE
          A~EINBDAT
          A~AUSBDAT
          A~GERWECHS
          A~DEVLOC
          B~MATNR
          B~SERNR
          B~SPARTE
          D~ANLAGE
          D~LOGIKNR
          D~ERDAT FROM ( ( EGERH AS A INNER JOIN EQUI AS B
                                ON AEQUNR = BEQUNR )
                  INNER JOIN EASTL AS D ON ALOGIKNR = DLOGIKNR )
                                    AND   ABIS     = DBIS
                                    AND   AAB      = DAB )
          INTO TABLE ITMX2 UP TO P_MAXSEL ROWS
          FOR ALL ENTRIES IN ITTE4
          WHERE A~GERWECHS = ITTE4-GERWECHS
          AND    A~BIS GE S_AB-LOW
          AND A~AB IN S_AB
          AND A~KOMBINAT = 'Z'
          AND A~EINBDAT NE '00000000'
          AND A~AUSBDAT EQ '00000000'
          AND B~MATNR IN S_MATNR
          AND B~SERNR IN S_SERNR
          AND B~SPARTE = P_SPART
          AND D~BIS GE S_AB-LOW .
         AND D~AB IN S_AB .
ELSE.
    SELECT A~EQUNR
         A~BIS
          A~AB
         A~LOGIKNR
          A~ZWGRUPPE
          A~EINBDAT
          A~AUSBDAT
          A~GERWECHS
          A~DEVLOC
          B~MATNR
          B~SERNR
          B~SPARTE
          D~ANLAGE
          D~LOGIKNR
          D~ERDAT
          FROM ( ( EGERH AS A INNER JOIN EQUI AS B
                                ON AEQUNR = BEQUNR )
                  INNER JOIN EASTL AS D ON ALOGIKNR = DLOGIKNR )
                                    AND   ABIS     = DBIS
                                    AND   AAB      = DAB )
          INTO TABLE ITMX2
          FOR ALL ENTRIES IN ITTE4
          WHERE A~GERWECHS = ITTE4-GERWECHS
          AND    A~BIS GE S_AB-LOW
          AND A~AB IN S_AB
          AND A~KOMBINAT = 'Z'
          AND A~EINBDAT NE '00000000'
          AND A~AUSBDAT EQ '00000000'
          AND B~MATNR IN S_MATNR
          AND B~SERNR IN S_SERNR
          AND B~SPARTE = P_SPART
          AND D~BIS GE S_AB-LOW .
         AND D~AB IN S_AB .
ENDIF.
SORT ITMX2 BY ANLAGE EQUNR .
LOOP AT ITMX2 .
IF ITMX2-ANLAGE = WA_ITMX2-ANLAGE .
     MOVE-CORRESPONDING WA_ITMX2 TO ITMOD .
     APPEND ITMOD.
     CLEAR ITMOD .
    MOVE-CORRESPONDING ITMX2 TO ITMOD .
     APPEND ITMOD.
     CLEAR ITMOD .
ENDIF.
MOVE-CORRESPONDING ITMX2 TO WA_ITMX2 .
ENDLOOP .
SORT ITMOD BY ANLAGE EQUNR .
DELETE ADJACENT DUPLICATES FROM ITMOD .
IF NOT ITMOD[] IS INITIAL .
SELECT A~EQUNR
       A~ZWNUMMER
       A~ZWKENN
       A~LOGIKZW
       B~ANLAGE
       B~ZWNABR
       FROM ( ETDZ AS A INNER JOIN EASTS AS B
              ON ALOGIKZW = BLOGIKZW )
        INTO TABLE ITETD
        FOR ALL ENTRIES IN ITMOD
        WHERE A~EQUNR = ITMOD-EQUNR
        AND   A~BIS GE S_AB-LOW
       AND   A~AB   IN S_AB
        AND   A~ZWNUMMER = 1
        AND   B~ZWNABR NE 'X' .
SORT ITETD BY ANLAGE EQUNR .
LOOP AT ITMX2 .
   LOOP AT ITETD WHERE ANLAGE EQ ITMX2-ANLAGE .
          V_ENTER = 1 .
        IF ITETD-EQUNR EQ ITMX2-EQUNR .
           V_MODIFY = 1 .
           EXIT .
       ENDIF.
ENDLOOP .
     IF V_ENTER = 1 AND V_MODIFY = 0 .
        DELETE ITMX2 .
     ENDIF.
     CLEAR : ITMX2 ,V_ENTER ,V_MODIFY .
ENDLOOP .
ENDIF.
MESSAGE S015(ZS).
IF NOT ITMX2[] IS INITIAL .
SELECT ANLAGE
         VSTELLE
         ANLART
         ERDAT
         FROM EANL INTO CORRESPONDING FIELDS OF TABLE ITEAN
         FOR ALL ENTRIES IN ITMX2
         WHERE ANLAGE = ITMX2-ANLAGE
         AND   SPARTE = P_SPART
         AND   VSTELLE IN S_VSTELL .
ENDIF.
SORT ITEAN BY ANLAGE .
IF NOT ITEAN[] IS INITIAL .
SELECT E~ANLAGE
         E~VSTELLE
         F~haus
         F~VBSART
         F~ERDAT
         H~REGIOGROUP
         H~REGIOAREA
         L~DESCRIPT
     FROM ( ( ( ( EANL AS E INNER JOIN EVBS AS F
                       ON EVSTELLE = FVSTELLE )
                  INNER JOIN EHAUISU AS G ON FHAUS = GHAUS    )
                  INNER JOIN EADRREGAREAA AS H ON G~REGIOGROUP =
                                                        H~REGIOGROUP )
                  INNER JOIN EADRREGAREAT AS L ON H~REGIOAREA =
                                                       L~REGIOAREA   )
         INTO TABLE ITMX4
        FOR ALL ENTRIES IN ITEAN
         WHERE E~ANLAGE = ITEAN-ANLAGE
         AND   E~VSTELLE = ITEAN-VSTELLE
         AND   L~LANGU = SY-LANGU
         AND   H~REGIOGROUP IN S_RGROUP
         AND   H~REGIOAREA IN S_RAREA .
ENDIF.
*LOOP AT ITEAN .
READ TABLE ITMX4 WITH KEY VSTELLE = ITEAN-VSTELLE .
IF SY-SUBRC EQ 0 .
     MOVE-CORRESPONDING ITMX4 TO ITEAN .
     ITEAN-ERDAT_EVBS = ITMX4-ERDAT .
     MODIFY ITEAN .
ENDIF.
*ENDLOOP .
LOOP AT ITMX2 .
ITMX1-ERDAT_EAS = ITMX2-ERDAT .
MOVE-CORRESPONDING ITMX2 TO ITMX1 .
READ TABLE ITEAN WITH KEY ANLAGE = ITMX2-ANLAGE .
   IF SY-SUBRC EQ 0 .
         ITMX1-ERDAT_EAN = ITEAN-ERDAT .
         MOVE-CORRESPONDING ITEAN TO ITMX1 .
   READ TABLE ITMX4 WITH KEY ANLAGE = ITMX2-ANLAGE .
    IF SY-SUBRC EQ 0 .
          ITMX1-ERDAT_EVB = ITMX4-ERDAT .
        MOVE-CORRESPONDING ITMX4 TO ITMX1 .
    ENDIF.
WE WILL GET ONLY THOSE RECORDS THAT IS HAVING REGIO GROUP,DIVISON
    APPEND ITMX1.
    CLEAR ITMX1 .
ENDIF.
ENDLOOP .
IF NOT ITMX4[] IS INITIAL .
SELECT EQUNR
         ABLBELNR
         ABLESGR
         ADAT
         ADATSOLL
         ANLAGE FROM V_EABL
         INTO TABLE ITMX3
         FOR ALL ENTRIES IN ITMX1
         WHERE ANLAGE = ITMX1-ANLAGE
        AND   EQUNR = ITMX1-EQUNR
        AND ADATSOLL GE S_AB-LOW
        ANd ( ABLESGR EQ '01'
        OR ABLESGR EQ '02'
        OR ABLESGR EQ '03'
        OR ABLESGR EQ '22' ) .
SELECT B~EQUNR
         A~ABLBELNR
         A~ABLESGR
         B~ADAT
         B~ADATSOLL
         A~ANLAGE
     FROM ( EABLG AS A INNER JOIN EABL AS B ON AABLBELNR = BABLBELNR
        INTO CORRESPONDING FIELDS OF TABLE ITMX3
        FOR ALL ENTRIES IN ITMX1
        WHERE A~ANLAGE = ITMX1-ANLAGE
        AND   B~EQUNR = ITMX1-EQUNR
        AND B~ADATSOLL GE S_AB-LOW
        AND A~ABRDATS GE S_AB-LOW
        AND ( A~ABLESGR EQ '01'
        OR A~ABLESGR EQ '02'
        OR A~ABLESGR EQ '03'
        OR A~ABLESGR EQ '22'   ) .
ENDIF.
SELECT ANLAGE
         VKONTO
         VERTRAG
         SPARTE
         FROM EVER INTO TABLE ITEVE
         FOR ALL ENTRIES IN ITMX1
         WHERE ANLAGE = ITMX1-ANLAGE
         AND   SPARTE = P_SPART .
LOOP AT ITMX1 .
READ TABLE ITMX3 WITH KEY ANLAGE = ITMX1-ANLAGE
                            EQUNR = ITMX1-EQUNR .
IF SY-SUBRC EQ 0 .
   MOVE-CORRESPONDING ITMX3 TO ITMX1 .
   ENDIF.
READ TABLE ITEVE WITH KEY ANLAGE = ITMX1-ANLAGE .
   IF SY-SUBRC EQ 0 .
      MOVE-CORRESPONDING ITEVE TO ITMX1 .
   ENDIF.
MODIFY ITMX1 .
ENDLOOP .
SELECT J~BEGABRPE
         J~ENDABRPE
         J~ABRDATS
         J~VKONT
         j~vertrag
         K~BELNR
         K~LFDNR
         K~BUDAT
        FROM ( ERCH AS J INNER JOIN ERCHC AS K ON JBELNR = KBELNR )
        INTO CORRESPONDING FIELDS OF TABLE ITERC
         FOR ALL ENTRIES IN ITMX1
         WHERE J~VERTRAG = ITMX1-VERTRAG
         AND   J~ADATSOLL GE S_AB-LOW .
*SELECT BEGABRPE
        ENDABRPE
        ABRDATS
        VKONT
        vertrag
        K~BELNR
        K~LFDNR
        K~BUDAT
       FROM ERCH     INTO CORRESPONDING FIELDS OF TABLE ITERC
        FOR ALL ENTRIES in ITMX1
        WHERE VERTRAG = ITMX1-VERTRAG
        and   ADATSOLL GE S_AB-LOW .
LOOP AT ITMX1 .
READ TABLE ITERC WITH KEY VERTRAG = ITMX1-VERTRAG .
IF SY-SUBRC EQ 0 .
    ITMX1-BEGABRPE = ITERC-BEGABRPE .
   ITMX1-ENDABRPE = ITERC-ENDABRPE .
   ITMX1-ABRDATS = ITERC-ABRDATS .
   ITMX1-BELNR = ITERC-BELNR .
   ITMX1-LFDNR = ITERC-LFDNR .
   ITMX1-BUDAT = ITERC-BUDAT .
   MODIFY ITMX1 TRANSPORTING BEGABRPE ENDABRPE ABRDATS BELNR
      LFDNR BUDAT .
   ENDIF.
ENDLOOP .
MESSAGE S014(ZS) .
LOOP AT ITMX1 .
MOVE-CORRESPONDING ITMX1 TO ITFIN .
ITFIN-LTPU = ITMX1-ERDAT_EAN - ITMX1-ERDAT_EVB .
ITFIN-LTUB = ITMX1-ERDAT_EAS - ITMX1-ERDAT_EAN .
IF NOT ITMX1-ADATSOLL IS INITIAL AND ( NOT ITMX1-EINBDAT IS INITIAL )
   ITFIN-LTBM = ITMX1-ADATSOLL - ITMX1-EINBDAT .
     ELSE .
         ITFIN-LTBM = 'NTAV'.
     ENDIF.
IF NOT ITMX1-ADAT IS INITIAL AND ( NOT ITMX1-ADATSOLL IS INITIAL ) .
    ITFIN-LTMA =   ITMX1-ADAT - ITMX1-ADATSOLL .
ELSE .
    ITFIN-LTMA = 'NTAV' .
ENDIF.
IF NOT ITMX1-ABRDATS IS INITIAL AND ( NOT ITMX1-ADAT IS INITIAL ) .
    ITFIN-LTAB =   ITMX1-ABRDATS - ITMX1-ADAT .
ELSE .
    ITFIN-LTAB = 'NTAV' .
ENDIF.
IF NOT ITMX1-BUDAT IS INITIAL AND ( NOT ITMX1-ABRDATS IS INITIAL ) .
       ITFIN-LTBA =   ITMX1-BUDAT - ITMX1-ABRDATS .
ELSE.
    ITFIN-LTBA = 'NTAV'.
ENDIF.
ITFIN-SUM = 0.
IF ITFIN-LTPU NE 'NTAV' AND ITFIN-LTPU NE 'N/A'.
    ITFIN-SUM = ITFIN-SUM + ITFIN-LTPU.
ENDIF.
IF ITFIN-LTUB NE 'NTAV' AND ITFIN-LTUB NE 'N/A'.
    ITFIN-SUM = ITFIN-SUM + ITFIN-LTUB.
ENDIF.
IF ITFIN-LTBM NE 'NTAV' AND ITFIN-LTBM NE 'N/A'.
    ITFIN-SUM = ITFIN-SUM + ITFIN-LTBM.
ENDIF.
IF ITFIN-LTMA NE 'NTAV' AND ITFIN-LTMA NE 'N/A'.
    ITFIN-SUM = ITFIN-SUM + ITFIN-LTMA.
ENDIF.
IF ITFIN-LTAB NE 'NTAV' AND ITFIN-LTAB NE 'N/A'.
    ITFIN-SUM = ITFIN-SUM + ITFIN-LTAB.
ENDIF.
IF ITFIN-LTBA NE 'NTAV' AND ITFIN-LTBA NE 'N/A'.
    ITFIN-SUM = ITFIN-SUM + ITFIN-LTBA.
ENDIF.
APPEND ITFIN .
CLEAR ITFIN .
ENDLOOP .
DELETE ADJACENT DUPLICATES FROM ITFIN .
PERFORM SUMMARY .
Message S013(ZS).
PERFORM BACKGROUND .
CLEAR: ITMX2[] ,ITSPL[],ITEGE[] ,ITTE4[],ITMX7[] .
MESSAGE S017(ZS) .
SUBROUTINES********************************
FOR INSTALLATION********************************
FORM INSTALL .
SELECT GERWECHS
        EAWKENNZE
        EAWKENNZW
         FROM TE401 INTO CORRESPONDING FIELDS OF TABLE ITTE4
        WHERE GERWECHS IN S_GERWE
          AND EAWKENNZE = 'X' .
IF SY-SUBRC NE 0 .
   MESSAGE S002(ZS).
   LEAVE TO LIST-PROCESSING .
ENDIF.
ENDFORM .
************************REPLACE****************************
FORM REPLACE .
SELECT GERWECHS
         EAWKENNZE
         EAWKENNZW FROM TE401 INTO CORRESPONDING FIELDS OF TABLE ITTE4
    WHERE GERWECHS IN S_GERWE
    AND EAWKENNZW = 'X' .
IF SY-SUBRC NE 0.
   MESSAGE S003(ZS) .
   LEAVE TO LIST-PROCESSING .
ENDIF.
ENDFORM .
************************INSTALL/REPLACEMENT*********************
FORM INS_REPL .
SELECT GERWECHS
       EAWKENNZE
       EAWKENNZA
       EAWKENNZW FROM TE401 INTO CORRESPONDING FIELDS OF TABLE ITTE4
WHERE GERWECHS IN S_GERWE
AND ( EAWKENNZE = 'X'
OR EAWKENNZW = 'X' ) .
IF SY-SUBRC NE 0.
   MESSAGE S004(ZS) .
   LEAVE TO LIST-PROCESSING .
ENDIF.
ENDFORM .
FIELD CATALOG FOR DETAILED REPORT ******************
FORM FIELDCATALOG USING F_FIELDCAT .
CLEAR SFLD .
SFLD-FIELDNAME = 'STATUS' .
SFLD-SELTEXT_S = 'Details'.
SFLD-SELTEXT_M = 'Details'.
SFLD-JUST =   'L' .
SFLD-KEY = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'EQUNR' .
SFLD-SELTEXT_S = 'Equipment'.
SFLD-SELTEXT_M = 'Equipment'.
SFLD-JUST =   'L' .
SFLD-KEY = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'ANLAGE' .
SFLD-SELTEXT_S = 'Installat.'.
SFLD-SELTEXT_M = 'Installation'.
SFLD-JUST =   'L' .
SFLD-KEY = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'SERNR' .
SFLD-SELTEXT_S = 'Serial no.'.
SFLD-SELTEXT_M = 'Serial number'.
SFLD-JUST =   'L' .
SFLD-KEY = 'X' .
SFLD-HOTSPOT = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'VKONTO' .
SFLD-SELTEXT_S = 'Cont.Acct'.
SFLD-SELTEXT_M = 'Contract Acct'.
SFLD-JUST =   'L' .
SFLD-KEY = 'X' .
SFLD-HOTSPOT = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'REGIOAREA' .
SFLD-SELTEXT_S = 'Reg. area'.
SFLD-SELTEXT_M = 'Reg. struc.area'.
SFLD-JUST =   'L' .
SFLD-KEY = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'REGIOGROUP' .
SFLD-SELTEXT_S = 'RegStrGrp.'.
SFLD-SELTEXT_M = 'Reg. Str. Grp.'.
SFLD-JUST =   'L' .
SFLD-KEY = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'LTPU' .
SFLD-SELTEXT_S = 'Prm-Util'.
SFLD-SELTEXT_L = 'Premise to Utility installation in days'.
SFLD-JUST =   'R' .
SFLD-KEY = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'LTUB' .
SFLD-SELTEXT_S = 'Util-BInst'.
SFLD-SELTEXT_L = 'Utility to Billing installation in days'.
SFLD-JUST =   'R' .
SFLD-KEY = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'LTBM' .
SFLD-SELTEXT_M = 'BInst-MRO'.
SFLD-SELTEXT_L = 'Billing to Meter reading order in days'.
SFLD-JUST =   'R' .
SFLD-KEY = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'LTMA' .
SFLD-SELTEXT_M = 'MRO-AcRead'.
SFLD-SELTEXT_L = 'Meter reading order to actual reading in days'.
SFLD-JUST =   'R' .
SFLD-KEY = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'LTAB' .
SFLD-SELTEXT_M = 'AcRead-BiOr'.
SFLD-SELTEXT_L = 'Actual reading to Billing order in days'.
SFLD-JUST =   'R' .
SFLD-KEY = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'LTBA' .
SFLD-SELTEXT_M = 'BiOr-AcBill'.
SFLD-SELTEXT_L = 'Billing order to Actual billing in days'.
SFLD-JUST =   'R' .
SFLD-KEY = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'SUM' .
SFLD-SELTEXT_M = 'TOTAL'.
SFLD-SELTEXT_L = 'Total lead time in days'.
SFLD-JUST =   'R' .
SFLD-KEY = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'VSTELLE' .
SFLD-SELTEXT_S = 'Premise'.
SFLD-SELTEXT_M = 'Premise'.
SFLD-JUST =   'L' .
SFLD-KEY = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'LOGIKNR' .
SFLD-SELTEXT_S = 'LogDev.no.'.
SFLD-SELTEXT_M = 'Log. dev. no.'.
SFLD-JUST =   'L' .
SFLD-KEY = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'BIS' .
SFLD-SELTEXT_M = 'Valid to'.
SFLD-SELTEXT_L = 'Date at Which a Time Slice Expires'.
SFLD-JUST =   'C' .
SFLD-NO_OUT = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'AB' .
SFLD-SELTEXT_M = 'Valid from'.
SFLD-SELTEXT_L = 'Date from which time slice is valid'.
SFLD-JUST =   'C' .
SFLD-NO_OUT = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'ZWGRUPPE' .
SFLD-SELTEXT_S = 'Reg. group'.
SFLD-SELTEXT_M = 'Register group'.
SFLD-JUST =   'C' .
SFLD-NO_OUT = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'EINBDAT' .
SFLD-SELTEXT_S = 'Inst. date'.
SFLD-SELTEXT_M = 'Install. date'.
SFLD-JUST =   'C' .
SFLD-NO_OUT = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD.
SFLD-FIELDNAME = 'AUSBDAT' .
SFLD-SELTEXT_S = 'Remov.date'.
SFLD-SELTEXT_M = 'Removal date'.
SFLD-JUST =   'C' .
SFLD-NO_OUT = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'GERWECHS' .
SFLD-SELTEXT_S = 'Reason'.
SFLD-SELTEXT_M = 'Activity reason'.
SFLD-JUST =   'C' .
SFLD-NO_OUT = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'DEVLOC' .
SFLD-SELTEXT_S = 'Dev. loc.'.
SFLD-SELTEXT_M = 'Device location'.
SFLD-JUST =   'C' .
SFLD-NO_OUT = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'SPARTE' .
SFLD-SELTEXT_S = 'Division'.
SFLD-SELTEXT_M = 'Division'.
SFLD-JUST =   'C' .
SFLD-NO_OUT = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'ANLART' .
SFLD-SELTEXT_S = 'Inst. type'.
SFLD-SELTEXT_M = 'Inst. type'.
SFLD-JUST =   'C' .
SFLD-NO_OUT = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'HAUS' .
SFLD-SELTEXT_S = 'Conn.obj.'.
SFLD-SELTEXT_M = 'Connection obj.'.
SFLD-JUST =   'C' .
SFLD-NO_OUT = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD .
SFLD-FIELDNAME = 'VBSART' .
SFLD-SELTEXT_S = 'Prem. type'.
SFLD-SELTEXT_M = 'Premise type'.
SFLD-JUST =   'C' .
SFLD-NO_OUT = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD.
SFLD-FIELDNAME = 'ABBELNR' .
SFLD-SELTEXT_S = 'Int.MRD ID'.
SFLD-SELTEXT_M = 'Int. MR doc. ID'.
SFLD-JUST =   'C' .
SFLD-NO_OUT = 'X' .
APPEND SFLD TO ITFLD .
CLEAR SFLD.
SFLD-FIELDNAME = 'ABLESGR' .

Query Regarding Fetching of Maintenance View

Hi Experts
I have one query regarding fetching of Maintenance View.
My Maintenance View is consisting of only one table.
so i am unable to fetch the data using inner join.i also found
one FM VIEW_GET_DATA which fetches entire table with out
any condition it may lead to performance issue. kindly suggest
how do i fetch the data from such Maintenance View.
Thanks
Nishita G

Hi,
You can Direct Use the DML operations on the Underlying Database Table.( example 'SELECT' Statement and use 'WHERE' Condition for required output ).
Regards
Pavan Kumar

Hiding a Maintenance View in a View Cluster

Hello ABAP Experts,
We have a scenario where we would like to hide a maintenance view to an existing view cluster based on condition.
Is it possible via events of a view cluster, where i can hide the view at runtime based on some condition before the view cluster is displayed ?
Is there any way as well, which help achieve this hiding of views ?
For example in the below View Cluster, i would like to hide "Define object links" view from the main view cluster "Define document Types".
Thanks,
Naresh

Hi Naresh,
Yes, you can do it in events of a view cluster, define a subroutine and bounding it to event(02) in SE54,
when you define the subroutine, it will ask you creat a mian program, in this main program, you need 'INCLUDE lsvcmcod'.
Then you can access some standard data, http://help.sap.com/saphelp_nw04/helpdata/en/62/c302c7de8e11d1a5960000e82deaaa/frameset.htm
INCLUDE lsvcmcod.
FORM yourSubroutineName.
DATA: viewname TYPE vclstruc-object,
        error_flag TYPE vcl_flag_type,
viewname = 'ZTEST_VIEW1'.
* PERFORM vcl_set_table_access_for_obj USING    viewname
*                                       CHANGING error_flag.
----> according your condition to change the view.
IF xxx = yyy.
DELETE vcl_struc_tab WHERE object = viewname.
ENDIF.
ENDFORM.
regards,
Archer

Possibility to edit datasets, when there is already a maintenance view?

Hello again,
is it right that I can modify datasets even when there exists a generated maintenance view for the table?
It was usual for me, that in the transaction SE16 don't allow that.
Thank you for your answers!
Melanie

Depends on the setting for "delivery and maintenance" in SE11, should be set to "allowed with restrictions" for the underlying tables of the view. Also check the very good F1 help for this field.
Thomas

Can I use classes and methods for a maintenance view events?

Hello experts,
Instead of perform/form, can I instead use classes and methods, etc for a given maintenance view event, lets say for example I want to use event '01' which is before saving records in the database. Help would be greatly appreciated. Thanks a lot guys!

Hi viraylab,
1. The architecture provided by maintenance view
   for using EVENTS and our own code inside it -
   It is provided using FORM/PERFORM
   concept only.
2. At this stage,we cannot use classes.
3. However, inside the FORM routine,
   we can write what ever we want.
   We can aswell use any abap code, including
   classes and methods.
(But this classes and methods won't have any
   effect on the EVENT provided by maintenance view)
regards,
amit m.

How to create a variant to a maintenance view (trans: SM31)

Hi gurus.
I have created a maintenance view (called z_jest). By running it from SM31 there is a variant option. However, I am not able to create the variant which I want to filter a selection upon in this transaction.
I have even looked into transaction SE54 and created a variant for the maintenance table view there( called z_jestv). Then going back to transaction SM31 and view z_jest, i push 'Variant' radiobutton and type as variant: 'z_jestv', I only get the message: "Variant z_jestv for object z_jest does not exist".
Can anybody please advice on how to create and/or connect the variant to the maintenance view?
Regards LL.

Hi Mahalakshmi
Thanks for reply.
When I look into the procedure, there is a prerequisite: "The basis dialog for which the maintenance variant is created already exists."
I am a little bit unsertain if I miss this 'Basic dialog'. Can you please advice on how to check / create this 'basic dialog' before I go on to create the variant. (I need this 'basic dialog' as input in the procedure you sent.)
(Note: I have already created a 'maintenance dialog' for the view, but I have a feeling, that is something different...)

How to create transaction for a maintenance view, Thank you.

How to create transaction for a maintenance view,
Thank you.
deniz...

Hi Deniz,
Go to se93.
Then create the new T.code.
Under that select parameter Transaction.
Then give the sm30 in the t.code in default values tab.
check the checkbox skip initial screen.
in classification tab.
click checkbox inherit gui attributes..
Now below..
In the default values..
select
viewname and give ur table name.
UPDATE= Xsave
view - table name ( Should be upper case
update X ( should be upper case).
http://www.sap-basis-abap.com/sapbs011.htm
Hope this helps you.
Regards,
Viveks

Issue on a maintenance view

Similar Messages

Maybe you are looking for