on 10-10-2008 5:05 AM
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.
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
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
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.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
84 | |
24 | |
11 | |
9 | |
7 | |
6 | |
5 | |
5 | |
5 | |
4 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.