Equipment action log and display changes nnot updating

Question

Hello Guys,
it is little strange but for some of the equipments action log and display changes are not being updated.
The records are there only till 2007 but since 2008 whatever changes we make now they are not being recorded in action log or changes.
But strange thing here is usage list is being updated as it is supposed to be.
i have checked most of the config. but really not helpful.
i am clueless here.
Can anyone help?
Thanks & Regards,
vaibhav

Answer 1

Hi,
Please see attached code for your review:
Appreciate your valuable comments.
  INCLUDE ZXEQMU02
*By: Ralph McKnight/AC  Date: Mar061998.
*Description: Additional fields to be saved on append structures
            during equipment add/change - This development was
            Undertaken as a core modification - The exporting
            function parameters were changes to pass back the
            structures with the new user values.
*Sir4726 - Disable equipment popup box for equipment type 'E'
*Sartd42467-Add kokrs & kostl to auto maint
*By Ralph McKnight Apr161998.
*SARTD 75148 - 4.6C Upgrade, CH4K902173, Import/Export parameters can no
             longer have the same names, added a Changing parameter to
             return the changed values of EQUI and EQUZ to save the
             append structure fields ZAEQUI and ZAEQUZ for Job
             Resource Scheduling.
           - Also set the flags to update EQUI and EQUZ.
             by: HBAY342
*SARTD 92504 - Save new maintenance plant into ABAP memory. Needed for
             9/26/02 E.Krenz
*SARTD 109167 - AMI Foreign Trade REquirement. - Validations against
            - AMI Foreign Trade Synchronization tables(ZAESYNCDIV &
              (ZAESYNCMAT)         before save
              of the equipment.
SARTD 111318 - CHLK9A0I4A Check Equipment Acquisition Date, Value and
                 currency to avoid dump by SAP Standard system
SARTD 113133 AMI project: Added function call to prevent users from
             manually changing equipments when it is on a AMI transfer
             form.
KR 140649    AMI: Added parameter to FM call
             for Z_AMI_CHCK_IE02_UPDATE_ALLOWED.  E.Krenz 12/23/03
03/02/2004  HBB8705   CHLK9A0WYR   EQUZ Append field rename
Modification Log
Date        User    Transport   KR     Description
06/29/2005  HBAK946 CHLK9A1N05  169999 RA Equipment Lockdown
                                       If equip is RA, check authority
                                       If no auth., then issue a mess
06/30/2005  HBAK946 CHLK9A1N29  169999 RA Equipment Lockdown
                                       Only process RA check if in
                                       t-code IE01, IE02 will be
                                       handled in user-exit
Begin of CH4K902173 - 4.6C upgrade - Changed import/export/changing
parameters
Old way follows:
*This is how the call to this routine should look with our mods.
*Note: the changes to the std are labeled with "DS Part 6 - RGM1
call customer-function '001'
     exporting
          data_equi           = equi
          data_eqkt           = eqkt
          data_equz           = equz
          data_iloa           = iloa
     importing
          own_msg             = own_msg
          data_equi           = equi "DS Part 6 - RGM1
          data_eqkt           = eqkt "DS Part 6 - RGM1
          data_equz           = equz "DS Part 6 - RGM1
          data_iloa           = iloa "DS Part 6 - RGM1
     exceptions
          posting_not_allowed = 1
          others              = 2.
New way follows:
CALL CUSTOMER-FUNCTION '001'
      EXPORTING
           ACTIVITY_TYPE           = ACTIVITY_TYPE
           DATA_EQUI               = EQUI
           DATA_EQKT               = EQKT
           DATA_EQUZ               = EQUZ
           DATA_ILOA               = ILOA
           MAIN_CLASS              = RM63E-KLASSE
           DATA_RM63E              = RM63E
      IMPORTING
           UPDATE_DATA_EQ          = UPDATE_DATA_EQ
           UPDATE_FLAGS_EQ         = UPDATE_FLAGS_EQ
           UPDATE_DATA_EZ          = UPDATE_DATA_EZ
           UPDATE_FLAGS_EZ         = UPDATE_FLAGS_EZ
      CHANGING
           CHGD_EQUI               = EQUI
           CHGD_EQUZ               = EQUZ
      EXCEPTIONS
           POSTING_NOT_ALLOWED     = 1
           POSTING_NOT_ALLOWED_EXT = 2
           OTHERS                  = 3.
End of CH4K902173 - 4.6C upgrade - Changed import/export/changing
Changes for SARTD 111318 to check Acquisition Date, Value and currency
Commented By Nikhil. Function Module looks to be specific for US.
*data: v_retval like sy-subrc.
                                                            "CHLK9A0I4A
*call function 'Z_VERIFY_ACQUISITION_DATA'
                                                            "CHLK9A0I4A
exporting
                                                            "CHLK9A0I4A
   p_equi        = data_equi
                                                            "CHLK9A0I4A
importing
                                                            "CHLK9A0I4A
  retval        = v_retval.
                                                            "CHLK9A0I4A
*if v_retval ne 0.
                                                            "CHLK9A0I4A
raise posting_not_allowed.
                                                            "CHLK9A0I4A
*endif.
                                                            "CHLK9A0I4A
End of changes for SARTD 111318
*======================================================================
Begin of AMI
*======================================================================
Begin of insert SARTD 113133
read calling AMI program
DATA: z_ami_program(30) TYPE c.
CALL FUNCTION 'Z_AMI_CHECK_AMI_PRG_ACTIVE'
  IMPORTING
    p_ami_program = z_ami_program.
AMI validations if Equipment Update is allowed
For checking Equipment Check permission.
CALL FUNCTION 'Z_AMI_CHCK_IE02_UPDATE_ALLOWED'
  EXPORTING
    active_ami_program = z_ami_program
    data_equz          = data_equz
    data_equi          = data_equi
    data_iloa          = data_iloa
    main_class         = main_class
    data_rm63e         = data_rm63e
  EXCEPTIONS
    update_not_allowed = 8.
IF sy-subrc NE 0.
  RAISE posting_not_allowed.
ENDIF.
Commented By Nikhil. Function Module looks to be specific for US.
checks for equipment ring fencing (only for manual IE02)
*if z_ami_program is initial.
call function 'Z_AMI_IE02_EXIT_RING_FENCING'
      exporting
           data_equz          = data_equz
           data_rm63e         = data_rm63e
      exceptions
           update_not_allowed = 8.
if sy-subrc ne 0.
   raise posting_not_allowed.
endif.
*endif.
End of INSERT SARTD 113133
*======================================================================
End of AMI
*======================================================================
*======================================================================
Begin of RA Equipment Lockdown >> CHLK9A1N05
*======================================================================
check if equipment is Radio Active
DATA: i_matnr_tab LIKE zhazind OCCURS 0 WITH HEADER LINE.
DATA: v_land1(3) TYPE c.
DATA: v_ra_flag(1) TYPE c.
*Begin of code insertion by pavan on 02 June, 2008.
DATA: zeqpnr_eccn-zeccn TYPE zeqpnr_eccn-zeccn,
      wa_zeqpnr_eccn TYPE zeqpnr_eccn.
break pkumar.
IF sy-ucomm = 'BU'.
  IMPORT zeqpnr_eccn-zeccn FROM MEMORY ID 'ZECCNUM'.
  MOVE: data_equi-equnr TO wa_zeqpnr_eccn-zeqnr,
        zeqpnr_eccn-zeccn TO wa_zeqpnr_eccn-zeccn.
  MODIFY zeqpnr_eccn FROM wa_zeqpnr_eccn.
  CLEAR wa_zeqpnr_eccn.
ENDIF.
*End of code insertion by pavan on 02 June, 2008.
IF sy-tcode = 'IE01'.
  IF NOT data_equi-matnr IS INITIAL AND
     NOT data_equz-zzswerk IS INITIAL.
    SELECT SINGLE land1 FROM t001w
           INTO v_land1
           WHERE werks = data_equz-zzswerk.
    CLEAR: i_matnr_tab.
    REFRESH: i_matnr_tab.
    i_matnr_tab-matnr = data_equi-matnr.
    APPEND i_matnr_tab TO i_matnr_tab.
    CALL FUNCTION 'Z_MATERIAL_HAZARD'
      EXPORTING
        pland1    = v_land1
      TABLES
        matnr_tab = i_matnr_tab.
check if radio active
    READ TABLE i_matnr_tab INDEX 1.
    IF sy-subrc = 0.
      IF i_matnr_tab-ramat = 'X'.
check if user has Radio Active access
        AUTHORITY-CHECK OBJECT 'S_TCODE'
                    ID 'TCD' FIELD 'ZIE02_RA'.
        IF sy-subrc NE 0.
          MESSAGE w000(z5) WITH 'No access to create RA equipment'.
          RAISE posting_not_allowed.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDIF.
ENDIF.
*======================================================================
End of RA Equipment Lockdown << CHLK9A1N05
*======================================================================
*CHECK NOT data_equi-eqtyp = 'E'.
*CHECK NOT data_equi-eqtyp = 'F'.
DATA: v_stor_ucomm LIKE sy-ucomm.
DATA: v_equnr LIKE data_equz-equnr.
*Save the system user command field
v_stor_ucomm = sy-ucomm.
v_equnr = data_equz-equnr.
*Get the additional information
CALL FUNCTION 'Z_GET_MORE_EQUIPMENT_INFO'
  CHANGING
    s_equi    = data_equi
    s_equz    = data_equz
    s_rm63e   = data_rm63e
  EXCEPTIONS
    cancelled = 1.
*Begin of changes for SARTD 113691
IF sy-subrc NE 0.                                           "CHLK9A0KY9
  RAISE posting_not_allowed.                                "CHLK9A0KY9
ENDIF.                                                      "CHLK9A0KY9
End of changes for SARTD 113691
*Restore the equip number
data_equz-equnr = v_equnr.
data_equz-zzkokrs = data_iloa-kokrs.                        "CHLK9A0WYR
data_equz-zzkostl = data_iloa-kostl.                        "CHLK9A0WYR
data_equz-zzswerk = data_iloa-swerk.                        "CHLK9A0WYR
*****SARTD 109167
*vALIDATE VALUES PER ami fOREIGN TRADE SYNCHRONIZATION RULES
*set screen 0101.
CALL FUNCTION 'Z_AMIFT_VALIDATE_EQUIP_MATNR'
TABLES
  P_MESSAGES       =
  CHANGING
    p_equi           = data_equi
    p_equz           = data_equz.
*****SARTD 109167
CH4K902173 - Should update EQUI and EQUZ, set flag to TRUE.
chgd_equi = data_equi.                                      "CH4K902173
chgd_equz = data_equz.                                      "CH4K902173
*Begin of Changes - CHLK980219 data not retained when creating record
*UPDATE_FLAGS_EQ = 'X'.                       "CH4K902173
*UPDATE_FLAGS_EZ = 'X'.                       "CH4K902173
*End of Changes
*If cancel was hit then back out of save
IF sy-subrc NE 0.
  RAISE posting_not_allowed.
ENDIF.
*Restore the system user command field
sy-ucomm = v_stor_ucomm.
Begin of insert        SARTD 92504, AMI 9/26/02, E.Krenz
Store new maintenance plant in memory to be used by ZAEQASBR for
immediate ransfer of maintenance items.
EXPORT data_equz TO MEMORY ID 'ZAEQASBR'.
End of insert
>> CHLK9A1N29
clear transaction varient before going to IE02 or IE01 main screen
CALL FUNCTION 'RS_HDSYS_SET_TC_VARIANT'
  EXPORTING
    variant                 = ' '
    flag_client_independent = 'X'
    overwrite_variant       = 'X'.
<< CHLK9A1N29
Regards,
vaibhav.