Need to send an SMS from SAP ( by writing a custom report ) System.

Question

Hi All,
I am with a requirement like sending SMS after generating some random number .
Like I will collect the mobile number from HR mastr data and thereafter I need to send an SMS.
I am not aware of this SMS sending concepts.
For this I have to develop ABAP report.
Kindly help me out.
Best Regards,
Veerendra Nath

Answer 1

hi , you can Use Email to SMS , this Facility Should be Available with your Mobile Service Provider , here in Sri lanka its Possible , pls check the Code below
DATA : t_mailtext TYPE bcsy_text,
          t_lines LIKE tline OCCURS 0 WITH HEADER LINE.
DATA: objtxt LIKE solisti1 OCCURS 150 WITH HEADER LINE.
DATA : object_id LIKE sofolenti1-object_id.
DATA: usrid_long TYPE string.
DATA: reclist LIKE somlreci1 OCCURS 5 WITH HEADER LINE.
DATA: doc_chng LIKE sodocchgi1.
DATA: tab_lines LIKE sy-tabix.
REFRESH : t_mailtext.
APPEND t_lines.
CONCATENATE  'Errors in RCC' sy-datum sy-uzeit INTO objtxt SEPARATED BY space.
  APPEND objtxt.
Subject for the SMS Alert
  DATA : lw_message TYPE c LENGTH 50.
  lw_message = 'PO Log'.
  doc_chng-obj_descr = lw_message.
  DESCRIBE TABLE objtxt LINES tab_lines.
  READ TABLE objtxt INDEX tab_lines.
  doc_chng-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).
Entering names in the distribution list
  usrid_long = '3667971"at sign"dialog.lk'.
  reclist-receiver = usrid_long.
  reclist-rec_type = 'U'.
  APPEND reclist.
*--Second Email Recepient
  usrid_long = '3667975"at sign"dialog.lk'.
  reclist-receiver = usrid_long.
  reclist-rec_type = 'U'.
  APPEND reclist.
  CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
    EXPORTING
      document_data                    = doc_chng
  DOCUMENT_TYPE                    = 'RAW'
     put_in_outbox                    = 'X'
     commit_work                      = 'X'
   IMPORTING
     new_object_id                    = object_id
    TABLES
     object_content                   = objtxt
      receivers                        = reclist
   EXCEPTIONS
     too_many_receivers               = 1
     document_not_sent                = 2
     document_type_not_exist          = 3
     operation_no_authorization       = 4
     parameter_error                  = 5
     x_error                          = 6
     enqueue_error                    = 7
     OTHERS.
Thanks & Br
Dilum Alawatte