Extract ANLC Asset Value Fields Data in CSV File Using ABAP Program For Selected Cost Center

FIXED ASSET Extract ANLC Asset Value Fields Data in CSV File Using ABAP Program For Selected Cost Center –

————————————

ABAP Program – Z_ANLC_FIXEDASSET 

  • Program Type – ABAP 
  • ABAP Program Name – Z_ANLC_FA 
  • Tcode – ZHM_ANLC_A 
  • Output File Location – “C:tmp” 
  • Output File Name- ANLC.CSV 
  • Output File Type – CSV (Column with Semicolon separator (;) 
  • SAP Table Name – ANLC 
  • List of fields to be extracted –  
  • ANLN1 
  • KANSW 
  • KNAFA 
  • NAFAP 
  • GJAHR 

———————————————————————–

REPORT  Z_ANLC_FIXEDASSET.
 
TYPE-POOLS: VRM.
 
DATA: NAME  TYPE VRM_ID,
      LIST  TYPE VRM_VALUES,
      VALUE LIKE LINE OF LIST.
 
PARAMETERS: ENTITY(10) AS LISTBOX VISIBLE LENGTH 10.
PARAMETERS : OPATH TYPE STRING DEFAULT ‘\MYSERVERtmpANLC.csv’.
 
AT SELECTION-SCREEN OUTPUT.
 
NAME = ‘ENTITY’.
 
VALUE-KEY = ‘UK01’.
VALUE-TEXT = ‘UK01’.
APPEND VALUE TO LIST.
 
VALUE-KEY = ‘UK75’.
VALUE-TEXT = ‘UK75’.
APPEND VALUE TO LIST.
 
VALUE-KEY = ‘UK21’.
VALUE-TEXT = ‘UK21’.
APPEND VALUE TO LIST.
 
VALUE-KEY = ‘UK31’.
VALUE-TEXT = ‘UK31’.
APPEND VALUE TO LIST.
 
VALUE-KEY = ‘UK41’.
VALUE-TEXT = ‘UK41’.
APPEND VALUE TO LIST.
 
VALUE-KEY = ‘UK02’.
VALUE-TEXT = ‘UK02’.
APPEND VALUE TO LIST.
 
VALUE-KEY = ‘UK73’.
VALUE-TEXT = ‘UK73’.
APPEND VALUE TO LIST.
 
VALUE-KEY = ‘UK04’.
VALUE-TEXT = ‘UK04’.
APPEND VALUE TO LIST.
 
VALUE-KEY = ‘UK61’.
VALUE-TEXT = ‘UK61’.
APPEND VALUE TO LIST.
CALL FUNCTION ‘VRM_SET_VALUES’ EXPORTING ID = NAME VALUES = LIST.
 
START-OF-SELECTION.
 
type-pools:TRUXS.
data: begin of itab occurs 0,
      anln1 like anlc-anln1,
  kansw like anlc-kansw,
  knafa like anlc-knafa,
   nafap like anlc-nafap,
   gjahr like anlc-gjahr,
   BUKRS like anlc-BUKRS,
      end of itab.
data:  itab1 type TRUXS_T_TEXT_DATA.
 
 select  ANLC~anln1
ANLC~kansw
ANLC~knafa
   ANLC~nafap
   ANLC~gjahr
   ANLC~BUKRS
         from ANLC  INNER JOIN ANLA ON ANLC~ANLN1 = ANLA~ANLN1
         into table itab
         WHERE ANLC~BUKRS = ENTITY AND ANLA~DEAKT IN (‘00000000’).
 
CALL FUNCTION ‘SAP_CONVERT_TO_CSV_FORMAT’
 EXPORTING
   I_FIELD_SEPERATOR          = ‘,’
  TABLES
    I_TAB_SAP_DATA             = itab
 CHANGING
   I_TAB_CONVERTED_DATA       =  itab1
 EXCEPTIONS
   CONVERSION_FAILED          = 1
   OTHERS                     = 2
          .
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
 
   CALL FUNCTION ‘GUI_DOWNLOAD’
    EXPORTING
      filename = OPATH
    TABLES
      data_tab = itab1
    EXCEPTIONS
      OTHERS   = 1.
Scroll to Top