Re: Fiscal period to calender year

Question

Hi Experts,
Please can ayone shed light on how to convert fiscperiod to calender year.If there is a routine please do give me the code.
Regards
Madhu

Answer 1

Hi Anil,
Thanks for the solution. Do we really need to sort the table it_tab.Can you tell whether the following code i wrote is the one you  mentioned.
Please find whether the following code in startroutine and update routine is fine.
PROGRAM UPDATE_ROUTINE.
$$ begin of global - insert your declaration only below this line  -
DATA: BEGIN OF it_tab OCCURS 0,
      BDATJ  LIKE T009B-BDATJ,
      BUMON  LIKE T009B-BUMON,
      POPER  LIKE T009B-POPER,
      PERIV  LIKE T009B-PERIV,
      END OF it_tab.
$$ end of global - insert your declaration only before this line   -
The follow definition is new in the BW3.x
TYPES:
  BEGIN OF DATA_PACKAGE_STRUCTURE.
     INCLUDE STRUCTURE /BIC/CSu2019myinfosource nameu2019.
TYPES:
     RECNO   LIKE sy-tabix,
  END OF DATA_PACKAGE_STRUCTURE.
DATA:
  DATA_PACKAGE TYPE STANDARD TABLE OF DATA_PACKAGE_STRUCTURE
       WITH HEADER LINE
       WITH NON-UNIQUE DEFAULT KEY INITIAL SIZE 0.
FORM startup
  TABLES   MONITOR STRUCTURE RSMONITOR "user defined monitoring
           MONITOR_RECNO STRUCTURE RSMONITORS " monitoring with record n
           DATA_PACKAGE STRUCTURE DATA_PACKAGE
  USING    RECORD_ALL LIKE SY-TABIX
           SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS
  CHANGING ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel update
$$ begin of routine - insert your code only below this line        -
fill the internal tables "MONITOR" and/or "MONITOR_RECNO",
to make monitor entries
select * from T009B into corresponding fields of
  table it_tab. * if abort is not equal zero, the update process will be canceled
  ABORT = 0.
$$ end of routine - insert your code only before this line         -
ENDFORM.
my update routine-------
ROGRAM UPDATE_ROUTINE.-----calender year in update routine
$$ begin of global - insert your declaration only below this line  -
DATA: BEGIN OF it_tab OCCURS 0,
      BDATJ  LIKE T009B-BDATJ,
      BUMON  LIKE T009B-BUMON,
      POPER  LIKE T009B-POPER,
      PERIV  LIKE T009B-PERIV,
      END OF it_tab.
$$ end of global - insert your declaration only before this line   -
FORM compute_key_field
  TABLES   MONITOR STRUCTURE RSMONITOR "user defined monitoring
  USING    COMM_STRUCTURE LIKE /BIC/CS8YPSC_02
           RECORD_NO LIKE SY-TABIX
           RECORD_ALL LIKE SY-TABIX
           SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS
  CHANGING RESULT LIKE /BIC/VYCSI_002T-PROFIT_CTR
           RETURNCODE LIKE SY-SUBRC
           ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel update
$$ begin of routine - insert your code only below this line        -
fill the internal table "MONITOR", to make monitor entries
  clear it_tab.
  READ TABLE it_tab WITH KEY
           POPER =  COMM_STRUCTURE-POPER.
           PERIV =  COMM_STRUCTURE-PERIV.
  RESULT = it_tab-BDATJ.
if the returncode is not equal zero, the result will not be updated
  RETURNCODE = 0.
if abort is not equal zero, the update process will be canceled
  ABORT = 0.
$$ end of routine - insert your code only before this line         -
ENDFORM.
If this is okay i will go ahead.The table t009B has four keys--why do we need to sort the internal table. is it not sufficient if we do a read on it directly after being filled in start routine.
Kindly advice. I will assign you all the points.
Regards
Madhuri