SAP Basis Tech Supports

Symptom

Using the C-CEE Add-On with the Israeli Localization Asset Accounting module – need to archive the Asset Accounting tables of: Adjusted values for asset and periodic adjusted values for asset along with the AM_ASSET archiving.
Other terms

SARA , AM_ASSET, Israeli Localization, Asset Accounting Archiving, FI-AA, /ATL/AANLC, /ATL/AANLCP.

Solution

———————————————————————–
Note that this modification is relevant only for Israeli ADD-ON named C-CEE for those who are using the Israeli Asset Accounting module and need to archive the Asset Accounting tables along with the AM_ASSET archive.
Note that after you have implemented a modification, you may have to
make readjustments each time you import a Support Package or implement a note.
———————————————————————–
Implement the corrections.

————————————————————————
|Manual Pre-Implement. |
————————————————————————
|VALID FOR |
|Software Component SAP_APPL SAP Application |
| Release 604 All Support Package Levels |
————————————————————————

1. Add the Asset Accounting tables : /ATL/AANLC, /ATL/AANLCP to the archiving process of AM_ASSET
—————————————————————-
a) Use transaction AOBJ to enter the archiving object AM_ASSET.b) Make the following entries in the structure definition:
Record No. Parent Segment Segment Structure
81 ANLA /ATL/AANLC /ATL/AANLC
82 ANLA /ATL/AANLCP /ATL/AANLCPc) Save and exist.2. Create structure in data dictionary
—————————————————————-
a) Create a package under Z namespace – recommended name for the Package : ZFIAA_ARCHIVE.b) Create structure named ZAANLCP_KEY in the package you created as follow:Run Transaction SE11 for Data Type ZAANLCP_KEY, choose create a Structure.Short description for structure: ZAANLCP Key FieldsAdd fields as follow:
Component Component type
MANDT MANDT
BUKRS BUKRS
ANLN1 ANLN1
ANLN2 ANLN2
GJAHR GJAHR
PERAF PERAF
AFABE /ATL/AAFABE
ZUJHR /ATL/AGJAHR
ZUCOD /ATL/AUCODSave and activate.3. Create function ZGET_NEXT_AANLC in ABRA Function group.
—————————————————————-
a) Run Transaction SE80 for Function group ABRA. In the Tree set the mouse on the “Function module” Node and by clicking on the right mouse choose create.b) Fill in the popup Function module : ZGET_NEXT_AANLC and short text.c) Add parameters in the “Import” tab as follow:
Parameter type Associated type optional Pass val
I_AGJAHR LIKE ANLP-GJAHR X X
I_BGJAHR LIKE ANLP-GJAHR X Xd) Add parameters in the “Table” tab as follow:
Parameter type Associated type optional
T_ZANLC LIKE /ATL/AANLC Xe) Add execption in the “Excaption” tab as follow:
Execption : NO_RECORDS_FOUNDf) Use the modification assistence to add Source code in the “Source code” tab as follow:
* initialize
REFRESH T_ZANLC .
CLEAR T_ZANLC .
IF GD_READ-/ATL/AANLC = SPACE.
PERFORM READ_ATL_AANLC USING I_AGJAHR I_BGJAHR.
ENDIF.
LOOP AT YZANLC FROM GD_INDEX-/ATL/AANLC.
IF YZANLC-ANLN1 = GD_ACT-ANLN1 AND
YZANLC-ANLN2 BETWEEN GD_ACT-AANLN2 AND GD_ACT-BANLN2.
APPEND YZANLC TO T_ZANLC.
ENDIF.
IF YZANLC-ANLN1 GT GD_ACT-ANLN1 OR
( YZANLC-ANLN1 EQ GD_ACT-ANLN1 AND
YZANLC-ANLN2 GT GD_ACT-BANLN2 ).
EXIT.
ENDIF.
ADD 1 TO GD_INDEX-/ATL/AANLC.
ENDLOOP.
DESCRIBE TABLE T_ZANLC LINES SY-TABIX.
IF SY-TABIX = 0.
MESSAGE E101 RAISING NO_RECORDS_FOUND.
ENDIF.
g) Save the function . Activate it along with the last activation of all objects in the Note.4. Create Function ZGET_NEXT_AANLCP in ABRA Function group.
—————————————————————-
a) Run Transaction SE80 for Function group ABRA. In the Tree set the mouse on the “Function module” Node and by clicking on the right mouse choose create.b) Fill in the popup Function module : ZGET_NEXT_AANLCP and short text.c) Add parameters in the “Import” tab as follow:
Parameter type Associated type optional Pass val
I_AGJAHR LIKE ANLP-GJAHR X X
I_BGJAHR LIKE ANLP-GJAHR X Xd) Add parameters in the “Table” tab as follow:
Parameter type Associated type optional
T_ZANLCP LIKE /ATL/AANLCP Xe) Add execption in the “Excaption” tab as follow:
Execption : NO_RECORDS_FOUNDf) Use the modification assistence to add Source code in the “Source code” tab as follow:
* initialize
REFRESH T_ZANLCP .
CLEAR T_ZANLCP .
IF GD_READ-/ATL/AANLCP = SPACE.
PERFORM READ_ATL_AANLCP USING I_AGJAHR I_BGJAHR.
ENDIF.
LOOP AT YZANLCP FROM GD_INDEX-/ATL/AANLCP.
IF YZANLCP-ANLN1 = GD_ACT-ANLN1 AND
YZANLCP-ANLN2 BETWEEN GD_ACT-AANLN2 AND GD_ACT-BANLN2.
APPEND YZANLCP TO T_ZANLCP.
ENDIF.
IF YZANLCP-ANLN1 GT GD_ACT-ANLN1 OR
( YZANLCP-ANLN1 EQ GD_ACT-ANLN1 AND
YZANLCP-ANLN2 GT GD_ACT-BANLN2 ).
EXIT.
ENDIF.
ADD 1 TO GD_INDEX-/ATL/AANLCP.
ENDLOOP.
DESCRIBE TABLE T_ZANLCP LINES SY-TABIX.
IF SY-TABIX = 0.
MESSAGE E101 RAISING NO_RECORDS_FOUND.
ENDIF.
g) Save the function . Activate it along with the last activation of all objects in the Note.