Program output on mobile phone

Question

Hi friends,
Iam working for CMM Level 5 company in ABAP and i have no idea about XI and MI.
My requirement is:
One program is running in background at 01:30 in the morning every day.
Requirement is that " i need to show the output of that program on mobile as an SMS in background".
Need to send that program output as SMS to a mobile numbers.
I know it is possible using MI and SAP-BASIS.
Can anyone have any idea on this type of requirement.
Good answers, max points.
Thanks,
Vamsykrishna.

Answer 1

hi friend,
            first you have to configure your mobile with your sevice provider for this
step1 : type SUB (in caps)  in your airtel mobile and send that to number 52600 (only for Tamilnadu users )
step2 : you will recive a confirmation message like  "9894243935 @  serviceprovder. com"
step2 : give this in receiver list
step3 : the airtel provider checks for loop backing so please specify a valid sender id 
*& Report  ZEPM_PRODCUTIONVALUE_SMS
*&created by Mr vijaybabu
**modified for sending sms by E.peachimuthu
*&Requirement by Mr. murugesh Senior manager
REPORT  ZEPM_PRODCUTIONVALUE_SMS NO STANDARD PAGE HEADING LINE-SIZE 172..
TABLES: MSEG , MKPF , QAMB , MAKT , MBEW , MARA , T001L , MVKE, ZSD_MOD,SPELL,
        MARD.
SELECT-OPTIONS : SO_WERKS FOR MSEG-WERKS OBLIGATORY ,
                 SO_VKORG FOR MVKE-VKORG OBLIGATORY DEFAULT '1000' ,
                 SO_BUDAT FOR MKPF-BUDAT OBLIGATORY ,
                 SO_MATNR FOR MSEG-MATNR ,
                 SO_FROM  FOR MSEG-LGORT ,
                 P_TO     FOR MSEG-LGORT OBLIGATORY.
*parameter      : p_to  like mseg-lgort obligatory.
*****MAIL/SMS DECLARATIONS ********
data : plant(35) type c,
       storage_loaction(35) type c,
       Sale_organisation(35) type c,
       ltext(105) type c,
       text(15) type c.
DATA: OBJPACK   LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE.
      DATA: OBJHEAD   LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE.
      DATA: OBJBIN    LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
      DATA: OBJTXT    LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
      DATA: RECLIST   LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE,
            ld_sender_address LIKE  soextreci1-receiver,
            ld_sender_address_type LIKE  soextreci1-adr_typ.
      DATA: DOC_CHNG  LIKE SODOCCHGI1.
      DATA: TAB_LINES LIKE SY-TABIX,
      w_sent_all(1) type c.
      DATA L_NUM(3).
      DATA : SUB(80) TYPE C.
data    p_sender likE somlreci1-receiver.
*******ENDMAIL******
DATA: RET_RATE LIKE KONP-KBETR.
DATA: CHANNEL  LIKE TVTWT-VTWEG.
DATA: BEGIN OF ABS OCCURS 0,
         WERKS LIKE MSEG-WERKS ,
         LOC LIKE MSEG-LGORT ,
         VALUE TYPE P DECIMALS 2,
      END OF ABS.
DATA: WS_LOT LIKE QAMB-PRUEFLOS.
DATA: SL TYPE P DECIMALS 0.
DATA: WS_RATE LIKE MBEW-VERPR.
DATA: WS_VALUE TYPE P DECIMALS 2.
DATA: WS_CHANNEL(02) TYPE C.
DATA: WA_VKORG LIKE MVKE-VKORG.
data: wa_bwkey like mbew-bwkey.
DATA: T_VALUE TYPE P DECIMALS 2.
DATA: MOD_DATE(6) TYPE N.
DATA: BEGIN OF ITAB OCCURS 0,
         MBLNR LIKE MSEG-MBLNR ,
         MJAHR LIKE MSEG-MJAHR ,
         ZEILE LIKE MSEG-ZEILE ,
         MATNR LIKE MSEG-MATNR ,
         BUDAT LIKE MKPF-BUDAT ,
         BWART LIKE MSEG-BWART ,
         WERKS LIKE MSEG-WERKS ,
         MENGE LIKE MSEG-MENGE ,
         LOC   LIKE MSEG-LGORT ,
       END OF ITAB.
INITIALIZATION.
P_TO-SIGN = 'I'.
P_TO-OPTION = 'EQ'.
P_TO-LOW = '1200'.
APPEND P_TO.
P_TO-LOW = '3200'.
APPEND P_TO.
P_TO-LOW = '4200'.
APPEND P_TO.
SO_WERKS-SIGN = 'I'.
SO_WERKS-OPTION = 'EQ'.
SO_WERKS-LOW = '1000'.
APPEND SO_WERKS.
SO_WERKS-LOW = '3000'.
APPEND SO_WERKS.
SO_WERKS-LOW = '4000'.
APPEND SO_WERKS.
SO_BUDAT-SIGN = 'I'.
SO_BUDAT-OPTION = 'EQ'.
SO_BUDAT-LOW = SY-DATUM.
SO_BUDAT-HIGH = SY-DATUM.
APPEND SO_BUDAT.
START-OF-SELECTION.
            SELECT  MSEGMBLNR MSEGMJAHR
                    MSEGZEILE MSEGMATNR MKPF~BUDAT
                    MSEGBWART MSEGWERKS MSEG~MENGE
                    INTO CORRESPONDING FIELDS OF TABLE ITAB
                    FROM MKPF INNER JOIN MSEG
                         ON  MKPFMBLNR = MSEGMBLNR
                         AND MKPFMJAHR = MSEGMJAHR
                         AND MKPFMANDT = MSEGMANDT
                    WHERE BUDAT IN SO_BUDAT
                         AND MATNR IN SO_MATNR
                         AND WERKS IN SO_WERKS
                         AND BWART = '321'
                         AND UMLGO IN P_TO.      " FIELD NAME CHANGED FROM LGORT TO UMLGO WEF 03-01-08 01:00pm SRINI / G.RAJENDRAN
*{   DELETE         D01K903932                                        1
*\                         AND XAUTO = 'X'       "INSERTED ON 17-12-2007 BY ARUN / SRINIVASAN
*}   DELETE
                        AND LGORT IN P_TO.
PERFORM HEADER.
SL = 0.
LOOP AT ITAB.
   WS_LOT = 0.
   SELECT SINGLE PRUEFLOS  INTO (WS_LOT) FROM QAMB
       WHERE MBLNR EQ ITAB-MBLNR AND
             MJAHR EQ ITAB-MJAHR AND
             ZEILE EQ ITAB-ZEILE AND
             TYP = '3'.
    IF SY-SUBRC NE 0.
                      DELETE ITAB .
                                    CONTINUE. ENDIF.
    SELECT SINGLE * FROM QAMB
           WHERE PRUEFLOS EQ WS_LOT AND
           TYP = '1'.
    IF SY-SUBRC NE 0.
                       DELETE ITAB .
                                    CONTINUE. ENDIF.
    SELECT SINGLE * FROM MSEG
            WHERE MBLNR EQ QAMB-MBLNR AND
                  MJAHR EQ QAMB-MJAHR AND
                  ZEILE EQ QAMB-ZEILE AND
                  WERKS IN SO_WERKS AND
                  LGORT IN SO_FROM.
     IF SY-SUBRC NE 0.
                        DELETE ITAB .
                                     CONTINUE. ENDIF.
     MOVE MSEG-LGORT TO ITAB-LOC.
     MODIFY ITAB.
ENDLOOP.
SORT ITAB BY LOC MATNR BUDAT MBLNR MJAHR.
T_VALUE = 0.
LOOP AT ITAB.
    SELECT SINGLE * FROM MARA WHERE MATNR EQ ITAB-MATNR.
    IF SY-SUBRC NE 0. DELETE ITAB. CONTINUE. ENDIF.
    SELECT SINGLE * FROM MAKT WHERE MATNR EQ ITAB-MATNR.
    IF SY-SUBRC NE 0.  DELETE ITAB .CONTINUE. ENDIF.
*===========================================================
In Material master accounting rate fetch organization
check added on 06.05.2004 as per instruction by Mr.Ariyanayagam.
if itab-werks = '2000'.
clear: wa_bwkey.
wa_bwkey = '2000'.
  SELECT SINGLE * FROM MBEW WHERE MATNR EQ ITAB-MATNR and
                                    bwkey = wa_bwkey.
  IF SY-SUBRC NE 0. DELETE ITAB . CONTINUE. ENDIF.
else.
  SELECT SINGLE * FROM MBEW WHERE MATNR EQ ITAB-MATNR.
  IF SY-SUBRC NE 0. DELETE ITAB . CONTINUE. ENDIF.
endif.
Rate fetch org check ends.
*=================================================================
    SELECT SINGLE * FROM MARD WHERE MATNR EQ ITAB-MATNR AND
                                    LGORT EQ '1200'.
    IF SY-SUBRC NE 0. MARD-LGPBE = SPACE. ENDIF.
Defence Auto components Added on 19/02/2002
*============================================
    IF ITAB-LOC = '1200'. DELETE ITAB. CONTINUE. ENDIF.
    IF ITAB-LOC = '1042' AND MARA-MATKL NE 'AUTDEF'.
       PERFORM MODULE_FETCH.
       DELETE ITAB. CONTINUE.
    ENDIF.
    IF MARA-MATKL = 'AUTDEF'.
       ITAB-LOC = '1042'.
       MODIFY ITAB.
       PERFORM MODULE_FETCH.
    ENDIF.
    IF ITAB-LOC = '1041'.
       PERFORM MODULE_FETCH.
       DELETE ITAB. CONTINUE.
    ENDIF.
    WS_RATE = 0.
    IF MBEW-VPRSV = 'V'.
        MOVE MBEW-VERPR TO WS_RATE.
    ELSEIF MBEW-VPRSV = 'S'.
       MOVE MBEW-STPRS TO WS_RATE.
    ENDIF.
a.tamilselvi for correction vkorg for rate fetching.
if itab-werks = '1000' or itab-werks = '3000' or itab-werks = '4000' or itab-werks = '1004'.
   wa_vkorg = '1000'.
else.
   wa_vkorg = itab-werks.
endif.
*IF ITAB-WERKS = '2000'.
  WA_VKORG = '2000'.
*elseif itab-werks = '5000'.
  wa_vkorg = '5000'.
*elseif itab-werks = '6000'.
  wa_vkorg = '6000'.
*ELSE.
  WA_VKORG = '1000'.
*ENDIF.
FROM SALES DATA.
CALL FUNCTION 'ZSDF_GETPRDRATE'
     EXPORTING
          PM_MATNR = ITAB-MATNR
          PM_VKORG = WA_VKORG
          PM_DATE  = ITAB-BUDAT
     IMPORTING
         CHANNEL  = CHANNEL
         RET_RATE = RET_RATE
     EXCEPTIONS
          OTHERS   = 1.
IF RET_RATE > 0.
   MOVE RET_RATE TO WS_RATE.
   MOVE CHANNEL  TO WS_CHANNEL.
ELSE.
   MOVE '  '     TO WS_CHANNEL.
ENDIF.
IF WS_CHANNEL = '20' or ws_channel = '21' or ws_channel = '23'.
SELECT SINGLE * FROM MVKE WHERE MATNR EQ ITAB-MATNR AND
                                VTWEG in ('20','21','23').
IF MVKE-KONDM = '01'.
   WS_RATE = WS_RATE - ( WS_RATE * '0.30' ) .
   WS_RATE = WS_RATE * '0.9324'.
ELSEIF MVKE-KONDM = '02'.
   WS_RATE = WS_RATE - ( WS_RATE * '0.4091' ).
   WS_RATE = WS_RATE * '0.9324'.
ELSEIF MVKE-KONDM = '03'.
   WS_RATE = WS_RATE - ( WS_RATE * '0.3637' ).
   WS_RATE = WS_RATE * '0.9324'.
ELSEIF MVKE-KONDM = '04'.
   WS_RATE = WS_RATE - ( WS_RATE * '0.20' ).
   WS_RATE = WS_RATE * '0.9324'.
ENDIF.
ENDIF.
    COMPUTE WS_VALUE = ITAB-MENGE * WS_RATE.
    COMPUTE T_VALUE = T_VALUE + WS_VALUE.
   SL = SL + 1.
   if itab-loc = '1170' and mara-spart eq '60'.
      perform mat_txt.
   endif.
   WRITE:/ '|' NO-GAP ,
          (5) SL       NO-GAP , '|' NO-GAP ,
            ITAB-LOC   NO-GAP , '|' NO-GAP ,
            ITAB-MBLNR NO-GAP , '|' NO-GAP ,
            ITAB-MJAHR NO-GAP , '|' NO-GAP ,
            ITAB-ZEILE NO-GAP , '|' NO-GAP ,
            ITAB-BUDAT NO-GAP , '|' NO-GAP ,
            ITAB-MATNR NO-GAP , '|' NO-GAP ,
            (15)MARA-BISMT NO-GAP , '|' NO-GAP ,
            (30)MAKT-MAKTG NO-GAP , '|' NO-GAP ,
            (12)ITAB-MENGE NO-GAP , '|' NO-GAP ,
            (10)WS_RATE    NO-GAP , '|' NO-GAP ,
            (15)WS_VALUE   NO-GAP , '|' NO-GAP,
*{   INSERT         D01K903779                                        1
            (02) mara-spart no-gap, '|' no-gap,
*}   INSERT
            (02)WS_CHANNEL NO-GAP , '|' NO-GAP,
            (10)MARD-LGPBE
            READ TABLE ABS WITH KEY WERKS = ITAB-WERKS
                                    LOC = ITAB-LOC.
            IF SY-SUBRC EQ 0.
                ADD WS_VALUE TO ABS-VALUE.
                MODIFY ABS INDEX SY-TABIX.
            ELSE.
                MOVE ITAB-LOC TO ABS-LOC.
                MOVE ITAB-WERKS TO ABS-WERKS.
                MOVE WS_VALUE TO ABS-VALUE.
                APPEND ABS.
            ENDIF.
            CLEAR ABS.
    PERFORM MODULE_FETCH.
   MOVE itab-budat+0(6) TO mod_date.
   SELECT SINGLE * FROM zsd_mod WHERE matnr = itab-matnr AND
                                      monyr = mod_date.
   IF sy-subrc NE 0.
      zsd_mod-matnr = itab-matnr.
      zsd_mod-monyr = mod_date.
      PERFORM module_update.
      INSERT INTO zsd_mod  VALUES zsd_mod.
      COMMIT WORK.
  ELSE.
      PERFORM module_update.
      MODIFY zsd_mod.
      COMMIT WORK.
   ENDIF.
ENDLOOP.
ULINE.
WRITE:/ 'Total value : ' , T_VALUE.
ULINE.
WRITE:/ , /.
WRITE:/ 'ABSTRACT' COLOR 3.
WRITE:/ SY-ULINE(46).
T_VALUE = 0.
SL = 0.
LOOP AT ABS.
  SELECT SINGLE * FROM T001L WHERE WERKS EQ ABS-WERKS AND
       LGORT EQ ABS-LOC.
   IF SY-SUBRC NE 0. CLEAR T001L. ENDIF.
SL = SL + 1.
  WRITE:/(5) SL NO-GAP , '|' NO-GAP ,
           ABS-LOC  NO-GAP , '|' NO-GAP ,
           T001L-LGOBE NO-GAP , '|' NO-GAP ,
           ABS-VALUE NO-GAP , '|' NO-GAP.
   T_VALUE = T_VALUE + ABS-VALUE.
ENDLOOP.
WRITE:/ SY-ULINE(46).
WRITE:/ 'Total value : ' , T_VALUE.
WRITE:/ SY-ULINE(46).
perform send_sms.
FORM HEADER.
ULINE.
FORMAT COLOR 1 ON.
   WRITE:/ '|' NO-GAP ,
          (5) 'Slno'    NO-GAP , '|' NO-GAP ,
            'SLoc' NO-GAP , '|' NO-GAP ,
            'Material Document  '  , '|' NO-GAP ,
            'Post.date ' NO-GAP , '|' NO-GAP ,
            (18)'Material' NO-GAP , '|' NO-GAP ,
            (15)'Old.code' NO-GAP , '|' NO-GAP ,
            (30)'Description ' NO-GAP , '|' NO-GAP ,
            (12)'Quantity'  NO-GAP , '|' NO-GAP ,
            (10)'Rate'    NO-GAP , '|' NO-GAP ,
            (15)'Value'   NO-GAP , '|' NO-GAP,
*{   INSERT         D01K903779                                        1
            (02) 'Dv' no-gap, '|' no-gap,
*}   INSERT
            (02)'Ch'   NO-GAP , '|' NO-GAP,
            (11)'Storage Bin'
            FORMAT COLOR 1 OFF.
ULINE.
ENDFORM.
*&      Form  MODULE_UPDATE
      text
-->  p1        text
<--  p2        text
FORM MODULE_UPDATE.
       CLEAR : ZSD_MOD-DISPO.
       IF ITAB-LOC = '1001'. MOVE '101' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1002'. MOVE '102' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1003'. MOVE '103' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1004'. MOVE '104' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1005'. MOVE '105' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1006'. MOVE '106' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1011'. MOVE '111' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1021'. MOVE '201' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1022'. MOVE '202' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1026'. MOVE '206' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1041'. MOVE '412' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1042'. MOVE '412' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1044'. MOVE '203' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1051'. MOVE '501' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1052'. MOVE '502' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1055'. MOVE '503' TO ZSD_MOD-DISPO. ENDIF.
      IF ITAB-LOC = '1057'. MOVE '207' TO ZSD_MOD-DISPO. ENDIF.
W.e.f Apr.2004 1057 locked and 1028 activated for 207 module.
       IF ITAB-LOC = '1028'. MOVE '207' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1071'. MOVE '701' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1072'. MOVE '702' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1073'. MOVE '703' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '1611'. MOVE '610' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '3012'. MOVE '601' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '3022'. MOVE '602' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '3032'. MOVE '603' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '3042'. MOVE '604' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '4052'. MOVE '605' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '3052'. MOVE '605' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '3062'. MOVE '606' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '4072'. MOVE '607' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '3072'. MOVE '607' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '4092'. MOVE '609' TO ZSD_MOD-DISPO. ENDIF.
       IF ITAB-LOC = '3112'. MOVE '612' TO ZSD_MOD-DISPO. ENDIF.
W.e.f Jan.2005 activated for 611 module.
       IF ITAB-LOC = '3612'. MOVE '611' TO ZSD_MOD-DISPO. ENDIF.
ENDFORM.                    " MODULE_UPDATE
*&      Form  MODULE_FETCH
      text
-->  p1        text
<--  p2        text
FORM MODULE_FETCH.
    MOVE ITAB-BUDAT+0(6) TO MOD_DATE.
    SELECT SINGLE * FROM ZSD_MOD WHERE MATNR = ITAB-MATNR AND
                                       MONYR = MOD_DATE.
    IF SY-SUBRC NE 0.
       ZSD_MOD-MATNR = ITAB-MATNR.
       ZSD_MOD-MONYR = MOD_DATE.
       PERFORM MODULE_UPDATE.
       IF NOT ZSD_MOD-DISPO IS INITIAL.
          INSERT INTO ZSD_MOD  VALUES ZSD_MOD.
          COMMIT WORK.
       ENDIF.
    ELSE.
       PERFORM MODULE_UPDATE.
       IF NOT ZSD_MOD-DISPO IS INITIAL.
          MODIFY ZSD_MOD.
          COMMIT WORK.
       ENDIF.
    ENDIF.
ENDFORM.                    " MODULE_FETCH
*&      Form  mat_txt
      text
-->  p1        text
<--  p2        text
FORM mat_txt .
data: wa_bismt like mara-bismt.
data: wa_matnr like mara-matnr.
if mara-bismt+0(1) ne 'M'.
func to rev conver
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    INPUT        = itab-matnr
IMPORTING
   OUTPUT        = wa_matnr
      concatenate 'M00000' wa_matnr into wa_bismt.
      mara-bismt = wa_bismt.
      clear: wa_bismt,wa_matnr.
endif.
ENDFORM.                    " mat_txt
*&      Form  send_sms
      text
-->  p1        text
<--  p2        text
FORM send_sms .
    Creation of the document to be sent
    File Name
      DOC_CHNG-OBJ_NAME  = 'SENDMAIL'.
    Mail Subject
      CONCATENATE 'PDN value' '' INTO SUB SEPARATED BY SPACE.
      DOC_CHNG-OBJ_DESCR = SUB.
    Mail Contents
      CLEAR SUB.
*DATA : SPELL(100) TYPE C.
      OBJTXT = SUB.
CALL FUNCTION 'SPELL_AMOUNT'
EXPORTING
   AMOUNT          = t_value
   CURRENCY        = 'INR'
   FILLER          = ' '
   LANGUAGE        = SY-LANGU
IMPORTING
   IN_WORDS        = SPELL
EXCEPTIONS
   NOT_FOUND       = 1
   TOO_LARGE       = 2
   OTHERS          = 3
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
text = t_value.
condense text.
if so_werks-high = space.
loop at so_werks.
if sy-tabix = 1.
concatenate 'plant:' so_werks-low into plant.
else.
concatenate plant so_werks-low  into plant separated by ','.
endif.
endloop.
else.
concatenate 'plant:' so_werks-low '_To_'  so_werks-high into plant.
endif.
concatenate plant ' __ ' 'Pdn val on :' SO_BUDAT-low6(2) '.' SO_BUDAT-low4(2) '.'  SO_BUDAT-low+0(4)
into objtxt .
DATA : SPL(80) TYPE C.
*SPELL-WORD  LOWER CASE
TRANSLATE SPELL-WORD TO LOWER CASE.
concatenate objtxt  'is Rs' text ':' SPELL-WORD 'Rupees only' into objtxt separated by ''.
*concatenate objtxt   into objtxt separated by space.
      append objtxt.
      DESCRIBE TABLE OBJTXT LINES TAB_LINES.
      READ TABLE OBJTXT INDEX TAB_LINES.
      DOC_CHNG-DOC_SIZE = 20.
    Creation of the entry for the compressed document
      CLEAR OBJPACK-TRANSF_BIN.
      OBJPACK-HEAD_START = 1.
      OBJPACK-HEAD_NUM = 0.
      OBJPACK-BODY_START = 1.
      OBJPACK-BODY_NUM = TAB_LINES.
      OBJPACK-DOC_TYPE = 'RAW'.
      APPEND OBJPACK.
      CLEAR RECLIST.
read table so_werks index 1.
      if so_werks-low = '1000'.
      endif.
     RECLIST-RECEIVER =  "recv id"
     RECLIST-EXPRESS = 'X'.
     RECLIST-REC_TYPE = 'U'.
        APPEND RECLIST.
      p_sender = " sender id "
      ld_sender_address      = p_sender.
      ld_sender_address_type = 'INT'.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
    EXPORTING
          DOCUMENT_DATA              = DOC_CHNG
            put_in_outbox              = 'X'
            sender_address             = ld_sender_address
            sender_address_type        = ld_sender_address_type
     COMMIT_WORK                      = 'X'
    TABLES
          PACKING_LIST               = OBJPACK
          CONTENTS_TXT               = OBJTXT
          RECEIVERS                  = RECLIST
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
       SUBMIT RSCONN01 WITH MODE = 'INT'
                        WITH OUTPUT = ''
                        AND RETURN.
ENDFORM.                    " send_sms