Function Module To Change TIME from GMT to CST

Hello All,
Can anyone tell me if there is any Function Module to convert the TIME from GMT to CST?
Regards

Hi Sunil,
use the following code.
DATA :
timestamp like TZONREF-TSTAMPS,
time      like sy-uzeit,
date      like sy-datum.
The following function module is used to convert the
time and date into GMT timestamp
CALL FUNCTION 'IB_CONVERT_INTO_TIMESTAMP'
EXPORTING
    i_datlo           = sy-datum
    i_timlo           = sy-uzeit
    I_TZONE           = 'INDIA'
IMPORTING
   E_TIMESTAMP       = timestamp.
The following function module is used to convert the
above obtained timestamp to PST timezone date and time.
CALL FUNCTION 'IB_CONVERT_FROM_TIMESTAMP'
EXPORTING
    i_timestamp       = timestamp
    I_TZONE           = 'CST'
IMPORTING
    E_DATLO           = date
    E_TIMLO           = time.
write :/ 'Date and Time at PST zone is ',date, time.
Reward if helpful.
Thanks,
Naveen.

Similar Messages

Changet the time from GMT to CST

Folks,
We need to change the time of our portal server from GMT to CST . Where we need to change the setting
Thanks,
Manish

Hi Sunil,
use the following code.
DATA :
timestamp like TZONREF-TSTAMPS,
time      like sy-uzeit,
date      like sy-datum.
The following function module is used to convert the
time and date into GMT timestamp
CALL FUNCTION 'IB_CONVERT_INTO_TIMESTAMP'
EXPORTING
    i_datlo           = sy-datum
    i_timlo           = sy-uzeit
    I_TZONE           = 'INDIA'
IMPORTING
   E_TIMESTAMP       = timestamp.
The following function module is used to convert the
above obtained timestamp to PST timezone date and time.
CALL FUNCTION 'IB_CONVERT_FROM_TIMESTAMP'
EXPORTING
    i_timestamp       = timestamp
    I_TZONE           = 'CST'
IMPORTING
    E_DATLO           = date
    E_TIMLO           = time.
write :/ 'Date and Time at PST zone is ',date, time.
Reward if helpful.
Thanks,
Naveen.

Function module to change Date from YYYYMMDD to DD.MM.YYYY

Hi
PLease tell me the function module that will convert date from YYYYMMDD to DD.MM.YYYY
Thanks

Hi,
data lv_date1 type sy-datum.
data lv_date2(12).
lv_date1 = '20070123'.
concatenate lv_date16(2) lv_date14(2) lv_date1+0(4) into lv_date2
separated by '.' .
is what you require to do;
now lv_date2 = 23.01.2007.
Also look for conversion routine "CONVERSION_EXIT_PDATE_OUTPUT"
EG: call function CONVERSION_EXIT_PDATE_OUTPUT
exporting input = lv_date1
importing output = lv_date2.
Thanks,
Anitha

BAPI Function module to change the schedule agreement

Hello Experts,
Can anyone tell me Bapi function module to change the scheduling agreement,
my requirement is i will get the new AEDAT(Delivery date in schedule line)
and WMENG(Quantity) Every time customer sends me a flat file which has got
revised schedule delivery date and Quantity. It needs to be updated in my system
using a BAPI Functional Module.

Hi Vivek,
You must use the correct or most appropriate forum, so this thread will be moved from to .
The forum is dedicated to: Data Transfer Techniques, Batch Data Communication, Legacy System Migration Workbench, Application Link Enabling, IDOCs, BAPIs.
Please see the [Forum Rules of Engagement|https://wiki.sdn.sap.com/wiki/display/HOME/RulesofEngagement] before posting.
Also read this thread Welcome and Rules of Engagement.
Greetings,
Marcelo Ramos

Is there any BAPI or function module to delete entries from a table (VBAK)

Hi Everybody,
this is my first thread in SDN...
my problem follows...
A report is be created that selects all sales orders created by e-Sales that are more than 20 minutes old and still have a delivery block:
tables:
VBAK sales document: header data
selection fields:
VBAK-LIFSK ≠ <BLANK>
VBAK-ERNAM = userID used by e-Sales / IVE
 (EP-BATCH / EAI-BATCH)
VBAK-ERDAT <= Current system Date
VBAK-ERZET <= Current system Time - 20 minutes
These orders should be deleted from SAP system.
This report should be scheduled to run regularly every 10 minutes.
my doubt : is ther any BAPI or Function module to delete entries from a standard table...if no what is the way to delete the enteries from a std table...
best replies will be rewarded....
regards
Reddy

Hi Vasanth ,
thanks for your reply.
i tried in the same manner what u mentioned.
but how to pass only one parameter to the functionmodule..
here in this case we have to pass only update flag as 'D'..
i did the same it giving dump..
An exception occurred that is explained in detail below.
The exception, which is assigned to class 'CX_SY_DYN_CALL_ILLEGAL_TYPE', was
not caught and
therefore caused a runtime error.
The reason for the exception is:
The call to the function module "BAPI_SALESORDER_CHANGE" is incorrect:
In the function module interface, you can specify only
fields of a specific type and length under "ORDER_HEADER_INX".
Although the currently specified field
"INT_ORDER_HEADER_INX" is the correct type, its length is incorrect.
my pgm :
*& Report YNEW_ORDER_DELETION
REPORT ynew_order_deletion.
TABLES:vbak.
PARAMETERS:
 p_lifsk LIKE vbak-lifsk DEFAULT '02'.
SELECT-OPTIONS:
 s_lifsk FOR vbak-lifsk DEFAULT '10',
 s_ernam FOR vbak-ernam,
 s_erdat FOR vbak-erdat,"DEFAULT sy-datum.
 s_erzet FOR sy-uzeit.
*PARAMETERS:
p_erzet LIKE sy-uzeit.
 s_erdat like vbak-erdat,
 s_erzet like vbak-erzet.
DATA:
 BEGIN OF int_final OCCURS 0,
 w_vbeln TYPE vbak-vbeln,
 END OF int_final.
DATA:
int_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA: int_order_header_inx LIKE bapisditmx OCCURS 0 WITH HEADER LINE.
DATA:
wf_time TYPE sy-uzeit.
INITIALIZATION.
s_ernam-low = 'KULKARMA'.
s_ernam-sign = 'I'.
s_ernam-option = 'EQ'.
APPEND s_ernam.
s_ernam-low = 'EAI-BATCH'.
s_ernam-sign = 'I'.
s_ernam-option = 'EQ'.
APPEND s_ernam.
wf_time = sy-uzeit - 1200.
p_erzet = sy-uzeit - 1200.
p_erzet-low = wf_time.
APPEND s_erzet.
int_order_header_inx-updateflag = 'D'.
APPEND int_order_header_inx.
START-OF-SELECTION.
SELECT vbeln FROM vbak
 INTO TABLE int_final
 WHERE lifsk EQ p_lifsk
 AND ernam IN s_ernam
 AND erdat IN s_erdat
 AND erzet IN s_erzet.
IF sy-subrc = 0.
 LOOP AT int_final.
 CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
 EXPORTING
 salesdocument = int_final-w_vbeln
ORDER_HEADER_IN =
 order_header_inx = int_order_header_inx
SIMULATION =
BEHAVE_WHEN_ERROR = ' '
INT_NUMBER_ASSIGNMENT = ' '
LOGIC_SWITCH =
NO_STATUS_BUF_INIT = ' '
 TABLES
 return = int_return
ORDER_ITEM_IN =
ORDER_ITEM_INX =
PARTNERS =
PARTNERCHANGES =
PARTNERADDRESSES =
ORDER_CFGS_REF =
ORDER_CFGS_INST =
ORDER_CFGS_PART_OF =
ORDER_CFGS_VALUE =
ORDER_CFGS_BLOB =
ORDER_CFGS_VK =
ORDER_CFGS_REFINST =
SCHEDULE_LINES =
SCHEDULE_LINESX =
ORDER_TEXT =
ORDER_KEYS =
CONDITIONS_IN =
CONDITIONS_INX =
EXTENSIONIN =
 ENDLOOP.
 LOOP AT int_return.
 WRITE:/ int_return-type,
 int_return-id,
 int_return-number,
 int_return-message.
 ENDLOOP.
ENDIF.
please help me ..its a very urgent issue to be solved...
am waiting for ur reply...
regards
gangareddy

Hi. i used Function module to change Characteristic values of a sales order

hi. i used Function module to change Characteristic values of a sales order..
but sales order's Characteristic values didn't change.
And the Function module doesn't occur any log message.
please tell me wrong code, and how to solve this problem.
if i have wrong method, what data can i pass to change the characteristic values
DATA: LT_E1CUVAL TYPE TABLE OF E1CUVAL.
DATA: WA_E1CUVAL TYPE E1CUVAL.
DATA: LS_CFG_HEAD LIKE CUXT_CUCFG_S,
 LS_INSTANCES LIKE CUXT_CUINS_S,
 LS_VALUES LIKE CUXT_CUVAL_S,
 LS_E1CUCFG LIKE E1CUCFG,
 LS_E1CUINS LIKE E1CUINS,
 LS_E1CUVAL LIKE E1CUVAL,
 LS_PROFILE LIKE E1CUCOM,
 LS_VBAP LIKE VBAP,
 L_CUOBJ LIKE INOB-CUOBJ,
 L_ATINN LIKE CABN-ATINN.
DATA: LT_INSTANCES LIKE CUXT_CUINS_S OCCURS 0,
 LT_PART_OF LIKE CUXT_CUPRT_S OCCURS 0,
 LT_VALUES LIKE CUXT_CUVAL_S OCCURS 0,
 LT_VAR_KEYS LIKE CUXT_CUVK_S OCCURS 0,
 LT_KSML LIKE KSML OCCURS 0 WITH HEADER LINE,
 BEGIN OF LT_CLINT OCCURS 0,
 CLINT LIKE KSSK-CLINT,
 END OF LT_CLINT.
DATA: LT_CUIB LIKE CUIB_CUOBJ_S OCCURS 0 WITH HEADER LINE.
DATA: E_ROOT_INSTANCE TYPE CUXT_INSTANCE_NO.
DATA: EV_ROOT_PERSIST_ID TYPE IBEXTINST_DATA-EXT_INST_ID.
DATA: EV_CFG_HAS_CHANGED TYPE XFELD.
DATA: EV_HANDLE_APPL_LOG TYPE BALLOGHNDL.
DATA: L_CUOBJ_NEW TYPE CUOBJ.
DATA: L_OWNER TYPE IBXX_BUSINESS_OBJECT.
REFRESH LT_E1CUVAL.
CLEAR LS_VBAP.
SELECT SINGLE CUOBJ INTO CORRESPONDING FIELDS OF LS_VBAP
 FROM VBAP WHERE VBELN = I_VBELN
 AND POSNR = I_POSNR.
IF SY-SUBRC <> 0.
 RAISE INSTANCE_NOT_FOUND.
ENDIF.
REFRESH LT_CUIB. CLEAR LT_CUIB.
LT_CUIB-INSTANCE = LS_VBAP-CUOBJ.
APPEND LT_CUIB.
CALL FUNCTION 'CUCB_INITIALIZER'
 EXPORTING
 IT_INSTANCES = LT_CUIB[].
CALL FUNCTION 'CUXI_GET_SINGLE_CONFIGURATION'
 EXPORTING
 I_ROOT_INSTANCE = LS_VBAP-CUOBJ
 IMPORTING
 E_CFG_HEAD = LS_CFG_HEAD
 ES_PROFILE = LS_PROFILE
 ET_RETURN = ET_RETURN
 TABLES
 E_TAB_INSTANCES = LT_INSTANCES
 E_TAB_PART_OF = LT_PART_OF
 E_TAB_VALUES = LT_VALUES
 E_TAB_VAR_KEYS = LT_VAR_KEYS
 EXCEPTIONS
 INVALID_INSTANCE = 1
 NO_ROOT_INSTANCE = 2
 INSTANCE_IS_A_CLASSIFICATION = 3
 INTERNAL_ERROR = 4
 NO_PROFILE_FOUND = 5
 INVALID_DATA = 6
 OTHERS = 7.
IF SY-SUBRC <> 0.
 CASE SY-SUBRC.
 WHEN 1.
 RAISE INSTANCE_NOT_FOUND.
 WHEN 3.
 RAISE INSTANCE_IS_A_CLASSIFICATION.
 WHEN OTHERS.
 RAISE INVALID_DATA.
 ENDCASE.
ELSE.
 LOOP AT LT_VALUES INTO LS_VALUES.
 IF LS_VALUES-CHARC = 'SAP_MILLCA_PACKAGING'
 OR LS_VALUES-CHARC = 'PD_CA_PACKING_DM'.
 LS_VALUES-VALUE = '7100010'. "This is test data
 MODIFY LT_VALUES FROM LS_VALUES.
 ELSE.
 DELETE LT_VALUES WHERE CHARC = LS_VALUES-CHARC.
 ENDIF.
 CLEAR LS_VALUES.
 ENDLOOP.
ENDIF.
영업정보 특성 변경
CALL FUNCTION 'CUXI_SET_SINGLE_CONFIGURATION'
 EXPORTING
 I_CFG_HEADER = LS_CFG_HEAD
 I_ROOT_INSTANCE = LS_VBAP-CUOBJ
 I_PLANT =
 I_STRUCTURE_EXPLOSION_DATE =
 I_STRUCTURE_EXPLOSION_APPL_ID =
 I_LOGSYS =
 IS_PROFILE = LS_PROFILE
 IV_ONLY_SINGLE_LEVEL =
 IV_HANDLE_APPL_LOG =
 IV_OBJECT_APPL_LOG = 'CIF'
 IV_SUBOBJECT_APPL_LOG = 'T_CNFG'
 IMPORTING
 E_ROOT_INSTANCE = E_ROOT_INSTANCE
 EV_ROOT_PERSIST_ID = EV_ROOT_PERSIST_ID
 EV_CFG_HAS_CHANGED = EV_CFG_HAS_CHANGED
 EV_HANDLE_APPL_LOG = EV_HANDLE_APPL_LOG
 ET_RETURN = ET_RETURN
 TABLES
 I_TAB_INSTANCES = LT_INSTANCES
 I_TAB_PART_OF = LT_PART_OF
 I_TAB_VALUES = LT_VALUES
 I_TAB_VAR_KEYS = LT_VAR_KEYS
 I_TAB_BLOB =
 EXCEPTIONS
 NO_CONFIGURATION_DATA = 1
 NO_ROOT_INSTANCE = 2
 INVALID_INSTANCE = 3
 INSTANCE_IS_A_CLASSIFICATION = 4
 INTERNAL_ERROR = 5
 NO_PROFILE_FOUND = 6
 INVALID_DATA = 7
 OTHERS = 8
IF SY-SUBRC <> 0.
 CASE SY-SUBRC.
 WHEN 1.
 RAISE NO_CONFIGURATION_DATA.
 WHEN 3.
 RAISE NO_ROOT_INSTANCE.
 WHEN 3.
 RAISE INVALID_INSTANCE .
 WHEN 3.
 RAISE INSTANCE_IS_A_CLASSIFICATION.
 WHEN 3.
 RAISE INTERNAL_ERROR.
 WHEN OTHERS.
 RAISE INVALID_DATA.
 ENDCASE.
ENDIF.
COMMIT WORK.
save configuration with next commit
CLEAR: LS_INSTANCES.
READ TABLE LT_INSTANCES INTO LS_INSTANCES INDEX 1.
L_OWNER-OBJECT_TYPE = LS_INSTANCES-OBJ_TYPE.
L_OWNER-OBJECT_TYPE = 'PVS_POSVAR'.
L_OWNER-OBJECT_KEY = LS_INSTANCES-OBJ_KEY.
CALL FUNCTION 'CUCB_CONFIGURATION_TO_DB'
 EXPORTING
 ROOT_INSTANCE = LS_VBAP-CUOBJ
 ROOT_OBJECT = L_OWNER
 IMPORTING
 NEW_INSTANCE = L_CUOBJ_NEW
 EXCEPTIONS
 INVALID_INSTANCE = 1
 INVALID_ROOT_INSTANCE = 2
 NO_CHANGES = 3
 OTHERS = 4.
IF SY-SUBRC > 1 AND SY-SUBRC <> 3.
 CLEAR LS_VBAP-CUOBJ.
 RAISE INTERNAL_ERROR.
ELSEIF SY-SUBRC = 1.
 LS_VBAP-CUOBJ = L_CUOBJ_NEW.
ENDIF.
What's wrong?
help me to solve this problem.
Thanks a lot.

SD_SALES_DOCUMENT_READ Reads sales document header and business data: tables VBAK, VBKD and VBPA (Sold-to (AG), Payer (RG) and Ship-to (WE) parties)
SD_SALES_DOCUMENT_READ_POS Reads sales document header and item material: tables VBAK, VBAP-MATNR
SD_DOCUMENT_PARTNER_READ partner information including address. Calls SD_PARTNER_READ
SD_PARTNER_READ all the partners information and addresses
SD_DETERMINE_CONTRACT_TYPE
In: at least VBAK-VBELN
Exceptions: NO CONTRACT | SERVICE_CONTRACT | QUANTITY_CONTRACT
SD_SALES_DOCUMENT_COPY
RV_ORDER_FLOW_INFORMATION Reads sales document flow of sales document after delivery and billing
SD_SALES_DOCUMENT_SAVE create Sales Doc from the copied document
SD_SALES_DOCUMENT_ENQUEUE to dequeue use DEQUEUE_EVVBAKE
RV_DELIVERY_PRINT_VIEW Data provision for delivery note printing
SD_PACKING_PRINT_VIEW
SD_DELIVERY_VIEW Data collection for printing
called from RV_DELIVERY_PRINT_VIEW, SD_PACKING_PRINT_VIEW
RV_BILLING_PRINT_VIEW Data Provision for Billing Document Print
regards
vinod

Change time from number format(ie. 3.50 hours) to regular time format( ie.3:30)

How do you Change time from number format(ie. 3.50 hours) to regular time format( ie.3:30)

I performed the following function in order to get my report to view the information the way that I wanted to see it:
put this formula across from the caption âu20ACu0153Display Stringâu20AC within the âu20ACu0153Format Fieldâu20AC window for description.Â
whileprintingrecords;
MonthName(tonumber(Mid({CartonHistory.DateTimeStamp},5,2)),true) & Mid({CartonHistory.DateTimeStamp},7,2) & ", " & Mid({CartonHistory.DateTimeStamp},1,4)Â & " " & Mid({CartonHistory.DateTimeStamp},9,2) & ":" & Mid({CartonHistory.DateTimeStamp},11,2) & "." & Mid({CartonHistory.DateTimeStamp},13,2)
It converts dates from: 20061212102311xx to: Dec12, 2006 10:23.11.

Function module to change date format

hi
is there any function module to change date format from 20080318 to 18.03.2008

Hi,
Use this FM CONVERT_DATE_FORMAT Convert date from yyyymmdd to ddmmyyyy format
Regards,
Jyothi CH.

Function module to change the date format

hi guys
is there any function module to change the date format
from 08/28/2007(mm/dd/yyyy)
to August 28, 2007.
regards
vamsi

hi vamsi.,
Use CONVERSION_EXIT_SDATE_OUTPUT to get the month name,
but it will give short form of the month name.
if you want long description of the month,
use this peice of code.
PARAMETERS: V_DATUM(07) TYPE C. "(example input:12-2007)
DATA: V_MON(2) TYPE C,
 V_YEAR(4) TYPE C,
 V_MONTHNAME(10) TYPE C,
 V_FULLDATE(30) type c.
WRITE V_DATUM+0(2) TO V_MON.
SELECT SINGLE LTX FROM T247 INTO V_MONTHNAME
WHERE SPRAS = SY-LANGU
 AND MNR = V_MON.
CONCATENATE V_MONTHNAME v_datum+3(4)
 INTO V_FULLDATE SEPARATED BY SPACE. "(example output : December 2007)
 write: v_fulldate.
Reawrd points if useful
Chandra

Function Module for Changing delivery date

Hi Friends ,
I am held up with a scenario of changing the delivery date while creating purchase order. Could you please suggest any function module to change the delivery date in purchase order if it is less than 5 days.
With Regards ,
Sudhir S
Moderator message: please do some own research before asking.
Edited by: Thomas Zloch on Feb 21, 2011 11:45 AM

Hi praveen for u r requirement there is no need of any FM
Try this code
parameters:
p_date like sy-datum,
p_no type i.
data:
w_date like sy-datum.
w_date = p_date - p_no.
write: / w_date .
it is enogh for u r requirement
plzz reward if it is usefull...
for any further quiries my mail id is [email protected]
plzz dont forget to reward

Program or Function module to delete data from Open Hub Destination Table

Hi All,
Can anybody suggest me a Program or Function module to delete data from Open Hub Destination Table.
Thanks & Regards,
Vinay Kumar

You can simply goto t-code SE14 mention the open hub destination table and Delete data by clicking on "Activate and Adjust database" with radio button "Delete Data".
Regards,
Arminder

Function Module to Change / Update BOM Line Items

Hi,
I need a Function Module to Change / Update BOM Line Items.
Please help.
Thanks.

Try this FM - CSAP_MAT_BOM_MAINTAIN

Function Module for getting address from address number

Hi all,
Is there any function module for getting address from address number. kindly reply.
regards,
siya

HI,
just try this function module:
CALL FUNCTION 'HR_GET_ADDRESS'
    EXPORTING
      ankey          = ankey
      anart          = anart
      molga          = '01'
    IMPORTING
      address_detail = adr_data
    EXCEPTIONS
      not_found      = 1
      OTHERS         = 2.
HOPE IT WILL HELP YOU
regards
rahul

Function module to send mail from SAP

Can any one please tell the Function module to send mail from SAP. The scenario is like this,I have a file in local system that i have to send to a particular mail address like [email protected] through a report program.

Hi shafiq,
1. There is some trick involved
in the binary files.
2. I have made a program (and it works fantastic)
ONLY 6 LINES FOR EMAILING
BELIEVE ME
ITS A FANTASTIC PROGRAM.
IT WILL WORK LIKE OUTLOOK EXPRESS !
3. The user is provided with
a) file name
b) email address to send mail
and it sends ANY FILE (.xls,.pdf .xyz..)
Instantaneously !
4. Make two things first :
1. Include with the name : ZAMI_INCLFOR_MAIL
2. Report with the name : ZAM_TEMP147 (any name will do)
3. Activate both and execute (2)
4. After providing filename, email adress
5. Code for Include :
10.08.2005 Amit M - Created
Include For Mail (First Req F16)
Modification Log
Data
DATA: docdata LIKE sodocchgi1,
objpack LIKE sopcklsti1 OCCURS 1 WITH HEADER LINE,
objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE,
objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE,
objbin LIKE solisti1 OCCURS 10 WITH HEADER LINE,
objhex LIKE solix OCCURS 10 WITH HEADER LINE,
reclist LIKE somlreci1 OCCURS 1 WITH HEADER LINE.
DATA: tab_lines TYPE i,
doc_size TYPE i,
att_type LIKE soodk-objtp.
DATA: listobject LIKE abaplist OCCURS 1 WITH HEADER LINE.
FORM
FORM ml_customize USING objname objdesc.
Clear Variables
CLEAR docdata.
REFRESH objpack.
CLEAR objpack.
REFRESH objhead.
REFRESH objtxt.
CLEAR objtxt.
REFRESH objbin.
CLEAR objbin.
REFRESH objhex.
CLEAR objhex.
REFRESH reclist.
CLEAR reclist.
REFRESH listobject.
CLEAR listobject.
CLEAR tab_lines.
CLEAR doc_size.
CLEAR att_type.
Set Variables
docdata-obj_name = objname.
docdata-obj_descr = objdesc.
ENDFORM. "ml_customize
FORM
FORM ml_addrecp USING preceiver prec_type.
CLEAR reclist.
reclist-receiver = preceiver.
reclist-rec_type = prec_type.
APPEND reclist.
ENDFORM. "ml_customize
FORM
FORM ml_addtxt USING ptxt.
CLEAR objtxt.
objtxt = ptxt.
APPEND objtxt.
ENDFORM. "ml_customize
FORM
FORM ml_prepare USING bypassmemory whatatt_type whatname.
IF bypassmemory = ''.
Fetch List From Memory
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
listobject = listobject
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
MESSAGE ID '61' TYPE 'E' NUMBER '731'
WITH 'LIST_FROM_MEMORY'.
ENDIF.
CALL FUNCTION 'TABLE_COMPRESS'
IMPORTING
COMPRESSED_SIZE =
TABLES
in = listobject
out = objbin
EXCEPTIONS
OTHERS = 1
IF sy-subrc <> 0.
MESSAGE ID '61' TYPE 'E' NUMBER '731'
WITH 'TABLE_COMPRESS'.
ENDIF.
ENDIF.
Header Data
Already Done Thru FM
Main Text
Already Done Thru FM
Packing Info For Text Data
DESCRIBE TABLE objtxt LINES tab_lines.
READ TABLE objtxt INDEX tab_lines.
docdata-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).
CLEAR objpack-transf_bin.
objpack-head_start = 1.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = 'TXT'.
APPEND objpack.
Packing Info Attachment
att_type = whatatt_type..
DESCRIBE TABLE objbin LINES tab_lines.
READ TABLE objbin INDEX tab_lines.
objpack-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objbin ).
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = att_type.
objpack-obj_name = 'ATTACHMENT'.
objpack-obj_descr = whatname.
APPEND objpack.
Receiver List
Already done thru fm
ENDFORM. "ml_prepare
FORM
FORM ml_dosend.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = docdata
put_in_outbox = 'X'
commit_work = 'X' "used from rel. 6.10
IMPORTING
SENT_TO_ALL =
NEW_OBJECT_ID =
TABLES
packing_list = objpack
object_header = objhead
contents_bin = objbin
contents_txt = objtxt
CONTENTS_HEX = objhex
OBJECT_PARA =
object_parb =
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 = 8
IF sy-subrc <> 0.
MESSAGE ID 'SO' TYPE 'S' NUMBER '023'
WITH docdata-obj_name.
ENDIF.
ENDFORM. "ml_customize
FORM
FORM ml_spooltopdf USING whatspoolid.
DATA : pdf LIKE tline OCCURS 0 WITH HEADER LINE.
Call Function
CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
EXPORTING
src_spoolid = whatspoolid
TABLES
pdf = pdf
EXCEPTIONS
err_no_otf_spooljob = 1
OTHERS = 12.
Convert
PERFORM doconv TABLES pdf objbin.
ENDFORM. "ml_spooltopdf
FORM
FORM doconv TABLES
mypdf STRUCTURE tline
outbin STRUCTURE solisti1.
Data
DATA : pos TYPE i.
DATA : len TYPE i.
Loop And Put Data
LOOP AT mypdf.
pos = 255 - len.
IF pos > 134. "length of pdf_table
pos = 134.
ENDIF.
outbin+len = mypdf(pos).
len = len + pos.
IF len = 255. "length of out (contents_bin)
APPEND outbin.
CLEAR: outbin, len.
IF pos < 134.
outbin = mypdf+pos.
len = 134 - pos.
ENDIF.
ENDIF.
ENDLOOP.
IF len > 0.
APPEND outbin.
ENDIF.
ENDFORM. "doconv
CODE FOR PROGRAM
5.
REPORT zam_temp147 .
INCLUDE zami_inclfor_mail.
DATA
DATA : itab LIKE tline OCCURS 0 WITH HEADER LINE.
DATA : file_name TYPE string.
data : path like PCFILE-PATH.
data : extension(5) type c.
data : name(100) type c.
SELECTION SCREEN
PARAMETERS : receiver TYPE somlreci1-receiver lower case.
PARAMETERS : p_file LIKE rlgrap-filename
OBLIGATORY.
AT SELECTION SCREEN
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CLEAR p_file.
CALL FUNCTION 'F4_FILENAME'
IMPORTING
file_name = p_file.
START-OF-SELECTION
START-OF-SELECTION.
PERFORM ml_customize USING 'Tst' 'Testing'.
PERFORM ml_addrecp USING receiver 'U'.
PERFORM upl.
PERFORM doconv TABLES itab objbin.
PERFORM ml_prepare USING 'X' extension name.
PERFORM ml_dosend.
SUBMIT rsconn01
WITH mode EQ 'INT'
AND RETURN.
FORM
FORM upl.
file_name = p_file.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = file_name
filetype = 'BIN'
TABLES
data_tab = itab
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
OTHERS = 17.
path = file_name.
CALL FUNCTION 'PC_SPLIT_COMPLETE_FILENAME'
EXPORTING
complete_filename = path
CHECK_DOS_FORMAT =
IMPORTING
DRIVE =
EXTENSION = extension
NAME = name
NAME_WITH_EXT =
PATH =
EXCEPTIONS
INVALID_DRIVE = 1
INVALID_EXTENSION = 2
INVALID_NAME = 3
INVALID_PATH = 4
OTHERS = 5
ENDFORM. "upl
regards,
amit m.

Function Module to change the master data attachments?

Dear Experts,
In SAP we can enclose the attachments for the Master data. Do we have any standard function module to change the Master data attachments.
Let me know if any?
Thanks and regards,
Reddy

Hi Reddy,
Please make use of function module :
BINARY_RELATION_CREATE_COMMIT
For detailed information on how to use the FM please see the thread below:
USE OF THIS fUNCTION MODULE
Regards,
Dilek A.

Function Module To Change TIME from GMT to CST

Similar Messages

Maybe you are looking for