Exporting and changing parameter

Hi abapers,
                    I am working object oriented abap and i need a small example of ,how to use
                   export and changing parameter of a method.
                   Can anyone help me regarding this
sanjay

See the below code. Hope it will be helpful.
<code>
REPORT zexp1 .
DATA : w_tax    type p decimals 2 ,
       w_salary type p decimals 2 .
CLASS CTAX DEFINITION.
PUBLIC SECTION.
   METHODS : TAX_CALC IMPORTING grade TYPE C
                      EXPORTING itax   TYPE P
                      CHANGING salary TYPE P .
ENDCLASS.
CLASS CTAX IMPLEMENTATION.
METHOD : TAX_CALC.
   CASE grade.
    WHEN 'A01'.
     itax = salary * '0.2'.
    WHEN 'A02'.
     itax = salary * '0.1'.
    WHEN OTHERS.
     itax = salary * '0.15'.
   ENDCASE.
    salary = salary - itax.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA : OREF1 TYPE REF TO CTAX.
CREATE OBJECT : OREF1.
w_salary = 30000.
w_tax    = 0    .
write:/5 'Before method call, salary and tax are' ,
           w_salary ,
           w_tax .
   CALL METHOD OREF1->TAX_CALC EXPORTING grade = 'A01'
                               IMPORTING itax = w_tax
                               CHANGING salary = w_salary.
    write:/5 'After method call, salary and tax are' ,
           w_salary ,
           w_tax .
</code>
The program contains a method TAX_CALC belonging to the class CTAX. It receives GRADE as IMPORTING parameter and SALARY as CHANGING parameter. Based on the grade, the EXPORTING parameter ITAX is calculated and the CHANGING parameter , SALARY is modified by deducting tax from it.
reward if you find it helpful.
Thanks & Regards,
Rajesh

Similar Messages

Export and import parameter

Hello friends,
DB: oracle 10 G
O/S: Sun soalris 10.
I have two sun system system both are having oracle 10 g
1 is prod database and another is test database
both the systems having same schema ,I want to make my test database upto date with production database before i used to use the complete export of prod database 1 schema and simply import it into test database but this process is taking very long time as the export dump file size is alomost 2 GB and while importing at the test database the import process is taking almost 5 to 6 hours ,
the test database schema having 10 days old old records when compare to production database.
so I just want to know is there any parameter in IMPORT so that the import process will take only changes information from export dumpfile while importing?
I am using tradition export and import method

thanks for your reply,
But right now I don'thave datapump export dump file and my production database is at remote place ,
again to take datapump export and copy the dump from netwrok takes again very long time network will also get busy to get 2 gb of file
right now at my place where test db is located I have only tradition export dump file
any more sujjestion in that

How to differentiate which is exporting and importing parameters when calling dynamically using CL_ABAP_OBJECTDESCR

Hello All,
First of all sorry for posting the question in general abap queries, since somehow I am not able to post in ABAP objects discussions.
My requirement is
Step 1 : To get table name as input and dynamically derive all fields which is going to be passed as parameters for a method
I did this using cl_abap_typedescr class
Step 2: Then Pass the values into the relevant fields using below code
ptab_line-name = 'DATA_TAB'.
ptab_line-kind =
cl_abap_objectdescr=>changing.
GET REFERENCE OF text_tab INTO
ptab_line-value.
INSERT ptab_line INTO TABLE ptab.
Step 3: Later I am calling dynamic class like
    CALL METHOD (class)=>(meth)
      PARAMETER-TABLE
        ptab
      EXCEPTION-TABLE
        etab.
I have read most of the post using Class cl_abap_typedescr=>describe_by_name to get parameter where I have to give correct parameter type.
But my issue is that I also need to know which fields are acting as importing , exporting and changing parameter.
Is there anyway to determine and pass method's paramter type as well ?
Thanks!
Regards,
Ramya

Might be I can use table view VSEOMEPARA

Parameter exporting or changing table

Hi Experts
I am wondering the difference between keyword exporting and changing to export table. which one i should choose?

Hi,
when you use exporting parameters you export it but can't change it.when you use changing to export u can always change the parameter while exporting.
Regards,
Rahul

Export and import change document for user master data

Dear Gurus,
I have two queries on change document for user master data:
1. Are there any approaches to export and import change document for user master data?
We often do system copy from PRD to QAS for UAT and troubleshooting. Before system copy we export the user master data from QAS and then import after the copy process. We would like to keep the change document for user master data on QAS from being refreshed from PRD for security reason.
2. Change document for Role change in QAS
When the role is created or modified in DEV and then transported to QAS, the role change document doen't include this change log. The role change document in QAS only records those role changes directly made in QAS.
Could you advise this is by SAP design or are there any approaches to record this transported role change in the role change document in QAS?
Thanks
YBY

1. Perhaps you want to consider a system copy to a "virtual system" for UAT?
2. Changes in QAS (as with PROD as well) will give you the delta. They should ideally be clean... You need to check the source system.
Another option is to generate the profiles in the target system. But for that your config has to be sqeaky clean and in sync, including very well maintained and sync'ed Su24 data.
Cheers,
Julius

"Changing" parameter and "Tables" parameter defintions in function module

If one defines "Changing" or "tables" parameters, they are treated as reference parameters.
It becomes obvious for "tables" parameters where one does not have option to check box for "Pass by Value". But for "Changing" parameters, they provide the checkbox for "Pass by Value". Even when you select this option, the function module seems to handle the parameter as a reference parameter (whatever changes you make to it in the function module are retained when you return back to a calling program).
My question is why then SAP has provided the checkbox of "Pass by Value" for "Changing" parameter?
Thanks.
Jitendra Mehta

Hi Chaiphon:
Thanks for explanation but I know the theory of "Pass by reference" versus "Pass by Value".
Let me rephrase my question.
When I use the importing parameter (say as a table with a dictionary table type) with reference (not "passing by value"), and if I modify the value of the parameter, the calling program (which calls function module) receives the changed value after the call.
When I use the importing parameter with "Pass by Value" box checked, the modifications made to the table inside the function module is not retained after the code leaves function module and returns to the calling program.
My question is why not the same behaviour with the "Changing parameter" in function module definition?
And if Changing parameters are always reference parameters, then why SAP has provided the "Pass by Value" check box?

I've made an export and import, the values of region, pageid...change?

I want to do an export and then an import of a group of pages. I want know if the values of the different pageid, regionid, etc, take different values when I do the import.
I have some procedures where I put the value of some regionid and I don't know if when I make the import I'll have to change these procedures or the values will be the same.
Thanks.
Nacho

hello
all the IDs change. All item (including pages, pagegroups, items, .... ) are re created so that means that all IDs change.
For your PL/SQL procedure, write a couple of function that will return the ID of elements by their name.
for example :
function get_page_group_id (p_name in varchar2) return number is
l_page_group number;
begin
select id
into l_page_group
from portal.wwsbr_all_content_areas
where name = p_name
and language = portal.wwctx_api.get_nls_language;
return l_page_group;
end get_page_group_id;

Hello, I have been exporting my photos with a watermark. Without changing any settings, half way through my day things changed, and now about 1 out of 7 photos have the watermark after export. Change you helpe me change this back please?

Hello, I have been exporting my photos with a watermark. Without changing any settings, half way through my day things changed, and now about 1 out of 7 photos have the watermark after export. Change you help me change this back please? Has anyone had this issue before?

I'm sorry to learn that you have endured the audio issues outlined in your post for almost 2 years SusanLM1! This is certainly not normal! Let's get to the bottom of this issue, first please confirm your phone model; your mention that you have the iPhone 5 but your post is on the iPhone 5S forum. Also, share the iOS version currently installed on your phone. What is your ZIP code? Does this happen mainly while you make/receive calls from a particular location (home, office, etc)?
AntonioC_VZW Follow us on Twitter at www.twitter.com/VZWSupport

Newbie about export and preserve changed jpeg/raw

Hi all,
It might be a stupid question, but I have not been able to find any answers to it via google or in this community ;-)
I am using a trial version of Aperture and like it very much and would like to use it to organize and manage my photos.
When I have processed some photos I would like to export these results/versions (e.g. high quality jpeg) in order to use/see them in other viewers and preserve the changes made for the future when (in many many years) Aperture might not be arround any more (theortically ;-).
But how is the workflow then getting the results/exported version back into Aperture? As I would love to have Aperture to manage it all but at the same time I am paranoid and need a phyical/final version of my work (not a master file and some corrections).
Am I missing something here? Or can't I get both?
Perhaps the answer is to start shooting raw only and then the process is more straight forward?
Thanks in advance for all input
Peter Michael

I think you want to shoot RAW, make your adjustments, export and archive the high quality jpegs.
You don't need to then import the jpegs back into Aperture. The RAW files and the adjustments you made are all already in Aperture.
If, the reason you're exporting your adjusted images is to perserve them for a time when Aperture may no longer exists, then I don't really see why you would bring them back into Aperture. If Aperture exists forever, you have your adjustments perseved in the library. If Aperture is gone, you have your adjusted jpegs in your archive, right?
Of course, always backup your library if you're running a managed library, and your library and images if you're running a referenced library.
Let me know if I'm misunderstanding what you're trying to accomplish.

IMovie sound quality changes after export and is terrible

when i export my imovie the sound quality becomes bad and sounds like my speakers are blown but their not, it sounds perfectly fine in imovie but after its exported it changes to worse, anyone know how to fix this?

Check your audio levels. and if necessary, reduce the levels so that the audio stays under the 0 DB line. If you have audio that is yellow or red, reduce the level. This video shows an example of how to do this. Click on the video All New Audio Editing."
http://www.apple.com/ilife/video-showcase/

How do you save changes made in iPhoto, and export the changed file. It keeps reverting back to the original.

How do you save changes made in iPhote, and export the changed picture file? When I select export, current format, it reverts to the original, wiping out all my work.

Try trash the com.apple.iPhoto.plist file from the HD/Users/ Your Name / library / preferences folder.
(On 10.7 or later: Hold the option (or alt) key while clicking on the Go menu in Finder to access the User Library)
(Remember you'll need to reset your User options afterwards. These include minor settings like the window colour and so on. Note: If you've moved your library you'll need to point iPhoto at it again.)
What's the plist file?
For new users: Every application on your Mac has an accompanying plist file. It records certain User choices. For instance, in your favourite Word Processor it remembers your choice of Default Font, on your Web Browser is remembers things like your choice of Home Page. It even recalls what windows you had open last if your app allows you to pick up from where you left off last. The iPhoto plist file remembers things like the location of the Library, your choice of background colour, whether you are running a Referenced or Managed Library, what preferences you have for autosplitting events and so on. Trashing the plist file forces the app to generate a new one on the next launch, and this restores things to the Factory Defaults. Hence, if you've changed any of these things you'll need to reset them. If you haven't, then no bother. Trashing the plist file is Mac troubleshooting 101.

Memory Problem with SEt and GET parameter

hi,
I m doing exits. I have one exit for importing and another one for changing parameter.
SET PARAMETER exit code is ....
*data:v_nba like eban-bsart,
       v_nbc like eban-bsart,
       v_nbo like eban-bsart.
       v_nbc = 'CAPX'.
       v_nbo = 'OPEX'.
       v_nba = 'OVH'.
if im_data_new-werks is initial.
if im_data_new-knttp is initial.
    if im_data_new-bsart = 'NBC' or im_data_new-bsart = 'SERC' or im_data_new-bsart = 'SERI'
       or im_data_new-bsart = 'SER' or im_data_new-bsart = 'SERM' or im_data_new-bsart = 'NBI'.
      set parameter id 'ZC1' field v_nbc.
    elseif im_data_new-bsart = 'NBO' or im_data_new-bsart = 'NBM' or im_data_new-bsart = 'SERO'.
      set parameter id 'ZC2' field v_nbo.
    elseif im_data_new-bsart = 'NBA' or im_data_new-bsart = 'SERA'.
      set parameter id 'ZC3' field v_nba.
    endif.
endif.
endif. *
and GET PARAMETER CODE IS....
get parameter id 'ZC1' field c_fmderive-fund.
get parameter id 'ZC2' field c_fmderive-fund.
get parameter id 'ZC3' field c_fmderive-fund.
FREE MEMORY ID 'ZC1'.
FREE MEMORY ID 'ZC2'.
   FREE MEMORY ID 'ZC3'.
In this code i m facing memory problem.
It is not refreshing the memory every time.
So plz give me proper solution.
Its urgent.
Thanks
Ranveer

Hi,
   I suppose you are trying to store some particular value in memory in one program and then retieve it in another.
If so try using EXPORT data TO MEMORY ID 'ZC1'. and IMPORT data FROM MEMORY ID 'ZC1'.
To use SET PARAMETER/GET PARAMETER the specified parameter name should be in table TPARA. Which I don't think is there in your case.
Sample Code :
Data declarations for the function codes to be transferred
DATA : v_first TYPE syucomm,
       v_second TYPE syucomm.
CONSTANTS : c_memid TYPE char10 VALUE 'ZCCBPR1'.
Move the function codes to the program varaibles
v_first = gv_bdt_fcode.
v_second = sy-ucomm.
Export the function codes to Memory ID
EXPORT v_first
       v_second TO MEMORY ID c_memid.        "ZCCBPR1 --- Here you are sending the values to memory
Then retrieve it.
Retrieve the function codes from the Memory ID
IMPORT v_first TO v_fcode_1
         v_second TO v_fcode_2
FROM MEMORY ID c_memid.                                   "ZCCBPR1
FREE MEMORY ID c_memid.                                   "ZCCBPR1
After reading the values from memory ID free them your problem should be solved.
Thanks
Barada
Edited by: Baradakanta Swain on May 27, 2008 10:20 AM

BAPI to read and change schedule lines in APO

Hello experts,
We want to firm schedule lines inside the firm zone of the APO procurement scheduling agreements with a daily job. For this we are trying to use BAPI BAPI_POSRVAPS_GETLIST3 and BAPI_POSRVAPS_SAVEMULTI3. The getlist one does not return schedule lines, it returns purchase orders and purchase requisitions. Are these the right bapis to read and change schedule lines in APO? or is there anyother one we can use?
Thanks and regards,
Ergul

Hi,
         You can use the below code to read the schedule lines.
Checking a session exists
    CALL FUNCTION '/SAPAPO/RRP_SIMSESSION_GET'
      IMPORTING
        ev_simsession = gv_sims
        es_gen_params = gv_params.
If not create a new session and read it
    IF gv_sims IS INITIAL.
      CALL FUNCTION '/SAPAPO/RRP_SIMSESSION_CREATE'
        IMPORTING
          ev_simsession = gv_sims.
      CALL FUNCTION '/SAPAPO/RRP_SIMSESSION_GET'
        IMPORTING
          ev_simsession = gv_sims
          es_gen_params = gv_params.
      g_cre_chk = 'X'.
    ENDIF.
CALL FUNCTION '/SAPAPO/CMDS_TPSRC_GET'
    EXPORTING
      iv_ebeln                       = p_l_t_acknh_ebeln
      iv_ebelp                       = p_l_t_acknh_ebelp
    TABLES
      et_tpsrc_all                   = lt_tpsrc
    EXCEPTIONS
      matid_not_found                = 1
      locfrom_not_found              = 2
      locto_not_found                = 3
      scheduling_agreement_not_found = 4
      error_selecting_schedagreement = 5
      OTHERS                         = 6.
IF sy-subrc = 0.
reading the scheduling agreement records
    READ TABLE lt_tpsrc INTO ls_tpsrc INDEX 1.
    CALL FUNCTION '/SAPAPO/PWB_BZQID_GET_ORDER'
      EXPORTING
        iv_simid               = '000'
        iv_bzqid               = ls_tpsrc-bzqid
      IMPORTING
        ev_ordid               = lv_iordid
      EXCEPTIONS
        lc_connect_failed      = 1
        no_elements            = 2
        unit_conversion_failed = 3
        OTHERS                 = 4.
    IF sy-subrc = 0.
      CALL FUNCTION '/SAPAPO/PWB_GET_RELATED_ORDERS'
        EXPORTING
          iv_ordid             = lv_iordid
          iv_order_type     = '16'
          iv_simid            = '000'
        IMPORTING
          ev_ordid          = lv_eordid
        EXCEPTIONS
          order_not_found   = 1
          lc_connect_failed = 2
          no_elements       = 3
          OTHERS            = 4.
      IF sy-subrc = 0.
        APPEND lv_eordid TO lt_ordid.
        CALL FUNCTION '/SAPAPO/DM_PO_READ'
          EXPORTING
            iv_simsession     = gv_sims
            is_gen_params     = gv_params
            it_ordid          = lt_ordid
          IMPORTING
            et_schedule       = p_lt_sched
          EXCEPTIONS
            lc_connect_failed = 1
            lc_com_error      = 2
            lc_appl_error     = 3
            OTHERS            = 4.
      ENDIF.
    ENDIF.
ENDIF.
Use '/SAPAPO/CMDS_SNP_MM_ORD_MODIFY' function module to change the schedule lines (Pass '16' to iv_order_type parameter).
Let me know if u have any issues.
Regards,
Siva.

Get and Set Parameter ID in BDC Call transaction

Hi all
I have written this BDC program to run a transaction eg33 to install meter. After meter get installled System generates Device location number. I need to use this device location number in calling another transaction il03. but my data fetching using get and set parameter id is not giving accurate result. Kindly check my code and suggest where should I improve. Or whatelse can I do to fullfill this type of requirement other than GET and SET PARAMETER ID.
REPORT ZAC_EG33 NO STANDARD PAGE HEADING
                 LINE-SIZE 100.
TABLES: EABL,
        BUT000,
        ZISUH0003.
DATA :
      XYZ LIKE IFLO-TPLNR.
DATA: IT_STATUS TYPE ZISUH0003.
DATA: G_INDEX TYPE I,
      G_START_COL TYPE I VALUE '1',      "start column
      G_START_ROW TYPE I VALUE '14',      "start row
      G_END_COL   TYPE I VALUE '18',     "maximum column
      G_END_ROW   TYPE I VALUE '75', "maximum row
      G_TEXT(20),                         "stores error messages
      G_PAGES        TYPE I,
      G_CURRENT_PAGE TYPE I,
      G_COUNT LIKE SY-DBCNT.
data: l_file   type file_table,
      file1    type string,
      l_title type string,
      LENGTH   TYPE I,
      FILES    type filetable,
      SUBRC    type i,
      STR_FILE type STRING,
      D_FILE   type RLGRAP-FILENAME,
      filename TYPE String,
      L_itab_date(10).
FIELD-SYMBOLS : <FS>.
DATA: IT_EXCEL LIKE STANDARD TABLE OF ALSMEX_TABLINE WITH HEADER LINE,
      IT_MESS TYPE STANDARD TABLE OF BDCMSGCOLL WITH HEADER LINE.
TYPES: BEGIN OF TY_OPEN,
        HAUS LIKE REG30-HAUS,
        EADAT(10),
        GERAETNEU LIKE REG30-GERAETNEU,
        MESSDRCK LIKE REG30-MESSDRCK,
        ZWSTANDCE LIKE REG30-ZWSTANDCE,
        END OF TY_OPEN.
DATA : T_ANLAGE LIKE EANLD-ANLAGE,
       VSTELLE LIKE EVBS-VSTELLE,
       S_ANLAGE LIKE EANLD-ANLAGE,
       temp_c(7).
DATA: IT_OPEN TYPE STANDARD TABLE OF TY_OPEN WITH HEADER LINE.
DATA: BDCDATA TYPE STANDARD TABLE OF BDCDATA WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN SKIP 2.
PARAMETERS: P_FILE like RLGRAP-FILENAME OBLIGATORY.
SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN END OF BLOCK 1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE .
PERFORM GET_FILE_NAME.
MOVE FILENAME TO P_FILE.
START-OF-SELECTION.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
    FILENAME                      = p_file
    I_BEGIN_COL                   = 1 "VF_START_COL
    I_BEGIN_ROW                   = 2 "VF_START_ROW
    I_END_COL                     = 5 "VF_END_COL
    I_END_ROW                     = 10000 "VF_END_ROW
TABLES
    INTERN                        = IT_EXCEL
EXCEPTIONS
    INCONSISTENT_PARAMETERS       = 1
    UPLOAD_OLE                    = 2
    OTHERS                        = 3
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF IT_EXCEL[] IS INITIAL.
G_TEXT = 'No Data Uploaded'.
ELSE.
SORT IT_EXCEL BY ROW COL.
LOOP AT IT_EXCEL.
    MOVE : IT_EXCEL-COL TO G_INDEX.
    ASSIGN COMPONENT G_INDEX OF STRUCTURE IT_OPEN TO <FS>.
    MOVE IT_EXCEL-VALUE TO <FS>.
    AT END OF ROW.
      IF NOT IT_OPEN IS INITIAL.
      APPEND IT_OPEN." TO IT_LINE.
      CLEAR IT_OPEN.
      CLEAR IT_EXCEL.
      ENDIF.
    ENDAT.
ENDLOOP.
ENDIF.
REFRESH IT_EXCEL.
ULINE.
FORMAT COLOR 3 ON.
WRITE: /1 sy-vline ,
       2 'Material No.' ,
       25 sy-vline,
        2 'Logs' ,
        100 sy-vline.
uline.
FORMAT COLOR OFF.
PERFORM BDC_OPEN_READING.
MESSAGE S013(ZPS).
*&      Form GET_FILE_NAME
      text
--> p1        text
<-- p2        text
FORM GET_FILE_NAME .
REFRESH FILES.
call method cl_gui_frontend_services=>file_open_dialog
            exporting
              window_title            = l_title
            changing
              file_table              = files
              rc                      = subrc
            exceptions
              file_open_dialog_failed = 1
              cntl_error              = 2
              error_no_gui            = 3
              others                  = 4.
          check sy-subrc = 0.
          loop at files into l_file.
            str_file = l_file.
            move str_file to filename.
            exit.
          endloop.
ENDFORM.                    " GET_FILE_NAME
*&      Form BDC_OPEN_READING
      text
--> p1        text
<-- p2        text
FORM BDC_OPEN_READING .
LOOP AT IT_OPEN.
REFRESH BDCDATA.
clear : temp_c.
move it_open-MESSDRCK to temp_c.
condense : temp_c.
PERFORM MAP1.
CALL TRANSACTION 'EG33' USING BDCDATA MODE 'A' MESSAGES INTO IT_MESS.
+***changes by added on 28/02/08 +
get parameter id 'IFL' FIELD XYZ.
PERFORM MAP2.
set parameter id 'IFL' FIELD XYZ.
++*
CALL TRANSACTION 'IL03' USING BDCDATA MODE 'A' MESSAGES INTO IT_MESS.
+****end change added on 28.02.08+DATA: G_INSNO LIKE IT_OPEN-HAUS.
IF NOT IT_MESS[] IS INITIAL.
G_INSNO = IT_OPEN-HAUS.
PERFORM GET_MESSAGES TABLES IT_MESS USING G_INSNO." IT_LINE.
ENDIF.
READ TABLE IT_MESS WITH KEY MSGTYP = 'E'.
IF SY-SUBRC NE 0.
READ TABLE IT_MESS WITH KEY MSGTYP = 'S' MSGNR = '622'.
IF SY-SUBRC EQ 0.
SELECT SINGLE VSTELLE FROM EVBS INTO VSTELLE WHERE HAUS = IT_OPEN-HAUS.
SELECT SINGLE ANLAGE FROM EANL INTO T_ANLAGE WHERE VSTELLE = VSTELLE.
MOVE T_ANLAGE TO IT_STATUS-ANLAGE.
MOVE 'X' TO IT_STATUS-RFC.
*perform get_date_format using IT_OPEN-EADAT.
MOVE IT_OPEN-EADAT TO IT_STATUS-ADATE.
SELECT SINGLE ANLAGE FROM ZISUH0003 INTO S_ANLAGE WHERE ANLAGE =
T_ANLAGE.
IF SY-SUBRC EQ 4.
    INSERT ZISUH0003 FROM IT_STATUS.
ELSE.
    UPDATE ZISUH0003 FROM IT_STATUS.
ENDIF.
ENDIF.
ENDIF.
REFRESH IT_MESS.
CLEAR   IT_MESS.
ENDLOOP.
ENDFORM.                    " BDC_OPEN_READING
       Start new screen                                              *
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO   = DYNPRO.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
ENDFORM.
       Insert field                                                  *
FORM BDC_FIELD USING FNAM FVAL.
IF FVAL <> SPACE.
    CLEAR BDCDATA.
    BDCDATA-FNAM = FNAM.
    BDCDATA-FVAL = FVAL.
    APPEND BDCDATA.
ENDIF.
ENDFORM.
*&      Form MAP1
      text
--> p1        text
<-- p2        text
FORM MAP1 .
perform bdc_dynpro      using 'SAPLE30D' '0100'.
perform bdc_field       using 'BDC_CURSOR'
                              'REG30-GERAETNEU'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'REG30-HAUS'
                              IT_OPEN-HAUS. "'100000000033'.
perform bdc_field       using 'REG30-EADAT'
                              IT_OPEN-EADAT. "'18.02.2006'.
perform bdc_field       using 'REG30-GERAETNEU'
                              IT_OPEN-GERAETNEU. "'66a'.
perform bdc_dynpro      using 'SAPLE30D' '0220'.
perform bdc_field       using 'BDC_CURSOR'
                              'REG30-TEMP_AREA(02)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=SAVE'.
perform bdc_field       using 'REG30-MESSDRCK'
                               temp_c. "IT_OPEN-MESSDRCK'0.0125'.
perform bdc_field       using 'REG30-GERWECHS'
                              '05'.
perform bdc_field       using 'REG30-ANZDAYSOFPERIOD(01)'
                              '30'.
perform bdc_field       using 'REG30-ZWSTANDCE(01)'
                              IT_OPEN-ZWSTANDCE. "'10'.
perform bdc_field       using 'REG30-ZWSTANDCE(02)'
                              '0'.
perform bdc_field       using 'REG30-PERVERBR(01)'
                              '0'.
perform bdc_field       using 'REG30-PERVERBR(02)'
                              '0'.
perform bdc_field       using 'REG30-TEMP_AREA(01)'
                              '0001'.
perform bdc_field       using 'REG30-TEMP_AREA(02)'
                              '0001'.
perform bdc_field       using 'REG30-PR_AREA_AI(01)'
                              '0001'.
perform bdc_field       using 'REG30-PR_AREA_AI(02)'
                              '0001'.
ENDFORM.                    " MAP1
****CHANGEs added BY ALKA 28.02.08
*&      Form MAP2
      text
--> p1        text
<-- p2        text
FORM MAP2 .
perform bdc_dynpro      using 'SAPMILO0' '1110'.
perform bdc_field       using 'BDC_CURSOR'
                              'IFLO-TPLNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'IFLO-TPLNR'
                              XYZ..
perform bdc_field       using 'RILO0-TPLKZ'
                              'AO_GP'.
perform bdc_dynpro      using 'SAPMILO0' '2100'.
perform bdc_field       using 'BDC_CURSOR'
                              'IFLO-PLTXT'.
perform bdc_field       using 'BDC_OKCODE'
                              '=T\04'.
perform bdc_field       using 'IFLO-PLTXT'
                              'DEVICE LOCATION'.
perform bdc_dynpro      using 'SAPMILO0' '2100'.
perform bdc_field       using 'BDC_OKCODE'
                              '=BU'.
perform bdc_field       using 'IFLO-PLTXT'
                              'DEVICE LOCATION'.
perform bdc_field       using 'BDC_CURSOR'
                              'ITOBATTR-EINZL'.
perform bdc_field       using 'ITOBATTR-IEQUI'
                              'X'.
perform bdc_field       using 'ITOBATTR-EINZL'
                              'X'.
ENDFORM.                    " MAP2
*****END CHANGE added on 28.02.08
*&      Form get_date_format
      text
     -->P_IT_ORDER_TABLE_C_DATE text
FORM get_date_format USING L_ITAB_DATE." LIKE SY-DATUM.
data: d_temp(4),
      m_temp(2),
      y_temp(4).
*move L_ITAB_DATE to L_ITAB_DATE.
y_temp = L_ITAB_DATE(4).
m_temp = L_ITAB_DATE+4(2).
d_temp = L_ITAB_DATE+6(2).
CONCATENATE d_temp '.' m_temp '.' y_temp into L_ITAB_DATE.
ENDFORM.                    " get_date_format
*&      Form GET_MESSAGES
      text
     -->P_IT_MESS text
     -->P_G_INSNO text
FORM GET_MESSAGES TABLES IT_MESS STRUCTURE BDCMSGCOLL USING G_INSNO .TABLES T100.
DATA: L_MSTRING(255).
LOOP AT IT_MESS WHERE MSGTYP = 'E'   OR MSGTYP = 'S'.
      SELECT SINGLE * FROM T100 WHERE SPRSL = IT_MESS-MSGSPRA
                                AND   ARBGB = IT_MESS-MSGID
                                AND   MSGNR = IT_MESS-MSGNR.
      IF SY-SUBRC = 0.
        L_MSTRING = T100-TEXT.
        IF L_MSTRING CS '&1'.
          REPLACE '&1' WITH IT_MESS-MSGV1 INTO L_MSTRING.
          REPLACE '&2' WITH IT_MESS-MSGV2 INTO L_MSTRING.
          REPLACE '&3' WITH IT_MESS-MSGV3 INTO L_MSTRING.
          REPLACE '&4' WITH IT_MESS-MSGV4 INTO L_MSTRING.
        ELSE.
          REPLACE '&' WITH IT_MESS-MSGV1 INTO L_MSTRING.
          REPLACE '&' WITH IT_MESS-MSGV2 INTO L_MSTRING.
          REPLACE '&' WITH IT_MESS-MSGV3 INTO L_MSTRING.
          REPLACE '&' WITH IT_MESS-MSGV4 INTO L_MSTRING.
        ENDIF.
        CONDENSE L_MSTRING.
      ENDIF.
      CONDENSE G_INSNO.
      CONCATENATE 'For' ' ' G_INSNO ',' L_MSTRING INTO L_MSTRING SEPARATED BY SPACE.
FORMAT COLOR 2 ON.
*IF IT_MESS-MSGTYP = 'S' AND IT_MESS-MSGNR = '622'.
*WRITE: 1 sy-vline,
        L_MSTRING    under 'Error Messages',
       100 sy-vline.
*ULINE.
*ELSEIF IT_MESS-MSGTYP = 'E'.
WRITE: 1 sy-vline,
         L_MSTRING    under 'Logs',
        100 sy-vline.
ULINE.
*ENDIF.
ENDLOOP.
ENDFORM.                    " GET_MESSAGES

i think there might be some time gap between CALL TRANSACTION and GET PARAMETER ID.....,that is to say,the new No. has not been generated and what you fetch is an old No..
i think you should use the "CALL TRANSACTION" like the following one:
CALL TRANSACTION 'EG33' USING BDCDATA MODE 'A' UPDATE 'L' MESSAGES INTO IT_MESS .
then i think you can get the right value.
P.S: the different update model(from SAP document)
       upd Effect
"A"   Asynchronous update. Updates of called programs are executed in the same way as if in the             COMMIT WORK statement the AND WAIT addition was not specified.
"S" Synchronous processing. Updates of the called programs are executed in the same way as if in the COMMIT WORK statement the AND WAIT addition had been specified.
"L" Local update. Updates of the called program are executed in such a way as if the SET UPDATE TASK LOCAL statement had been executed in it.
Other As for "A".

Export and import problems

i have 2 major problems importing my application from htmldb.oracle.com to my serevr at home.
1.
i export my application and thems from htmldb.oracle.com.
when i opened the sql export file i saw that all hebrew chracters was "jibrish".
how can i export my application with hebrew fonts ?
2. i tried to export and import xml data (my tables data).
the export xml file showing me the hewbrew data but when i import it to my tables it gets ????????? instead of hebrew.
i think it's the nls lang but i don't know what nls land i need and where to change it
(database ,enviroment....)
can someone help me with this problems ?
thanks
p.s
my db is 10.1.0.3
red hat linux as 4 on vmware 4.5
my nls parameters:
nls_language: american
nls_territory: america
nls_characterset: we8iso8859p1
nls_nchar_charcterset: al16utf16
thanks

Zvika,
I have two options that may work for you. First, define the fields that have Hebrew characters using the CHAR qualifier. Example, varchar2(30 char). That allows you to store double byte characters from other languages, and overrides the nls_length_semantics (byte default) parameter.
Or, you could set the nls_length_semantics to default to char. It definitely uses more space when the char qualifier is used, so it's probably best to override the byte default only when necessary.
Hope that helps!
Also, I posted the 'Blogging Tool for HTMLDB' question with the username 'aufan89', which I had to change because my email changed.
So my new username is now 'aufan1989'. I look forward to your email when you get your app fixed and posted onto HTMLDB Studio!
Thanks!

Exporting and changing parameter

Similar Messages

Maybe you are looking for