Posts

Showing posts from June, 2018

How to get last 6 month date

here simple code get last 6 month date behalf of condition so i write code you can get date *&---------------------------------------------------------------------* *& Report  ZSD_DATE_CHANGE *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT   ZSD_DATE_CHANGE . data :  lv_Date ( 2 )  type  c ,       lv_Date1  type  dats . lv_date1  =  sy - datum . clear   lv_date1+4 ( 2 ) .  lv_date  =  sy - datum+4 ( 2 )  -  6 .   move  lv_date  to  lv_date1+4 ( 2 ) .   WRITE :  lv_date1 .

Help Valus in Module Pool Programming

how to give help values in module pool programming may thease code help you how to give help Value in module pool programming    TYPES :  BEGIN  OF  ty_value ,            ebeln  TYPE  ebeln ,            cntnr  TYPE  zcntnr ,           END  OF  ty_value .    DATA :  lt_value  TYPE  STANDARD  TABLE  OF  ty_value ,         lw_value  TYPE  ty_value .    SELECT  ebeln cntnr  INTO  TABLE  lt_value  FROM  rktable . *    WHERE ebeln = rm08m-ebeln.    SORT  lt_value  BY  ebeln cntnr .    DELETE  ADJACENT  DUPLICATES  FROM  lt_value  COMPARING  ebeln cntnr .    CALL  FUNCTION  'F4IF_INT_TABLE_VALUE_REQUEST'      EXPORTING       retfield         =  'ZCNTNR'       dynpprog         =  sy - repid       dynpnr           =  sy - dynnr       dynprofield      =  'BKPF-ZCNTNR'       value_org        =  'S'      TABLES       value_tab        =  lt_value      EXCEPTIONS       parameter_error  =  1       no_values_found  =  2        OTHERS          

Number Range Programs

********************************************************************************* * Program Name      : ZGET_NUMBER_RANGES                 Object ID:                                                                                     * * Description       :  Number range programa                                                                                                            * * Create Date       :  16.06.2018                                                                                                                       * * FO Owner          :  Rohini Kumar                                                                                                                     * * Tech Owner        :  Rohini Kumar                                                                                                                     * * Project Module    :  SD                                                                                                                   

Odata services for CRUD Operation and function import

odata services for crud operation here i going to explain how to created crud operation and here please check below vedio. ********************************************************************************* RICEF Reports interface Converstion , Enhancements , Forms Classical Reports ALV Programming, ALE/ IDOC BDA Programming, Call Transcation , SAP Script, Smartforms, Adove forms, SAP T-CODE MM FLOW , SD FLOW , SE11,SE18 ,SE24,SE30, SM12,ST22, SE41, SE51, SE80,SE84 SE90,SE10,SE09,SE03, Getway T-Code /IWFND/GW_CLIENT /IWFND/ERROR_LOG /IWFND/APPS_LOG /IWBEP/VIEW_LOG /IWFND/CACHE_CLEANUP /IWFND/TRACES *********************************************************************************

Simple Function Module convert charter formats to Date

Here is Programs to convert CHAR formats to date Some time Requirements to convert so here simple logic so you can code and get output FUNCTION  zsd_rohini_kumar_info . *"---------------------------------------------------------------------- *"*"Local Interface: *"  IMPORTING *"     VALUE(I_VKORG) TYPE  VKORG OPTIONAL *"     VALUE(I_FKDATL) TYPE  CHAR10 *"     VALUE(I_FKDATH) TYPE  CHAR10 *"  EXPORTING *"     VALUE(ET_VBRK) TYPE  ZTSD_BILLING_SALES_ORG *"----------------------------------------------------------------------    DATA : lv_fkdatl  TYPE  fkdat ,        lv_fkdath  TYPE  fkdat ,        lv_str1    TYPE  string ,        lv_str2    TYPE  string ,        lv_str3    TYPE  string .   lv_fkdatl  =  i_fkdatl+6 ( 4 )  && i_fkdatl+3 ( 2 )                && i_fkdatl+0 ( 2 ) .   lv_fkdath  =  i_fkdath+6 ( 4 )  && i_fkdath+3 ( 2 )             && i_fkdath+0 ( 2 ) .    DATA :  lv_strin

How to find your exit in SAP ABAP programming langauge

Here code you can find the User exit much time we not aware how many users exit any t-code this code help to find the use exit you can easily find the user exit *&---------------------------------------------------------------------* *& Report  ZUSEREXITFIND *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT  ZROHINIKUAMR  NO  STANDARD  PAGE  HEADING . .      TABLES  :  tstc ,  tadir ,  modsapt ,  modact ,  trdir ,  tfdir ,  enlfdir .      TABLES  :  tstct .  DATA  :  jtab  LIKE  tadir  OCCURS  0  WITH  HEADER  LINE .      DATA  :  field1 ( 30 ) .      DATA  :  v_devclass  LIKE  tadir - devclass .      PARAMETERS  :  p_tcode  LIKE  tstc - tcode OBLIGATORY .      SELECT  SINGLE  *  FROM  tstc  WHERE  tcode  EQ  p_tcode .      IF  sy - subrc  EQ  0 .        SELECT  SINGLE  *  FROM  tadir  WHERE  pgmid  =  'R3TR'  AND  obj

sms send to throw abap Programming langauge

Here I going to send SMS application to other here pease  of code to send SMS one source to another source, Some time requirements to send SMS DATA :  http_client  TYPE  REF  TO  if_http_client  . DATA :  wf_string  TYPE  string  , result  TYPE  string  , r_str  TYPE  string  . DATA :  result_tab  TYPE  TABLE  OF  string . SELECTION-SCREEN :  BEGIN  OF  BLOCK  a  WITH  FRAME  . PARAMETERS :  mail ( 100 )  LOWER  CASE , m_no ( 30 )  LOWER  CASE  , m_mss ( 120 )  LOWER  CASE . SELECTION-SCREEN :  END  OF  BLOCK  a  . START-OF-SELECTION  . CLEAR  wf_string  . CONCATENATE 'http://myvaluefirst.com/smpp/sendsms?' 'username=demoltfood&password=demo1234&to=' m_no '&from=' mail '&text='  m_mss INTO wf_string  . CALL  METHOD  cl_http_client => create_by_url EXPORTING  url  =  wf_string *          proxy_host = '192.168.0.213' *          proxy_service = '3128' IMPORTING  client  =  http_client EXCE

Loop within loop SAP ABAP Programming langauge

How to optimize your code performance tips parral cursor methods in a programming language here a simple way to use   LOOP AT gt_vbap INTO gs_vbap.     gs_vbap1-vbeln = gs_vbap-vbeln.     gs_vbap1-netwr = gs_vbap-netwr.     COLLECT gs_vbap1 INTO gt_vbap1.     READ TABLE gt_vbak_new INTO gs_vbak_new WITH  KEY vbeln = gs_vbap-vbeln.     IF sy-subrc = 0.       READ TABLE gt_konv INTO gs_konv WITH  KEY knumv = gs_vbak_new-knumv                                                 kposn = gs_vbap-posnr.       IF sy-subrc = 0.         LOOP AT gt_konv INTO gs_konv FROM sy-tabix.           IF  gs_konv-knumv NE gs_vbak_new-knumv AND  gs_konv-knumv NE gs_vbak_new-knumv.             EXIT.           ELSE.             IF gs_konv-kposn EQ gs_vbap-posnr.               gs_konv1-knumv = gs_konv-knumv.               gs_konv1-kwert = gs_konv-kwert.               COLLECT gs_konv1 INTO gt_konv1.             ENDIF.             CLEAR gs_konv1.           ENDIF.            " WHERE kposn