How to successfully use PrintWriter inside JSP bean?

Hello
I encoutered the following problem. When I was implementing my Bean class, I tried to use PrintWriter as follows:
PrintWriter myOut = new PrintWriter("myfilename");
However, the consequence was that "Cannot resolve symbol where symbol is : constructor PrintWriter (java.lang.String)" I am simply thinking what I just write is no problem, isn't it? Can I have you help?
Help me do.
I want to know what had been wrong and also how I can succeed to make use of PrintWriter inside the bean class?
John Wen
26-August-06

I guess that you want to use the PrintWriter of Java 1.5 while you've Java 1.4 installed.
Check the Constructor summary at the JavaDoc of PrintWriter:
1.4: http://java.sun.com/j2se/1.4.2/docs/api/java/io/PrintWriter.html
1.5: http://java.sun.com/j2se/1.5.0/docs/api/java/io/PrintWriter.html

Similar Messages

How can i use JSTL inside custom tag attribute

Hi,
I have one button tag which displays the button with round corner. I will show the button like this:
<ep:button key="buttons.submit" name="submitBtn" styleClass="But"
          onClick='submitPage(''<c:out value='${buttonName}' />)' />
I am getting the problem with the above code. how can i use JSTL inside the custom tags.
Thanks in Advance,
LALITH

No. The details are given below:
I have included the follwing line in web.xml file:
<taglib>
    <taglib-uri>/tags/button</taglib-uri>
    <taglib-location>/WEB-INF/button.tld</taglib-location>
</taglib>button.tld file
<taglib>
     <tlibversion>1.0</tlibversion>
     <jspversion>2.0</jspversion>
     <shortname>button</shortname>
     <tag>
          <name>button</name>
          <tagclass>com.ksi.ep.web.taglib.ButtonTag</tagclass>
          <bodycontent>empty</bodycontent>
          <attribute>
               <name>name</name>
               <required>true</required>
               <rtexprvalue>false</rtexprvalue>
          </attribute>
          <attribute>
               <name>key</name>
               <required>true</required>
               <rtexprvalue>true</rtexprvalue>
          </attribute>
          <attribute>
               <name>onClick</name>
               <required>true</required>
               <rtexprvalue>true</rtexprvalue>
          </attribute>
</taglib>ButtonTag.java :
public class ButtonTag extends TagSupport {
   private static final long serialVersionUID = 6837146537426981407L;
     * Initialise the logger for the class
    protected final transient Log log = LogFactory.getLog(ButtonTag.class);
     * holds the Value of the button tag
    protected String onClick = null;
     * holds message resources key
    protected String key = null;
     * The message resources for this package.
    protected static MessageResources messages =
                         MessageResources.getMessageResources
                                   ("ApplicationResources");
      * (non-Javadoc)
      * @see javax.servlet.jsp.tagext.TagSupport#doStartTag()
     public int doStartTag() throws JspException {
        StringBuffer label = new StringBuffer();
        HttpServletRequest request = (HttpServletRequest)pageContext.getRequest();
        try {
               log.debug("in doStartTag()");
               Locale locale = pageContext.getRequest().getLocale();
             if (locale == null) {
                 locale = Locale.getDefault();
             log.info("");
             label.append("<a border=\"0\" style=\"text-decoration:none;color:#FFFFFF\" href=\"JavaScript:");
             label.append(onClick);
             label.append("\" >");
               label.append("<table onClick=\"");
               label.append(onClick);
               label.append("\" ");
               if(onmouseout!=null && !"".equalsIgnoreCase(onmouseout))
                label.append(" onmouseout=\"");
                label.append(onmouseout);
                label.append("\" ");
               if(onmouseover!=null && !"".equalsIgnoreCase(onmouseover)){
                label.append(" onmouseover=\"");
                label.append(onmouseover);
                label.append("\" ");
               if(title!=null && !"".equalsIgnoreCase(title)){
                label.append(" title=\"");
                label.append(title);
                label.append("\" ");
               label.append("style=\"cursor:hand\" tabindex=\"1\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\" background=\"");
               label.append(request.getContextPath());
               label.append(System.getProperty("file.separator"));
               label.append("images");
               label.append(System.getProperty("file.separator"));
               label.append("background1.jpg\" > ");
             label.append("<tr><td width=\"10\"><img border=\"0\" src=\"");
             label.append(request.getContextPath());
               label.append(System.getProperty("file.separator"));
               label.append("images");
               label.append(System.getProperty("file.separator"));
             label.append("leftcorner.jpg\" ></td> ");
             label.append("<td valign=\"middle\" style=\"padding-bottom:2px\"><font color=\"#FFFFFF\" style=\"");
             label.append(styleClass);
             label.append("\">");
             label.append(messages.getMessage(key));
             label.append("</font></td>");
             label.append("<td width=\"10\" align=\"right\"><img src=\"");
             label.append(request.getContextPath());
               label.append(System.getProperty("file.separator"));
               label.append("images");
               label.append(System.getProperty("file.separator"));
             label.append("rightcorner.jpg\" border=\"0\" ></td>");
             label.append("</tr></table></a>");
             pageContext.getOut().print(label.toString());
          } catch (Exception e) {
               log.error("Exception occured while rendering the button", e);
               throw new JspException(e);
        return (SKIP_BODY);
     * Release all allocated resources.
    public void release() {
        this.name=null;
        this.key=null;
        this.onClick=null;
}In my JSP I have mentioned the taglib directive as
<%@ taglib uri="/tags/button" prefix="ep"%>and
<ep:button key="buttons.submit" name="submitBtn" styleClass="But"
     onClick='overwritePreApprovals('<c:out value='${transactionalDetails['inPrepList']}' />')' />Servlet.service() for servlet action threw exception
org.apache.jasper.JasperException: /pages/pms/coordinator/Dashboard.jsp(325,48) Unterminated <ep:button tag
Thanks,
LALITH

How can I use Method in the bean

Hi every one
please I made a method in for example employees entity "EmployeesImpl"
the name of method getmax() it return number
how can I use it at the bean
for eaxmple when I want to press button give me the value from this method
sorry Iam still beginner
thanks in advance

Thanks sir for your response
my version
oracle jdeveloper reales 1 (11,1,1,4,0)
I use business component
I make method
this metod wrote at enitity "EmployeesImpl"
public Number getMax() throws JboException
PreparedStatement stat=null;
ResultSet rs=null;
try {
String sql="select max(EMPLOYEE_ID)+1 from EMPLOYEES";
stat=getDBTransaction().createPreparedStatement(sql, 1);
rs=stat.executeQuery();
if (rs.next()) {
return new Number (rs.getInt(1));
} catch (Exception e) {
// TODO: Add catch code
//e.printStackTrace();
throw new JboException("error");
} finally {
try {
rs.close();
stat.close();
} catch (Exception e) {
// TODO: Add catch code
//e.printStackTrace();
// oracle.jbo.domain.Number
return new Number (1);
I made a jsf page
and I put button at the page
I want when press the button give me message contain the number which come from previous metod
thanks my dear

Do you know how i can use Ipad inside ATEX certified areas ( e.g. refinery plant) ? Do you know if exist somespecial arrangement ( cover, enclosure, ecc) for this ?

Do you know how i can use Ipad inside ATEX certified areas ( e.g. refinery plant) ? Do you know if exist somespecial arrangement ( cover, enclosure, ecc) for this ?

Hello
At least one cover manufactrer will try to propose an Atex (Ex 2) cover for ipad
http://dofero.com/Viz-iCARRY.html
i dont know if it is already on the market.
Another one is making IP68 and military Standard 810F-516.15 that seems to include some kind of ability to work in explosible atmosphere.
http://www.lifeproof.com/ipad#why-nuud
Here what I found. I'm also interested of further talk on this topic, workimg as Occupational Hygienist for Swiss Industries.
hope this post helps.
Best Regards
Vincent

How do you use one managed session bean from another?

Hello -
I am a complete newbie to JSF coming from Struts 1. My question is how do you use one managed bean from the method of another one? I think this would be a common senario. For example I put a bean in session scope when a user logs in and in a different method within a different bean I want to get some of this user's information. What is the correct way to retireve one bean from a method in another with session scope?
Also what would the code look like to retieve another bean from the method of a managed bean where the bean you want to retrieve has application scope?
Thank you in advance.

Sinplicity wrote:
Could you be a bit more specific? If a bean is configured in the faces config file then all of it's properties are managed, correct?Not necessarily.
What would the code look like to retireve the bean?You don't retrieve it, it has been injected.
Can I retrieve the whole bean or just a property of the bean. I would be really interested in seeing how this is done in code? And would really love a bit more information on what it means to be a managed property?Time to consult a JSF tutorial.

How to get current JNDI inside of bean?

Hello! I want to have two JNDIs for the one bean class. So there is no problem if I deploy the one bean twice in the same application with different JNDI. But at run time I want to know what JNDI's entry calls my bean. In this case how to get the current value of JNDI inside of instance of my bean?

Okay guys. I will explain the reason of this question,
may be then someone will be interested to this topic
and cold propose another idea how to arrange the
decision.
The question is about security. For example I have two
objects that realize two business warehouses. And I
want to use the one bean class for both objects of
course and also I want to have different permissions
with every of them. So my idea is to deploy two beans
contained the same class, into the one application jar
and assign different JNDIs to each bean.
That's is not a very smart idea. Why dont use EJB security features ?
Create two roles: warehouse1 and warehouse2. Pass authentication information from those EJB clients to container when you lookup a bean home interface. (That's the reason why you' r idea wouldnt work).
Now you can specify whis warehouse can call which EJB method. Also you can check it programmaticaly with isCallerInRole method.
best regards,
Maris Orbidans
SCJP SCWCD SCBCD
Then I could
set different permissions to every bean. Everything is
okay but also I don't want an explicit warehouse's ID
parameter for my bean class. Let it gets the ID of
warehouse as value of bean's JNDI. Only the problem I
don't know how to access to JNDI from the instance. I
supposed that I could get JNDI from current session
context, but there is no way to access the bound JNDI.

Newbie: How do i use a stateless session bean in a backing bean?

I have a stateless session bean with a function 'getVoterList()'; how do i instantiate the bean and use it in from my managed bean?
I dont want to use seam; coz the stateless serrion bean/EJB is written by another developer and we cant updat eit now to use seam..
any tutorials? walk thrus or sample code?
thanks
illi

I used a different method...
I used servicegen with only a.jar to create the ear.
I touch-ed my own application.xml to make it newer than the one already in the
newly created ear.
I used the ant <ear> task to add b.jar, c.jar, and application.xml to the ear.
Worked like a charm.
Mike
Bruce Stephens <[email protected]> wrote:
Hello,
See if Neal's answer here helps solve your problem using servicegen's
service element "IncludeEJBs" attribute:
http://newsgroups.bea.com/cgi-bin/dnewsweb?cmd=article&group=weblogic.developer.interest.webservices&item=2932&utag=
HTHs,
Bruce
kk wrote:
This is my situation.
I have an .ear file and in that i have several other .jar files whichare
inter-dependant, lets say
A.jar
B.jar
C.jar files
and i want to expose only A.jar as
webservice, how can i do that ?
Does WLS8.1 provided any way how to do that?
I Appreciate any suggestions and advices.
Thanks
kk

How To get getServletContext() object inside JSP from Eclipse IDE

Dear friends,
I can access methods in getServletContext class from Netbeans in my JSP web project using the following steps.
String path=getServletContext().getRealPath("\mypath");
. But In Eclipse when i try to build,it says that "can not find method -getServletContext()".
How to get this object in my JSP Scriptlet From Eclipse IDE? Plz help me?

use Expression Language instead.
I would.
http://java.sun.com/j2ee/1.4/docs/tutorial/doc/JSPIntro7.html
regards,i

How can i use $$context inside my code

hi
my client need to get information from the server and i want it to use the ip address. how can i get it?
thanks

WRiting the JSP is as simple as adding the hostname into a HTML file and calling it JSP. The only tricky bit is setting up a JSP server.
There are millions of examples of JSP pages on the web. This page is a JSP page.
If you find another way of determining which server a JNLP install came from, let me know (no one I know has found another way)

Urgent!!!!!How can i use javamail in jsp without using javabeans

hello friend
I m making a forum in which i want to send response to the user through mail I m not using javabean Can anyone help me.How to use javamail in jsp

http://java.sun.com/developer/onlineTraining/JavaMail/exercises.html

How to avoid using bapi_commit inside a loop .

Hi ,
Need a help.
This is a program for uploading business partners in CRM.
The basic logic of the program is as below:
-         There are two types of records in the upload file new/ old ones to be updated
-         A new record is identified by checking if a BP exits based on the cust id
-         In case it is a new record certain BAPIs are called to create a new BP, else the address details, identification etc are updated for the existing one.
-         SQL analysis of the program showed that the maximum amount of time is taken in INSERT/UPDTAE/COMMIT processes.
When we raised the issue with SAP , they stated that the problem occurs due to the very high no of BAPI_COMMIT calls which is within the loop.
The standard BAPI available allows passing of one record at a time. Hence passing multiple records at a time and a single commit did not seem feasible.
Also while updating since there are different BAPIs for address and identification it is being called in a sequence and commit issued after each. If commit is excluded it gives a locking error since the first BAPI tends to lock the record and does not allow subsequent BAPI call
kindly suggest me with a solution of using a less commit for updating series of records.
The code is as follows:
*& Report ZBP_BDCP_ACCTRNSDATA_UPLOAD                                 *
*& Created By : Radhu Shankar.G                                        *
*& Purpose    : Program to Create Investors with the transaction       *
*&              data received from the De-dupe Software.               *
*& Note       : Can be Executed or scheduled only in Background        *
REPORT zbp_bdcp_acctrnsdata_upload LINE-SIZE 255 LINE-COUNT 65 NO STANDARD PAGE HEADING
                                                                   MESSAGE-ID zcrm_upload.
TABLES : bbp_iu01.
Selection Screen
SELECTION-SCREEN: BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
PARAMETERS: p_file TYPE string LOWER CASE OBLIGATORY.
SELECTION-SCREEN: END OF BLOCK blk1.
SELECTION-SCREEN: BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002.
SELECT-OPTIONS:s_email FOR bbp_iu01-email NO INTERVALS.
SELECTION-SCREEN: END OF BLOCK blk2.
SELECTION-SCREEN: BEGIN OF BLOCK blk3 WITH FRAME TITLE text-003.
SELECTION-SCREEN COMMENT /1(72) text-004.
SELECTION-SCREEN COMMENT /1(72) text-006.
SELECTION-SCREEN COMMENT /1(72) text-007.
SELECTION-SCREEN COMMENT /1(72) text-005.
SELECTION-SCREEN: END OF BLOCK blk3.
Data Declaration
Main Upload structure and internal table
DATA : BEGIN OF i_main,
         cust_id        TYPE bu_bpext,              " Customer ID
         inv_type_code TYPE crmt_mktpfchr_atvalue, " Investor Type Code
         insti_tag      TYPE crmt_mktpfchr_atvalue, " Retail/Instituitional Tag
         name           TYPE char120,               " Name
         address1       TYPE ad_strspp1,                    " Address1
         address2       TYPE ad_strspp2,                    " Address2
         address3       TYPE ad_street,                     " Address3
         city           TYPE ad_city1,              " City
         state          TYPE t005u-bezei,           " Region/State
         country        TYPE landx50,               " Country
         pin_code       TYPE ad_pstcd1,             " Pin Code
         off_phone1     TYPE ad_tlnmbr,             " Office Telephone Number1
         off_phone2     TYPE ad_tlnmbr,             " Office Telephone Number2
         res_phone1     TYPE ad_tlnmbr,             " Residence Telephone Number1
         res_phone2     TYPE ad_tlnmbr,             " Residence Telephone Number1
         mobile         TYPE ad_mbnmbr1,            " Mobile Number
         email          TYPE ad_smtpadr,                    " Email ID
         birth_date     TYPE bu_birthdt,            " Birth Date
         pan_no         TYPE bu_id_number,          " Pan Number
         lob            TYPE crmt_mktpfchr_atvalue, " Line of Business
         fam_tag        TYPE bu_id_number,          " FAM Tag Number
         mod_date       TYPE sy-datum,              " Modified Date
       END OF i_main.
DATA : it_main      LIKE i_main            OCCURS 0 WITH HEADER LINE.
Error file structure and internal table
DATA : BEGIN OF i_error,
         cust_id        TYPE bu_bpext,              " Customer ID
         inv_type_code TYPE crmt_mktpfchr_atvalue, " Investor Type Code
         insti_tag      TYPE crmt_mktpfchr_atvalue, " Retail/Instituitional Tag
         name           TYPE char120,                     " Name
         address1       TYPE ad_strspp1,                    " Address1
         address2       TYPE ad_strspp2,                    " Address2
         address3       TYPE ad_street,                     " Address3
         city           TYPE ad_city1,              " City
         state          TYPE t005u-bezei,           " Region/State
         country        TYPE landx50,               " Country
         pin_code       TYPE ad_pstcd1,             " Pin Code
         off_phone1     TYPE ad_tlnmbr,             " Office Telephone Number1
         off_phone2     TYPE ad_tlnmbr,             " Office Telephone Number2
         res_phone1     TYPE ad_tlnmbr,             " Residence Telephone Number1
         res_phone2     TYPE ad_tlnmbr,             " Residence Telephone Number1
         mobile         TYPE ad_mbnmbr1,            " Mobile Number
         email          TYPE ad_smtpadr,                    " Email ID
         birth_date     TYPE bu_birthdt,            " Birth Date
         pan_no         TYPE bu_id_number,          " Pan Number
         lob            TYPE crmt_mktpfchr_atvalue, " Line of Business
         fam_tag        TYPE bu_id_number,          " FAM Tag Number
         mod_date       TYPE sy-datum,              " Modified Date
         bp             TYPE bapibus1006_head-bpartner, " BP
         recno(4)       TYPE c,                         " Record No
         message(255)   TYPE c,                         " Error Message
       END OF i_error.
DATA : it_error         LIKE i_error            OCCURS 0 WITH HEADER LINE.
BP Telephone, Email & Role Details
DATA : w_bp_tel        TYPE bapiadtel,
       it_bp_tel       TYPE bapiadtel             OCCURS 0 WITH HEADER LINE,
       it_bp_tel1      TYPE bapiadtel             OCCURS 0 WITH HEADER LINE,
       it_bp_email     TYPE bapiadsmtp            OCCURS 0 WITH HEADER LINE,
       it_bp_email1    TYPE bapiadsmtp            OCCURS 0 WITH HEADER LINE,
       it_bapicomrem   TYPE STANDARD TABLE OF bapicomrem   WITH HEADER LINE,
       it_bapicomrem_x TYPE STANDARD TABLE OF bapicomrex   WITH HEADER LINE,
       it_tel_x        TYPE STANDARD TABLE OF bapiadtelx   WITH HEADER LINE,
       it_email_x      TYPE STANDARD TABLE OF bapiadsmtx   WITH HEADER LINE,
       it_role         TYPE bapibusisb990_bproles OCCURS 0 WITH HEADER LINE,
       it_role_cp      TYPE bapibusisb990_bproles OCCURS 0 WITH HEADER LINE.
BP Identication Details
DATA: BEGIN OF it_identification OCCURS 0,
        idcategory TYPE bapibus1006_identification_key-identificationcategory,
        idnumber   TYPE bapibus1006_identification_key-identificationnumber,
      END OF it_identification.
DATA : w_identification TYPE bapibus1006_identification.
BP Marketing Attributes
DATA : BEGIN OF it_crmt OCCURS 0,
        crmt TYPE crmt_mktprof_keys-profile_template_id,
       END   OF it_crmt.
DATA : it_crmt1 TYPE STANDARD TABLE OF crmt_mktprof_comw WITH HEADER LINE,
       it_crmt2 TYPE STANDARD TABLE OF crmt_mktprof_comw WITH HEADER LINE,
       it_crmt3 TYPE STANDARD TABLE OF crmt_mktprof_comw WITH HEADER LINE,
       it_crmt4 TYPE STANDARD TABLE OF crmt_mktprof_comw WITH HEADER LINE,
       it_crmt5 TYPE STANDARD TABLE OF crmt_mktprof_comw WITH HEADER LINE,
       it_bp_ret TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE.
BP Basic Details
DATA : v_partn_cat       TYPE bapibus1006_head-partn_cat,
       w_central         TYPE bapibus1006_central,
       w_central_x       TYPE bapibus1006_central_x,
       w_central_org     TYPE bapibus1006_central_organ,
       w_central_per     TYPE bapibus1006_central_person,
       w_central_group   TYPE bapibus1006_central_group,
       w_centralorg_x    TYPE bapibus1006_central_organ_x,
       w_centralperson_x TYPE bapibus1006_central_person_x,
       w_centralgrp_x    TYPE bapibus1006_central_group_x,
       w_address         TYPE bapibus1006_address,
       w_addr_x          TYPE bapibus1006_address_x,
       v_bp              TYPE bapibus1006_head-bpartner.
Declaration for Duplication Check
DATA : w_zacc_address TYPE zacc_address,
       g_dup_status      TYPE i.
DATA : it_dup_bp TYPE STANDARD TABLE OF zbuspartner WITH HEADER LINE.
CONSTANTS: c_pan     TYPE bu_id_type VALUE 'ZID003',
           c_fam_tag TYPE bu_id_type VALUE 'ZID011',
           c_cust    TYPE bu_id_type VALUE 'ZID009'.
Other Declarations
DATA : v_inv_type      TYPE crmt_mktpfchr_atvalue, " Investor Type Code
       v_file          TYPE string,
       v_firstname     TYPE bu_nameor1,
       v_filename1(14) TYPE c,
       v_filename2(14) TYPE c,
       v_lines         TYPE int4,
       v_cat           TYPE bu_type,
       recno           TYPE int4,
       loopno          TYPE int4,
       it_iden_ret     TYPE bapiret2 OCCURS 0,
       it_attr_ret     TYPE bapiret2 OCCURS 0,
       it_role_ret     TYPE bapiret2 OCCURS 0,
       wa_iden_ret     TYPE bapiret2,
       wa_attr_ret     TYPE bapiret2,
       it_iden_flag    TYPE c,
       it_attr_flag    TYPE c,
       flag_central    TYPE c,
       flag_addr       TYPE c,
       flag_bp         TYPE c,
       flag_suc        TYPE c,
       flag_exist      TYPE c,
       flag_exit       TYPE c,
       g_bp_msg        TYPE string,
       g_bp_msg1       TYPE string.
DATA : BEGIN OF i_success,
         rec   TYPE int4,                      "Record
         name TYPE bu_nameor1,                "Name
         bp    TYPE bapibus1006_head-bpartner, "Business Partner
       END OF i_success,
       it_success     LIKE i_success OCCURS 0 WITH HEADER LINE,
       it_upd_success LIKE i_success OCCURS 0 WITH HEADER LINE.
Data Declaration for converting spool request to PDF and to trigger mail
DATA : gd_recsize TYPE i.
Spool IDs
TYPES : BEGIN OF t_tbtcp.
        INCLUDE STRUCTURE tbtcp.
TYPES : END OF t_tbtcp.
DATA : it_tbtcp TYPE STANDARD TABLE OF t_tbtcp INITIAL SIZE 0,
       wa_tbtcp TYPE t_tbtcp.
Job Runtime Parameters
DATA : gd_eventid                 LIKE tbtcm-eventid,
       gd_eventparm               LIKE tbtcm-eventparm,
       gd_external_program_active LIKE tbtcm-xpgactive,
       gd_jobcount                LIKE tbtcm-jobcount,
       gd_jobname                 LIKE tbtcm-jobname,
       gd_stepcount               LIKE tbtcm-stepcount,
       gd_error                   TYPE sy-subrc,
       gd_reciever                TYPE sy-subrc.
DATA : w_recsize TYPE i.
DATA : gd_subject   LIKE sodocchgi1-obj_descr,
       it_mess_bod LIKE solisti1 OCCURS 0 WITH HEADER LINE,
       it_mess_att LIKE solisti1 OCCURS 0 WITH HEADER LINE,
       gd_sender_type     LIKE soextreci1-adr_typ,
       gd_attachment_desc TYPE so_obj_nam,
       gd_attachment_name TYPE so_obj_des.
Spool to PDF conversions
DATA : gd_spool_nr LIKE tsp01-rqident,
       gd_destination LIKE rlgrap-filename,
       gd_bytecount LIKE tst01-dsize,
       gd_buffer TYPE string.
Binary store for PDF
DATA : BEGIN OF it_pdf_output OCCURS 0.
        INCLUDE STRUCTURE tline.
DATA : END OF it_pdf_output.
DATA : v_email1 TYPE somlreci1-receiver,
       v_sender TYPE somlreci1-receiver.
CONSTANTS: c_no(1)     TYPE c   VALUE ' ',
           c_device(4) TYPE c   VALUE 'LOCL',
           c_delspl    TYPE c   VALUE 'X'.
DATA : BEGIN OF result OCCURS 0,
         line(100) TYPE c,
       END OF result.
DATA:i_id_tab TYPE STANDARD TABLE OF bapibus1006_id_details WITH HEADER LINE.
eliminting the error for convt page error
data: g_spl type c value ''.
eliminting the error for convt page error
Initialization
Renaming the target file daily
CONCATENATE '_' sy-datum '.txt' INTO v_filename1.
CONCATENATE '_' sy-datum '.TXT' INTO v_filename2.
START-OF-SELECTION
START-OF-SELECTION.
SELECT COUNT(*) FROM zbp_tax_status.
IF sy-subrc <> 0.
    SKIP 2.
    WRITE:/ text-011.
    STOP.
ENDIF.
REFRESH : it_main.
Uploading the file from either presentatinon layer or application server
PERFORM file_upload.
Creating the BP number and assigning & adding up other attributes
LOOP AT it_main.
    PERFORM data_fill.                       " Filling up global structures & variables
   IF v_bp IS INITIAL.
     PERFORM duplication_check.             " Duplication check
   ENDIF.
    PERFORM bp_creation.                     " BP Creation
    PERFORM return_fill.                     " Filling up Return Tables
    CLEAR : v_bp, it_main, flag_exit, g_dup_status, it_identification, it_crmt, it_crmt1, it_crmt2, it_crmt3, it_crmt4, it_crmt5,
            w_bp_tel,it_bp_tel,it_bp_tel1,it_bp_email,it_bp_email1,it_tel_x,it_email_x,w_addr_x,w_centralorg_x,w_centralperson_x,
            w_centralgrp_x,flag_addr,flag_central,it_iden_flag,it_attr_flag,it_bapicomrem,w_central,w_central_x, v_inv_type,it_bapicomrem_x,
            w_central_org,w_central_per,w_central_group,flag_bp,flag_suc,flag_exist,it_bp_ret,g_bp_msg,g_bp_msg1,v_cat,wa_attr_ret.
    REFRESH :it_identification, it_crmt, it_crmt1, it_crmt2, it_crmt3, it_crmt4, it_crmt5,it_bapicomrem,
             it_bp_tel,it_bp_tel1,it_bp_email,it_bp_email1,it_tel_x,it_email_x,it_bp_ret,it_bapicomrem_x.
ENDLOOP.
Downloading the file to be reprocessed to the application server
IF it_error[] IS NOT INITIAL.
    PERFORM error_file_download.
ENDIF.
Constructing the Return Messages for the Job
PERFORM return_messages.                  " Return Message Construction
Converting the return messages into PDF file and trigerring a mail notification
IF sy-batch EQ 'X'.
    PERFORM get_job_details.
    PERFORM obtain_spool_id.
    PERFORM convert_spool_to_pdf.
    PERFORM process_email.
    PERFORM trigger_email.
ENDIF.
*&      Form file_upload
FORM file_upload .
Data declatration
DATA: l_filestr TYPE string.
CLASS cl_abap_char_utilities DEFINITION LOAD.
CONSTANTS: con_tab TYPE c VALUE cl_abap_char_utilities=>horizontal_tab.
REPLACE '.txt' WITH v_filename1 INTO p_file .
REPLACE '.TXT' WITH v_filename2 INTO p_file .
MOVE p_file TO v_file.
IF sy-batch EQ 'X'.
Uploading the file from application server if the job is scheduled in background
    OPEN DATASET p_file FOR INPUT IN TEXT MODE ENCODING DEFAULT
eliminting the error for convt page error
                              IGNORING CONVERSION ERRORS REPLACEMENT CHARACTER g_spl.
eliminting the error for convt page error
    IF sy-subrc = 0.
      DO.
        READ DATASET p_file INTO l_filestr.
        IF sy-subrc <> 0.
          EXIT.
        ELSE.
          CLEAR it_main.
          SPLIT l_filestr AT con_tab INTO:
            it_main-cust_id        it_main-inv_type_code
            it_main-insti_tag      it_main-name
            it_main-address1       it_main-address2
            it_main-address3       it_main-city
            it_main-state          it_main-country
            it_main-pin_code       it_main-off_phone1
            it_main-off_phone2     it_main-res_phone1
            it_main-res_phone2     it_main-mobile
            it_main-email          it_main-birth_date
            it_main-pan_no         it_main-lob
            it_main-fam_tag        it_main-mod_date.
          APPEND it_main.
        ENDIF.
      ENDDO.
    ELSE.
      WRITE : / 'The file',
                 p_file,
                 'is not found.'.
      STOP.
    ENDIF.
    CLOSE DATASET p_file.
ELSE.
    WRITE : / 'The Program can only be executed in the background.'.
    STOP.
ENDIF.
CLEAR : l_filestr, it_main.
ENDFORM.                    " file_upload
*&      Form data_fill
FORM data_fill .
Filling up Partner Category (v_Partn_cat) ,workarea (w_central), workarea (w_central_org) & workarea (w_central_per)
SELECT SINGLE bp_category tax_status FROM zbp_tax_status
                    INTO (v_partn_cat,v_inv_type)
                    WHERE inv_code EQ it_main-inv_type_code.
Filling up the Authorization Group
IF it_main-lob EQ 'M' AND it_main-insti_tag EQ 'N'.
    w_central-authorizationgroup = 'ZMFR'.
ELSEIF it_main-lob EQ 'M' AND it_main-insti_tag EQ 'Y'.
    w_central-authorizationgroup = 'ZMFI'.
ELSEIF it_main-lob EQ 'P' AND it_main-insti_tag EQ 'N'.
    w_central-authorizationgroup = 'ZPMR'.
ELSEIF it_main-lob EQ 'P' AND it_main-insti_tag EQ 'Y'.
    w_central-authorizationgroup = 'ZPMI'.
ELSEIF it_main-lob EQ 'A' AND it_main-insti_tag EQ 'N'.
    w_central-authorizationgroup = 'ZBOR'.
ELSEIF it_main-lob EQ 'A' AND it_main-insti_tag EQ 'Y'.
    w_central-authorizationgroup = 'ZBOI'.
ENDIF.
Filling up workarea (w_address)
IF it_main-address1 IS NOT INITIAL.
    MOVE : it_main-address1 TO w_address-str_suppl1,
           it_main-address1 TO w_zacc_address-address1,
           'X'              TO w_addr_x-str_suppl1 .
ENDIF.
IF it_main-address2 IS NOT INITIAL.
    MOVE : it_main-address2 TO w_address-str_suppl2,
           it_main-address2 TO w_zacc_address-address2,
           'X'              TO w_addr_x-str_suppl2 .
ENDIF.
IF it_main-address3 IS NOT INITIAL.
    MOVE : it_main-address3 TO w_address-street,
           it_main-address3 TO w_zacc_address-address3,
          'X'               TO w_addr_x-street.
ENDIF.
IF it_main-city IS NOT INITIAL.
    MOVE :   it_main-city     TO w_address-city,
             it_main-city     TO w_zacc_address-city,
             'X'              TO w_addr_x-city.
ENDIF.
IF it_main-pin_code IS NOT INITIAL.
    MOVE :   it_main-pin_code TO w_address-postl_cod1,
            'X'               TO w_addr_x-postl_cod1.
    TRANSLATE w_address-postl_cod1 TO UPPER CASE.
ENDIF.
IF it_main-country IS NOT INITIAL.
    MOVE : 'X' TO w_addr_x-country.
ENDIF.
IF it_main-state IS NOT INITIAL.
    MOVE: 'X' TO w_addr_x-region.
ENDIF.
Picking up Country & State Codes
SELECT SINGLE land1 FROM t005t INTO w_address-country
       WHERE spras   EQ 'E'
         AND landx50 EQ it_main-country.
IF sy-subrc EQ 0.
    SELECT SINGLE bland FROM t005u INTO w_address-region
         WHERE spras EQ 'E'
           AND land1 EQ w_address-country
           AND bezei EQ it_main-state.
    IF sy-subrc NE 0.
      w_address-region = 'ZZ'.
    ENDIF.
ELSE.
    w_address-country = 'ZZ'.
    SELECT SINGLE bland FROM t005u INTO w_address-region
         WHERE spras EQ 'E'
           AND land1 EQ w_address-country
           AND bezei EQ it_main-state.
    IF sy-subrc NE 0.
      w_address-region = 'ZZ'.
    ENDIF.
ENDIF.
w_zacc_address-country = w_address-country.
w_zacc_address-state   = w_address-region.
Filling up the BP Role Detail
it_role-partnerrole = 'Z1INVS'.
APPEND it_role.
Finding out the BP number from the client ID
IF it_main-cust_id IS NOT INITIAL.
    SELECT SINGLE partner FROM but0id INTO v_bp
                  WHERE type     EQ 'ZID009'
                    AND idnumber EQ it_main-cust_id.
    IF sy-subrc = 0.
      SELECT SINGLE type FROM but000 INTO v_cat
                          WHERE partner = v_bp.
      PERFORM name_processing USING v_cat.
    ENDIF.
ENDIF.
IF v_bp IS INITIAL.
    PERFORM name_processing USING v_partn_cat.    " Processing the Name & Title depending on partner category
Filling up the Identication Number Details
    IF it_main-cust_id IS NOT INITIAL.        " Customer ID
      it_identification-idcategory = 'ZID009'.
      it_identification-idnumber   = it_main-cust_id.
      APPEND it_identification.
      CLEAR it_identification.
    ENDIF.
    IF it_main-pan_no IS NOT INITIAL.        " Pan Number
      it_identification-idcategory = 'ZID003'.
      it_identification-idnumber   = it_main-pan_no.
      APPEND it_identification.
      CLEAR it_identification.
    ENDIF.
    IF it_main-fam_tag IS NOT INITIAL.        " Family Tag Number
      it_identification-idcategory = 'ZID011'.
      it_identification-idnumber   = it_main-fam_tag.
      APPEND it_identification.
      CLEAR it_identification.
    ENDIF.
Filling up the Marketing Attributes
   IF v_inv_type IS NOT INITIAL.                 " Tax status
     it_crmt1-atname = 'TAX_STATUS'.
     it_crmt1-atwrt = v_inv_type.
     APPEND it_crmt1.
     CLEAR : it_crmt1.
   ENDIF.
   IF it_main-lob IS NOT INITIAL.                " Product Tag
     it_crmt1-atname   = 'LOB'.
     IF it_main-lob EQ 'M'.
       it_crmt1-atwrt = 'MF'.
     ELSEIF it_main-lob EQ 'P'.
       it_crmt1-atwrt = 'PMS'.
     ELSEIF it_main-lob EQ 'A'.
       it_crmt1-atwrt = 'BOTH'.
     ENDIF.
     APPEND it_crmt1.
     CLEAR : it_crmt1.
   ENDIF.
   IF it_main-insti_tag IS NOT INITIAL.         " Retail/Instituitional Tag
     it_crmt1-atname   = 'ORGANISATION_STRUCTURE'.
     IF it_main-insti_tag EQ 'N'.
       it_crmt1-atwrt = 'RETAIL'.
     ELSEIF it_main-insti_tag EQ 'Y'.
       it_crmt1-atwrt = 'INSTITUTIONAL'.
     ELSEIF it_main-insti_tag EQ 'F'.
       it_crmt1-atwrt = 'INTERNATIONAL'.
     ENDIF.
     APPEND it_crmt1.
     CLEAR : it_crmt1.
   ENDIF.
   it_crmt2-atname = 'VIP'.
   it_crmt2-atwrt = 'NOT CLASSIFIED'.
   APPEND it_crmt2.
   CLEAR : it_crmt2.
   it_crmt3-atname = 'PRIORITY'.
   it_crmt3-atwrt = 'NOT CLASSIFIED'.
   APPEND it_crmt3.
   CLEAR : it_crmt3.
   it_crmt4-atname = 'CONTACTBLE'.
   it_crmt4-atwrt = 'NOT CLASSIFIED'.
   APPEND it_crmt4.
   CLEAR : it_crmt4.
   it_crmt5-atname = 'SOURCE'.
   it_crmt5-atwrt = 'CAMS'.
   APPEND it_crmt5.
   CLEAR : it_crmt5.
   it_crmt-crmt = 'CENTALISED_CLF_INV'.
   APPEND it_crmt.
   it_crmt-crmt = 'GENERAL_CLF_INV'.
   APPEND it_crmt.
   it_crmt-crmt = 'MF_CLF_INV'.
   APPEND it_crmt.
   it_crmt-crmt = 'PMS_CLF_INV'.
   APPEND it_crmt.
   it_crmt-crmt = 'SOURCE'.
   APPEND it_crmt.
   CLEAR it_crmt-crmt.
ENDIF.
For Return Message
recno = recno + 1.
ENDFORM.                    " data_fill
*&      Form duplication_check
FORM duplication_check .
DATA : l_lines TYPE i.
IF v_firstname IS NOT INITIAL.
    CALL FUNCTION 'ZACC_DUPLICATIONCHECK'
      EXPORTING
        role            = 'Z1INVS'
        firstname       = v_firstname
        pan_no          = it_main-pan_no
        mobile          = it_main-mobile
        email           = it_main-email
        address         = w_zacc_address
        partnercategory = v_partn_cat
      IMPORTING
        status          = g_dup_status
      TABLES
        buspartner      = it_dup_bp.
    DESCRIBE TABLE it_dup_bp LINES l_lines.
    IF l_lines EQ 1.
      IF g_dup_status EQ 1.
        READ TABLE it_dup_bp INDEX 1.
        MOVE it_dup_bp-partner TO v_bp.
      ELSEIF g_dup_status EQ 2.
        flag_exit = 'X'.
      ENDIF.
    ELSEIF l_lines GT 1.
      flag_exit = 'X'.
    ENDIF.
ENDIF.
CLEAR : l_lines, v_firstname.
ENDFORM.                    " duplication_check
*&      Form name_processing
FORM name_processing USING uv_cat TYPE bu_type.
IF it_main-name IS NOT INITIAL.
If category is Person
    IF uv_cat EQ 1.
      CALL FUNCTION 'ZGET_NAME_FROM_STRING'
        EXPORTING
          name   = it_main-name
        IMPORTING
          first = w_central_per-firstname
          middle = w_central_per-middlename
          last   = w_central_per-lastname.
      w_centralperson_x-firstname = 'X'.
      w_centralperson_x-middlename = 'X'.
      w_centralperson_x-lastname   = 'X'.
      w_centralperson_x-birthdate = 'X'.
      MOVE : it_main-birth_date TO w_central_per-birthdate,
             w_central_per-firstname TO v_firstname.
    ELSEIF uv_cat EQ 2.
    If category is organisation
      CALL FUNCTION 'ZGET_NAME_FROM_STRING'
        EXPORTING
          name   = it_main-name
        IMPORTING
          first = w_central_org-name2
          middle = w_central_org-name1
          last   = w_central_org-name3.
      w_centralorg_x-name1 = 'X'.
      w_centralorg_x-name2 = 'X'.
      w_centralorg_x-name3 = 'X'.
      MOVE w_central_org-name2 TO v_firstname.
    ELSEIF uv_cat EQ 3.
    If category is group
      CALL FUNCTION 'ZGET_NAME_FROM_STRING'
        EXPORTING
          name   = it_main-name
        IMPORTING
          first = w_central_group-namegroup2
          middle = w_central_group-namegroup1.
      w_centralgrp_x-namegroup1 = 'X'.
      w_centralgrp_x-namegroup2 = 'X'.
      MOVE w_central_group-namegroup2 TO v_firstname.
    ENDIF.
    MOVE : it_main-name+0(8)    TO w_central-searchterm1,
           'X'                  TO w_central_x-searchterm1.
ENDIF.
ENDFORM.                    " name_processing
*&      Form bp_creation
FORM bp_creation.
DATA:l_identification   TYPE bapibus1006_identification_key-identificationnumber.
BP Creation
IF v_bp IS INITIAL.
Filling up the Telephone Details
    MOVE : w_address-country TO w_bp_tel-country.
    IF it_main-off_phone1 IS NOT INITIAL.     " Office Telephone1
      w_bp_tel-r_3_user = '1'.
      w_bp_tel-telephone = it_main-off_phone1.
      APPEND w_bp_tel TO it_bp_tel.
      CLEAR : w_bp_tel-r_3_user, w_bp_tel-telephone.
      it_bapicomrem-comm_type = 'TEL'.
      it_bapicomrem-langu      = 'EN'.
      it_bapicomrem-comm_notes = 'OFFICE PHONE1'.
      APPEND it_bapicomrem.
    ENDIF.
    IF it_main-off_phone2 IS NOT INITIAL.     " Office Telephone2
      w_bp_tel-telephone = it_main-off_phone2.
      APPEND w_bp_tel TO it_bp_tel.
      CLEAR : w_bp_tel-telephone.
      it_bapicomrem-comm_type = 'TEL'.
      it_bapicomrem-langu      = 'EN'.
      it_bapicomrem-comm_notes = 'OFFICE PHONE2'.
      APPEND it_bapicomrem.
    ENDIF.
    IF it_main-res_phone1 IS NOT INITIAL.     " Residence Telephone1
      w_bp_tel-telephone = it_main-res_phone1.
      APPEND w_bp_tel TO it_bp_tel.
      CLEAR : w_bp_tel-telephone.
      it_bapicomrem-comm_type = 'TEL'.
      it_bapicomrem-langu      = 'EN'.
      it_bapicomrem-comm_notes = 'RESIDENCE PHONE1'.
      APPEND it_bapicomrem.
    ENDIF.
    IF it_main-res_phone2 IS NOT INITIAL.     " Residence Telephone2
      w_bp_tel-telephone = it_main-res_phone2.
      APPEND w_bp_tel TO it_bp_tel.
      CLEAR : w_bp_tel-telephone.
      it_bapicomrem-comm_type = 'TEL'.
      it_bapicomrem-langu      = 'EN'.
      it_bapicomrem-comm_notes = 'RESIDENCE PHONE2'.
      APPEND it_bapicomrem.
    ENDIF.
    IF it_main-mobile IS NOT INITIAL.         " Mobile Number
      w_bp_tel-r_3_user = '3'.
      w_bp_tel-telephone = it_main-mobile.
      APPEND w_bp_tel TO it_bp_tel.
      CLEAR : w_bp_tel-r_3_user, w_bp_tel-telephone.
    ENDIF.
Filling up the E-Mail Details
    IF it_main-email IS NOT INITIAL.                        " E-mail1
      it_bp_email-e_mail = it_main-email.
      APPEND it_bp_email.
      CLEAR it_bp_email.
    ENDIF.
BAPI for BP creation
    CALL FUNCTION 'BAPI_BUPA_FS_CREATE_FROM_DATA2'
      EXPORTING
        partnercategory         = v_partn_cat
        centraldata             = w_central
        centraldataperson       = w_central_per
        centraldataorganization = w_central_org
        centraldatagroup        = w_central_group
        addressdata             = w_address
      IMPORTING
        businesspartner         = v_bp
      TABLES
        telefondata             = it_bp_tel
        communicationnotes      = it_bapicomrem
        e_maildata              = it_bp_email
        roles                   = it_role
        return                  = it_bp_ret.
    IF v_bp IS NOT INITIAL.
      flag_bp = 'X'.
    ENDIF.
Commiting the transaction
    PERFORM transaction_commit.
To add Identification details to BP
    PERFORM add_details.
    CLEAR   : v_partn_cat, w_central, w_central_per, w_central_org, it_bp_tel, it_bp_email, it_role.
    REFRESH : it_bp_tel, it_bp_email, it_role.
ELSE.
    flag_exist = 'X'.
If BP exists,address,communication and ID details will be updated
    CALL FUNCTION 'BAPI_BUPA_CENTRAL_CHANGE'
      EXPORTING
        businesspartner           = v_bp
        centraldata               = w_central
        centraldataperson         = w_central_per
        centraldataorganization   = w_central_org
        centraldatagroup          = w_central_group
        centraldata_x             = w_central_x
        centraldataperson_x       = w_centralperson_x
        centraldataorganization_x = w_centralorg_x
        centraldatagroup_x        = w_centralgrp_x
      TABLES
        return                    = it_bp_ret.
    READ TABLE it_bp_ret WITH KEY type = 'E'.
    IF sy-subrc = 0.
      flag_central = 'E'.
      g_bp_msg = it_bp_ret-message.
      CLEAR:it_bp_ret.
      REFRESH:it_bp_ret.
    ELSE.
      flag_suc = 'X'.
    ENDIF.
    PERFORM transaction_commit.
To get the existing communication details
    CALL FUNCTION 'BAPI_BUPA_ADDRESS_GETDETAIL'
      EXPORTING
        businesspartner = v_bp
      TABLES
        bapiadtel       = it_bp_tel1
        bapiadsmtp      = it_bp_email1.
    LOOP AT it_bp_tel1 WHERE r_3_user = '1' OR r_3_user = ' '.
      it_bp_tel-consnumber = it_bp_tel1-consnumber.
      it_tel_x-updateflag     = 'D'.
      APPEND:it_bp_tel,
             it_tel_x.
      CLEAR: it_bp_tel,
             it_tel_x.
    ENDLOOP.
    IF it_main-mobile IS NOT INITIAL .
      LOOP AT it_bp_tel1 WHERE r_3_user = '2' OR r_3_user = '3'.
        it_bp_tel-consnumber = it_bp_tel1-consnumber.
        it_tel_x-updateflag     = 'D'.
        APPEND:it_bp_tel,
               it_tel_x.
        CLEAR: it_bp_tel,
               it_tel_x.
      ENDLOOP.
    ENDIF.
*Updating communication details
    IF it_main-off_phone1 IS NOT INITIAL.     " Office Telephone1
      w_bp_tel-r_3_user = '1'.
      w_bp_tel-telephone = it_main-off_phone1.
      it_tel_x-telephone     = 'I'.
      it_tel_x-updateflag    = 'I'.
      APPEND:it_tel_x.
      CLEAR: it_tel_x.
      APPEND w_bp_tel TO it_bp_tel.
      CLEAR : w_bp_tel-r_3_user, w_bp_tel-telephone.
      it_bapicomrem-comm_type = 'TEL'.
      it_bapicomrem-langu      = 'EN'.
      it_bapicomrem-comm_notes = 'OFFICE PHONE1'.
      APPEND it_bapicomrem.
      it_bapicomrem_x-comm_type = 'I'.
      it_bapicomrem_x-langu      = 'I'.
      it_bapicomrem_x-comm_notes = 'I'.
      it_bapicomrem_x-updateflag = 'I'.
      APPEND it_bapicomrem_x.
    ENDIF.
    IF it_main-off_phone2 IS NOT INITIAL.     " Office Telephone2
      w_bp_tel-telephone = it_main-off_phone2.
      APPEND w_bp_tel TO it_bp_tel.
      it_tel_x-telephone     = 'I'.
      it_tel_x-updateflag    = 'I'.
      APPEND:it_tel_x.
      CLEAR:it_tel_x.
      CLEAR : w_bp_tel-telephone.
      it_bapicomrem-comm_type = 'TEL'.
      it_bapicomrem-langu      = 'EN'.
      it_bapicomrem-comm_notes = 'OFFICE PHONE2'.
      APPEND it_bapicomrem.
      it_bapicomrem_x-comm_type = 'I'.
      it_bapicomrem_x-langu      = 'I'.
      it_bapicomrem_x-comm_notes = 'I'.
      it_bapicomrem_x-updateflag = 'I'.
      APPEND it_bapicomrem_x.
    ENDIF.
    IF it_main-res_phone1 IS NOT INITIAL.     " Residence Telephone1
      w_bp_tel-telephone = it_main-res_phone1.
      APPEND w_bp_tel TO it_bp_tel.
      it_tel_x-telephone     = 'I'.
      it_tel_x-updateflag    = 'I'.
      APPEND:it_tel_x.
      CLEAR:it_tel_x.
      CLEAR : w_bp_tel-telephone.
      it_bapicomrem-comm_type = 'TEL'.
      it_bapicomrem-langu      = 'EN'.
      it_bapicomrem-comm_notes = 'RESIDECE PHONE1'.
      APPEND it_bapicomrem.
      it_bapicomrem_x-comm_type = 'I'.
      it_bapicomrem_x-langu      = 'I'.
      it_bapicomrem_x-comm_notes = 'I'.
      it_bapicomrem_x-updateflag = 'I'.
      APPEND it_bapicomrem_x.
    ENDIF.
    IF it_main-res_phone2 IS NOT INITIAL.     " Residence Telephone2
      w_bp_tel-telephone = it_main-res_phone2.
      APPEND w_bp_tel TO it_bp_tel.
      it_tel_x-telephone     = 'I'.
      it_tel_x-updateflag    = 'I'.
      APPEND:it_tel_x.
      CLEAR:it_tel_x.
      CLEAR : w_bp_tel-telephone.
      it_bapicomrem-comm_type = 'TEL'.
      it_bapicomrem-langu      = 'EN'.
      it_bapicomrem-comm_notes = 'RESIDECE PHONE2'.
      APPEND it_bapicomrem.
      it_bapicomrem_x-comm_type = 'I'.
      it_bapicomrem_x-langu      = 'I'.
      it_bapicomrem_x-comm_notes = 'I'.
      it_bapicomrem_x-updateflag = 'I'.
      APPEND it_bapicomrem_x.
    ENDIF.
    IF it_main-mobile IS NOT INITIAL.         " Mobile Number
      w_bp_tel-r_3_user = '3'.
      w_bp_tel-telephone = it_main-mobile.
      APPEND w_bp_tel TO it_bp_tel.
      it_tel_x-telephone     = 'I'.
      it_tel_x-updateflag    = 'I'.
      APPEND:it_tel_x.
      CLEAR:it_tel_x.
      CLEAR : w_bp_tel-r_3_user, w_bp_tel-telephone.
    ENDIF.
    IF it_main-email IS NOT INITIAL.
      LOOP AT it_bp_email1.
        it_bp_email-consnumber   = it_bp_email1-consnumber.
        it_email_x-updateflag    = 'D'.
        APPEND:it_bp_email,
               it_email_x.
      ENDLOOP.
      it_bp_email-e_mail    =   it_main-email.
      it_email_x-e_mail     = 'I'.
      it_email_x-updateflag = 'I'.
      APPEND:it_bp_email,
             it_email_x.
      CLEAR:it_bp_email,
            it_email_x.
    ENDIF.
    REFRESH:it_bp_ret.
BP Change
    CALL FUNCTION 'BAPI_BUPA_ADDRESS_CHANGE'
      EXPORTING
        businesspartner = v_bp
        addressdata     = w_address
        addressdata_x   = w_addr_x
      TABLES
        bapiadtel       = it_bp_tel
        bapicomrem      = it_bapicomrem
        bapiadtel_x     = it_tel_x
        bapiadsmtp      = it_bp_email
        bapiadsmt_x     = it_email_x
        bapicomre_x     = it_bapicomrem_x
        return          = it_bp_ret.
    READ TABLE it_bp_ret WITH KEY type = 'E'.
    IF sy-subrc = 0.
      flag_addr = 'E'.
      g_bp_msg1 = it_bp_ret-message.
    ELSE.
      flag_suc = 'X'.
    ENDIF.
    PERFORM transaction_commit.
    REFRESH it_bp_ret.
    IF it_main-pan_no IS NOT INITIAL OR it_main-fam_tag IS NOT INITIAL OR it_main-cust_id IS NOT INITIAL.
    Retreiving the existing Identification details
      PERFORM id_get USING v_bp.
    ENDIF.
PAN number addition
    IF it_main-pan_no IS NOT INITIAL.
      CLEAR l_identification.
      MOVE it_main-pan_no TO l_identification.
      TRANSLATE l_identification TO UPPER CASE.
      READ TABLE i_id_tab WITH KEY identificationtype = c_pan.
      IF sy-subrc = 0.
      To remove existing PAN number
        PERFORM id_remove USING v_bp c_pan i_id_tab-identificationnumber.
        READ TABLE it_iden_ret INTO wa_iden_ret WITH KEY type = 'E'.
        IF sy-subrc EQ 0.
          it_iden_flag = 'E'.
        ELSE.
          flag_suc = 'X'.
        Performing transaction commit
          PERFORM transaction_commit.
        ENDIF.
      ENDIF.
      CLEAR:it_iden_ret[],it_iden_ret.
    To add new PAN number
      PERFORM id_add USING v_bp c_pan l_identification.
      READ TABLE it_iden_ret INTO wa_iden_ret WITH KEY type = 'E'.
      IF sy-subrc EQ 0.
        it_iden_flag = 'E'.
      ELSE.
        flag_suc = 'X'.
        PERFORM transaction_commit.
      ENDIF.
    ENDIF.
   Customer ID addition
    IF it_main-cust_id IS NOT INITIAL AND ( g_dup_status = 1 ).
      CLEAR l_identification.
      MOVE it_main-cust_id TO l_identification.
      TRANSLATE l_identification TO UPPER CASE.
      READ TABLE i_id_tab WITH KEY identificationtype = c_cust.
      IF sy-subrc = 0.
      To remove existing Customer ID
        PERFORM id_remove USING v_bp c_cust i_id_tab-identificationnumber.
        READ TABLE it_iden_ret INTO wa_iden_ret WITH KEY type = 'E'.
        IF sy-subrc EQ 0.
          it_iden_flag = 'E'.
        ELSE.
      Performing transaction commit
          PERFORM transaction_commit.
        ENDIF.
      ENDIF.
      CLEAR:it_iden_ret[],it_iden_ret.
    To add new Customer ID number
      PERFORM id_add USING v_bp c_cust l_identification.
      READ TABLE it_iden_ret INTO wa_iden_ret WITH KEY type = 'E'.
      IF sy-subrc EQ 0.
        it_iden_flag = 'E'.
      ELSE.
        flag_suc ='X'.
        PERFORM transaction_commit.
      ENDIF.
    ENDIF.
To add marketing attributes
   IF it_main-insti_tag IS NOT INITIAL AND it_main-lob IS NOT INITIAL.
     PERFORM add_makt_attr .
   ELSE.
     it_attr_flag = 'E'.

Guy，i don't regard here is anybody wanna read so much code .For more constructive answers, you would distill core question from your program.

Using javascript inside jsp

hello
My front end is jsp.so in jsp i want to write a javascript function for validating the form fields given by the client. so give me any simple javasript sample program....thank you.

See: www.google.com for more information

How do i use Connection pool in JSP pages

Hey everyone,
I am using a connection pool in my web application. I am using DbConnectionBroker from Javaexchange.com. It has a class that creates a connection pool available for the servlets. I am trying to figure out that how to use connection pool within the JSP pages if I want to connect to the database. In the servlets i am using DBConnectionBroker pool = (DbConnectionBroker) getServletContext().getAttribute("dbPool") to get database connection. How Can i use this in JSP page to get a db connection.
Thanks

If the reference to the connection pool is already stored as an ServletContex attribute, try:
<jsp:useBean id="dbPool" scope="application" class="com.javaexchange.dbConnectionBroker" />
<%
Connection con = dbPool.getConnection();
%>

How can i use javascript in weblogic jsp

Hai,
          I know that we can use the jsvascript to validate the html parameters.
          Is the wblogic jsp support the javascript ?. I tried in weblogic
          5.1.0.,the javascript is not working.
          anybody can help me how to validate html input and how can i use
          javascript in jsp.
          Thanks
          Srinivas


          Do you know how JSP can use a variable defined in Javascrip ?
          Thx,
          Lin
          "Cameron Purdy" <[email protected]> wrote:
          >Write your JSP as you would any HTML file, including JavaScript. Then
          >rename the .html file to .jsp. Add your custom tags and Java code as
          >desired. Done.
          >
          >There was a complaint in the 5.0 beta about the JSP parser choking on
          >JavaScript, so I would make sure you at least try on the latest 5.1 service
          >pack, just in case.
          >
          >Cameron Purdy
          >
          >"SRINIVAS" <[email protected]> wrote in message
          >news:[email protected]..
          >> Hai,
          >> I know that we can use the jsvascript to validate the html parameters.
          >>
          >> Is the wblogic jsp support the javascript ?. I tried in weblogic
          >> 5.1.0.,the javascript is not working.
          >> anybody can help me how to validate html input and how can i use
          >> javascript in jsp.
          >>
          >> Thanks
          >> Srinivas
          >>
          >
          >

Using Webkit inside of AIR to load in PHP

Hello,
We have a game that we are developing for tablets that we are porting over from a browser based Flash game. In that game, there is a link to a PHP script that loads in player information and displays it on a web page. We would like to be able to reuse this functionality without having to rebuild it all in Flash for AIR. I know that AIR has Webkit support built in but I'm having a hell of a time finding out if it can display a web page from inside the application, rendered with PHP. Also I'm having trouble finding any information on how to actually use Webkit inside of AIR, other than an old mx:HTML component. Any help on this would be much appreciated.

While it is possible to serve local html files to an instance of a StageWebView, it is not running as a server. Thus, your PHP code will NOT execute. You can display the html that lives on your server, since you are haing the user sign, some form of network access is need. You could look at using the SQLite DB to save the user information, so you could enable offline playability, then sync the data once there is a connection.
Here is something I wrote on using SWV and Google Maps. Maybe you can find it useful: http://chrisgriffith.wordpress.com/2011/01/04/integrating-maps-into-your-mobile-applicatio n/
Good luck,
Chris Griffith

How to successfully use PrintWriter inside JSP bean?

Similar Messages

Maybe you are looking for