SAP ABAP

FUNCTION  ZRKCALCUALTING_DATE1. *"---------------------------------------------------------------------- *"*"Local Interface: *"  IMPORTING *"     REFERENCE(P_DATE) TYPE  SY-DATUM *"     VALUE(P_DAYS) TYPE  T5A4A-DLYDY OPTIONAL *"     VALUE(P_MONTH) TYPE  T5A4A-DLYMO OPTIONAL *"     VALUE(P_YEAR) TYPE  T5A4A-DLYYR OPTIONAL *"     VALUE(SIGN) TYPE  T5A4A-SPLIT DEFAULT '+ ' *"  EXPORTING *"     VALUE(CALC_DATE) LIKE  SY-DATUM *"---------------------------------------------------------------------- *  DATA: calc_date TYPE sy-datum,     DATA:    days TYPE t5a4a-dlydy,              months TYPE t5a4a-dlymo,              years TYPE t5a4a-dlyyr.   CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'   EXPORTING     date      = p_date     days      = p_days     months    = p_month     signum    = sign     years     = p_year   IMPORTING     calc_date = calc_date. ENDFUNCTION.

         REPORT  ztest_nreddy_pdf_mail. * Internal Table declarations           DATA: i_otf TYPE itcoo OCCURS 0 WITH HEADER LINE,                 i_tline TYPE TABLE OF tline WITH HEADER LINE,                 i_receivers TYPE TABLE OF somlreci1 WITH HEADER LINE,                 i_record LIKE solisti1 OCCURS 0 WITH HEADER LINE, * Objects to send mail.                 i_objpack LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,                 i_objtxt LIKE solisti1 OCCURS 0 WITH HEADER LINE,                 i_objbin LIKE solisti1 OCCURS 0 WITH HEADER LINE,                 i_reclist LIKE somlreci1 OCCURS 0 WITH HEADER LINE, * Work Area declarations                 wa_objhead TYPE soli_tab,                 w_ctrlop TYPE ssfctrlop,                 w_compop TYPE ssfcompop,                 w_return TYPE ssfcrescl,                 wa_doc_chng TYPE sodocchgi1,                 w_data TYPE sodocchgi1,                 wa_buffer TYPE string, "To convert from 132 to 255 * Variables

*&---------------------------------------------------------------------* *& Report  ZOPEN_SMARTFORMS_PDF *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT  ZOPEN_SMARTFORMS_PDF. DATA: ls_control_param      TYPE ssfctrlop. DATA: ls_composer_param     TYPE ssfcompop. ls_control_param-device = space. ls_control_param-getotf = 'X'. ls_control_param-no_dialog = 'X'. DATA: l_document_output_info TYPE ssfcrespd,       l_job_output_info TYPE ssfcrescl,       l_job_output_options TYPE ssfcresop. * Subsitute your smartform name below: CALL FUNCTION  '/1BCDWB/SF00000825'"'/1BCDWB/SF00000034' EXPORTING   control_parameters   = ls_control_param IMPORTING   document_output_info = l_document_output_info   job_output_info      = l_job_output_info   job_output_options   = l_job_output_options EXC

   DESCRIBE  TABLE  gt_vbak_vbap  LINES  lv_lines.    CLEAR  gs_vbak_vbap.    LOOP  AT   gt_vbak_vbap  INTO  gs_vbak_vbap.     lv_tabix = sy-tabix.      IF  s_vbeln-high  IS  NOT  INITIAL  .        CASE  lv_tabix.          WHEN   1.           control-no_open = space.           control-no_close =  'X' .          WHEN  lv_lines.           control-no_open =  'X' .           control-no_close = space.          WHEN  OTHERS.           control-no_open =   'X' .           control-no_close =  'X' .       ENDCASE.     ENDIF.

FUNCTION  zrk_fm. *"---------------------------------------------------------------------- *"*"Local Interface: *"  IMPORTING *"     VALUE(P_DATE) TYPE  DATS OPTIONAL *"  EXPORTING *"     VALUE(P_YEAR1) TYPE  ARKTX *"     VALUE(P_YEAR2) TYPE  ARKTX *"     VALUE(P_YEAR3) TYPE  ARKTX *"     VALUE(F_YEAR) TYPE  PSTYV *"----------------------------------------------------------------------   DATA: d_month TYPE dats,         d_month1(10) TYPE c,         d_day(4) TYPE c,         d_year(15) TYPE c,         d_year1(15) TYPE c,         d_year2(15) TYPE c,         d_year3(15) TYPE c.   d_month = p_date+4(2). " month name.   d_day   = p_date+6(2). " day   d_year  = p_date+0(4).   IF d_month = '01' OR d_month = '02' OR d_month = '03'.     f_year = p_date+0(4) - 1.   ELSE.     f_year = d_year.   ENDIF.   CASE d_month.     WHEN '01' .       d_month = 'JAN'.     W

FUNCTION  zrk_sales_header. *"---------------------------------------------------------------------- *"*"Local Interface: *"  IMPORTING *"     VALUE(S_VBELN) TYPE  VBELN *"  TABLES *"      GT_VBAK STRUCTURE  ZRKFM_TABLE123 OPTIONAL *"  EXCEPTIONS *"      ERROR *"---------------------------------------------------------------------- * here we used table  we can also used types and data types for this purpose *  TYPES: BEGIN OF ty_vbak, *  vbeln    TYPE  vbeln_va, *  erdat     TYPE  erdat, *  erzet     TYPE  erzet, *  ernam     TYPE  ernam, *  angdt     TYPE  angdt_v, *  bnddt     TYPE  bnddt, *  audat     TYPE  audat, *  vbtyp     TYPE  vbtyp, *  posnr     TYPE  posnr_va, *  matnr     TYPE  matnr, *  matkl     TYPE  matkl  , *          END OF ty_vbak. *  DATA: gt_vbak TYPE STANDARD TABLE OF ty_vbak, *        gs_vbak TYPE                   ty_vbak.   SELECT   a~vbeln  a~erdat  a~erzet  a~ernam            a~

    DATA:    days  TYPE  t5a4a-dlydy,              months  TYPE  t5a4a-dlymo,              years  TYPE  t5a4a-dlyyr.    CALL  FUNCTION  'RP_CALC_DATE_IN_INTERVAL'    EXPORTING      date       = p_date     days      = p_days     months    = p_month     signum    =  sign     years     = p_year    IMPORTING     calc_date = calc_date.

hello abpers we writing code get ficial year FUNCTION  zdate_formates. *"---------------------------------------------------------------------- *"*"Local Interface: *"  IMPORTING *"     VALUE(P_DATE) TYPE  DATS OPTIONAL *"  EXPORTING *"     VALUE(P_YEAR1) TYPE  ARKTX *"     VALUE(P_YEAR2) TYPE  ARKTX *"     VALUE(P_YEAR3) TYPE  ARKTX *"     VALUE(F_YEAR) TYPE  PSTYV *"----------------------------------------------------------------------   DATA: d_month TYPE dats,         d_month1(10) TYPE c,         d_day(4) TYPE c,         d_year(15) TYPE c,         d_year1(15) TYPE c,         d_year2(15) TYPE c,         d_year3(15) TYPE c.   d_month = p_date+4(2). " month name.   d_day   = p_date+6(2). " day   d_year  = p_date+0(4). *  IF d_month = 01 and d_month = 02 and d_month = 03. *    f_year = p_date+0(4) - 1. *  ELSE. * *    f_year = d_year. *  ENDIF.   CASE d_month.     WHEN '01' .   

dear abapers we write code get ficial year and month name without using any funcation moudle  may be this code help you FUNCTION  ZRK_FM. *"---------------------------------------------------------------------- *"*"Local Interface: *"  IMPORTING *"     VALUE(P_DATE) TYPE  DATS OPTIONAL *"  EXPORTING *"     VALUE(P_YEAR1) TYPE  ARKTX *"     VALUE(P_YEAR2) TYPE  ARKTX *"     VALUE(P_YEAR3) TYPE  ARKTX *"     VALUE(F_YEAR) TYPE  PSTYV *"----------------------------------------------------------------------   DATA: d_month TYPE dats,         d_month1(10) TYPE c,         d_day(4) TYPE c,         d_year(15) TYPE c,         d_year1(15) TYPE c,         d_year2(15) TYPE c,         d_year3(15) TYPE c.   d_month = p_date+4(2). " month name.   d_day   = p_date+6(2). " day   d_year  = p_date+0(4).   IF d_month = '01' or d_month = '02' or d_month = '03'.     f_year = p_date+0(4) - 1.