Include program for script dump error in data type

Hi i have written following subroutine for script.
FORM WITHHOLD TABLES in_tab STRUCTURE itcsy
                     out_tab STRUCTURE itcsy.
data:     a_SKFBT TYPE REGUP-SKFBT,
     A_DMBTR TYPE REGUP-DMBTR,
    W_TAX1(18) TYPE REGUP-SKFBT.
read table in_tab WITH KEY NAME = 'REGUP-SKFBT'.
read table in_tab INDEX 1.
check sy-subrc = 0.
a_SKFBT = in_tab-value.
read table in_tab WITH KEY NAME = 'REGUP-DMBTR'.
read table in_tab INDEX 2.
check sy-subrc = 0.
a_DMBTR = in_tab-value.
W_TAX = ( a_SKFBT - a_DMBTR ).
read table out_tab with key name = 'W_TAX1'.
IF SY-SUBRC = 0.
out_tab-value = W_TAX1.
modify out_tab INDEX 1.
ENDIF.
ENDIF.
endform.
above program is giving dump .
while deduction values in w_tax .
what type of variables i shold take here..

Hi Venkat,
Your declaration for the tax variable is wrong. When you have specified a table field there is not any need to mention the number of characters for that variable.
Simply declare as W_TAX type REGUP-SKFBT and
W_TAX1(16) type c.
After computing W_TAX, Move W_TAX to W_TAX1.
Regards,
Anil

Similar Messages

Where can we find the standard program for scripts and smartform for vl02

where can we find the standard program for scripts and smartform for vl02
regard,
anil

If it is a standard Script Output see that all config in NACE tcode was done correctly and in the Application document the output type was properly defined and attached to a medium, partner and all communication related things like printer name, when to print the output and number of messages etc are entered in the document
the go to the related application Tcode
(for sales order goto VA02 or VA03)
(delivery -VL02N or VL03N)
for Invoice VF02 or VF03
for PO -goto ME9F
enter doc number, Issue Output to -> screen/printer
then see the output
step 1 : copy the z layout into testing client thru SCC1.
step2 : go to se71 and check modified layout.
step3 : if it is under logistics.. go to TCODE "NACE".
u will see various applictions for each business process.
there u have configure ur related layout according to requirments,
for example u consider for Request fo Quatation..
there is APPLICATION called "EA"
click and enter into it. configure it with ur requirments, for help consult with ur functonal consaltant, and save it.
step 4 : goto tcode ME9A for requst for quatation(RFQ).
step 5 : enter test data avalable and check it with message display.
it is same for other applications like Contract agreament --> ME9k
invoice --> vl02n
and goes on..
Reward points for useful Answers

Problem in creating include program for customer exit for BC425_01

Hi,
I want to write a customer exit for transaction BC425_01. For identifying the include program for exit , i go to System->Status.There I double click on the program name(GUI).Then I perform a 'FIND' in main program for 'customer-function' keyword. I get 3 search results with "CALL CUSTOMER-FUNCTION '001' " , "CALL CUSTOMER-FUNCTION '002' " , "CALL CUSTOMER-FUNCTION '003' ".
Now i double click on CALL CUSTOMER-FUNCTION '001' and i am taken to the code of program where this function is called in MODULE cust_check INPUT. I double click on CALL CUSTOMER-FUNCTION '001' and then I am taken to the function module code which contains a single statement 'INCLUDE ZXBC425G01U01 .' .
Now I double click on this include program so that I can write my own code. But when i double click on it , a message displayed 'Program names ZX.. are reserved for includes of exit function groups'. Hence I am not able to creates this include program and write my coding.
Kindly Help
THANKS

Hi Amber,
Then you click enter button.It is asking to create object with that include name ZXBC425G01U01 in a pop-up.You should select YES option.It will ask package . Give the package name and save.Then include program is created and allowed you to write your own code.
Thanks,
Prasad GVK.

Driver program for scripts

is there a way of finding out if a given program is a driver program for scripts.
reply asap.
points will be rewarded.

Hi..
You can find the link between the Form and the Print program in Table TNAPR.
Fields
FONAM -> FORMNAME
PGNAM -> PROGRAM NAME
The other way to find is Open the Text elements of any window
and Select the Menu path Sytax->check
Reward if Helpful

Saving result from sp_executesql into a variable and using dynamic column name - getting error "Error converting data type varchar to numeric"

Im getting an error when running a procedure that includes this code.
I need to select from a dynamic column name and save the result in a variable, but seem to be having trouble with the values being fed to sp_executesql
DECLARE @retval AS DECIMAL(12,2)
DECLARE @MonthVal VARCHAR(20), @SpreadKeyVal INT
DECLARE @sqlcmd AS NVARCHAR(150)
DECLARE @paramdef NVARCHAR(150)
SET @MonthVal = 'Month' + CAST(@MonthNumber AS VARCHAR(2) );
SET @SpreadKeyVal = @SpreadKey; --CAST(@SpreadKey AS VARCHAR(10) );
SET @sqlcmd = N' SELECT @retvalout = @MonthVal FROM dbo.CourseSpread WHERE CourseSpreadId = @SpreadKeyVal';
SET @paramdef = N'@MonthVal VARCHAR(20), @SpreadKeyVal INT, @retvalout DECIMAL(12,2) OUTPUT'
--default
SET @retval = 0.0;
EXECUTE sys.sp_executesql @sqlcmd,@paramdef, @MonthVal = 'Month4',@SpreadKeyVal = 1, @retvalout = @retval OUTPUT;
SELECT @retval
DECLARE @return_value DECIMAL(12,2)
EXEC @return_value = [dbo].[GetSpreadValueByMonthNumber]
@SpreadKey = 1,
@MonthNumber = 4
SELECT 'Return Value' = @return_value
Msg 8114, Level 16, State 5, Line 1
Error converting data type varchar to numeric.

Please follow basic Netiquette and post the DDL we need to answer this. Follow industry and ANSI/ISO standards in your data. You should follow ISO-11179 rules for naming data elements. You should follow ISO-8601 rules for displaying temporal data. We need
to know the data types, keys and constraints on the table. Avoid dialect in favor of ANSI/ISO Standard SQL. And you need to read and download the PDF for:
https://www.simple-talk.com/books/sql-books/119-sql-code-smells/
>> I need to select from a dynamic column name and save the result in a variable, but seem to be having trouble with the values being fed to sp_executesql <<
This is so very, very wrong! A column is an attribute of an entity. The idea that you are so screwed up that you have no idea if you want
the shoe size, the phone number or something else at run time of this entity.
In Software Engineering we have a principle called cohesion that says a model should do one and only one task, have one and only one entry point, and one and only one exit point.
Hey, on a scale from 1 to 10, what color is your favorite letter of the alphabet? Yes, your mindset is that level of sillyity and absurdity.
Do you know that SQL is a declarative language? This family of languages does not use local variables!
Now think about “month_val” and what it means. A month is a temporal unit of measurement, so this is as silly as saying “liter_val” in your code. Why did you use “sp_” on a procedure? It has special meaning in T-SQL.
Think about how silly this is:
SET @month_val = 'Month' + CAST(@month_nbr AS VARCHAR(2));
We do not do display formatting in a query. This is a violation of at the tiered architecture principle. We have a presentation layer. But more than that, the INTERVAL temporal data type is a {year-month} and never just a month. This is fundamental.
We need to see the DDL so we can re-write this mess. Want to fix it or not?
--CELKO-- Books in Celko Series for Morgan-Kaufmann Publishing: Analytics and OLAP in SQL / Data and Databases: Concepts in Practice Data / Measurements and Standards in SQL SQL for Smarties / SQL Programming Style / SQL Puzzles and Answers / Thinking
in Sets / Trees and Hierarchies in SQL

Data error (invalid data type 17) in a Remote Function Call

Hi,
I am passing 2 select-option tables to RFC.
Tables have structures -
   Table1 SIGN(C1)
               OPTION(C2)
               HIGH(C6)
               LOW(C6)
   Table2 SIGN(C1)
               OPTION(C2)
               HIGH(C20)
               LOW(C20)
At the destination side, I have created two table types which have same structure.
But when I call the RFC , program terminates with error - "Data error (invalid data type 17) in a Remote Function Call"
Not able to understand the reason for this error. Please help.
Thanks,
Sujeet

Hi,
check out this example
[LINK|http://abap.googlar.eu/viewtopic.php?f=5&t=28]
You have several ranges that you can use like RANGE_AUF.
Function example:
FUNCTION zexemple.
*"*"Interface local:
*" IMPORTING
*"     REFERENCE(R_HORA) TYPE FLAG
*"     REFERENCE(R_DIA_1) TYPE FLAG
*"     REFERENCE(P_IDOC) TYPE FLAG
*" EXPORTING
*"     REFERENCE(MSG) TYPE CHAR255
*" TABLES
*"      T_OIFSPBL STRUCTURE OIFSPBL
*"      SL_PBLNR STRUCTURE RANGE_PBLNR
*"      SL_MATNR STRUCTURE RANGE_MATNR
*"      SL_HORA STRUCTURE RANGE_UZEIT
*"      T_ERROS STRUCTURE ZARSTRING
ENDFUNCTION.
Report:
SELECT-OPTIONS: sl_pblnr FOR oirbpblb-pblnr,
                              sl_matnr FOR a361-matnr.
~
Final question:
You are passing the values using TABLES and not IMPORTING right?

Issue with xsd Data type mapping for collection of user defined data type

Hi,
I am facing a issue with wsdl for xsd mapping for collection of user defined data type.
Here is the code snippet.
sample.java
@WebMethod
public QueryPageOutput AccountQue(QueryPageInput qpInput)
public class QueryPageInput implements Serializable, Cloneable
protected Account_IO fMessage = null;
public class QueryPageOutput implements Serializable, Cloneable
protected Account_IO fMessage = null;
public class Account_IO implements Serializable, Cloneable {
protected ArrayList <AccountIC> fintObjInst = null;
public ArrayList<AccountIC>getfintObjInst()
return (ArrayList<AccountIC>)fintObjInst.clone();
public void setfintObjInst(AccountIC val)
fintObjInst = new ArrayList<AccountIC>();
fintObjInst.add(val);
Public class AccountIC
protected String Name;
protected String Desc;
public String getName()
return Name;
public void setName(String name)
Name = name;
For the sample.java code, the wsdl generated is as below:
<?xml version="1.0" encoding="UTF-8" ?>
<wsdl:definitions
name="SimpleService"
targetNamespace="http://example.org"
xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
xmlns:tns="http://example.org"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/"
xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/"
>
<wsdl:types>
<xs:schema version="1.0" targetNamespace="http://examples.org" xmlns:ns1="http://example.org/types"
xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:import namespace="http://example.org/types"/>
<xs:element name="AccountWSService" type="ns1:accountEMRIO"/>
</xs:schema>
<xs:schema version="1.0" targetNamespace="http://example.org/types" xmlns:ns1="http://examples.org"
xmlns:tns="http://example.org/types" xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:import namespace="http://examples.org"/>
<xs:complexType name="queryPageOutput">
<xs:sequence>
<xs:element name="fSiebelMessage" type="tns:accountEMRIO" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="accountEMRIO">
<xs:sequence>
<xs:element name="fIntObjectFormat" type="xs:string" minOccurs="0"/>
<xs:element name="fMessageType" type="xs:string" minOccurs="0"/>
<xs:element name="fMessageId" type="xs:string" minOccurs="0"/>
<xs:element name="fIntObjectName" type="xs:string" minOccurs="0"/>
<xs:element name="fOutputIntObjectName" type="xs:string" minOccurs="0"/>
<xs:element name="fintObjInst" type="xs:anyType" minOccurs="0" maxOccurs="unbounded"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="queryPageInput">
<xs:sequence>
<xs:element name="fPageSize" type="xs:string" minOccurs="0"/>
<xs:element name="fSiebelMessage" type="tns:accountEMRIO" minOccurs="0"/>
<xs:element name="fStartRowNum" type="xs:string" minOccurs="0"/>
<xs:element name="fViewMode" type="xs:string" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:schema>
<schema xmlns="http://www.w3.org/2001/XMLSchema" targetNamespace="http://example.org"
xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:tns="http://example.org" xmlns:ns1="http://example.org/types">
<import namespace="http://example.org/types"/>
<xsd:complexType name="AccountQue">
<xsd:sequence>
<xsd:element name="arg0" type="ns1:queryPageInput"/>
</xsd:sequence>
</xsd:complexType>
<xsd:element name="AccountQue" type="tns:AccountQue"/>
<xsd:complexType name="AccountQueResponse">
<xsd:sequence>
<xsd:element name="return" type="ns1:queryPageOutput"/>
</xsd:sequence>
</xsd:complexType>
<xsd:element name="AccountQueResponse" type="tns:AccountQueResponse"/>
</schema>
</wsdl:types>
<wsdl:message name="AccountQueInput">
<wsdl:part name="parameters" element="tns:AccountQue"/>
</wsdl:message>
<wsdl:message name="AccountQueOutput">
<wsdl:part name="parameters" element="tns:AccountQueResponse"/>
</wsdl:message>
<wsdl:portType name="SimpleService">
<wsdl:operation name="AccountQue">
<wsdl:input message="tns:AccountQueInput" xmlns:ns1="http://www.w3.org/2006/05/addressing/wsdl"
ns1:Action=""/>
<wsdl:output message="tns:AccountQueOutput" xmlns:ns1="http://www.w3.org/2006/05/addressing/wsdl"
ns1:Action=""/>
</wsdl:operation>
</wsdl:portType>
<wsdl:binding name="SimpleServiceSoapHttp" type="tns:SimpleService">
<soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
<wsdl:operation name="AccountQue">
<soap:operation soapAction=""/>
<wsdl:input>
<soap:body use="literal"/>
</wsdl:input>
<wsdl:output>
<soap:body use="literal"/>
</wsdl:output>
</wsdl:operation>
</wsdl:binding>
<wsdl:service name="SimpleService">
<wsdl:port name="SimpleServicePort" binding="tns:SimpleServiceSoapHttp">
<soap:address location="http://localhost:7101/WS-Project1-context-root/SimpleServicePort"/>
</wsdl:port>
</wsdl:service>
</wsdl:definitions>
In the above wsdl the collection of fintObjInst if of type xs:anytype. From the wsdl, I do not see the xsd mapping for AccountIC which includes Name and Desc. Due to which, when invoking the web service from a different client like c#(by creating proxy business service), I am unable to set the parameters for AccountIC. I am using JAX-WS stack and WLS 10.3. I have already looked at blog http://weblogs.java.net/blog/kohlert/archive/2006/10/jaxws_and_type.html but unable to solve this issue. However, at run time using a tool like SoapUI, when this wsdl is imported, I am able to see all the params related to AccountIC class.
Can some one help me with this.
Thanks,
Sudha.

Did you try adding the the XmlSeeAlso annotation to the webservice
@XmlSeeAlso({<package.name>.AccountIC.class})
This will add the schema for the data type (AccountIC) to the WSDL.
Hope this helps.
-Ajay

Crystal Data Conversion Issue (Error converting data type varchar to datetime)

Hi,
I can run stored procedure without error in SQL Server using my personal credentials as well as database credentials.
I can also run Crystal Report after connecting to Stored procedure without error on my desktop using my personal credentials as well as database credentials.
But when I upload the crystal report in BOBJDEV and when I run using database credentials report fails saying that "Error in File ~tmp1d1480b8e70fd90.rpt: Unable to connect: incorrect log on parameters. Details: [Database Vendor Code: 18456 ]" but I can run the crystal report successfully on BOBJDEV using my personal credentials.
I googled (Data Conversion Error Message) about this issue & lot of people asked to do "Verify Database" in Crystal Report. So I did that, but when I do it I am getting a error message like this:
Error converting data type varchar to datetime.
Where do you think the error might be occurring? Did anyone faced this kind of issue before? If so, how to resolve it?
(FYI, I am using Crystal Reports 2008, & for stored procedure I have used SSMS 2012 )
Please help me with this issue.
Thanks & Regards.
Naveen.

hello Naveen,
since the report works fine in the cr designer / desktop, we need to figure out where you should post this question.
by bobjdev do you mean businessobjects enterprise or crystal reports server? if so please post this question to the bi platform space.
-jamie

CF9, no hotfix, VendorErrorCode 8114, cfprocresult error converting data type

Hello, everyone.
I've got an issue that really has me scratching my head. Not sure where the issue lies, but I'll explain as best I can.
Basically, I _think_ I'm being told that one of the fields in the recordset is not being converted.
On one page, I make the following CFINVOKE:
<cfinvoke component="components.header" method="content_single" returnvariable="resultset"
 dbdsn="#request.db_dsn#" dbusr="#request.db_username#" dbpwd="#request.db_password#">
 <cfinvokeargument name="table" value="#url.table#">
 <cfif isDefined("url.thisNav") AND len(trim(url.thisNav)) gt 0><cfinvokeargument name="pt" value="#trim(url.thisNav)#"></cfif>
 <cfif isDefined("url.id") AND val(url.id) gt 0><cfinvokeargument name="id" value="#val(url.id)#"></cfif>
 <cfif isDefined("url.section") AND len(trim(url.section)) gt 0><cfinvokeargument name="section" value="#trim(url.section)#"></cfif>
</cfinvoke>
Within a CFCOMPONENT in header.cfc, I have the following:
<cffunction name="content_single" access="public">
 <cfargument name="dbdsn" required="yes">
 <cfargument name="dbusr" required="yes">
 <cfargument name="dbpwd" required="yes">
 <cfargument name="pt" required="no">
 <cfargument name="id" required="no">
 <cfargument name="section" required="no">
 <cfargument name="table" required="yes">
 <cfstoredproc procedure="SRT_sp_#lcase(url.table)#_contents_single" datasource="#dbdsn#"
 username="#dbusr#" password="#dbpwd#"
 result="query_result">
 <cfprocparam type="In" cfsqltype="CF_SQL_VARCHAR" variable="@table" value="#lcase(table)#" maxlength="30">
<cfif isDefined("pt") AND len(trim(pt)) gt 0><cfprocparam type="In" cfsqltype="CF_SQL_VARCHAR" variable="@pt" value="#ucase(pt)#" maxlength="12" null="no"></cfif>
<cfif isDefined("id") AND val(id) gt 0><cfprocparam type="In" cfsqltype="CF_SQL_INTEGER" variable="@id" value="#val(id)#" maxlength="10" null="no"></cfif>
<cfif isDefined("section") AND len(trim(section)) gt 0><cfprocparam type="In" cfsqltype="CF_SQL_VARCHAR" variable="@section" value="#trim(replace(lcase(section),'_',' ','all'))#" maxlength="20" null="no"></cfif>
 <cfprocresult name="returned_result">
 </cfstoredproc>
 <cfreturn returned_result>
</cffunction>
Instead of the results I expect, I get the following error:
Error Executing Database Query.
[Macromedia][SQLServer JDBC Driver][SQLServer]Error converting data type varchar to int.
The error occurred in E:\xxxxxxxx\xxxxxxx\xxxx\components\header.cfc: line 17
Called from E:\xxxxxxxx\xxxxxxx\xxxx\content_view.cfm: line 24
Called from E:\xxxxxxxx\xxxxxxx\xxxx\components\header.cfc: line 17
Called from E:\xxxxxxxx\xxxxxxx\xxxx\content_view.cfm: line 24
15 : <cfif isDefined("id") AND val(id) gt 0><cfprocparam type="In" cfsqltype="CF_SQL_INTEGER" variable="@id" value="#val(id)#" maxlength="10" null="no"></cfif>
16 : <cfif isDefined("section") AND len(trim(section)) gt 0><cfprocparam type="In" cfsqltype="CF_SQL_VARCHAR" variable="@section" value="#trim(replace(lcase(section),'_',' ','all'))#" maxlength="20" null="no"></cfif>
17 : <cfprocresult name="returned_result">
18 : </cfstoredproc>
19 : <cfreturn returned_result>

DBVARNAME is obsolete: don't use it. You must pass-in the parameters positionally, not by name. And, accordingly, you need to pass all of them in (with null values, if necessary).
http://help.adobe.com/en_US/ColdFusion/9.0/CFMLRef/WSc3ff6d0ea77859461172e0811cbec22c24-7d 52.html:
{quote}
Changed the dbvarname attribute behavior: it is now ignored for all drivers
{quote}
Adam

Error converting data type nvarchar to numeric 'witholding tax' (OWHT)

Hi Guys.
After I have upgraded my clients 2007 PL 30 database to 8.81 PL05, and running a repair to fix inconsistincies, I am receiveing some error when opening any sales documents.
It takes place when I open a sales document, or browse previous docs. When browsing previous docs, it onlly happens on some of them.
I also receive a different error when viewing sales orders: Error converting data type nvarchar to numeric (CRD2).
Any ideas how to fix it?
It does not limit me from processing and using the rest of the functionality. All calculations with queries in the docs are still working.
Thanks.

Hi,
Please check Note No. : 1402855 and see if the same applied to the issue mentioned by you.
Kind Regards,
Jitin
SAP Business One Forum Team

How to set a default date for a custom field of Date type in project server 2010.

hi,
can somebody help me.
How Can i set the default date for a custom field of date type in project server 2010 ?

Dear Rohan,
You can set default value to custom field thru Lookup table. Assign lookup table to custom field and set default value to some lookup value (Note: check the “Choose a value to use as a default when adding new item” checkbox).
Regards,
Avinash kumar | Blog:http://avigr8.wordpress.com | If you found this post helpful, please “Vote as Helpful”. If it answered your question, please “Mark as Answer”.

BDC PROGRAM FOR F-02 ERROR

Hi ,
i have written a bdc program for f-02 .here we have 2 posting keys 31 and 40 .when i recored in shdb i can see when i use 31 posting key then i get 302 screen and when i use 40 posting key then i get 300 screen.But the problem is in 302 screen we have new posting keys and new account numbers .how to update these . here is my code . my file is not getting updated when i get screen 302 .Any advice?
REPORT zfip0009 NO STANDARD PAGE HEADING.
TABLES ska1.
DATA: BEGIN OF bdcdata OCCURS 0.
 INCLUDE STRUCTURE bdcdata.
DATA: END OF bdcdata.
DATA w_date(10) TYPE c.
DATA w_first TYPE c.
DATA w_second TYPE c.
data from flat file
DATA: BEGIN OF t_data OCCURS 0,
 bukrs LIKE bkpf-bukrs, "company code
 newbs LIKE rf05a-newbs, "Posting Key
 newko LIKE rf05a-newko, "New account number(SAP)
 wrbtr(13) TYPE c, "amount
 dmbtr(13) TYPE c, "sterling local amount "+MW1
 mwskz LIKE bseg-mwskz, "Tax code
 sgtxt LIKE bseg-sgtxt, "item description
 kostl LIKE cobl-kostl, "Cost centre
 ps_posid LIKE cobl-ps_posid, "WBS number
 aufnr LIKE cobl-aufnr, "Internal order
 END OF t_data.
 SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_file LIKE rlgrap-filename
 DEFAULT 'C:\temp\XSL.txt'.
SELECTION-SCREEN SKIP.
PARAMETERS: p_sess(12) DEFAULT 'GLPOSTING'.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: p_bldat LIKE bkpf-bldat,
 p_budat LIKE bkpf-budat,
 p_blart LIKE bkpf-blart,
 p_monat LIKE bkpf-monat,
 p_bukrs LIKE bkpf-bukrs,
 p_bktxt LIKE bkpf-bktxt,
 p_xblnr LIKE bkpf-xblnr,
 p_waers LIKE bkpf-waers.
SELECTION-SCREEN END OF BLOCK b2.
*SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
*PARAMETERS p_ktopl LIKE ska1-ktopl.
*SELECTION-SCREEN END OF BLOCK b3.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'WS_FILENAME_GET'
 EXPORTING
 def_filename = p_file
 DEF_PATH = ' '
 mask = ',.,..'
 MODE = ' '
 TITLE = ' '
 IMPORTING
 filename = p_file
 RC =
 EXCEPTIONS
 inv_winsys = 1
 no_batch = 2
 selection_cancel = 3
 selection_error = 4
 OTHERS = 5.
 START OF SELECTION
START-OF-SELECTION.
Get all of the information held on the spreadsheets.
CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
 filename = p_file
 filetype = 'DAT'
 TABLES
 data_tab = t_data
 EXCEPTIONS
 OTHERS = 1.
IF sy-subrc <> 0.
 WRITE :/ 'Failed to Open Input file', p_file.
 EXIT.
ENDIF.
REFRESH bdcdata.
CALL FUNCTION 'BDC_OPEN_GROUP'
 EXPORTING
 client = sy-mandt
 group = p_sess
 user = sy-uname
 keep = 'X'.
PERFORM load_bdcdata.
CALL FUNCTION 'BDC_CLOSE_GROUP'.
WRITE: /
'Batch input session', p_sess, 'created: process session via SM35'.
END-OF-SELECTION.
*& Form LOAD_BDCDATA
 Load the BDCDATA fields depending
FORM load_bdcdata.
CLEAR: w_first, w_second.
CLEAR bdcdata.
LOOP AT t_data.
 IF sy-tabix = 1.
 PERFORM bdc_dynpro USING 'SAPMF05A' '0100'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RF05A-NEWKO'.
 PERFORM format_date USING p_bldat.
 PERFORM bdc_field USING 'BKPF-BLDAT'
 w_date.
 PERFORM bdc_field USING 'BKPF-BLART'
 p_blart.
 PERFORM bdc_field USING 'BKPF-BUKRS'
 t_data-bukrs.
 PERFORM format_date USING p_budat.
 PERFORM bdc_field USING 'BKPF-BUDAT'
 w_date.
 PERFORM bdc_field USING 'BKPF-WAERS'
 p_waers.
 PERFORM bdc_field USING 'BKPF-MONAT'
 PERFORM bdc_field USING 'BKPF-BKTXT'
 p_bktxt.
 PERFORM bdc_field USING 'BKPF-XBLNR'
 p_xblnr.
 PERFORM bdc_field USING 'RF05A-NEWBS'
 t_data-newbs.
 PERFORM bdc_field USING 'RF05A-NEWKO'
 t_data-newko.
 ELSE.
 PERFORM bdc_dynpro USING 'SAPMF05A' '0300'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RF05A-NEWKO'.
 PERFORM bdc_field USING 'RF05A-NEWBS'
 t_data-newbs.
 PERFORM bdc_field USING 'RF05A-NEWKO'
 t_data-newko.
 PERFORM bdc_field USING 'RF05A-NEWBK'
 t_data-bukrs.
 PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.
 PERFORM bdc_field USING 'BDC_OKCODE' 'ENTE'.
 ENDIF.
 IF t_data-newbs = '31' .
 w_second = '1'.
 PERFORM bdc_dynpro USING 'SAPMF05A' '0302'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'BSEG-SGTXT'.
 PERFORM bdc_field USING 'BSEG-WRBTR'
 t_data-wrbtr.
 PERFORM bdc_field USING 'BSEG-SGTXT'
 t_data-sgtxt.
 PERFORM bdc_field USING 'RF05A-NEWBS'
 t_data-newbs.
 PERFORM bdc_field USING 'RF05A-NEWKO'
 t_data-newko.
 IF NOT t_data-kostl IS INITIAL.
 PERFORM bdc_field USING 'COBL-KOSTL'
 t_data-kostl.
 ELSEIF NOT t_data-ps_posid IS INITIAL.
 PERFORM bdc_field USING 'COBL-PS_POSID'
 t_data-ps_posid.
 ELSEIF NOT t_data-aufnr IS INITIAL.
 PERFORM bdc_field USING 'COBL-AUFNR'
 t_data-aufnr.
 ENDIF.
*...start of Amendment MW1
 IF p_waers ne 'GBP'.
 PERFORM bdc_field USING 'BSEG-DMBTR'
 t_data-dmbtr.
 ENDIF.
 ENDIF.
*...end of Amendment MW1 ENDIF.
 IF t_data-newbs = '40' .
 PERFORM bdc_dynpro USING 'SAPMF05A' '0300'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'BSEG-SGTXT'.
 PERFORM bdc_field USING 'BSEG-WRBTR'
 t_data-wrbtr.
 PERFORM bdc_field USING 'BSEG-SGTXT'
 t_data-sgtxt.
 PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.
 PERFORM bdc_field USING 'BDC_OKCODE' 'ENTE'.
 IF NOT t_data-kostl IS INITIAL.
 PERFORM bdc_field USING 'COBL-KOSTL'
 t_data-kostl.
 ELSEIF NOT t_data-ps_posid IS INITIAL.
 PERFORM bdc_field USING 'COBL-PS_POSID'
 t_data-ps_posid.
 ELSEIF NOT t_data-aufnr IS INITIAL.
 PERFORM bdc_field USING 'COBL-AUFNR'
 t_data-aufnr.
 ENDIF.
 PERFORM bdc_field USING 'BSEG-MWSKZ'
 t_data-mwskz.
*...start of Amendment MW1
 IF p_waers ne 'GBP'.
 PERFORM bdc_field USING 'BSEG-DMBTR'
 t_data-dmbtr.
 ENDIF.
*...end of Amendment MW1
 ENDIF.
 AT FIRST.
calculate the tax
 PERFORM bdc_field USING 'BKPF-XMWST' 'X'.
 ENDAT.
IF t_data-newbs = '40' .
 PERFORM bdc_field USING 'DKACB-FMORE'
 'X'.
 PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 'ENTE'.
 IF NOT t_data-kostl IS INITIAL.
 PERFORM bdc_field USING 'COBL-KOSTL'
 t_data-kostl.
 ELSEIF NOT t_data-ps_posid IS INITIAL.
 PERFORM bdc_field USING 'COBL-PS_POSID'
 t_data-ps_posid.
 ELSEIF NOT t_data-aufnr IS INITIAL.
 PERFORM bdc_field USING 'COBL-AUFNR'
 t_data-aufnr.
 ENDIF.
 ENDIF.
ENDLOOP.
IF w_second = '1'.
 PERFORM bdc_dynpro USING 'SAPMF05A' '0302'.
ELSE.
 PERFORM bdc_dynpro USING 'SAPMF05A' '0300'.
ENDIF.
PERFORM bdc_field USING 'BDC_OKCODE'
 'BU'.
PERFORM bdc_field USING 'BDC_CURSOR'
 'BSEG-WRBTR'.
PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.
PERFORM bdc_field USING 'BDC_OKCODE'
 'ENTE'.
CALL FUNCTION 'BDC_INSERT'
 EXPORTING
 tcode = 'F-02'
 TABLES
 dynprotab = bdcdata.
REFRESH bdcdata.
CLEAR bdcdata.
ENDFORM. " LOAD_BDCDATA
Start of screen
FORM bdc_dynpro USING program dynpro.
CLEAR bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
ENDFORM. "BDC_DYNPRO
 insert field
FORM bdc_field USING fnam fval.
CLEAR bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
APPEND bdcdata.
ENDFORM. "BDC_FIELD
*& Form format_date
 text
FORM format_date USING p_date.
CLEAR w_date.
w_date(2) = p_date+6(2).
w_date+2(1) = '.'.
w_date3(2) = p_date4(2).
w_date+5(1) = '.'.
w_date+6(4) = p_date(4).
ENDFORM. " format_date

IF item-newbs = '09'
 OR item-newbs = '19'
 OR item-newbs = '29'
 OR item-newbs = '39'.
 IF item-newum = 'A' OR
 item-newum = 'V' OR
 item-newum = '1' OR
 item-newum = '2' OR
 item-newum = '3' OR
 item-newum = '5' OR
 item-newum = '6' OR
 item-newum = 'B' .
 PERFORM bdc_dynpro USING 'SAPMF05A' '0304'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RF05A-NEWUM'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'BSEG-WRBTR'
 item-wrbtr.
 PERFORM bdc_field USING 'BSEG-gsber'
 item-gsber.
 PERFORM bdc_field USING 'BSEG-PRCTR'
 item-prctr.
 PERFORM bdc_field USING 'BSEG-ZFBDT'
 item-zfbdt1.
 PERFORM bdc_field USING 'BSEG-ZUONR'
 item-zuonr.
 PERFORM bdc_field USING 'BSEG-SGTXT'
 item-sgtxt.
 IF idx1 = '002' .
 EXIT.
 ENDIF.
 idx = idx + 1.
 READ TABLE item INDEX idx .
 PERFORM bdc_field USING 'RF05A-NEWBS'
 item-newbs.
 PERFORM bdc_field USING 'RF05A-NEWKO'
 item-newko.
 PERFORM bdc_field USING 'RF05A-NEWUM'
 item-newum.
 PERFORM bdc_field USING 'RF05A-NEWBW'
 item-newbw.
 CONTINUE.
 ENDIF.
 ENDIF.
 IF item-newbs = '09'
 OR item-newbs = '19'
 OR item-newbs = '29'
 OR item-newbs = '39' .
 IF item-newum = 'H'
 OR item-newum = '4'
 OR item-newum = '6'
 OR item-newum = '7'
 OR item-newum = '8'
 OR item-newum = '9'
 OR item-newum = 'C'
 OR item-newum = 'D'
 OR item-newum = 'E'
 OR item-newum = 'I'
 OR item-newum = 'K'
 OR item-newum = 'L'
 OR item-newum = 'M'
 OR item-newum = 'O'
 OR item-newum = 'Q'
 OR item-newum = 'R'
 OR item-newum = 'T'
 OR item-newum = 'U'.
 PERFORM bdc_dynpro USING 'SAPMF05A' '0303'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RF05A-NEWKO'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'BSEG-WRBTR'
 item-wrbtr.
 PERFORM bdc_field USING 'BSEG-GSBER'
 item-gsber.
 PERFORM bdc_field USING 'BSEG-ZFBDT'
 item-zfbdt1.
 PERFORM bdc_field USING 'BSEG-ZUONR'
 item-zuonr.
 PERFORM bdc_field USING 'BSEG-SGTXT'
 item-sgtxt.
 IF idx1 = '002' .
 EXIT.
 ENDIF.
 idx = idx + 1 .
 READ TABLE item INDEX idx .
 PERFORM bdc_field USING 'RF05A-NEWBS'
 item-newbs.
 PERFORM bdc_field USING 'RF05A-NEWKO'
 item-newko.
 PERFORM bdc_field USING 'RF05A-NEWUM'
 item-newum.
 PERFORM bdc_field USING 'RF05A-NEWBW'
 item-newbw.
 CONTINUE.
 ENDIF.
 ENDIF.
 IF item-newbs = '29' OR item-newbs = '39'.
 IF item-newum = '7'.
 PERFORM bdc_dynpro USING 'SAPMF05A' '0303'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'BSEG-ZFBDT'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=ZK'.
 PERFORM bdc_field USING 'BSEG-WRBTR'
 item-wrbtr.
 PERFORM bdc_field USING 'BSEG-GSBER'
 item-gsber.
 PERFORM bdc_field USING 'BSEG-ZFBDT'
 item-zfbdt1.
 PERFORM bdc_field USING 'BSEG-ZUONR'
 item-zuonr.
 PERFORM bdc_field USING 'BSEG-SGTXT'
 item-sgtxt.
 PERFORM bdc_dynpro USING 'SAPMF05A' '0332'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RF05A-NEWKO'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'BSEG-BEWAR'
 item-ttype.
 IF idx1 = '002' .
 EXIT.
 ENDIF.
 idx = idx + 1 .
 READ TABLE item INDEX idx .
 PERFORM bdc_field USING 'RF05A-NEWBS'
 item-newbs.
 PERFORM bdc_field USING 'RF05A-NEWKO'
 item-newko.
 PERFORM bdc_field USING 'RF05A-NEWUM'
 item-newum.
 PERFORM bdc_field USING 'RF05A-NEWBW'
 item-newbw.
 CONTINUE.
 ENDIF.
 ENDIF.
 IF item-newbs = '01' OR item-newbs = '11'
 OR item-newbs = '05' OR item-newbs = '15'.
 PERFORM bdc_dynpro USING 'SAPMF05A' '0301'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RF05A-NEWKO'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'BSEG-WRBTR'
 item-wrbtr.
 PERFORM bdc_field USING 'BSEG-GSBER'
 item-gsber.
 PERFORM bdc_field USING 'BSEG-ZTERM'
 item-zterm.
 PERFORM bdc_field USING 'BSEG-ZFBDT'
 item-zfbdt.
 PERFORM bdc_field USING 'BSEG-ZUONR'
 item-zuonr.
 PERFORM bdc_field USING 'BSEG-SGTXT'
 item-sgtxt.
 IF idx1 = '002' .
 EXIT.
 ENDIF.
 idx = idx + 1 .
 READ TABLE item INDEX idx .
 PERFORM bdc_field USING 'RF05A-NEWBS'
 item-newbs.
 PERFORM bdc_field USING 'RF05A-NEWKO'
 item-newko.
 PERFORM bdc_field USING 'RF05A-NEWUM'
 item-newum.
 PERFORM bdc_field USING 'RF05A-NEWBW'
 item-newbw.
 CONTINUE.
 ENDIF.
 IF item-newbs = '21' OR item-newbs = '31'
 OR item-newbs = '25' OR item-newbs = '35'.
 PERFORM bdc_dynpro USING 'SAPMF05A' '0302'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RF05A-NEWKO'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'BSEG-WRBTR'
 item-wrbtr.
 PERFORM bdc_field USING 'BSEG-SECCO'
 ''. "'1000'.
 PERFORM bdc_field USING 'BSEG-GSBER'
 item-gsber.
 PERFORM bdc_field USING 'BSEG-ZTERM'
 item-zterm.
 PERFORM bdc_field USING 'BSEG-ZFBDT'
 item-zfbdt.
 PERFORM bdc_field USING 'BSEG-ZUONR'
 item-zuonr.
 PERFORM bdc_field USING 'BSEG-SGTXT'
 item-sgtxt.
 IF idx1 = '002' .
 EXIT.
 ENDIF.
 idx = idx + 1.
 READ TABLE item INDEX idx.
 PERFORM bdc_field USING 'RF05A-NEWBS'
 item-newbs.
 PERFORM bdc_field USING 'RF05A-NEWKO'
 item-newko.
 PERFORM bdc_field USING 'RF05A-NEWUM'
 item-newum.
 PERFORM bdc_field USING 'RF05A-NEWBW'
 item-newbw.
 CONTINUE.
 ENDIF.
 IF item-newbs = '70' OR item-newbs = '75'.
 PERFORM bdc_dynpro USING 'SAPMF05A' '0305'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'BSEG-WRBTR'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'BSEG-WRBTR'
 item-wrbtr.
 PERFORM bdc_field USING 'DKACB-FMORE'
 'X'.
 PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'COBL-PRCTR'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=ENTE'.
 PERFORM bdc_field USING 'COBL-GSBER'
 item-gsber.
 PERFORM bdc_field USING 'COBL-KOSTL'
 item-kostl.
 PERFORM bdc_field USING 'COBL-PRCTR'
 item-prctr.
 PERFORM bdc_dynpro USING 'SAPMF05A' '0305'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RF05A-NEWBW'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'BSEG-WRBTR'
 item-wrbtr.
PERFORM bdc_field USING 'BSEG-BZDAT'
 '01.04.2005'.
 IF idx1 = '002' .
 EXIT.
 ENDIF.
 idx = idx + 1 .
 READ TABLE item INDEX idx .
 PERFORM bdc_field USING 'RF05A-NEWBS'
 item-newbs.
 PERFORM bdc_field USING 'RF05A-NEWKO'
 item-newko.
 PERFORM bdc_field USING 'RF05A-NEWUM'
 item-newum.
 PERFORM bdc_field USING 'RF05A-NEWBW'
 item-newbw.
 CONTINUE.
 ENDIF.
 ENDLOOP.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=BU'.
 PERFORM bdc_transaction USING 'F-02'.
 DELETE item INDEX 1.
 DELETE item INDEX 1.
 ix = ix + 2 .
ENDDO.
PERFORM close_group.

Standard IDOCS, Programs for posting FI & bank related data.

Hi,
(1)Are there any idocs available for posting FI documents, Vendor master?
(2)Are there any outbound idocs, programs for sending data to banks. EG:positive pay etc?
Kindly reply to these questions. Correct answer will be awarded points.
Regards,
Akshaya.

Hi,
There is message type BANK_CREATE for posting the FI related Bank details. Using the change pointers you can trigger the idocs for posting the bank related data.
Regards,
Uday

Driver program for adobe form error no job started

Hi
Iwhen I execute driver program for adobe form the program generates error no job started.
the print dialog box appears but when I pressed print preview button it generates this error no job started.
I don't know why it's happening please help.

Hi
Iwhen I execute driver program for adobe form the program generates error no job started.
the print dialog box appears but when I pressed print preview button it generates this error no job started.
I don't know why it's happening please help.

Short Dump Error While Data load

Hi Experts,
Data load to an ODS in production server has been failed because of Short dump error. The error message shows " OBJECTS_OBJREF_NOT_ASSIGNED ".
Request you to please help me out with a solution ..
Regards,
Vijay

Hi Vijay,
follow the steps below (May Help you)
Goto Monitor screen>Status Tab> using the wizard or the menu path >Environment -> Short dump> In the warehouse
Select the Error and double click
Analyse the error from the message.
1.-->Go to Monitor
-->Transactional RFC
-->In the Warehouse
-->Execute
-->EDIT
-->Execute LUW
Refresh the Transactional RFC screen and go to the Data Target(s) which have failed and see the status of the Request-->Now it should be green.
2.In some cases the above process will not work (where the Bad requests still exists after the above procedure).
In that case we need to go to the Data Targets and need to delete the bad requests and do the update again
Regards,
BH

Include program for script dump error in data type

Similar Messages

Maybe you are looking for