cancel
Showing results for 
Search instead for 
Did you mean: 

Program output on mobile phone

Former Member
0 Kudos

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.

Accepted Solutions (0)

Answers (2)

Answers (2)

Former Member
0 Kudos

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

Former Member
0 Kudos

Hello,

MI is not required here. If I remember correctly there is already everything needed on basis to create a SMS message and send it. You can also take a look at the workflows as they can be configured to send SMS, emails, etc.

Thank you,

Julien.