How to default a longer value in import parameters of a function module?
I have to default a file name of some 50 characters in the file_name import parameter (RPGRAP-FILENAME) of a custom fucntion module.
I tried to set it under "Default Value" but it is taking some 15 or so charaters.
So.. how to do this?
Thanks
Ven
You just closed a number of your older threads. Please remember that there is no need to add a comment if there is nothing new to add. It just brings old posts to the top.
And in addition to marking them as closed, you could assign po1nts to those who tried to help. It encourages people to answer.
Rob
Similar Messages
-
Error while creating import parameters in RFC function module
Hi,
I am trying to create import parameter in RFC enabled function module and getting the following error "Reference parameters are not allowed with RFC". Am I doing something wrong.
Your earlier response is much appreciated
Regards
KasiThere is a "Pass by Value" checkbox, just check that and you wont get the error. The basic reason behind is since an RFC is called by a different system the parameters have to be sent as values than as references.
hith
Sunil Achyut -
Get Import Parameters of a Function Module
Hi,
Is there a way to find the import parameters and their Data Type of a Function Module in any Table??
For example, i know i can find the name and the include of the Funtion Module in TFDIR. Is there anywhere i can find the list of Import Parameters and their Data Types??
Thanks and Regards,
Kaeyuryou can use
Data: lv_type type c.
clear:lv_type.
DESCRIBE FIELD p_bukrs TYPE lv_type.
It will return C as its type C and p_bukrs is selection screen parameter.
hope this helps. -
How to declare Dynamic table in Tables Parameters of a Function Module...
Hi Gurus,
I would like to Know how to declare a Dynamic table in Tables parameters of a Function Module.
so that it should be able to hold any table data ....
I have tried all possible ways of trying to assign fields-symbol like declarations which doesnt allow here ...
plz Dont reply with the basics of creating dynamic internal tables, coz my case is not an Internal table it is FM table parameter declaration.....Hi,
If you are requirement is to create a function module with tables parameter having a generic line type i.e. no specific line type
just declare it with a name under Parameter name with out specifying the type.
A reference function module with such parameter, i would quote is the standard GUI_UPLOAD/ GUI_DOWNLOAD where the parameters specified under TABLES are generic.
If you want to process the values passed to these parameters in the source code of function module, field symbols would be a preferable option.
Regards,
Sharath Panuganti -
How to implement list of values with bind parameters
Hi All,
Please give me details about how to implement list of values with bind parameters.
I have implemented with below things.
1) created lov view object with query like select meaning, lookup_code from fnd_lookup_values where lookup_type=:1;
2) The above vo added to applicationa module.
3) created Controller class in the co class written code in processRequest();
String vLookupType=pageContext.getParameter("LookupType");
Serializable params={vLookupType};
am.invokemethod("Initialize",params);
4) In AM Impl Class invoke the VO
5) In VO Impl class executed the query..
But the above process working fine but when i give the value in lov text field like 'C' then press tab button the result will not showing instead of that i am getting error message, i want to implement standard lov functionality while implementing query with bind parameter.
any thing reqired to add the code to controller for search criteria..
Thanks
MatetiHi
i am getting error as
oracle.apps.fnd.framework.OAException: oracle.jbo.SQLStmtException: JBO-27122: SQL error during statement preparation. Statement: SELECT * FROM (SELECT meaning, lookup_code,lookup_type
FROM fnd_lookup_values
WHERE view_application_id = 200) QRSLT WHERE (lookup_type=:1 AND ( UPPER(MEANING) like :2 AND (MEANING like :3 OR MEANING like :4 OR MEANING like :5 OR MEANING like :6)))
Thanks
Mateti -
Passing values to an InternalTable in a Function Module from WebDynpro
Hi,
I have created a model from a function module that has a internal table.I have assigned the value as a String to the datamodel context element of the internal table as a Line in the node that represents the input for the funtion module.The internal table accepts a value as an input.When i call the execute method on the input node i am not able to pass the value from the Webdynpro to the function module.I have also checked the assignment of the value as a String to the datamodel context element of the internal table as a Line in the node that represents the input for the funtion module and the value was assigned.
If you can provide me any info on how to pass the internal table from Webdynpro to the function module will be very helpful ..???
Thanks In Advance,
Varma.Hi Rajendra,
what u can pass to a function module is the parameter which are in import and tables of RFC .so u have to declare a variable as a type of your internal table which may be type of structure or table. then in your RFC u have to copy that into a variable of function module and go for ur logic ... -
How to get the "last changed by" for a set of function modules?
How to get the "last changed by" for a set of function modules?
is there any table to get it??See [this|Re: Date of creation of function module] I posted earlier.
>TFDIR will give you the name of the function group program and the include number.
>E.g. SAPLZFUNCGROUP Include 01.
>From this you can construct the include name: LZFUNCGROUPU01.
>You can look this up in TRDIR to find the creation date (CDAT) of the function module.
In your case, you need unam and udat.
matt -
How to create a Sales order with ref to Contract using Function Module
How to create a Sales order with ref to Contract using Function Module BAPI_SALESDOCU_CREATEFROMDATA ?
We have a unique situation where we like change the sold-to customer of the sales order
once order has been created. These orders have been created using either by function module
BAPI_SALESDOCUMENT_COPY or using BDC (VA01, Copy with reference).
These two processes work abosolutely fine except someone might have change the sold-to
customer of the ship-to customer of the original sales order. If this the case then the new
sales order will be created with the old sold-to and with not the new sold-to.
We tried using BAPI_SALESDOCUMENT_CHANGE and commit afterwards. We checked
the returned parameteres of the BAPIs and they are all successful but sold-to remains the
same old one.
Any help would be much more appreciated. -
How to fetch values at runtime in field exit function module
Hi all,
I am creating a field exit for delivery date in Purchase requisition.
For that I need to capture Delivery Date and Sale Order entered in purchase requisition and pass this to Function module and validate this data.
I am using import and export parameters but it is giving runtime error.
please tell me how to solve it.
Regards,
SunnyHi,
There are other ways to access the purchase requisition related values..that is using field symbols..
pls check the below mentioned link:
Re: Pricing Routine : Can we get the VBAP Data in this pricing routine.(VOFM)
Identify the similar data fields for requisition.
Hope this wil help..
Sumit -
How to import a range in Function module?
I am using a Function module in which material is getting imported.
In the import tab we have
Parameter Name Typing Associated Type optional pass value
IM_MATERIAL TYPE MATNR <checked> <checked>
So when the Function module is execute we can enter only one value into the IM_MATERIAL.
But now it has to be enhanced for entering multiple values. How to import the material as a range?
Please throw light.
Thanks.Hi
If you are using a select-options you can use this approach.
TABLES: MARA.
DATA: RANGE TYPE WRF_MATNR_RANG_TTY.
SELECT-OPTIONS: SO_MATNR FOR MARA-MATNR.
START-OF-SELECTION.
RANGE[] = SO_MATNR[].
CALL FUNCTION 'ZTEST'
EXPORTING
I_RANGE = RANGE.
Where I_RANGE is defined using this table type WRF_MATNR_RANG_TTY
Parameter Name Typing Associated Type optional pass value
I_RANGE TYPE WRF_MATNR_RANG_TTY <checked> <checked> -
How to call an eCATT programmatically with import parameters
Hi there,
I am using function module ECATT_EXECUTE to call test scripts from within ABAP test code, like below. Unfortunately, I am not able to pass my actual import parameter values. It seems that the interface does not provide a way to pass import parameters to the eCATT.
Although posted in November, this is still an issue for me. Does anybody know an answer?
call function 'ECATT_EXECUTE'
exporting
to_execute = lt_script
display_log = space
i_supress_output = 'X'
importing
executed = lt_executed
logid = ls_logid
trace_prot = lt_trace
exceptions
nothing_to_do = 1
too_many_scripts_called = 2
others = 3.
Does anybody reading this have a solution?
Thanks and regards,
Rüdiger
Edited by: Rüdiger Plantiko on Jan 17, 2008 3:05 PM
Edited by: Rüdiger Plantiko on Jan 17, 2008 3:05 PMHello Rüdiger,
direct passover would be fine - well, I've come to get used to finding workarounds in SAP though. Maybe, the function module will support the missing parameters in some forthcoming release.
Btw I switched over to tables ECTC_VAR / ECTC_DATA and pass obj_type = 'ECTC' to ECATT_EXECUTE, since test configurations can directly be executed.
You don't happen to know what has to be done, if the call of ECATT_EXECUTE results in a dump? After correctly executing the test configuration. Looks like eCatt tries to put the resulting log to nowhere. Perhaps I have to initialize some kind of a log receiver first or set some option in the start profile? I passed DISPLAY_LOG = SPACE, and SUPPRESS_OUTPUT = 'X'.
Dump was:
Laufzeitfehler OBJECTS_OBJREF_NOT_ASSIGNED
Datum und Zeit 05.03.2008 17:37:00
Zeile Quelltext
1 METHOD http_send_and_receive .
2
3 DATA: l_errortext TYPE string.
4 DATA: l_http_subrc TYPE sy-subrc.
5 *----------------------------------------------------------------
6
>>>>> im_http_client->request->set_data( data = im_request ).
8
Aktive Aufrufe/Ereignisse
Nr. Art Programm Include Zeile
Name
6 METHOD CL_HTTP_TESTZONE_RESULT=======CP CL_HTTP_TESTZONE_RESULT=======CM00Q 7
CL_HTTP_TESTZONE_RESULT=>HTTP_SEND_AND_RECEIVE
5 METHOD CL_HTTP_TESTZONE_RESULT=======CP CL_HTTP_TESTZONE_RESULT=======CM00O 16
CL_HTTP_TESTZONE_RESULT=>HTTP_REQUEST_NEWRESULTID
4 METHOD CL_HTTP_TESTZONE_RESULT=======CP CL_HTTP_TESTZONE_RESULT=======CM00T 34
CL_HTTP_TESTZONE_RESULT=>SEND_TO_RESULT_REPOSITORY
3 METHOD CL_APL_ECATT_LOG_TO_RESREP====CP CL_APL_ECATT_LOG_TO_RESREP====CM001 400
CL_APL_ECATT_LOG_TO_RESREP=>GET_LOG_DATA
2 FUNCTION SAPLECATT_EXECUTE LECATT_EXECUTEU01 888
ECATT_EXECUTE
1 EVENT ZDSD_SL_VIA_CATT ZDSD_SL_VIA_CATT 26
START-OF-SELECTION
Regards + have a nice weekend,
Matthias -
VBA and RFC - How to deal with tables in export/import parameters
Hi,
maybe one of you can support me...
I have a couple of vba modules reading and writing data to SAP by means of function modules. As usual, they use export and import parameters as well as tables (in the table section). They work very well.
Now, I want to execute some newer function modules and they don't use tables in the table section (because they're obsolete nowadays), instead they expect the tables as export resp. import parameters. I tried it in a couple of ways, without any success.
Has anybody tried this before? And if so, do you mind share some snippets?
Best regards, ThomasHello Thomas,
I think we discussed the same problem here, but unfortunately without any result. Please, take a look at this post and let us know.
Cheers
Stefan -
How to export and import variants of a function module
Hi
I have created a function module and saved input to the same as variant. I want to export these variants back to external world and then import it back whenever its needed.
Any pointers or help will be highly appreciated.
Thanks in advance
- Sriram.Just a example
SQL> $expdp system/sys directory=data_pump_dir dumpfile=tests.dmp tables=scott.emp
Export: Release 11.2.0.1.0 - Production on Tue Mar 8 10:39:57 2011
Copyright (c) 1982, 2009, Oracle and/or its affiliates. All rights reserved.
Connected to: Oracle Database 11g Enterprise Edition Release 11.2.0.1.0 - Production
With the Partitioning, OLAP, Data Mining and Real Application Testing options
Starting "SYSTEM"."SYS_EXPORT_TABLE_01": system/******** directory=data_pump_dir dumpfile=tests.dmp tables=scott.emp
Estimate in progress using BLOCKS method...
Processing object type TABLE_EXPORT/TABLE/TABLE_DATA
Total estimation using BLOCKS method: 64 KB
Processing object type TABLE_EXPORT/TABLE/TABLE
Processing object type TABLE_EXPORT/TABLE/INDEX/INDEX
Processing object type TABLE_EXPORT/TABLE/CONSTRAINT/CONSTRAINT
Processing object type TABLE_EXPORT/TABLE/INDEX/STATISTICS/INDEX_STATISTICS
Processing object type TABLE_EXPORT/TABLE/CONSTRAINT/REF_CONSTRAINT
Processing object type TABLE_EXPORT/TABLE/STATISTICS/TABLE_STATISTICS
. . exported "SCOTT"."EMP" 8.570 KB 14 rows
Master table "SYSTEM"."SYS_EXPORT_TABLE_01" successfully loaded/unloaded
Dump file set for SYSTEM.SYS_EXPORT_TABLE_01 is:
C:\APP\MAZAR\ADMIN\ACEME\DPDUMP\TESTS.DMP
Job "SYSTEM"."SYS_EXPORT_TABLE_01" successfully completed at 10:40:01
SQL> -
How can I change the values for print parameters
Hi all,
There is a program which prints the documents every time the t.code is executed. I want the output to be stored in spool and NEVER wants it to be printed.
A spreadsheet which has the details of articles is uploaded and a background job is created through ABAP SUBMIT statement to upload the article numbers to the table.
GET_PRINT_PARAMETERS function module is used. Is there any way to pass the print parameters so that output will not be printed and only stored in the spool?
Help me out and points will be rewarded.Hi Rathi,
I am more or less giving as you mentioned. Here is the piece of code.
Y_XXXX is my report.
CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING
MODE = 'BATCH'
NO_DIALOG = 'X'
REPORT = 'Y_XXXX'
IMPORTING
OUT_ARCHIVE_PARAMETERS = ls_ArchivePrintParms
OUT_PARAMETERS = ls_PrintParms.
SUBMIT Y_XXXX
AND RETURN
USER sy-Uname
VIA JOB lw_JobName
NUMBER lw_JobNumber
TO SAP-SPOOL
WITHOUT SPOOL DYNPRO
SPOOL PARAMETERS ls_PrintParms
ARCHIVE PARAMETERS ls_ArchivePrintParms
WITH p_Matnr = ps_CreateArticleDatum-Article
WITH p_MrchCt = ps_CreateArticleDatum-MerchCat
WITH p_ArtTyp = ps_CreateArticleDatum-ArticleType
WITH p_ArtCat = ps_CreateArticleDatum-ArticleCat
WITH p_UOM = ps_CreateArticleDatum-UOM
WITH p_ArtDsc = ps_CreateArticleDatum-ArticleDesc
WITH p_ValCls = ps_CreateArticleDatum-ValueClass
WITH p_PurGrp = ps_CreateArticleDatum-PurchGrp
WITH p_StLsPr = ps_CreateArticleDatum-StoreListProc
WITH p_DCLsPr = ps_CreateArticleDatum-DCListProc
WITH s_RefStr IN lr_RefStoresRange
WITH p_BackGd = yartc_BooleanFalse
WITH p_Test = yartc_BooleanFalse.
But the o/p gets printed everytime I run the t.code. -
Dropdown values are missing while using the function module KCD_EXCEL_OLE_TO_INT_CONVERT
Hi all,
when i am trying to upload the excel template by using the function module " KCD_EXCEL_OLE_TO_INT_CONVERT" to an internal table some field values are missing.
i am using the function module " KCD_EXCEL_OLE_TO_INT_CONVERT" and i am uploading an excel template and downloading that excel data into an internal table but some field values are missing while uploading the excel template and i found that the field which contains the drop down list values those values are missing.
And also when i am uploading the excel template by using the function module" KCD_EXCEL_OLE_TO_INT_CONVERT" when i am coming out of this function module one pop up is coming. how can i avoid this popup, can any one please provide me the solution thanks in advance.
FYI...it is showing the below popup screen ..
Thanks,
Koushikhi Feiyun,
below is the code(highlighted in bold)and after coming out of the function module i am getting popup and also the drop down values are missing.
DATA: ls_control TYPE zsfi_fiupload_control,
ls_header TYPE zsfi_fiupload_header_v13,
ls_item TYPE zsfi_fiupload_item_v13,
ls_trailer TYPE zsfi_fiupload_control,
l_line_count LIKE zsfi_fiupload_control-rec_count,
l_current_curr TYPE kcde_cells-value,
l_current_postdate TYPE kcde_cells-value,
l_current_compcode TYPE kcde_cells-value,
l_currentrow TYPE kcde_cells-row,
l_filename LIKE rlgrap-filename.
DATA: BEGIN OF lt_intern OCCURS 0.
INCLUDE STRUCTURE kcde_cells.
DATA: END OF lt_intern.
DATA: BEGIN OF lt_items OCCURS 0,
a TYPE kcde_cells-value,
b TYPE kcde_cells-value,
c TYPE kcde_cells-value,
d TYPE kcde_cells-value,
e TYPE kcde_cells-value,
f TYPE kcde_cells-value,
g TYPE kcde_cells-value,
h TYPE kcde_cells-value,
i TYPE kcde_cells-value,
j TYPE kcde_cells-value,
k TYPE kcde_cells-value,
l TYPE kcde_cells-value,
m TYPE kcde_cells-value,
n TYPE kcde_cells-value,
o TYPE kcde_cells-value,
p TYPE kcde_cells-value,
q TYPE kcde_cells-value,
r TYPE kcde_cells-value,
s TYPE kcde_cells-value,
t TYPE kcde_cells-value,
u TYPE kcde_cells-value,
v TYPE kcde_cells-value,
w TYPE kcde_cells-value,
x TYPE kcde_cells-value,
y TYPE kcde_cells-value,
z TYPE kcde_cells-value,
aa TYPE kcde_cells-value,
ab TYPE kcde_cells-value,
ac TYPE kcde_cells-value,
ad TYPE kcde_cells-value,
ae TYPE kcde_cells-value,
af TYPE kcde_cells-value,
ag TYPE kcde_cells-value,
ah TYPE kcde_cells-value,
ai TYPE kcde_cells-value,
AJ TYPE KCDE_CELLS-VALUE,
AK TYPE KCDE_CELLS-VALUE,
END OF lt_items.
l_filename = p_flpath.
* the file must be an xls file, not xlsx or comma seperated
IF p_flpath NS '.xls' AND p_flpath NS '.XLS'.
MESSAGE i261(zfi).
g_error = 'X'.
EXIT.
ENDIF.
* upload excel file to a generic table
CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'
EXPORTING
filename = l_filename
i_begin_col = 1
i_begin_row = 1
i_end_col = 150
i_end_row = 65000
TABLES
intern = lt_intern
EXCEPTIONS
inconsistent_parameters = 1
upload_ole = 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.
* validate that the format is in the restatement format
* this is the only template to have the ledger group in cell G-2
** READ TABLE lt_intern WITH KEY row = '0002' col = '0007'.
** IF sy-subrc <> 0 OR lt_intern-value IS INITIAL.
** MESSAGE i260(zfi).
** g_error = 'X'.
** EXIT.
** ENDIF.
* create control record values
ls_control-rec_type = 'C'.
ls_control-global_id = 'GLU-03000'.
ls_control-local_id = ''.
ls_control-rec_count = ''.
CONCATENATE sy-datum sy-uzeit INTO ls_control-date.
ls_control-version = '12'.
ls_control-email = ''.
ls_control-eor = 'X'.
ls_trailer = ls_control.
* open output file and add the control record
OPEN DATASET p_unixfilename FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
TRANSFER ls_control TO p_unixfilename.
* create header record values, will be transfered to file in the item loop
ls_header-rec_type = 'H'.
READ TABLE lt_intern WITH KEY row = '0017' col = '0003'.
IF sy-subrc = 0.
ls_header-header_txt = lt_intern-value.
ENDIF.
READ TABLE lt_intern WITH key row = '0020' col = '0002'.
IF sy-subrc = 0.
ls_header-comp_code = lt_intern-value.
ENDIF.
************doc date
READ TABLE lt_intern WITH KEY row = '0011' col = '0003'.
IF sy-subrc = 0.
ls_header-pstng_date = lt_intern-value.
ENDIF.
************posting date
ls_header-doc_date = sy-datum.
READ TABLE lt_intern WITH KEY row = '0009' col = '0003'.
IF sy-subrc = 0.
ls_header-doc_type = lt_intern-value.
ENDIF.
READ TABLE lt_intern WITH KEY row = '0014' col = '0003'.
IF sy-subrc = 0.
ls_header-ref_doc_no = lt_intern-value.
ENDIF.
************currency moved to line items
READ TABLE lt_intern WITH KEY row = '0020' col = '0001'.
IF sy-subrc = 0.
ls_header-currency = lt_intern-value.
ENDIF.
ls_header-trans_date = ''.
READ TABLE lt_intern WITH KEY row = '0010' col = '0003'.
IF sy-subrc = 0.
ls_header-period = lt_intern-value.
ENDIF.
READ TABLE lt_intern WITH KEY row = '0006' col = '0003'.
IF sy-subrc = 0.
ls_header-reason_rev = lt_intern-value.
ENDIF.
READ TABLE lt_intern WITH KEY row = '0007' col = '0003'.
IF sy-subrc = 0.
ls_header-rev_date = lt_intern-value.
ENDIF.
* READ TABLE lt_intern WITH KEY row = '0002' col = '0007'.
* IF sy-subrc = 0.
ls_header-ledger_grp = ''.
* ENDIF.
* READ TABLE lt_intern WITH KEY row = '0013' col = '0013'.
* IF sy-subrc = 0.
ls_header-exch_rate = ''.
* ENDIF.
READ TABLE lt_intern WITH KEY row = '0008' col = '0003'.
IF sy-subrc = 0.
ls_header-calc_tax = lt_intern-value.
ENDIF.
ls_header-eor = 'X'.
* loop at the line items and append them to a table with multiple columns
LOOP AT lt_intern WHERE row GE 20.
IF l_currentrow <> lt_intern-row AND l_currentrow IS NOT INITIAL.
APPEND lt_items.
CLEAR lt_items.
ENDIF.
l_currentrow = lt_intern-row.
CASE lt_intern-col.
WHEN '0001'. lt_items-a = lt_intern-value.
WHEN '0002'. lt_items-b = lt_intern-value.
WHEN '0003'. lt_items-c = lt_intern-value.
WHEN '0004'. lt_items-d = lt_intern-value.
WHEN '0005'. lt_items-e = lt_intern-value.
WHEN '0006'. lt_items-f = lt_intern-value.
WHEN '0007'. lt_items-g = lt_intern-value.
WHEN '0008'. lt_items-h = lt_intern-value.
WHEN '0009'. lt_items-i = lt_intern-value.
WHEN '0010'. lt_items-j = lt_intern-value.
WHEN '0011'. lt_items-k = lt_intern-value.
WHEN '0012'. lt_items-l = lt_intern-value.
WHEN '0013'. lt_items-m = lt_intern-value.
WHEN '0014'. lt_items-n = lt_intern-value.
WHEN '0015'. lt_items-o = lt_intern-value.
WHEN '0016'. lt_items-p = lt_intern-value.
WHEN '0017'. lt_items-q = lt_intern-value.
WHEN '0018'. lt_items-r = lt_intern-value.
WHEN '0019'. lt_items-s = lt_intern-value.
WHEN '0020'. lt_items-t = lt_intern-value.
WHEN '0021'. lt_items-u = lt_intern-value.
WHEN '0022'. lt_items-v = lt_intern-value.
WHEN '0023'. lt_items-w = lt_intern-value.
WHEN '0024'. lt_items-x = lt_intern-value.
WHEN '0025'. lt_items-y = lt_intern-value.
WHEN '0026'. lt_items-z = lt_intern-value.
WHEN '0027'. lt_items-aa = lt_intern-value.
WHEN '0028'. lt_items-ab = lt_intern-value.
WHEN '0029'. lt_items-ac = lt_intern-value.
WHEN '0030'. lt_items-ad = lt_intern-value.
WHEN '0031'. lt_items-ae = lt_intern-value.
WHEN '0032'. lt_items-af = lt_intern-value.
WHEN '0033'. lt_items-ag = lt_intern-value.
WHEN '0034'. lt_items-ah = lt_intern-value.
WHEN '0035'. lt_items-ai = lt_intern-value.
when '0036'. lt_items-aj = lt_intern-value.
when '0037'. lt_items-ak = lt_intern-value.
ENDCASE.
ENDLOOP.
APPEND lt_items.
* sort rows by the post date, comp code, curr.
* SORT lt_items BY ah a ai.
* loop at the items, creating a header record if the comp code, curr. or post date changes
LOOP AT lt_items.
ls_item-rec_type = 'I'.
ls_item-post_key = lt_items-c. "lt_items-b.
IF lt_items-c GE '20' AND lt_items-c LE '39'.
ls_item-vendor_no = lt_items-d.
ELSEIF lt_items-c GE '0' AND lt_items-c LE '19'.
ls_item-customer = lt_items-d.
ELSEIF lt_items-c EQ '70' AND lt_items-c EQ '75'.
ls_item-asset = lt_items-d.
ELSE.
ls_item-gl_account = lt_items-d.
ENDIF.
ls_item-asset_type = lt_items-m. "lt_items-l.
ls_item-trans_type = lt_items-n. "lt_items-m.
ls_item-print_flag = ''.
ls_item-item_text = lt_items-j. "lt_items-i.
ls_item-comp_code = lt_items-b. "lt_items-a.
ls_item-bus_area = ''.
ls_item-alloc_nmbr = lt_items-l. "lt_items-k.
ls_item-tax_code = lt_items-q. "lt_items-p.
ls_item-taxjurcode = lt_items-r. "lt_items-q.
ls_item-profit_ctr = lt_items-g. "lt_items-f.
ls_item-costcenter = lt_items-h. "lt_items-g.
ls_item-orderid = lt_items-ac. "lt_items-ab.
ls_item-wbs = lt_items-i. "lt_items-h.
ls_item-trade_id = lt_items-o. "lt_items-n.
ls_item-part_prctr = lt_items-p. "lt_items-o.
ls_item-material = lt_items-t. "lt_items-s.
ls_item-salesorg = lt_items-aa. "lt_items-z.
ls_item-distr_chan = lt_items-ab. "lt_items-aa.
ls_item-pmnttrms = ''.
ls_item-pmtmthd = ''.
ls_item-pmtmthsupl = ''.
ls_item-alt_payee = ''.
REPLACE ALL OCCURRENCES OF '(' IN lt_items-e WITH ''.
REPLACE ALL OCCURRENCES OF ')' IN lt_items-e WITH ''.
ls_item-amt_doccur = lt_items-e. "lt_items-d
REPLACE ALL OCCURRENCES OF '(' IN lt_items-f WITH ''.
REPLACE ALL OCCURRENCES OF ')' IN lt_items-f WITH ''.
ls_item-loc_amt = lt_items-f. "lt_items-e
ls_item-loc = lt_items-k. "lt_items-j.
ls_item-sas_revtype = lt_items-s. "lt_items-r.
ls_item-rev_type = lt_items-u. "lt_items-t.
ls_item-rev_chnl = lt_items-v. "lt_items-u.
ls_item-bill_to = lt_items-x. "lt_items-w.
ls_item-payer = lt_items-z. "lt_items-y.
ls_item-ship_to = lt_items-y.
ls_item-tax_amnt = lt_items-x.
ls_item-func_area = ''.
ls_item-expend_date = lt_items-ae. "lt_items-ad.
ls_item-wtax_code = lt_items-af. "lt_items-ae.
ls_item-wtax_base = lt_items-ag. "lt_items-af.
ls_item-wtax_amount = lt_items-ah. "lt_items-ag.
ls_item-payment_block = ''.
ls_item-grp_amt = ''.
ls_item-anc_amt = ''.
ls_item-permit_payee = ''.
ls_item-value_date = ''.
ls_item-pernr = ''.
ls_item-legacy1 = ''.
ls_item-legacy2 = ''.
ls_item-legacy3 = ''.
ls_item-legacy4 = ''.
ls_item-legacy5 = ''.
ls_item-legacy6 = ''.
ls_item-legacy7 = ''.
ls_item-legacy8 = ''.
ls_item-legacy9 = ''.
ls_item-legacy10 = ''.
ls_item-eor = 'X'.
TRANSLATE lt_items-ai TO UPPER CASE.
TRANSLATE lt_items-b TO UPPER CASE.
TRANSLATE lt_items-a TO UPPER CASE.
TRANSLATE lt_items-aj TO UPPER CASE.
IF l_current_curr <> lt_items-a "lt_items-ai
OR l_current_postdate <> ls_header-pstng_date "lt_items-aj
OR l_current_compcode <> lt_items-b.
l_current_curr = lt_items-a.
l_current_postdate = ls_header-pstng_date. "lt_items-aj.
l_current_compcode = lt_items-b.
ls_header-comp_code = l_current_compcode.
ls_header-currency = l_current_curr.
ls_header-pstng_date = l_current_postdate.
ls_header-doc_date = l_current_postdate.
TRANSFER ls_header TO p_unixfilename.
l_line_count = l_line_count + 1.
ENDIF.
TRANSFER ls_item TO p_unixfilename.
l_line_count = l_line_count + 1.
ENDLOOP.
ls_trailer-rec_type = 'T'.
ls_trailer-rec_count = l_line_count.
TRANSFER ls_trailer TO p_unixfilename.
CLOSE DATASET p_unixfilename.
* change the format to fixed format for the remainder of the load program
p_fixed = 'X'.
p_rstmnt = ''.
Thanks,
Koushik
Maybe you are looking for
-
HT1766 How can I move pictures from one iPhone to another
Please help
-
Cluster PI connect throught HTTPS
Hello, We have a problem. We have a no SAP system that connect to a webservice using the PI. The PI that we have is in a cluster. For a secure connection we have con figured the Cluster (SCS y ASCS) to use the HTTPS. We have added the parameter: ms/s
-
How to extract master data attribute from r/3 to bw give steps details
how to extract master data attribute from r/3 to bw give steps details screenshots
-
g15mpd looks for libmpd.so.0, which is nonexistant. Linking it to libmpd.so fixes the problem, altough I think it would be much better to just apply a fix in sources.
-
Canopus ADVC 1000 at VC High School
I just purchased the ADVC 1000 and I am trying to import video through a Panasonic AV Mixer. I am going Canon XL2 out using BNC connectors to the Panasonic AV Mixer to the ADVC 1000 then to Final Cut Pro. When I log and capture I am getting a black s