Bulk upload into an existing email newsletter database

Hi,
I would like to do a bulk upload into an existing email newsletter database.
When I export the database that I want to update, the file format is:
Full Name | Email Address | Opt-in Status | Subscribe date
However, the file format of the entities basic import file is:
Email Address
Title
First Name
Last Name
Company Name
Custom Date
Which one should I use?
Thanks for your help.

Hi Christina,
You need to use the file format of the import file, always.
Otherwise you'll end up with customers that have email addresses as name and names as email addresses.
Let me know if you run into any issues.
Thanks and regards,
Florin

Similar Messages

  • How do I attach file into reply existing email?

    How do I attach file into reply existing email?

    Shoudl I save images (scanned documents) prior to saving them....
    Not sure what you mean by 'save them before saving them'....

  • Upload bulk data into sap?

    hi all,
    let me know is there any methods to upload bulk data into sap and can same data be modified , delete , add. please correct me if i am wrong. what i know is that we can do with lsmw method, as i am new to lsmw method please let me know where to hunt for lsmw documentation.
    thanks,
    john dias.

    Hi John-
    According to SAP, The Data Transfer Workbench supports the automatic transfer of data into the system. The Workbench is particularly useful for various business objects with large amounts of data. It guarantees that data is transferred efficiently and ensures that data in the system is consistent.
    Further, The Legacy System Migration Workbench (LSMW) is a tool recommended by SAP that you can use to transfer data once only or periodically from legacy systems into an R/3 System.
    For your purpose you might be helped by the following two links-
    'Data Transfer Workbench' - http://help.sap.com/saphelp_47x200/helpdata/en/0d/e211c5543e11d1895d0000e829fbbd/frameset.htm
    'Using the LSM Workbench for the Conversion' - http://help.sap.com/saphelp_46c/helpdata/en/0f/4829e3d30911d3a6e30060087832f8/frameset.htm
    Hope these links help,
    - Vik.

  • Installing Peoplesoft Database schema into an *existing* database ?

    Are there explicit restrictions against installing a Peoplesoft schema (SYSADM) into an existing database where other application schemas are already present ?
    If it is permissible, are there real-world experiences with such an implementation ?
    What are the pros and cons ?
    So far my experience has been 1 Peoplesoft Schema in a "Peoplesoft-Only" database.
    Hemant K Chitale

    Hi Hemant,
    Having more than one Peoplesoft application in one database is really painful.
    First, on security and setting level, have multiple symbolic id (SYSADM1, SYSADM2...) implies different symbolicid for all the users.
    Then, you may have some troubles to tune the database if appl and usage are differents between each other. Without saying about tables/tablespaces...
    It is so much easier, scalable and reliable to have one-to-one relationship between appl and database that I do not see anything good to get all-in-one.
    I worked on such config few years ago (FSCM and HRMS in one database), after few months of production, the maintenance was really became a nightmare, a project has been made to cut it in pieces.
    It has been strongly recommanded by Peoplesoft to avoid multiple appl in one database for years.
    Now I'm re-reading your post, you may ask about an other appl (other than PS) within a PS appl into one db... never done such thing, but again, each appl have their own usage and specificities. It could be even worse since each appl ignore the other one, I would tend to avoid that.
    Nicolas.

  • Bulk CSV Upload into one or more Tables

    Hi,
    Just wondering if people could please assist with a means of performing a bulk upload of a csv file (possibly large file), into multiple tables using ApEx.
    I basically would like to allow the end user to browse and load the csv file.
    Any assistance/example websites etc would be great.
    Thanks,
    Tony.

    See this website .
    Sam

  • Procedure failed while using bulk collect into clause and works with cursor

    hi all,
    I am using "BULK collect into" clause in my procedure and it is failing after 21 minutes and gives the error "end of file communication channel".
    after this error comes when i tried to connect database it is giving following error.
    ORA -01034 - Oracle not available.
    ORA- 27101 - shared memory realm does not exist.
    svr4- error :2 : No such file or directory.
    when i use cursor instead of BULK COLLECT INTO clause it is running successful.
    Following code is working with cursor.
    procedure work_kiosk_full(an_jobid in number ,ac_sqlcode out varchar2 ,ac_sqlerrm out varchar2) is
    ld_curr_time Date;
    cursor cur_work_kiosk is
    select distinct jt.jt_id AS jt_id,
    NVL ((ROUND ((jt_date_completed - jt_date_requested) * 24, 2)
    0
    ) AS actual_hrs_to_complete,
    NVL ((ROUND ((jt_date_responded - jt_date_requested) * 24, 2)
    0
    ) AS actual_hrs_to_respond,
    peo1.peo_name AS agent_name,
    peo1.peo_user_name AS asagent_soe_id,
    le.lglent_desc AS ap_system,
    ' ' AS assign_work_request_comment,
    DECODE (jt.jt_bill_id,
    138802, 'CLIENT BILLABLE',
    138803, 'CONTRACTED',
    138804, 'INTERNAL BILLABLE',
    NULL, ' '
    ) AS billable,
    bl.bldg_name_cc AS building, bl.bldg_id_ls AS building_id,
    DECODE (bl.bldg_active_cc,
    'Y', 'ACTIVE',
    'INACTIVE'
    ) AS building_status,
    DECODE (jt.jt_wrk_cause_id,
    141521, 'STANDARD WEAR AND TEAR',
    141522, 'NEGLIGENCE',
    141523, 'ACCIDENTAL',
    141524, 'MECHANICAL MALFUNCTION',
    141525, 'OVERSIGHT',
    141526, 'VANDAL',
    141527, 'STANDARD',
    141528, 'PROJECT WORK',
    6058229, 'TEST',
    NULL, ' '
    ) AS cause_type,
    ' ' AS comments, peo3.peo_name AS completed_by,
    jt.jt_requestor_email AS contact_email,
    jt.jt_requestor_name_first
    || ' '
    || jt.jt_requestor_name_last AS contact_name,
    jt.jt_requestor_phone AS contact_phone,
    cc.cstctrcd_apcode AS corp_code,
    cc.cstctrcd_code AS cost_center,
    jt.jt_date_closed AS date_closed,
    jt.jt_date_completed AS date_completed,
    jt.jt_date_requested AS date_requested,
    jt.jt_date_responded AS date_responded,
    jt.jt_date_response_ecd AS date_response_ecd,
    jt.jt_date_scheduled AS date_scheduled,
    DECODE (jt.jt_def_id,
    139949, 'WTG VENDOR RESPONSE',
    139950, 'WAITING ON PARTS',
    139951, 'LABOR AVAILABILITY',
    139952, 'DEFERRED- HI PRI WORK',
    139953, 'WTG APPROVAL',
    139954, 'FUNDING REQUIRED',
    139955, 'ACCESS DENIED',
    139956, 'WTG MATERIAL',
    NULL, ' '
    ) AS deferral_reason,
    jt.jt_description AS description,
    jt.jt_date_resched_ecd AS ecd,
    fmg.facility_manager AS facility_manager,
    fl.floors_text AS FLOOR, gl.genled_desc AS general_ledger,
    ' ' AS kiosk_date_requested, ' ' AS kiosk_dispatch_confirmed,
    ' ' AS kiosk_dispatched,
    eqp.equip_customer_code AS linked_equipment_alias,
    eqp.equip_id AS linked_equipment_id,
    eqp.equip_text AS linked_equipment_name,
    DECODE (jt_originator_type_id,
    1000, 'PROJECT MOVE REQUEST',
    138834, 'CUSTOMER INITIATED CORRECTION',
    138835, 'CUSTOMER INITIATED REQUEST',
    138836, 'CORRECTIVE MAINTENANCE',
    138837, 'CONFERENCE ROOM BOOKING',
    138838, 'PROJECT INITIATED REQUEST',
    138839, 'PLANNED PREVENTIVE MAINTENANCE',
    138840, 'SELF INITATED REQUEST',
    NULL, ' '
    ) AS originator_type,
    ' ' AS payment_terms, priority_text AS priority_code,
    swoty.sworktype_text AS problem_type,
    prop.property_name_cc AS property,
    jt.jt_cost_quote_total AS quote_total,
    par.levels_name AS region,
    DECODE (jt.jt_repdef_id,
    141534, 'ADJUSTED SETTING',
    141535, 'TRAINING FOR END',
    141536, 'NEW REQUEST',
    141537, 'NO REPAIR REQUIR',
    141538, 'REPLACED PARTS',
    141539, 'REPLACE EQUIPMEN',
    1000699, 'NEW REQUEST',
    NULL, ' '
    ) AS repair_definitions,
    jt.jt_repairdesc AS repair_description,
    jt.jt_requestor AS requestor, ' ' AS requestor_cost_center,
    jt.jt_requestor_email AS requestor_email,
    jt.jt_requestor_name_first AS requestor_name,
    jt.jt_requestor_phone AS requestor_phone,
    ' ' AS response_time, rm.room_name_cc AS room,
    p1.peo_provider_code1 AS service_provider,
    p1.peo_address_1 AS service_provider_address,
    peocity.city_text service_provider_city,
    p1.peo_provider_code1 AS service_provider_code,
    peocity.city_country_name AS service_provider_country,
    peocur.currency_text AS service_provider_currency,
    p1.peo_name AS service_provider_description,
    p1.peo_dispatch_method AS serv_prov_dispatc_hmethod,
    p1.peo_rate_double AS serv_prov_double_time_rate,
    p1.peo_email AS service_provider_email,
    p1.peo_emergency_phone AS serv_prov_emergency_phone,
    p1.peo_fax AS service_provider_fax_number,
    p1.peo_home_phone AS service_provider_home_phone,
    p1.peo_rate_hourly AS service_provider_hourly_rate,
    p1.peo_title AS service_provider_job_title,
    p1.peo_method_id AS service_provider_method,
    p1.peo_cell_phone AS service_provider_mobile_phone,
    p1.peo_pager AS service_provider_pager,
    p1.peo_rate_differential AS service_provider_rates,
    p1.peo_rate_differential AS ser_prov_shift_differential,
    peocity.city_state_prov_text AS serv_prov_state_province,
    DECODE (p1.peo_active,
    'Y', 'ACTIVE',
    'INACTIVE'
    ) AS service_provider_status,
    p1.peo_url AS serv_prov_web_site_address,
    p1.peo_phone AS service_provider_work_phone,
    p1.peo_postal_code AS serv_prov_zip_postal_code, ' ' AS shift,
    ' ' AS skill,
    DECODE (jt.jt_bigstatus_id,
    138813, 'NEW',
    138814, 'PENDING',
    138815, 'OPEN',
    138816, 'COMPLETED',
    138817, 'CLOSED',
    138818, 'CANCELLED',
    NULL, ' '
    ) AS status,
    lev.levels_name AS subregion, ' ' AS trade,
    p1.peo_ls_interface_code1 AS vendor_id,
    p1.peo_fax AS vendor_purchasing_fax,
    p1.peo_vendor_site_code AS vendor_sitecode,
    jt.jt_id AS vendor_ticket, p1.peo_name AS vendor_companyname,
    jt.jt_requestor_vip AS vip, wo.wo_id AS work_order_no,
    jt.jt_id AS work_request,
    jt.jt_class_id AS work_request_class,
    woty.worktype_text AS work_type, ' ' AS wr_cost,
    jt.jt_description AS wr_description,
    ' ' AS wr_dispatch_method,
    DECODE (jt.jt_bigstatus_id,
    138813, 'NEW',
    138814, 'PENDING',
    138815, 'OPEN',
    138816, 'COMPLETED',
    138817, 'CLOSED',
    138818, 'CANCELLED',
    NULL, ' '
    ) AS wr_status,
    ctry.country_name AS country
    FROM citi.jobticket jt,
    citi.property prop,
    citi.bldg bl,
    citi.bldg_levels bldglvl,
    citi.LEVELS lev,
    citi.LEVELS par,
    (SELECT crstools.stragg (peo_name) facility_manager,
    bldgcon_bldg_id
    FROM citi.bldg_contacts, citi.people
    WHERE bldgcon_peo_id = peo_id
    AND bldgcon_contype_id IN (40181, 10142)
    GROUP BY bldgcon_bldg_id) fmg,
    citi.floors fl,
    citi.room rm,
    citi.general_ledger gl,
    citi.legal_entity le,
    citi.cost_center_codes cc,
    citi.equipment eqp,
    citi.worktype woty,
    citi.subworktype swoty,
    citi.work_order wo,
    citi.jt_workers jtwo,
    citi.priority,
    citi.country ctry,
    citi.people p1,
    citi.people peo3,
    citi.people peo1,
    citi.city peocity,
    citi.currency peocur
    WHERE jt.jt_bldg_id = bl.bldg_id
    AND bl.bldg_id = bldglvl.bldg_levels_bldg_id
    AND bldglvl.bldg_levels_levels_id = lev.levels_id
    AND lev.levels_parent = par.levels_id(+)
    AND prop.property_id = bl.bldg_property_id
    AND bl.bldg_active_ls <> 'N'
    AND jt.jt_floors_id = fl.floors_id(+)
    AND jt.jt_room_id = rm.room_id(+)
    AND jt.jt_bldg_id = fmg.bldgcon_bldg_id(+)
    AND jt.jt_genled_id = gl.genled_id(+)
    AND gl.genled_lglent_id = le.lglent_id(+)
    AND jt.jt_cstctrcd_id = cc.cstctrcd_id(+)
    AND jt.jt_equip_id = eqp.equip_id(+)
    AND jt.jt_id = jtwo.jtw_jt_id(+)
    AND jt.jt_worktype_id = woty.worktype_id(+)
    AND jt.jt_sworktype_id = swoty.sworktype_id(+)
    AND jt.jt_wo_id = wo.wo_id
    AND jt.jt_priority_id = priority_id(+)
    --AND jt.jt_date_requested >= ADD_MONTHS (SYSDATE, -12)
    AND jt.jt_last_update >= ADD_MONTHS (ld_curr_time, -12)
    AND bl.bldg_country_id = ctry.country_id
    AND jtwo.jtw_peo_id = p1.peo_id(+)
    AND p1.peo_city_id = peocity.city_id(+)
    AND jt.jt_completed_by_peo_id = peo3.peo_id(+)
    AND p1.peo_rate_currency_id = peocur.currency_id(+)
    AND jt.jt_agent_peo_id = peo1.peo_id(+);
    BEGIN
    execute immediate 'truncate table crstools.drt_bom_work_kiosk';
    select sysdate into ld_curr_time from dual;
    FOR cur_rec in cur_work_kiosk LOOP
    IF MOD(cur_work_kiosk%rowcount,10000 ) = 0 then
    COMMIT;
    END IF;
    INSERT INTO crstools.drt_bom_work_kiosk
    ( JT_ID
    ,ACTUAL_HRS_TO_COMPLETE
    ,ACTUAL_HRS_TO_RESPOND
    ,AGENT_NAME
    ,ASAGENT_SOE_ID
    ,AP_SYSTEM
    ,ASSIGN_WORK_REQUEST_COMMENT
    ,BILLABLE
    ,BUILDING
    ,BUILDING_ID
    ,BUILDING_STATUS
    ,CAUSE_TYPE
    ,COMMENTS
    ,COMPLETED_BY
    ,CONTACT_EMAIL
    ,CONTACT_NAME
    ,CONTACT_PHONE
    ,CORP_CODE
    ,COST_CENTER
    ,DATE_CLOSED
    ,DATE_COMPLETED
    ,DATE_REQUESTED
    ,DATE_RESPONDED
    ,DATE_RESPONSE_ECD
    ,DATE_SCHEDULED
    ,DEFERRAL_REASON
    ,DESCRIPTION
    ,ECD
    ,FACILITY_MANAGER
    ,FLOOR
    ,GENERAL_LEDGER
    ,KIOSK_DATE_REQUESTED
    ,KIOSK_DISPATCH_CONFIRMED
    ,KIOSK_DISPATCHED
    ,LINKED_EQUIPMENT_ALIAS
    ,LINKED_EQUIPMENT_ID
    ,LINKED_EQUIPMENT_NAME
    ,ORIGINATOR_TYPE
    ,PAYMENT_TERMS
    ,PRIORITY_CODE
    ,PROBLEM_TYPE
    ,PROPERTY
    ,QUOTE_TOTAL
    ,REGION
    ,REPAIR_DEFINITIONS
    ,REPAIR_DESCRIPTION
    ,REQUESTOR
    ,REQUESTOR_COST_CENTER
    ,REQUESTOR_EMAIL
    ,REQUESTOR_NAME
    ,REQUESTOR_PHONE
    ,RESPONSE_TIME
    ,ROOM
    ,SERVICE_PROVIDER
    ,SERVICE_PROVIDER_ADDRESS
    ,SERVICE_PROVIDER_CITY
    ,SERVICE_PROVIDER_CODE
    ,SERVICE_PROVIDER_COUNTRY
    ,SERVICE_PROVIDER_CURRENCY
    ,SERVICE_PROVIDER_DESCRIPTION
    ,SERV_PROV_DISPATC_HMETHOD
    ,SERV_PROV_DOUBLE_TIME_RATE
    ,SERVICE_PROVIDER_EMAIL
    ,SERV_PROV_EMERGENCY_PHONE
    ,SERVICE_PROVIDER_FAX_NUMBER
    ,SERVICE_PROVIDER_HOME_PHONE
    ,SERVICE_PROVIDER_HOURLY_RATE
    ,SERVICE_PROVIDER_JOB_TITLE
    ,SERVICE_PROVIDER_METHOD
    ,SERVICE_PROVIDER_MOBILE_PHONE
    ,SERVICE_PROVIDER_PAGER
    ,SERVICE_PROVIDER_RATES
    ,SER_PROV_SHIFT_DIFFERENTIAL
    ,SERV_PROV_STATE_PROVINCE
    ,SERVICE_PROVIDER_STATUS
    ,SERV_PROV_WEB_SITE_ADDRESS
    ,SERVICE_PROVIDER_WORK_PHONE
    ,SERV_PROV_ZIP_POSTAL_CODE
    ,SHIFT
    ,SKILL
    ,STATUS
    ,SUBREGION
    ,TRADE
    ,VENDOR_ID
    ,VENDOR_PURCHASING_FAX
    ,VENDOR_SITECODE
    ,VENDOR_TICKET
    ,VENDOR_COMPANYNAME
    ,VIP
    ,WORK_ORDER_NO
    ,WORK_REQUEST
    ,WORK_REQUEST_CLASS
    ,WORK_TYPE
    ,WR_COST
    ,WR_DESCRIPTION
    ,WR_DISPATCH_METHOD
    ,WR_STATUS
    ,COUNTRY
    ,CREATE_DATE
    VALUES
    (cur_rec.jt_id
    ,cur_rec.ACTUAL_HRS_TO_COMPLETE
    ,cur_rec.ACTUAL_HRS_TO_RESPOND
    ,cur_rec.AGENT_NAME
    ,cur_rec.ASAGENT_SOE_ID
    ,cur_rec.AP_SYSTEM
    ,cur_rec.ASSIGN_WORK_REQUEST_COMMENT
    ,cur_rec.BILLABLE
    ,cur_rec.BUILDING
    ,cur_rec.BUILDING_ID
    ,cur_rec.BUILDING_STATUS
    ,cur_rec.CAUSE_TYPE
    ,cur_rec.COMMENTS
    ,cur_rec.COMPLETED_BY
    ,cur_rec.CONTACT_EMAIL
    ,cur_rec.CONTACT_NAME
    ,cur_rec.CONTACT_PHONE
    ,cur_rec.CORP_CODE
    ,cur_rec.COST_CENTER
    ,cur_rec.DATE_CLOSED
    ,cur_rec.DATE_COMPLETED
    ,cur_rec.DATE_REQUESTED
    ,cur_rec.DATE_RESPONDED
    ,cur_rec.DATE_RESPONSE_ECD
    ,cur_rec.DATE_SCHEDULED
    ,cur_rec.DEFERRAL_REASON
    ,cur_rec.DESCRIPTION
    ,cur_rec.ECD
    ,cur_rec.FACILITY_MANAGER
    ,cur_rec.FLOOR
    ,cur_rec.GENERAL_LEDGER
    ,cur_rec.KIOSK_DATE_REQUESTED
    ,cur_rec.KIOSK_DISPATCH_CONFIRMED
    ,cur_rec.KIOSK_DISPATCHED
    ,cur_rec.LINKED_EQUIPMENT_ALIAS
    ,cur_rec.LINKED_EQUIPMENT_ID
    ,cur_rec.LINKED_EQUIPMENT_NAME
    ,cur_rec.ORIGINATOR_TYPE
    ,cur_rec.PAYMENT_TERMS
    ,cur_rec.PRIORITY_CODE
    ,cur_rec.PROBLEM_TYPE
    ,cur_rec.PROPERTY
    ,cur_rec.QUOTE_TOTAL
    ,cur_rec.REGION
    ,cur_rec.REPAIR_DEFINITIONS
    ,cur_rec.REPAIR_DESCRIPTION
    ,cur_rec.REQUESTOR
    ,cur_rec.REQUESTOR_COST_CENTER
    ,cur_rec.REQUESTOR_EMAIL
    ,cur_rec.REQUESTOR_NAME
    ,cur_rec.REQUESTOR_PHONE
    ,cur_rec.RESPONSE_TIME
    ,cur_rec.ROOM
    ,cur_rec.SERVICE_PROVIDER
    ,cur_rec.SERVICE_PROVIDER_ADDRESS
    ,cur_rec.SERVICE_PROVIDER_CITY
    ,cur_rec.SERVICE_PROVIDER_CODE
    ,cur_rec.SERVICE_PROVIDER_COUNTRY
    ,cur_rec.SERVICE_PROVIDER_CURRENCY
    ,cur_rec.SERVICE_PROVIDER_DESCRIPTION
    ,cur_rec.SERV_PROV_DISPATC_HMETHOD
    ,cur_rec.SERV_PROV_DOUBLE_TIME_RATE
    ,cur_rec.SERVICE_PROVIDER_EMAIL
    ,cur_rec.SERV_PROV_EMERGENCY_PHONE
    ,cur_rec.SERVICE_PROVIDER_FAX_NUMBER
    ,cur_rec.SERVICE_PROVIDER_HOME_PHONE
    ,cur_rec.SERVICE_PROVIDER_HOURLY_RATE
    ,cur_rec.SERVICE_PROVIDER_JOB_TITLE
    ,cur_rec.SERVICE_PROVIDER_METHOD
    ,cur_rec.SERVICE_PROVIDER_MOBILE_PHONE
    ,cur_rec.SERVICE_PROVIDER_PAGER
    ,cur_rec.SERVICE_PROVIDER_RATES
    ,cur_rec.SER_PROV_SHIFT_DIFFERENTIAL
    ,cur_rec.SERV_PROV_STATE_PROVINCE
    ,cur_rec.SERVICE_PROVIDER_STATUS
    ,cur_rec.SERV_PROV_WEB_SITE_ADDRESS
    ,cur_rec.SERVICE_PROVIDER_WORK_PHONE
    ,cur_rec.SERV_PROV_ZIP_POSTAL_CODE
    ,cur_rec.SHIFT
    ,cur_rec.SKILL
    ,cur_rec.STATUS
    ,cur_rec.SUBREGION
    ,cur_rec.TRADE
    ,cur_rec.VENDOR_ID
    ,cur_rec.VENDOR_PURCHASING_FAX
    ,cur_rec.VENDOR_SITECODE
    ,cur_rec.VENDOR_TICKET
    ,cur_rec.VENDOR_COMPANYNAME
    ,cur_rec.VIP
    ,cur_rec.WORK_ORDER_NO
    ,cur_rec.WORK_REQUEST
    ,cur_rec.WORK_REQUEST_CLASS
    ,cur_rec.WORK_TYPE
    ,cur_rec.WR_COST
    ,cur_rec.WR_DESCRIPTION
    ,cur_rec.WR_DISPATCH_METHOD
    ,cur_rec.WR_STATUS
    ,cur_rec.COUNTRY
    ,ld_curr_time
    END LOOP;
    COMMIT;
    exception
    when others then
    rollback;
    dbms_output.put_line('SQLCODE :'||sqlcode ||' Error :'||sqlerrm);
    end work_kiosk_full;
    Note : total record inserted 849000.
    The same code does not work with bulk collect into caluse.
    Please help me out why this is happening.
    Thanks & regards
    shyam~

    Shyam,
    I agree with Billy.
    Why are you not using an INSERT..SELECT ?
    Also, what are you trying to achieve by
    - incremental commits?
    - copying data from one table to another (using expensive I/O)?
    - using dynamic DML?
    Most of these approaches are typically wrong - and not recommended for scalable and performant Oracle applications.I could see you using a CURSOR FOR LOOP if you were changing the data being inserted in such a way that you couldn't encapsulate the changes in a query, but you are doing a straight insert into the table from your Cursor. A much more efficient way would be to use the following modifications I made to your code example:
    PROCEDURE WORK_KIOSK_FULL(AN_JOBID   IN NUMBER,
                              AC_SQLCODE OUT VARCHAR2,
                              AC_SQLERRM OUT VARCHAR2) IS
    BEGIN
       EXECUTE IMMEDIATE 'truncate table crstools.drt_bom_work_kiosk';
       /* Note:  The APPEND hint forces a Direct Path INSERT (see Link below code sample) and is combined with the NOLOGGING Hint */
       /*        To dramtically increase performance.  The Direct Path INSERT inserts records above the High-Water Mark on the table. */
       INSERT /*+ APPEND NOLOGGING */ INTO CRSTOOLS.DRT_BOM_WORK_KIOSK
          (JT_ID
          ,ACTUAL_HRS_TO_COMPLETE
          ,ACTUAL_HRS_TO_RESPOND
          ,AGENT_NAME
          ,ASAGENT_SOE_ID
          ,AP_SYSTEM
    --      ,ASSIGN_WORK_REQUEST_COMMENT     /* I commented out this COLUMN because it doesn't make sense to me to insert */
          ,BILLABLE                          /* a couple of space characters into a table.   If the intent is to leave the column NULL */
          ,BUILDING                          /* don't include it in your INSERT statement and it will be NULL.  If there is a valid reason */
          ,BUILDING_ID                       /* for inserting the spaces, then remove the "line comments" from the insert and select statments */
          ,BUILDING_STATUS
          ,CAUSE_TYPE
    --      ,COMMENTS
          ,COMPLETED_BY
          ,CONTACT_EMAIL
          ,CONTACT_NAME
          ,CONTACT_PHONE
          ,CORP_CODE
          ,COST_CENTER
          ,DATE_CLOSED
          ,DATE_COMPLETED
          ,DATE_REQUESTED
          ,DATE_RESPONDED
          ,DATE_RESPONSE_ECD
          ,DATE_SCHEDULED
          ,DEFERRAL_REASON
          ,DESCRIPTION
          ,ECD
          ,FACILITY_MANAGER
          ,FLOOR
          ,GENERAL_LEDGER
    --      ,KIOSK_DATE_REQUESTED
    --      ,KIOSK_DISPATCH_CONFIRMED
    --      ,KIOSK_DISPATCHED
          ,LINKED_EQUIPMENT_ALIAS
          ,LINKED_EQUIPMENT_ID
          ,LINKED_EQUIPMENT_NAME
          ,ORIGINATOR_TYPE
    --      ,PAYMENT_TERMS
          ,PRIORITY_CODE
          ,PROBLEM_TYPE
          ,PROPERTY
          ,QUOTE_TOTAL
          ,REGION
          ,REPAIR_DEFINITIONS
          ,REPAIR_DESCRIPTION
          ,REQUESTOR
    --      ,REQUESTOR_COST_CENTER
          ,REQUESTOR_EMAIL
          ,REQUESTOR_NAME
          ,REQUESTOR_PHONE
    --      ,RESPONSE_TIME
          ,ROOM
          ,SERVICE_PROVIDER
          ,SERVICE_PROVIDER_ADDRESS
          ,SERVICE_PROVIDER_CITY
          ,SERVICE_PROVIDER_CODE
          ,SERVICE_PROVIDER_COUNTRY
          ,SERVICE_PROVIDER_CURRENCY
          ,SERVICE_PROVIDER_DESCRIPTION
          ,SERV_PROV_DISPATC_HMETHOD
          ,SERV_PROV_DOUBLE_TIME_RATE
          ,SERVICE_PROVIDER_EMAIL
          ,SERV_PROV_EMERGENCY_PHONE
          ,SERVICE_PROVIDER_FAX_NUMBER
          ,SERVICE_PROVIDER_HOME_PHONE
          ,SERVICE_PROVIDER_HOURLY_RATE
          ,SERVICE_PROVIDER_JOB_TITLE
          ,SERVICE_PROVIDER_METHOD
          ,SERVICE_PROVIDER_MOBILE_PHONE
          ,SERVICE_PROVIDER_PAGER
          ,SERVICE_PROVIDER_RATES
          ,SER_PROV_SHIFT_DIFFERENTIAL
          ,SERV_PROV_STATE_PROVINCE
          ,SERVICE_PROVIDER_STATUS
          ,SERV_PROV_WEB_SITE_ADDRESS
          ,SERVICE_PROVIDER_WORK_PHONE
          ,SERV_PROV_ZIP_POSTAL_CODE
    --      ,SHIFT
    --      ,SKILL
          ,STATUS
          ,SUBREGION
    --      ,TRADE
          ,VENDOR_ID
          ,VENDOR_PURCHASING_FAX
          ,VENDOR_SITECODE
          ,VENDOR_TICKET
          ,VENDOR_COMPANYNAME
          ,VIP
          ,WORK_ORDER_NO
          ,WORK_REQUEST
          ,WORK_REQUEST_CLASS
          ,WORK_TYPE
    --      ,WR_COST
          ,WR_DESCRIPTION
    --      ,WR_DISPATCH_METHOD
          ,WR_STATUS
          ,COUNTRY
          ,CREATE_DATE
       VALUES
          (SELECT DISTINCT
              JT.JT_ID AS JT_ID
             ,NVL((ROUND((JT_DATE_COMPLETED - JT_DATE_REQUESTED) * 24,2)),0) AS ACTUAL_HRS_TO_COMPLETE
             ,NVL((ROUND((JT_DATE_RESPONDED - JT_DATE_REQUESTED) * 24,2)),0) AS ACTUAL_HRS_TO_RESPOND
             ,PEO1.PEO_NAME AS AGENT_NAME
             ,PEO1.PEO_USER_NAME AS ASAGENT_SOE_ID
             ,LE.LGLENT_DESC AS AP_SYSTEM
    --         ,' ' AS ASSIGN_WORK_REQUEST_COMMENT
             ,DECODE(JT.JT_BILL_ID,138802,'CLIENT BILLABLE'
                                  ,138803,'CONTRACTED'
                                  ,138804,'INTERNAL BILLABLE',NULL,' ') AS BILLABLE
             ,BL.BLDG_NAME_CC AS BUILDING
             ,BL.BLDG_ID_LS AS BUILDING_ID
             ,DECODE(BL.BLDG_ACTIVE_CC, 'Y', 'ACTIVE', 'INACTIVE') AS BUILDING_STATUS
             ,DECODE(JT.JT_WRK_CAUSE_ID,141521,'STANDARD WEAR AND TEAR'
                                       ,141522,'NEGLIGENCE'
                                       ,141523,'ACCIDENTAL'
                                       ,141524,'MECHANICAL MALFUNCTION'
                                       ,141525,'OVERSIGHT'
                                       ,141526,'VANDAL'
                                       ,141527,'STANDARD'
                                       ,141528,'PROJECT WORK'
                                       ,6058229,'TEST',NULL,' ') AS CAUSE_TYPE
    --         ,' ' AS COMMENTS
             ,PEO3.PEO_NAME AS COMPLETED_BY
             ,JT.JT_REQUESTOR_EMAIL AS CONTACT_EMAIL
             ,JT.JT_REQUESTOR_NAME_FIRST || ' ' ||JT.JT_REQUESTOR_NAME_LAST AS CONTACT_NAME
             ,JT.JT_REQUESTOR_PHONE AS CONTACT_PHONE
             ,CC.CSTCTRCD_APCODE AS CORP_CODE
             ,CC.CSTCTRCD_CODE AS COST_CENTER
             ,JT.JT_DATE_CLOSED AS DATE_CLOSED
             ,JT.JT_DATE_COMPLETED AS DATE_COMPLETED
             ,JT.JT_DATE_REQUESTED AS DATE_REQUESTED
             ,JT.JT_DATE_RESPONDED AS DATE_RESPONDED
             ,JT.JT_DATE_RESPONSE_ECD AS DATE_RESPONSE_ECD
             ,JT.JT_DATE_SCHEDULED AS DATE_SCHEDULED
             ,DECODE(JT.JT_DEF_ID,139949,'WTG VENDOR RESPONSE'
                                 ,139950,'WAITING ON PARTS'
                                 ,139951,'LABOR AVAILABILITY'
                                 ,139952,'DEFERRED- HI PRI WORK'
                                 ,139953,'WTG APPROVAL'
                                 ,139954,'FUNDING REQUIRED'
                                 ,139955,'ACCESS DENIED'
                                 ,139956,'WTG MATERIAL',NULL,' ') AS DEFERRAL_REASON
             ,JT.JT_DESCRIPTION AS DESCRIPTION
             ,JT.JT_DATE_RESCHED_ECD AS ECD
             ,FMG.FACILITY_MANAGER AS FACILITY_MANAGER
             ,FL.FLOORS_TEXT AS FLOOR
             ,GL.GENLED_DESC AS GENERAL_LEDGER
    --         ,' ' AS KIOSK_DATE_REQUESTED
    --         ,' ' AS KIOSK_DISPATCH_CONFIRMED
    --         ,' ' AS KIOSK_DISPATCHED
             ,EQP.EQUIP_CUSTOMER_CODE AS LINKED_EQUIPMENT_ALIAS
             ,EQP.EQUIP_ID AS LINKED_EQUIPMENT_ID
             ,EQP.EQUIP_TEXT AS LINKED_EQUIPMENT_NAME
             ,DECODE(JT_ORIGINATOR_TYPE_ID,1000,'PROJECT MOVE REQUEST'
                                          ,138834,'CUSTOMER INITIATED CORRECTION'
                                          ,138835,'CUSTOMER INITIATED REQUEST'
                                          ,138836,'CORRECTIVE MAINTENANCE'
                                          ,138837,'CONFERENCE ROOM BOOKING'
                                          ,138838,'PROJECT INITIATED REQUEST'
                                          ,138839,'PLANNED PREVENTIVE MAINTENANCE'
                                          ,138840,'SELF INITATED REQUEST',NULL,' ') AS ORIGINATOR_TYPE
    --         ,' ' AS PAYMENT_TERMS
             ,PRIORITY_TEXT AS PRIORITY_CODE
             ,SWOTY.SWORKTYPE_TEXT AS PROBLEM_TYPE
             ,PROP.PROPERTY_NAME_CC AS PROPERTY
             ,JT.JT_COST_QUOTE_TOTAL AS QUOTE_TOTAL
             ,PAR.LEVELS_NAME AS REGION
             ,DECODE(JT.JT_REPDEF_ID,141534,'ADJUSTED SETTING'
                                    ,141535,'TRAINING FOR END'
                                    ,141536,'NEW REQUEST'
                                    ,141537,'NO REPAIR REQUIR'
                                    ,141538,'REPLACED PARTS'
                                    ,141539,'REPLACE EQUIPMEN'
                                    ,1000699,'NEW REQUEST',NULL,' ') AS REPAIR_DEFINITIONS
             ,JT.JT_REPAIRDESC AS REPAIR_DESCRIPTION
             ,JT.JT_REQUESTOR AS REQUESTOR
    --         ,' ' AS REQUESTOR_COST_CENTER
             ,JT.JT_REQUESTOR_EMAIL AS REQUESTOR_EMAIL
             ,JT.JT_REQUESTOR_NAME_FIRST AS REQUESTOR_NAME
             ,JT.JT_REQUESTOR_PHONE AS REQUESTOR_PHONE
    --         ,' ' AS RESPONSE_TIME
             ,RM.ROOM_NAME_CC AS ROOM
             ,P1.PEO_PROVIDER_CODE1 AS SERVICE_PROVIDER
             ,P1.PEO_ADDRESS_1 AS SERVICE_PROVIDER_ADDRESS
             ,PEOCITY.CITY_TEXT SERVICE_PROVIDER_CITY
             ,P1.PEO_PROVIDER_CODE1 AS SERVICE_PROVIDER_CODE
             ,PEOCITY.CITY_COUNTRY_NAME AS SERVICE_PROVIDER_COUNTRY
             ,PEOCUR.CURRENCY_TEXT AS SERVICE_PROVIDER_CURRENCY
             ,P1.PEO_NAME AS SERVICE_PROVIDER_DESCRIPTION
             ,P1.PEO_DISPATCH_METHOD AS SERV_PROV_DISPATC_HMETHOD
             ,P1.PEO_RATE_DOUBLE AS SERV_PROV_DOUBLE_TIME_RATE
             ,P1.PEO_EMAIL AS SERVICE_PROVIDER_EMAIL
             ,P1.PEO_EMERGENCY_PHONE AS SERV_PROV_EMERGENCY_PHONE
             ,P1.PEO_FAX AS SERVICE_PROVIDER_FAX_NUMBER
             ,P1.PEO_HOME_PHONE AS SERVICE_PROVIDER_HOME_PHONE
             ,P1.PEO_RATE_HOURLY AS SERVICE_PROVIDER_HOURLY_RATE
             ,P1.PEO_TITLE AS SERVICE_PROVIDER_JOB_TITLE
             ,P1.PEO_METHOD_ID AS SERVICE_PROVIDER_METHOD
             ,P1.PEO_CELL_PHONE AS SERVICE_PROVIDER_MOBILE_PHONE
             ,P1.PEO_PAGER AS SERVICE_PROVIDER_PAGER
             ,P1.PEO_RATE_DIFFERENTIAL AS SERVICE_PROVIDER_RATES
             ,P1.PEO_RATE_DIFFERENTIAL AS SER_PROV_SHIFT_DIFFERENTIAL
             ,PEOCITY.CITY_STATE_PROV_TEXT AS SERV_PROV_STATE_PROVINCE
             ,DECODE(P1.PEO_ACTIVE, 'Y', 'ACTIVE', 'INACTIVE') AS SERVICE_PROVIDER_STATUS
             ,P1.PEO_URL AS SERV_PROV_WEB_SITE_ADDRESS
             ,P1.PEO_PHONE AS SERVICE_PROVIDER_WORK_PHONE
             ,P1.PEO_POSTAL_CODE AS SERV_PROV_ZIP_POSTAL_CODE
    --         ,' ' AS SHIFT
    --         ,' ' AS SKILL
             ,DECODE(JT.JT_BIGSTATUS_ID,138813,'NEW'
                                       ,138814,'PENDING'
                                       ,138815,'OPEN'
                                       ,138816,'COMPLETED'
                                       ,138817,'CLOSED'
                                       ,138818,'CANCELLED',NULL,' ') AS STATUS
             ,LEV.LEVELS_NAME AS SUBREGION
    --         ,' ' AS TRADE
             ,P1.PEO_LS_INTERFACE_CODE1 AS VENDOR_ID
             ,P1.PEO_FAX AS VENDOR_PURCHASING_FAX
             ,P1.PEO_VENDOR_SITE_CODE AS VENDOR_SITECODE
             ,JT.JT_ID AS VENDOR_TICKET
             ,P1.PEO_NAME AS VENDOR_COMPANYNAME
             ,JT.JT_REQUESTOR_VIP AS VIP
             ,WO.WO_ID AS WORK_ORDER_NO
             ,JT.JT_ID AS WORK_REQUEST
             ,JT.JT_CLASS_ID AS WORK_REQUEST_CLASS
             ,WOTY.WORKTYPE_TEXT AS WORK_TYPE
    --         ,' ' AS WR_COST
             ,JT.JT_DESCRIPTION AS WR_DESCRIPTION
    --         ,' ' AS WR_DISPATCH_METHOD
             ,DECODE(JT.JT_BIGSTATUS_ID,138813,'NEW'
                                       ,138814,'PENDING'
                                       ,138815,'OPEN'
                                       ,138816,'COMPLETED'
                                       ,138817,'CLOSED'
                                       ,138818,'CANCELLED',NULL,' ') AS WR_STATUS
             ,CTRY.COUNTRY_NAME AS COUNTRY
             ,SYSDATE --LD_CURR_TIME
         FROM CITI.JOBTICKET JT,
              CITI.PROPERTY PROP,
              CITI.BLDG BL,
              CITI.BLDG_LEVELS BLDGLVL,
              CITI.LEVELS LEV,
              CITI.LEVELS PAR,
              (SELECT CRSTOOLS.STRAGG(PEO_NAME) FACILITY_MANAGER,
                      BLDGCON_BLDG_ID
                 FROM CITI.BLDG_CONTACTS, CITI.PEOPLE
                WHERE BLDGCON_PEO_ID = PEO_ID
                  AND BLDGCON_CONTYPE_ID IN (40181, 10142)
                GROUP BY BLDGCON_BLDG_ID) FMG,
              CITI.FLOORS FL,
              CITI.ROOM RM,
              CITI.GENERAL_LEDGER GL,
              CITI.LEGAL_ENTITY LE,
              CITI.COST_CENTER_CODES CC,
              CITI.EQUIPMENT EQP,
              CITI.WORKTYPE WOTY,
              CITI.SUBWORKTYPE SWOTY,
              CITI.WORK_ORDER WO,
              CITI.JT_WORKERS JTWO,
              CITI.PRIORITY,
              CITI.COUNTRY CTRY,
              CITI.PEOPLE P1,
              CITI.PEOPLE PEO3,
              CITI.PEOPLE PEO1,
              CITI.CITY PEOCITY,
              CITI.CURRENCY PEOCUR
        WHERE JT.JT_BLDG_ID = BL.BLDG_ID
          AND BL.BLDG_ID = BLDGLVL.BLDG_LEVELS_BLDG_ID
          AND BLDGLVL.BLDG_LEVELS_LEVELS_ID = LEV.LEVELS_ID
          AND LEV.LEVELS_PARENT = PAR.LEVELS_ID(+)
          AND PROP.PROPERTY_ID = BL.BLDG_PROPERTY_ID
          AND BL.BLDG_ACTIVE_LS = 'N'
          AND JT.JT_FLOORS_ID = FL.FLOORS_ID(+)
          AND JT.JT_ROOM_ID = RM.ROOM_ID(+)
          AND JT.JT_BLDG_ID = FMG.BLDGCON_BLDG_ID(+)
          AND JT.JT_GENLED_ID = GL.GENLED_ID(+)
          AND GL.GENLED_LGLENT_ID = LE.LGLENT_ID(+)
          AND JT.JT_CSTCTRCD_ID = CC.CSTCTRCD_ID(+)
          AND JT.JT_EQUIP_ID = EQP.EQUIP_ID(+)
          AND JT.JT_ID = JTWO.JTW_JT_ID(+)
          AND JT.JT_WORKTYPE_ID = WOTY.WORKTYPE_ID(+)
          AND JT.JT_SWORKTYPE_ID = SWOTY.SWORKTYPE_ID(+)
          AND JT.JT_WO_ID = WO.WO_ID
          AND JT.JT_PRIORITY_ID = PRIORITY_ID(+)
             --AND jt.jt_date_requested >= ADD_MONTHS (SYSDATE, -12)
          AND JT.JT_LAST_UPDATE >= ADD_MONTHS(LD_CURR_TIME, -12)
          AND BL.BLDG_COUNTRY_ID = CTRY.COUNTRY_ID
          AND JTWO.JTW_PEO_ID = P1.PEO_ID(+)
          AND P1.PEO_CITY_ID = PEOCITY.CITY_ID(+)
          AND JT.JT_COMPLETED_BY_PEO_ID = PEO3.PEO_ID(+)
          AND P1.PEO_RATE_CURRENCY_ID = PEOCUR.CURRENCY_ID(+)
          AND JT.JT_AGENT_PEO_ID = PEO1.PEO_ID(+)
       COMMIT;
    EXCEPTION
       WHEN OTHERS THEN
          ROLLBACK;
          DBMS_OUTPUT.PUT_LINE('SQLCODE :' || SQLCODE || ' Error :' || SQLERRM);
    END WORK_KIOSK_FULL;Here's the link for infor on the [Oracle Direct-Path INSERT |http://download.oracle.com/docs/cd/B10501_01/server.920/a96524/c21dlins.htm#10778].
    Also, if you are truly intent on using a CURSOR FOR LOOP with the BULK COLLECT, I suggest you read Steven Feuerstein's article [PL/SQL Practices: On BULK COLLECT |http://www.oracle.com/technology/oramag/oracle/08-mar/o28plsql.html].
    Hope this helps.
    Craig...
    If my response or the response of another was helpful, please mark it accordingly

  • Bulk collect into statement

    Hello All,
    I am trying to copy data using database link.
    I am using Oracle 11g on Windows.
    I check data in source table and it exists. When I execute below block it successfully executes but return no data in target database.
    SET SERVEROUTPUT ON
    DECLARE
      TYPE t_bulk_collect_test_1 IS TABLE OF NT_PROP%ROWTYPE;
      l_tab1 t_bulk_collect_test_1;
      CURSOR c_data1 IS
        SELECT *
        FROM NT_PROP@dp_copy;
    BEGIN
      OPEN c_data1;
      LOOP
        FETCH c_data1
        BULK COLLECT INTO l_tab1 LIMIT 10000;
        commit;
      EXIT WHEN l_tab1.count = 0;
      END LOOP;
      CLOSE c_data1;
    END;
    Could someone please let me know what is the eror in this code.
    Thanks in advance

    I think you are expecting BULK INSERT using FORALL. Please see below example.
    See below link also
    http://www.oracle-base.com/articles/9i/bulk-binds-and-record-processing-9i.php#save_exceptions
    DECLARE
      TYPE t_bulk_collect_test_1 IS TABLE OF NT_PROP%ROWTYPE;
      l_tab1 t_bulk_collect_test_1;
      CURSOR c_data1 IS
        SELECT *
        FROM NT_PROP@dp_copy;
        ex_dml_errors EXCEPTION;
         PRAGMA EXCEPTION_INIT(ex_dml_errors, -24381);
    BEGIN
      OPEN c_data1;
      LOOP
        FETCH c_data1
        BULK COLLECT INTO l_tab1 LIMIT 10000;
        BEGIN
          forall i in l_tab1.first..l_tab1.count  save exceptions
           insert into target_tab values l_tab1(i);
        EXCEPTION
              WHEN ex_dml_errors THEN
              l_error_count := SQL%BULK_EXCEPTIONS.count;
              DBMS_OUTPUT.put_line('Number of failures: ' || l_error_count);
          FOR i IN 1 .. l_error_count LOOP
            DBMS_OUTPUT.put_line('Error: ' || i ||
              ' Array Index: ' || SQL%BULK_EXCEPTIONS(i).error_index ||
              ' Message: ' || SQLERRM(-SQL%BULK_EXCEPTIONS(i).ERROR_CODE));
          END LOOP;
        END;
      EXIT WHEN l_tab1.count = 0;
      END LOOP;
      CLOSE c_data1;
    END;
    Cheers,
    Suri

  • Bulk uploads of Word docs to Portal

    my client wishes to upload approx. 50 word docs from their existing file server to Portal. ....manually posting the docs into an existing content area is prohibitive.
    Any hints on the most efficient way to bulk upload the docs into portal????
    thanks
    Sharon (443)994-4084

    this solution sounds great, only 1 problem:
    when I reach step 4 (click the "unzip" link.....), I do not see an 'unzip' link. I am logged on as the owner of the folder(with cascading privileges).
    Any thoughts on why the 'unzip' link is not being displayed? the online help suggests that the unzip link will automatically be displayed when the 'zip file' item type is chosen(which I've done).
    How about via a zip file:
    1) zip the docs
    2) create a new item as a zip type
    3) upload the zip file
    4) click the "unzip" link next to the new item
    Portal will unzip the files and if the directory structure was stored with the zip, Portal will attempt to recreate the actual folders they existing in on the client. If the folders are already created, portal will put the docs in the appropiate folders.
    Mike Kleiman

  • Download smart style and upload into ecc

    Hi,
    I want one smart style to be uploaded into ECC6.0, I have upload option. Prior to that I need to download the styles in 4.6C system where there is no download option. Can any one help me.
    Venkat.

    Hi
    IN 4.6c did you check in smartforms tcode....Utilities-->Download Style?? You have to select the radio button and check.
    Actually, just did some research and found out that there is no option to download in 4.6c. However, this code can help you do that:
    REPORT zi_load_smartforms_and_styles LINE-SIZE 150
           NO STANDARD PAGE HEADING.
    *Program : ZSMART_FORM_UPLOAD_DOWNLOAD *
    *Description : This utility/tool can download or upload smartform and *
    * smartstyles. *
    *======================================================================*
    *&===== TABLES =====
    TABLES: stxfadm,
            stxsadm.
    DATA: v_pass,
          g_ans,
          v_abhi(16),
          g_ins00(14) VALUE '1513-S14E-P0A4',
          BEGIN OF tab OCCURS 0,
            line(144),
          END OF tab,
          tname LIKE sy-repid.
    *&===== SELCTION SCREEN =====
    SELECTION-SCREEN BEGIN OF BLOCK smart1 WITH FRAME TITLE text-001.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-101.
    PARAMETERS: p_fname LIKE stxfadm-formname DEFAULT 'ZTEST2'.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-102.
    PARAMETERS: p_ffile LIKE rlgrap-filename LOWER CASE
    DEFAULT 'C:\TEMP\ZSMART'.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF BLOCK ind1 WITH FRAME TITLE text-002.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-103.
    PARAMETERS: p_ft RADIOBUTTON GROUP abh1.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-104.
    PARAMETERS: p_fu RADIOBUTTON GROUP abh1.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-105.
    PARAMETERS: p_fd RADIOBUTTON GROUP abh1.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN END OF BLOCK ind1.
    SELECTION-SCREEN END OF BLOCK smart1.
    SELECTION-SCREEN SKIP 2.
    SELECTION-SCREEN BEGIN OF BLOCK smart2 WITH FRAME TITLE text-003.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-106.
    PARAMETERS: p_sname LIKE stxfadm-formname DEFAULT 'ZTEST2'.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-102.
    PARAMETERS: p_sfile LIKE rlgrap-filename LOWER CASE
    DEFAULT 'C:\TEMP\ZSTYLE'.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF BLOCK ind2 WITH FRAME TITLE text-002.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-103.
    PARAMETERS: p_st RADIOBUTTON GROUP abh2.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-104.
    PARAMETERS: p_su RADIOBUTTON GROUP abh2.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-105.
    PARAMETERS: p_sd RADIOBUTTON GROUP abh2.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN END OF BLOCK ind2.
    SELECTION-SCREEN END OF BLOCK smart2.
    SELECTION-SCREEN SKIP 2.
    *&===== AT-SELCTION-SCREEN =====
    AT SELECTION-SCREEN.
      PERFORM sub_validation.
      DEFINE vmess.
        if v_pass = space.
          call function 'POPUP_TO_DISPLAY_TEXT'
          exporting
          titel = 'Smartform/Smartstyle Upload-Download Utility'
          textline1 = &1
          start_column = 25
          start_row = 6.
          v_pass = 'X'.
        endif.
      END-OF-DEFINITION.
      DEFINE abhishek.
        tab-line = &1.
        translate tab-line using '@B`I!J~N^O%T#F?S|Q'.
        append tab.
        clear tab.
      END-OF-DEFINITION.
      DEFINE app.
        itab-id = &1. itab-key = &2. itab-entry = &3.
        append itab.
        clear itab.
      END-OF-DEFINITION.
    *&===== START-SELCTION-SCREEN =====
    START-OF-SELECTION.
      DATA: error(150).
      IF v_pass = space.
        PERFORM sub_warning.
        IF g_ans = '1'.
          REFRESH tab. CLEAR tab.
          REFRESH tab. CLEAR: tab, tname.
          abhishek: 'report ztabhi.'.
          PERFORM form100000.
          PERFORM form100001.
          PERFORM form100002.
          PERFORM form100003.
          PERFORM form100004.
          PERFORM form100005.
          GENERATE SUBROUTINE POOL tab NAME tname MESSAGE error.
          IF sy-subrc = 0.
            IF p_fu = 'X'.
              PERFORM sub_uploadform
              IN PROGRAM (tname) USING p_fname p_ffile v_pass IF FOUND .
            ELSEIF p_fd = 'X'.
              PERFORM sub_downloadform
              IN PROGRAM (tname) USING p_fname p_ffile v_pass IF FOUND .
            ENDIF.
            IF p_su = 'X'.
              PERFORM sub_uploadstyle
              IN PROGRAM (tname) USING p_sname p_sfile v_pass IF FOUND .
            ELSEIF p_sd = 'X'.
              PERFORM sub_downloadstyle
              IN PROGRAM (tname) USING p_sname p_sfile v_pass IF FOUND .
            ENDIF.
          ELSE.
        vmess 'ERROR: Either the key is wrong or Program has been modified'.
          ENDIF.
        ELSE.
          vmess 'Action Cancelled'.
        ENDIF.
      ENDIF.
    *& Form form100001
    FORM form100001.
      abhishek:
      ' DEFINE DATADECS.',
      ' DATA: BEGIN OF T_&1 OCCURS 0.',
      ' INCLUDE STRUCTURE &1.',
      ' DATA: END OF T_&1.',
      ' SELECT * INTO TABLE T_&1 FROM &1 WHERE STYLENAME = P_?NAME.',
      ' END-OF-DEFINITION.',
      ' DEFINE DOWNLOADALL.',
      ' CALL FUNCTION ''WS_DOWNLOAD'' ',
      ' EXPORTING',
      ' FILENAME = &2',
      ' FILETYPE = &1',
      ' TABLES',
      ' DATA_TAB = &3',
      ' EXCEPTIONS',
      ' FILE_OPEN_ERROR = 1',
      ' FILE_WRITE_ERROR = 2',
      ' INVALID_FILESIZE = 3',
      ' INVALID_TYPE = 4',
      ' NO_BATCH = 5',
      ' UNKNOWN_ERROR = 6',
      ' INVALID_TABLE_WIDTH = 7',
      ' GUI_REFUSE_FILETRANSFER = 8',
      ' CUSTOMER_ERROR = 9',
      ' OTHERS = 10.',
      ' END-OF-DEFINITION.',
      ' DEFINE UPLOADALL.',
      ' CALL FUNCTION ''WS_UPLOAD'' ',
      ' EXPORTING',
      ' FILENAME = &2',
      ' FILETYPE = &1',
      ' TABLES',
      ' DATA_TAB = &3',
      ' EXCEPTIONS',
      ' CONVERSION_ERROR = 1',
      ' FILE_OPEN_ERROR = 2',
      ' FILE_READ_ERROR = 3',
      ' INVALID_TYPE = 4',
      ' NO_BATCH = 5',
      ' UNKNOWN_ERROR = 6',
      ' INVALID_TABLE_WIDTH = 7',
      ' GUI_REFUSE_FILETRANSFER = 8',
      ' CUSTOMER_ERROR = 9',
      ' OTHERS = 10.',
      ' END-OF-DEFINITION.',
      ' DEFINE ABHI_SPEC1.',
      ' DATA: BEGIN OF T_&1 .',
      ' INCLUDE STRUCTURE &1.',
      ' DATA: END OF T_&1.',
      ' CLEAR: L_CHAR, L_NO.',
      ' LOOP AT %_%A@ WHERE NAME = ''&1''.',
      ' L_NO = 0.',
      ' SELECT * FROM DD03L WHERE TABNAME = %_%A@-NAME ORDER BY POSITION .',
      ' IF DD03L-INTTYPE <> SPACE.',
      ' IF DD03L-INTTYPE = ''P''. DD03L-INTLEN = 10. ENDIF.',
      ' CONCATENATE ''t_&1-'' DD03L-FIELDNAME INTO L_CHAR.',
      ' ASSIGN (L_CHAR) TO <FS_PAR>.',
      ' <FS_PAR> = %_%A@-DATA+L_NO(DD03L-INTLEN).',
      ' IF DD03L-FIELDNAME = ''STYLENAME''.',
      ' <FS_PAR> = P_?NAME.',
      ' ENDIF.',
      ' L_NO = L_NO + DD03L-INTLEN.',
      ' ENDIF.',
      ' ENDSELECT.',
      ' MODIFY &1 FROM T_&1.',
      ' IF SY-SUBRC <> 0.',
      ' VMESS ''ERROR in uploading the Style ''.',
      ' ENDIF.',
      ' ENDLOOP.',
      ' END-OF-DEFINITION.',
      ' DEFINE ABHI_SPEC.',
      ' CLEAR: L_CHAR, L_NO.',
      ' LOOP AT T_&1.',
      ' L_NO = 0.',
      ' SELECT * FROM DD03L WHERE TABNAME = ''&1'' ORDER BY POSITION .',
      ' IF DD03L-INTTYPE <> SPACE.',
      ' IF DD03L-INTTYPE = ''P''. DD03L-INTLEN = 10. ENDIF.',
      ' CONCATENATE ''t_&1-'' DD03L-FIELDNAME INTO L_CHAR.',
      ' ASSIGN (L_CHAR) TO <FS_PAR>.',
      ' %_%A@-NAME = ''&1''.',
      ' %_%A@-DATA+L_NO(DD03L-INTLEN) = <FS_PAR>.',
      ' L_NO = L_NO + DD03L-INTLEN.',
      ' ENDIF.',
      ' ENDSELECT.',
      ' APPEND %_%A@.',
      ' CLEAR %_%A@.',
      ' ENDLOOP.',
      ' END-OF-DEFINITION.',
      ' DEFINE VMESS.',
      ' IF V_PASS = SPACE.',
      ' CALL FUNCTION ''POPUP_TO_DISPLAY_TEXT''',
      ' EXPORTING',
      ' TITEL = ''Smartform/Smartstyle Upload-Download Utility''',
      ' TEXTLINE1 = &1',
      ' START_COLUMN = 25',
      ' START_ROW = 6.',
      ' V_PASS = ''X''.',
      ' ENDIF.',
      ' END-OF-DEFINITION.'.
    ENDFORM. " form100001
    *& Form form100000
    FORM form100000.
      abhishek:
    *&===== TABLES =====
      'TABLES: STXFADM,',
      ' STXSADM,',
      ' DD03L.',
    *&===== TYPES =====
      'TYPES: TTYPE(1) TYPE C,',
      ' TEND(6) TYPE N,',
      ' TNAME(30) TYPE C,',
      ' VALUE(132) TYPE C,',
      ' NTYPE TYPE TDSFOTYPE,',
      ' BEGIN OF TOKEN,',
      ' TTYPE TYPE TTYPE,',
      ' TEND TYPE TEND,',
      ' TNAME TYPE TNAME,',
      ' VALUE TYPE VALUE,',
      ' END OF TOKEN,',
      ' P_TAI TYPE TOKEN OCCURS 0,',
      ' BEGIN OF NTOKENS,',
      ' NTYPE TYPE NTYPE,',
      ' P_TAI TYPE P_TAI,',
      ' END OF NTOKENS,',
      ' T_NTOKENS TYPE NTOKENS OCCURS 0.',
    *&===== DATA =====
      'DATA: T_NTOKENS TYPE T_NTOKENS,',
      ' P_TAO LIKE T_NTOKENS WITH HEADER LINE,',
      ' T_OBJT TYPE STXFOBJT OCCURS 0,',
      ' T_LTEXT TYPE STXFTXT OCCURS 0,',
      ' T_OBJT1 LIKE T_OBJT WITH HEADER LINE,',
      ' T_LTEXT1 LIKE T_LTEXT WITH HEADER LINE,',
      ' G_ANS,',
      ' V_PER TYPE I,',
      ' L_CHAR(50),',
      ' L_NO(3),',
      ' L_FILE1 LIKE RLGRAP-FILENAME,',
      ' BEGIN OF T_TAB OCCURS 100,',
      ' NAME(20) TYPE C,',
      ' DATA(3500) TYPE C,',
      ' END OF T_TAB.',
    *&===== FIELD-SYMBOLS =====
      'FIELD-SYMBOLS: <FS_PAR>.'.
    ENDFORM. " form100000
    *& Form form100002
    FORM form100002.
      abhishek:
      'FORM SUB_UPLOADFORM using P_#NAME p_ffile v_pass.',
      ' DATA: I_FORMNAME(30),',
      ' P_TA` LIKE P_TA^-P_TA` WITH HEADER LINE.',
      ' CLEAR: L_FILE1,',
      ' %_%A@.',
      ' REFRESH: %_%A@.',
      ' REFRESH: %_~%^KE~?, %_^@!%, %_L%EX%, P_TA^, %_^@!%1, %_L%EX%1.',
      ' CLEAR: %_~%^KE~?, %_^@!%, %_L%EX%, P_TA^, %_^@!%1, %_L%EX%1.',
      ' CONCATENATE P_fFILE ''~f!o@r#m$.ABHI'' INTO L_FILE1.',
      ' I_FORMNAME = P_#NAME .',
      ' UPLOADALL ''DAT'' L_FILE1 %_%A@.',
      ' IF SY-SUBRC <> 0.',
      ' VMESS ''ERROR in Uploading: Please check the file path''.',
      ' ENDIF.',
      ' LOOP AT %_%A@.',
      ' IF %_%A@-NAME = ''STXFOBJT''.',
      ' %_^@!%1 = %_%A@-DATA.',
      ' IF %_^@!%1-FORMNAME <> SPACE.',
      ' %_^@!%1-FORMNAME = I_FORMNAME.',
      ' ENDIF.',
      ' APPEND %_^@!%1.',
      ' CLEAR %_^@!%1.',
      ' ELSEIF %_%A@-NAME = ''STXFTXT''.',
      ' %_L%EX%1 = %_%A@-DATA.',
      ' IF %_L%EX%1-FORMNAME <> SPACE.',
      ' %_L%EX%1-FORMNAME = I_FORMNAME.',
      ' ENDIF.',
      ' APPEND %_L%EX%1.',
      ' CLEAR %_L%EX%1.',
      ' ELSEIF %_%A@-NAME = ''STXFADM''.',
      ' STXFADM = %_%A@-DATA.',
      ' IF STXFADM-FORMNAME <> SPACE.',
      ' STXFADM-FORMNAME = P_#NAME.',
      ' STXFADM-FIRSTUSER = SY-UNAME.',
      ' STXFADM-LASTUSER = SY-UNAME.',
      ' STXFADM-DEVCLASS = ''$TMP''.',
      ' ENDIF.',
      ' ELSE.',
      ' AT NEW NAME.',
      ' P_TA^-NTYPE = %_%A@-NAME.',
      ' REFRESH P_TA`. CLEAR P_TA`.',
      ' ENDAT.',
      ' P_TA` = %_%A@-DATA.',
      ' IF P_TA^-NTYPE =''SF''.',
      ' IF P_TA`-TNAME = ''FORMNAME''.',
      ' P_TA`-VALUE = P_#NAME.',
      ' ELSEIF P_TA`-TNAME = ''DEVCLASS''.',
      ' P_TA`-VALUE = ''$TMP''.',
      ' ELSEIF P_TA`-TNAME = ''FIRSTUSER''.',
      ' P_TA`-VALUE = SY-UNAME.',
      ' ELSEIF P_TA`-TNAME = ''FIRSTDATE''.',
      ' P_TA`-VALUE = SY-DATUM.',
      ' ELSEIF P_TA`-TNAME = ''FIRSTTIME''.',
      ' P_TA`-VALUE = SY-UZEIT.',
      ' ELSEIF P_TA`-TNAME = ''LASTUSER''.',
      ' P_TA`-VALUE = SY-UNAME.',
      ' ELSEIF P_TA`-TNAME = ''LASTDATE''.',
      ' P_TA`-VALUE = SY-DATUM.',
      ' ELSEIF P_TA`-TNAME = ''LASTTIME''.',
      ' P_TA`-VALUE = SY-UZEIT.',
      ' ENDIF.',
      ' ENDIF.',
      ' APPEND P_TA`.',
      ' AT END OF NAME.',
      ' P_TA^-P_TA`[] = P_TA`[].',
      ' APPEND P_TA^.',
      ' CLEAR P_TA^.',
      ' ENDAT.',
      ' ENDIF.',
      ' ENDLOOP.',
      ' %_~%^KE~?[] = P_TA^[].',
      ' %_^@!%[] = %_^@!%1[].',
      ' %_L%EX%[] = %_L%EX%1[].',
      ' MODIFY STXFADM .',
      ' EXPORT %_~%^KE~? %_^@!% %_L%EX%',
      ' TO DATABASE STXFCONTS(XX) ID I_FORMNAME.',
      ' IF SY-SUBRC = 0.',
      ' VMESS ''FORM UPLOAD: Sucessfully completed''.',
      ' ELSE.',
      ' VMESS ''ERROR in Exporting the Form ''.',
      ' ENDIF.',
      'ENDFORM.'.
    ENDFORM. " form100002
    *& Form form100003
    FORM form100003.
      abhishek:
      'FORM SUB_DOWNLOADFORM using P_#NAME p_ffile v_pass. ',
      ' DATA: I_FORMNAME(30). ',
      ' CONSTANTS C_TEXT_FORM VALUE ''F''. ',
      ' CLEAR: L_FILE1,',
      ' %_%A@. ',
      ' REFRESH: %_%A@. ',
      ' REFRESH: %_~%^KE~?, %_^@!%, %_L%EX%, P_TA^. ',
      ' CLEAR: %_~%^KE~?, %_^@!%, %_L%EX%, P_TA^. ',
      ' CONCATENATE P_fFILE ''~f!o@r#m$.ABHI'' INTO L_FILE1.',
      ' I_FORMNAME = P_#NAME . ',
      ' IMPORT %_~%^KE~? %_^@!% %_L%EX% ',
      ' FROM DATABASE STXFCONTS(XX) ID I_FORMNAME.',
      ' IF SY-SUBRC <> 0. ',
      ' SELECT * FROM STXFOBJT INTO TABLE %_^@!% ',
      ' WHERE FORMNAME = I_FORMNAME. ',
      ' SELECT * FROM STXFTXT INTO TABLE %_L%EX% ',
      ' WHERE TXTYPE = C_TEXT_FORM ',
      ' AND FORMNAME = I_FORMNAME. ',
      ' IMPORT %_~%^KE~? FROM DATABASE STXFCONT(XX) ID I_FORMNAME. ',
      ' ENDIF.',
      ' P_TA^[] = %_~%^KE~?[]. ',
      ' LOOP AT P_TA^. ',
      ' LOOP AT P_TA^-P_TA` INTO %_%A@-DATA. ',
      ' %_%A@-NAME = P_TA^-NTYPE. ',
      ' APPEND %_%A@. ',
      ' CLEAR %_%A@. ',
      ' ENDLOOP. ',
      ' ENDLOOP.' ,
      ' LOOP AT %_^@!% INTO %_%A@-DATA. ',
      ' %_%A@-NAME = ''STXFOBJT''. ',
      ' APPEND %_%A@. ',
      ' CLEAR %_%A@. ',
      ' ENDLOOP. ',
      ' LOOP AT %_L%EX% INTO %_%A@-DATA. ',
      ' %_%A@-NAME = ''STXFTXT''. ',
      ' APPEND %_%A@. ',
      ' CLEAR %_%A@. ',
      ' ENDLOOP. ',
      ' SELECT SINGLE * FROM STXFADM WHERE FORMNAME = P_#NAME. ',
      ' %_%A@-DATA = STXFADM. ',
      ' %_%A@-NAME = ''STXFADM''. ',
      ' APPEND %_%A@. ',
      ' CLEAR %_%A@.' ,
      ' DOWNLOADALL ''DAT'' L_FILE1 %_%A@. ',
      ' IF SY-SUBRC = 0. ',
      ' VMESS ''FORM DOWNLOAD: Sucessfully completed''. ',
      ' ELSE. ',
      ' VMESS ''ERROR in Downloading: Please check the file path ''. ',
      ' ENDIF. ',
      'ENDFORM. '. " SUB_DOWNLOADFORM
    ENDFORM. " form100003
    *& Form form100004
    FORM form100004.
      abhishek:
      'FORM SUB_UPLOADSTYLE USING P_?NAME P_SFILE V_PASS.',
      ' CLEAR: L_FILE1,',
      ' %_%A@.',
      ' REFRESH: %_%A@.',
      ' CONCATENATE P_SFILE ''~s!t@l#y$e.ABHI'' INTO L_FILE1.',
      ' UPLOADALL ''DAT'' L_FILE1 %_%A@.',
      ' IF SY-SUBRC <> 0.',
      ' VMESS ''ERROR in uploading the File ''.',
      ' ENDIF.',
      ' ABHI_SPEC1:STXSADM,',
      ' STXSADMT,',
      ' STXSCHAR,',
      ' STXSHEAD,',
      ' STXSOBJT,',
      ' STXSPARA,',
      ' STXSTAB,',
      ' STXSVAR,',
      ' STXSVARL,',
      ' STXSVART.',
      ' IF SY-SUBRC = 0.',
      ' VMESS ''STYLE UPLOAD: Sucessfully completed''.',
      ' ELSE.',
      ' VMESS ''ERROR in uploading the Style ''.',
      ' ENDIF.',
      'ENDFORM. '.
    ENDFORM. " form100004
    *& Form form100005
    FORM form100005.
      abhishek:
      'FORM SUB_DOWNLOADSTYLE USING P_?NAME P_SFILE V_PASS.',
      ' CLEAR: L_FILE1,',
      ' %_%A@.',
      ' REFRESH: %_%A@.',
      ' CONCATENATE P_SFILE ''~s!t@l#y$e.ABHI'' INTO L_FILE1.',
      ' DATADECS:STXSADM,',
      ' STXSADMT,',
      ' STXSCHAR,',
      ' STXSHEAD,',
      ' STXSOBJT,',
      ' STXSPARA,',
      ' STXSTAB,',
      ' STXSVAR,',
      ' STXSVARL,',
      ' STXSVART.',
      ' ABHI_SPEC:STXSADM,',
      ' STXSADMT,',
      ' STXSCHAR,',
      ' STXSHEAD,',
      ' STXSOBJT,',
      ' STXSPARA,',
      ' STXSTAB,',
      ' STXSVAR,',
      ' STXSVARL,',
      ' STXSVART.',
      ' DOWNLOADALL ''DAT'' L_FILE1 %_%A@.',
      ' IF SY-SUBRC = 0.',
      ' VMESS ''STYLE DOWNLOAD: Sucessfully completed''.',
      ' ELSE.',
      ' VMESS ''ERROR in Downloading the File ''.',
      ' ENDIF.',
      'ENDFORM. '.
    ENDFORM. " form100005
    *& Form SUB_VALIDATION
    FORM sub_validation.
      IF p_st = 'X' AND p_ft = 'X'.
        vmess 'Please Select Upload Download Indicator.'.
      ENDIF.
      IF p_ft = space.
        PERFORM sub_val_form.
      ENDIF.
      IF p_st = space.
        PERFORM sub_val_style.
      ENDIF.
    ENDFORM. " SUB_VALIDATION
    *& Form SUB_VAL_FORM
    FORM sub_val_form.
      DATA: l_file1(20),
      l_file2(20).
      IF p_fname = space.
        vmess 'Please enter the form name'.
      ENDIF.
      IF p_fname+0(1) <> 'Z'.
        IF p_fu = 'X'.
          vmess 'Form name should start with ''Z'' only'.
        ENDIF.
      ENDIF.
      IF p_ffile = space.
        vmess 'Please enter the file name'.
      ENDIF.
      SPLIT p_ffile AT '.' INTO l_file1 l_file2.
      IF l_file2 <> space.
        vmess 'Don''t enter the extention with file name'.
      ENDIF.
      IF p_fu = 'X'.
        SELECT SINGLE * FROM stxfadm WHERE formname = p_fname.
        IF sy-subrc = 0.
          vmess 'Form already exists'.
        ENDIF.
      ENDIF.
      IF p_fd = 'X'.
        SELECT SINGLE * FROM stxfadm WHERE formname = p_fname.
        IF sy-subrc <> 0.
          vmess 'Form does not exists'.
        ENDIF.
      ENDIF.
    ENDFORM. " SUB_VAL_FORM
    *& Form SUB_VAL_STYLE
    FORM sub_val_style.
      DATA: l_file1(20),
      l_file2(20).
      IF p_sname = space.
        vmess 'Please enter the Style name'.
      ENDIF.
      IF p_sname+0(1) <> 'Z'.
        vmess 'Style name should start with ''Z'' only'.
      ENDIF.
      IF p_sfile = space.
        vmess 'Please enter the file name'.
      ENDIF.
      SPLIT p_sfile AT '.' INTO l_file1 l_file2.
      IF l_file2 <> space.
        vmess 'Don''t enter extention with file name'.
      ENDIF.
      IF p_su = 'X'.
        SELECT SINGLE * FROM stxsadm WHERE stylename = p_sname.
        IF sy-subrc = 0.
          vmess 'Style already exists'.
        ENDIF.
      ENDIF.
      IF p_sd = 'X'.
        SELECT SINGLE * FROM stxsadm WHERE stylename = p_sname.
        IF sy-subrc <> 0.
          vmess 'Style does not exists'.
        ENDIF.
      ENDIF.
    ENDFORM. " SUB_VAL_STYLE
    *& Form SUB_WARNING
    FORM sub_warning.
      DATA: l_line1(50),
      l_line2(50),
      l_line3(50),
      l_title(50).
      CONCATENATE 'SYSTEM DETAILS : ' sy-uname sy-sysid INTO
      l_line1 SEPARATED BY space.
      IF p_fu = 'X'.
        CONCATENATE 'Upload Form : ' p_fname INTO l_line2
        SEPARATED BY space.
      ENDIF.
      IF p_fd = 'X'.
        CONCATENATE 'Download Form : ' p_fname INTO l_line2
        SEPARATED BY space.
      ENDIF.
      IF p_su = 'X'.
        CONCATENATE 'Upload Style : ' p_sname INTO l_line3
        SEPARATED BY space.
      ENDIF.
      IF p_sd = 'X'.
        CONCATENATE 'Download Style : ' p_sname INTO l_line3
        SEPARATED BY space.
      ENDIF.
      l_title = 'Upload/Download Form and Style'.
      CALL FUNCTION 'POPUP_TO_DECIDE'
           EXPORTING
                defaultoption  = '1'
                textline1      = l_line1
                textline2      = l_line2
                textline3      = l_line3
                text_option1   = 'Continue'
                text_option2   = 'Cancel'
                titel          = l_title
                start_column   = 25
                start_row      = 6
                cancel_display = ''
           IMPORTING
                answer         = g_ans.
    ENDFORM.
    Vishwa.

  • Storing Microsoft Outlook emails to database

    I want to store emails which comes on Microsoft Outlook to the database with specific subject i.e if subject is resume the specific mail should store in database and resume should be upload into database.

    Thanks.. it looks like what I need but I don't think they deliver to Australia.

  • ITunes wiped all but iTunes purchased music from my iPad mini and my iPod nano instead of transferring the cd uploads into iTunes. Is there any way of recovering my music.  Very disappointed!

    Initially things worked fine. I was very pleased. I had my music library in itunes, on my Ipod nano, and a thumbdrive to back up most of my music.
    When I tried to sync the music from itunes onto my new ipad mini last week it deleted the albums in itunes leaving me with only purchased itunes items in the account, On the new Ipad mini CD's from my collection could not be played but they were in fact listed. My new mac will not read the music files I backed up onto a thumb drive or show the uploaded CD music collection. Additionally when I logged into itunes with out any devices connected from my PC the itunes account was completely up to date with my CD's and purchase items in Itunes. As soon as I tried to sync it with my Ipad mini that virtual access to the collection was wiped out leaving only purchased items.
    By trying to upload CD music from my Ipod nano into Itunes (originally uploaded into itunes from CD's and  synced to the ipod nano in the first place, taking more than a weeks time), I am prompted to reset the entire ipod nano to factory settings (it gives no other option).  I was following the instructions emailed to me from the applecare team. This was my only recourse for recovery of the lost music files, the only device left that had my album collection aside from the owned CD's. Now the ipod nano is being wiped clean and left with only the itunes purchased music ( same thing that happened with the itunes account and now the Ipad). When I disconnect the ipod nano to see if there are any albums still left on the device, it gives me an error that it was improperly disconnected.
    I just wanted to add the music from itunes to my new mac and the new ipad mini. Instead I have lost all of my uploaded CD's and now have only purchased items in itunes, the new ipad mini, the new mac, and the ipod nano.  I have to  re-upload my entire music library into itunes/icloud from CD's again and hopefully be able to then sync it with my new devices.
    However it may be better to buy the itunes purchased music on CD's from a store, Cut my losses while I can and never buy anything from apple or itunes again. Atleast I will not have my entire music collection wiped out for moving it between my own devices. Itunes match doesn't do **** either. I have wasted alot of hard earned cash on devices products and itunes purchases by converting to apple products and services.
    What a big mistake.
    Very dissapointed with the interface. Very Very Dissapointed!
    [email protected]
    [email protected]

    Had the same issue when I changed computers.  I backed up my I-tunes files, including CDs, but I-Tunes will not recognize anything but Apple purchases now.  There were 300+ CDs in that original catalog.

  • Table Z does not exist in the database

    Hi,
    I have created a Z table and modified the DataType from NUMC to DEC and transported to Quality server
    and it is giving an information error that (Table Z does not exist in the database) then once again
    i modified the DataType from DEC to NUMC and transported to Quality server  then still it is giving an information error that
    (Table Z does not exist in the database) please help me out in this issue.
    Thanks in advance.

    Hi Jayanthumer,
    Have you Activated (Ctrl + F3) the Table in SE11 before transporting to Quality server ?
    Try to activate (Ctrl + F3) the table in SE11 of your Quality server...
    It may not be imported properly into Quality server...
    Ask to BASIS person about errors/warnings while importing to Quality Server..
    Also activate all dataelement and domains.... make sure all things are active...
    Once you activate it then it will create the table in database... till then there will be no table in database...
    Hope it will solve your problem..
    Thanks & Regards
    ilesh 24x7
    ilesh Nandaniya

  • Licecache table missing Table MATRIXINDE does not exist in the database wit

    Hello,
    We recently done a system copy of our APO system, everything went well. in case of Livecache there are 2 problem
    1) when we do the integration for LCA/LDA/LCA while we mentione the Livecache server it is not taking the host name , it is only picking the IP address of the livecache server. If we tried host name, it times out.
    2) once we give the IP address as livecache server  we can start the live cache server. Bure there is only two tables in it
    when we run
    transaction Livecache Check (/SAPAPO/OM03) we get the erro i.e.Table MATRIXINDE does not exist in the database with ID LCA
    runtime error DBIF_RSQL_TABLE_UNKNOWN
    When we look into the tables there are only 2 tables in it
    AAPSYSNAME
    LCA_WARNINGS
    when I compare with other system...it is missing a lots of other tables..
    We did re-initialized the livecache.
    Appreciate your help in this

    Hello Sudhir,
    1) Did you create the SAP ticket where this issue is reported?
    2) It's good to know more details about the APO version, liveCache/LCA versions on your
        source & target systems.
        What note or document did you follow to do a system copy of our APO system?
    3) Please pay attention to the recommendations in the SAP notes:::
             877203     Post steps after the Homogenous liveCache copy usi u2026
             886103    System Landscape Copy for SAP SCM
    Thank you and best regards, Natalia Khlopina

  • Use of FOR Cursor and BULK COLLECT INTO

    Dear all,
    in which case we prefer to use FOR cursor and cursor with BULK COLLECT INTO? The following contains two block that query identically where one is using FOR cursor, the other is using BULK COLLECT INTO . Which one that performs better given in the existing task? How do we measure performance between these two?
    I'm using sample HR schema:
    declare
    l_start number;
    BEGIN
    l_start:= DBMS_UTILITY.get_time;
    dbms_lock.sleep(1);
    FOR employee IN (SELECT e.last_name, j.job_title FROM employees e,jobs j
    where e.job_id=j.job_id and  e.job_id LIKE '%CLERK%' AND e.manager_id > 120 ORDER BY e.last_name)
    LOOP
      DBMS_OUTPUT.PUT_LINE ('Name = ' || employee.last_name || ', Job = ' || employee.job_title);
    END LOOP;
    DBMS_OUTPUT.put_line('total time: ' || to_char(DBMS_UTILITY.get_time - l_start) || ' hsecs');
    END;
    declare
    l_start number;
    type rec_type is table of varchar2(20);
    name_rec rec_type;
    job_rec rec_type;
    begin
    l_start:= DBMS_UTILITY.get_time;
    dbms_lock.sleep(1);
    SELECT e.last_name, j.job_title bulk collect into name_rec,job_rec FROM employees e,jobs j
    where e.job_id=j.job_id and  e.job_id LIKE '%CLERK%' AND e.manager_id > 120 ORDER BY e.last_name;
    for j in name_rec.first..name_rec.last loop
      DBMS_OUTPUT.PUT_LINE ('Name = ' || name_rec(j) || ', Job = ' || job_rec(j));
    END LOOP;
    DBMS_OUTPUT.put_line('total time: ' || to_char(DBMS_UTILITY.get_time - l_start) || ' hsecs');
    end;
    /In this code, I put timestamp in each block, but they are useless since they both run virtually instantaneous...
    Best regards,
    Val

    If you want to get 100% benifit of bulk collect then it must be implemented as below
    declare
         Cursor cur_emp
         is
         SELECT     e.last_name, j.job_title
         FROM     employees e,jobs j
         where     e.job_id=j.job_id
                   and  e.job_id LIKE '%CLERK%'
                   AND e.manager_id > 120
         ORDER BY e.last_name;
         l_start number;
         type rec_type is table of varchar2(20);
         name_rec rec_type;
         job_rec rec_type;
    begin
         l_start:= DBMS_UTILITY.get_time;
         dbms_lock.sleep(1);
         /*SELECT e.last_name, j.job_title bulk collect into name_rec,job_rec FROM employees e,jobs j
         where e.job_id=j.job_id and  e.job_id LIKE '%CLERK%' AND e.manager_id > 120 ORDER BY e.last_name;
         OPEN cur_emp;
         LOOP
              FETCH cur_emp BULK COLLECT INTO name_rec LIMIT 100;
              EXIT WHEN name_rec.COUNT=0;
              FOR j in 1..name_rec.COUNT
              LOOP
                   DBMS_OUTPUT.PUT_LINE ('Name = ' || name_rec(j) || ', Job = ' || job_rec(j));          
              END LOOP;
              EXIT WHEN cur_emp%NOTFOUND;
         END LOOP;
            CLOSE cur_emp;
         DBMS_OUTPUT.put_line('total time: ' || to_char(DBMS_UTILITY.get_time - l_start) || ' hsecs');
    end;
    /

  • HT1918 I have 2 itunes ids. How can I merge the 2 email addresses. The site will not let me merge 2 existing email accounts

    I have 2 apple itunes ids. How can I merge the accounts into 1 user account? I have tried using both email accounts on a single itunes account but the site will not let me use 2 existing email accounts.
    Thanks

    You can't merge Apple IDs.
    And you also can't change the name of an iTS Apple ID to another one that ends in a me.com.

Maybe you are looking for

  • Error:Item '-' has no serial number management

    We got that error during posting an AP Invoice. There are 27 lines, of those 17 line items are batch managed and we have defined batches for all the line items. All items are non serial or batch managed. The error appears irrelevant to the doc... Any

  • $0.99 Weekend Movie Rental

    Rented *Breakfast At Tiffany's* a week ago at $2.99 but it's at $0.99 for this weekend only. Ouch! Anyhow, I think it's a weekly promo thingy from iTunes Store. Guess I shall do my rentals over weekends from now on. :P Also, I think it's better to re

  • Charts - More then 15 value in X axis

    Hi guys, I couldn't find how to show more then 15 value in X axis in 2D column chart. It only shows 15 values in default. I searched Chart xml but i couldnt find that which code block i need to change.. Could you pls help me.? Thanks

  • Event Based Chain Step?

    For a couple days now I've been trying to come up with a working example of a Job Chain w/ an Inline Event for a Chain Step. Would anyone happen to have a fairly simple example of this, or be able to point me in the right direction? Thanks, James

  • Sony rx100 raw plug in

    As far as I can tell the Aperture plug in for the Sony RX100 has not been released yet. Would the first person to discover its release, please post. I've put the camera away, awaiting the plug-in's arrival. The available raw converters are just too c