Run time error in Back ground processing using LSMW

Hi all,
We are runnig LSMW to create Positions using tcode PP03. We are able to create positions in the foreground but we are getting error "RAISE_EXCEPTION" in the Backgrond for the same LSMW.
Kindly suggest me suitable solution if any.
Thanks in advance,
Vasanth.

Hi all,
Thanks for your reply.
I got the solution. When a program is scheduled in background, if it is written in classes and ALV grid display is used, we get this error. I am able to schedule when I change the function module to LIST_DISPLAY.

Similar Messages

Error in Back Ground processing of a report.

Hi All,
I have a report wherein I need to schedule it in background. Its an ALV report and it has got user defined GUI status. But for one of the selection options, only output is being displayed. Can this be scheduled in Back Ground?

Hi all,
Thanks for your reply.
I got the solution. When a program is scheduled in background, if it is written in classes and ALV grid display is used, we get this error. I am able to schedule when I change the function module to LIST_DISPLAY.

Back ground process using abap program

Hi,
How to create background process using job_open,Job_submit,job_close function modules

DATA: lv_job_name         LIKE tbtco-jobname,
lv_job_nr           LIKE tbtco-jobcount,
lv_job_released     TYPE c,
lv_job_start_sofort TYPE c,
lv_print_parameters TYPE pri_params.
lv_job_name = 'Z_BGPROGRAM'.
CALL FUNCTION 'JOB_OPEN'
    EXPORTING
      jobname          = lv_job_name
    IMPORTING
      jobcount         = lv_job_nr
    EXCEPTIONS
      cant_create_job = 1
      invalid_job_data = 2
      jobname_missing = 3
      OTHERS           = 4.
IF syst-subrc = 0.
" submit job with all the selection screen params...
    SUBMIT (lv_job_name)
        WITH applfile = applfile " these are the parameters of the background program
        WITH p_lines = p_lines
        USER syst-uname " you must use this
       VIA JOB lv_job_name NUMBER lv_job_nr AND RETURN.
    IF sy-subrc = 0.
      CALL FUNCTION 'JOB_CLOSE'
        EXPORTING
          jobcount             = lv_job_nr
          jobname              = lv_job_name
          strtimmed            = 'X'
        IMPORTING
          job_was_released     = lv_job_released
        EXCEPTIONS
          cant_start_immediate = 1
          invalid_startdate    = 2
          jobname_missing      = 3
          job_close_failed     = 4
          job_nosteps          = 5
          job_notex            = 6
          lock_failed          = 7
          OTHERS               = 8.
      IF syst-subrc <> 0.
        MESSAGE i162(00) WITH
        'An error occured while closing the background job.'.
        STOP.
      ENDIF.
    ENDIF.
ENDIF.
SKIP 1.
WRITE: / 'Background process', lv_job_name , 'called successfully' NO-GAP.
WRITE: / 'You can check the job in transaction SM37'.

WorkFlow Back Ground Process Running More Time

Hi all,
I have very Big problem it is occured in production i need help vary urgent for this .
Work flow Back Ground Process Running More than 5 hrs,actualy Daily it is running only below 2 min .but yesterday onwords it is running more than 5 hrs.but this workflow back ground process running long time only one item_type='REQAPPRV' REMAING item_types running normaly.
i did have any root cause for this performance issue plz let me know any one for this problem what is the root cause.
Thank's

Reddy,
Go through the following documents, it should be helpful in troubleshooting the issue.
Note: 186361.1 - WF 2.x: Workflow Background Process Performance Troubleshooting Guide
https://metalink2.oracle.com/metalink/plsql/ml2_documents.showDocument?p_database_id=NOT&p_id=186361.1
Note: 298550.1 - Troubleshooting Workflow Data Growth Issues
https://metalink2.oracle.com/metalink/plsql/ml2_documents.showDocument?p_database_id=NOT&p_id=298550.1
Note: 566577.1 - Workflow Background Process Has Significant Performance Issues
https://metalink2.oracle.com/metalink/plsql/ml2_documents.showDocument?p_database_id=NOT&p_id=566577.1
Note: 743338.1 - Performance Degradation when the Workflow Background Process is Running
https://metalink2.oracle.com/metalink/plsql/ml2_documents.showDocument?p_database_id=NOT&p_id=743338.1
Note: 734425.1 - How To Generate Performance Trace for Workflow Background Process?
https://metalink2.oracle.com/metalink/plsql/ml2_documents.showDocument?p_database_id=NOT&p_id=734425.1
If this is your production instance and the issue is urgent, I would suggest you log a SR.
Regards,
Hussein

Report Back ground processing, error

Hi,
I tried to run my program in back ground. It is showing the following error. I'm just Pressing F9 and scheduling the job immediately. When i go and see the "own jobs " in SM36, it shows the "job cancelled". When i see the job log, it shows "Control Framework: Fatal error - GUI cannot be reached" and "ABAP/4 processor: RAISE_EXCEPTION". When i debug the job using JDBG transaction it runs smoothly and generates spool.
Can you provide some solutioons?

HI,
Is your report having some OOPS functionalities?
Are you making use of any container or ALV GRID object.
In that case it will not run in background and will give you this error.
Search in SCN. This has been discussed a lto of times.
There are several posts on how to avoid this.
Regards,
Ankur Parab

Run time error while closing the CRM Order using BAPI

Hi Experts,
Need your invaluable suggestions here.Apologies for the lengthy mail, intention is to give clear idea of the issue.
I am facing an issue while closing the CRM orders. According to our business process, when an issue is solved we will keep the order in resolved status only. We will not directly close the order from the CRM tool, instead we have created a custom program for the same purpose.
For the custom program we will give input as the order number and execute it, this will close the order.
Here close the order means assigning it to Close status as well assign the reason code.
We have created some reason codes for closed status.
So when the program is run the Order moves from resolved status to closed status along with reason code.
But of late we are facing some problems with this program, it is giving run time error for some CRM orders.
Run time error message : The ABAP/4 Open SQL array insert results in duplicate database records.
The exception, which is assigned to class 'CX_SY_OPEN_SQL_DB', was not caught in procedure "CRM_SERVICE_OS_UPD_OST_DU" "(FUNCTION)", nor was it propagated by a RAISING clause.
Please find my code which have used in the custom program
Closing the resolved SOs in the system
    CALL FUNCTION 'CRM_STATUS_CHANGE_EXTERN_OW'
        EXPORTING
          objnr                     = iv_guid
          user_status          = lc_status_closed
       EXCEPTIONS
         object_not_found          = 1
         status_inconsistent       = 2
         status_not_allowed       = 3
         OTHERS                        = 4.
    IF sy-subrc <> 0.
      WRITE : 'Error at maintaining status'.
    ENDIF.
Set reason code
build lt_subject
    ls_subject-ref_guid = iv_guid.
    ls_subject-katalogart = 'A2'.
    ls_subject-codegruppe = 'ZR000003'.
    ls_subject-code       = 'ZR33'.                      " Reason code
    ls_subject-mode       = 'A'.
    APPEND ls_subject TO lt_subject.
build lt_ossset
    ls_osset-ref_guid        = iv_guid.
    ls_osset-subject_profile = 'ZREASON03'.
    ls_osset-profile_type    = 'G'.
    ls_osset-subject         = lt_subject.
    APPEND ls_osset TO lt_osset.
build lt_service_os
    ls_service_os-ref_guid = iv_guid.
    ls_service_os-ref_kind = 'A'.
    ls_service_os-osset     = lt_osset.
    APPEND ls_service_os TO lt_service_os.
build lt_input_fields
    REFRESH: lt_input_fields, lt_field_names.
    CLEAR : ls_input_fields, ls_field_names.
    ls_field_names-fieldname    = 'CODE'.
    APPEND ls_field_names TO lt_field_names.
    ls_field_names-fieldname    = 'CODEGRUPPE'.
    APPEND ls_field_names TO lt_field_names.
    ls_field_names-fieldname    = 'KATALOGART'.
    APPEND ls_field_names TO lt_field_names.
    ls_field_names-fieldname    = 'SERVICE_PROFILE'.
    APPEND ls_field_names TO lt_field_names.
    ls_input_fields-ref_guid    = iv_guid.
    ls_input_fields-ref_kind    = 'A'.
    ls_input_fields-objectname = 'SERVICE_OS'.
    ls_input_fields-field_names = lt_field_names.
    APPEND ls_input_fields TO lt_input_fields.
     CALL FUNCTION 'CRM_ORDER_MAINTAIN'
      EXPORTING
        it_service_os     = lt_service_os
      CHANGING
        ct_input_fields   = lt_input_fields
      EXCEPTIONS
        error_occurred    = 1
        document_locked   = 2
        no_change_allowed = 3
        no_authority      = 4
        OTHERS            = 5.
    IF sy-subrc <> 0.
      WRITE : 'Error at maintaining reason'.
    ENDIF.
    CALL FUNCTION 'CRM_ORDER_SAVE'
      EXPORTING
        it_objects_to_save   = lt_header_guid
        iv_update_task_local = lv_update_task_local
      IMPORTING
        et_saved_objects     = lt_saved_objects
      EXCEPTIONS
        document_not_saved   = 1
        OTHERS               = 2.
    IF sy-subrc <> 0.
      WRITE : 'Error at saving'.
    ELSE.
      WRITE : 'Successfully Closed'.
      COMMIT WORK AND WAIT.
    ENDIF.
Run time error is coming at COMMIT WORK AND WAIT statement.
Please let me know any corrections are required in the above program.
When I analyzed the run time error I have found that it trying to insert the record in CRMD_SRV_OSSET for that CRM order, but already one record is present in the table for the same CRM order number.
For most of the CRM orders there is no entry in this table so they are closing successfully but for a few orders for which there is an entry we are getting the above run time error.
There is nothing wrong with the orders which have an entry already in the table CRMD_SRV_OSSET, I need to close these kind of orders with out run time error.
Kindly provide your feedback.

Hi Dinakar,
You posted this in APO PPDS forum. This question should go to PP forum where someone could answer it.
Please close this thread and open a new thread in PP forum so that you could get help quickly from the relevant experts.
Regards - Pawan

ALV issue: when save list using Local File command will get run time error!

help!!!!
report list using ALV method when to save this list using Local File.
i will get GETWA_NOT_ASSIGNED run time error information.
how resolve it?
source code :
REPORT   ZIFT0103.
TABLES : MARA,MARC,CDHDR,CDPOS,MAKT.
******DEVK909212****************
****利用工厂来区分不同的SERVER的FTP ADDRESS ,user ,PASSWORD
DATA: FTP_WERKS LIKE MARC-WERKS.
********定义一个RANGE用来抓取MARC的信息
RANGES:R_MATNR FOR MARA-MATNR OCCURS 0.
********定义一个INTERNAL TABLE 来抓取MARC 的信息
DATA:BEGIN OF IT_MARC OCCURS 0,
      MATNR LIKE MARC-MATNR,
      WERKS LIKE MARC-WERKS,
      USERNAME TYPE CDHDR-USERNAME,
     UDATE    TYPE CDHDR-UDATE,
     FLAG_UI TYPE C,
     END OF IT_MARC.
*******定义存放北京的数据的变量
DATA : BEGIN OF FTP_BEIJING OCCURS 0 ,
              MATNR(25) ,
              MATNR1(25) ,
              MAKTX(30) ,
       END OF FTP_BEIJING .
******定义福清的数据变量
DATA : BEGIN OF FTP_FUQING OCCURS 0 ,
              MATNR(25) ,
              MATNR1(25) ,
              MAKTX(30) ,
       END OF FTP_FUQING .
*******DEVK909212*****************
DATA : BEGIN OF FTP_ITEMDOC1 OCCURS 0 ,
              MATNR(25) ,
              MAKTX(30) ,
       END OF FTP_ITEMDOC1 .
DATA : BEGIN OF FTP_ITEMDOC OCCURS 0 ,
              MATNR(25) ,
              MATNR1(25) ,
              MAKTX(30) ,
       END OF FTP_ITEMDOC .
DATA: WA_ZMSGTA TYPE ZMSGTA ,
      l_ersda like MARA-ERSDA .
***********DEVK909553********************
****用来决定执行FTP还是显示LIST**********
DATA:g_tcode_flag.
***********DEVK909553********************
Error message process ******************************
DEFINE EXPLAIN_MSG.
   break soe_richard.
CALL FUNCTION 'BAPI_MESSAGE_GETDETAIL'
    EXPORTING
      ID                = &1   "SY-MSGID
      NUMBER            = &2   "SY-MSGNO
      LANGUAGE          = SY-LANGU
      TEXTFORMAT        = &3
      LINKPATTERN       =
      MESSAGE_V1        = &4                                "SY-MSGV1
      MESSAGE_V2        = &5                                "SY-MSGV2
      MESSAGE_V3        = &6                                "SY-MSGV3
      MESSAGE_V4        = &7                                "SY-MSGV4
    IMPORTING
      MESSAGE           = &8   "WA_ZMSGTA-MSE1
      RETURN            =
    TABLES
      TEXT              =
END-OF-DEFINITION.
DEFINE ERROR_MSG_UPDATA.
CALL FUNCTION 'ZINSERT_MSG' "IN UPDATE TASK
    EXPORTING
      XZMSGTA      = &1    "WA_ZMSGTA
    EXCEPTIONS
      UPDATE_ERROR = 1
      OTHERS       = 2.
END-OF-DEFINITION.
IF SY-TCODE = 'ZIFT103' .
g_tcode_flag = 'L'.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      PERCENTAGE = 0
      TEXT       = '请耐心等候,系统正在抓数据'.
ENDIF.
l_ersda = sy-datum - 1 . "取前一天产生的物料号码。
DATA:BEGIN OF it_change OCCURS 0,
     OBJECTID TYPE CDHDR-OBJECTID,
     USERNAME TYPE CDHDR-USERNAME,
     UDATE    TYPE CDHDR-UDATE,
     TABKEY   TYPE CDPOS-TABKEY,
     END OF it_change.
DATA:BEGIN OF it_cDhdr OCCURS 0,
     OBJECTID type CDHDR-OBJECTID,
     CHANGENR TYPE CDHDR-CHANGENR,
     USERNAME TYPE CDHDR-USERNAME,
     UDATE    TYPE CDHDR-UDATE,
     END OF it_cdhdr.
DATA:search_len TYPE I.
DATA:BEGIN of it_insert OCCURS 0,
     MATNR TYPE MARA-MATNR,
     WERKS TYPE MARC-WERKS,
     END OF it_insert.
DATA:BEGIN OF it_MAKT OCCURS 0,
     MATNR TYPE MAKT-MATNR,
     MAKTX TYPE MAKT-MAKTX,
     END OF it_makt.
DATA IT_MARA TYPE TABLE OF MARA WITH HEADER LINE.
DATA:BEGIN OF IT_OUT OCCURS 0,
     MATNR TYPE MARA-MATNR,
     WERKS TYPE MARC-WERKS,
     MTART TYPE MARA-MTART,
     MEINS TYPE MARA-MEINS,
     MATKL TYPE MARA-MATKL,
     MAKTX TYPE MAKT-MAKTX,
     PSTAT TYPE MARA-PSTAT,
     BRGEW TYPE MARA-BRGEW,
     NTGEW TYPE MARA-NTGEW,
     GEWEI TYPE MARA-GEWEI,
     FERTH TYPE MARA-FERTH,
     KZUMW TYPE MARA-KZUMW,
     ERNAM TYPE MARA-ERNAM,
     ERSDA TYPE MARA-ERSDA,
     END OF IT_OUT.
*-- DECLARE DATA FOR ALV
TYPE-POOLS: slis.
DATA : g_variant LIKE disvariant,
        g_save(1) TYPE c,
        g_exit(1) TYPE c,
        gx_variant LIKE disvariant.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE, "
      gt_events   TYPE slis_t_event,
      gt_list_top_of_page TYPE slis_t_listheader,
      gs_print TYPE slis_print_alv,
      gs_layout         TYPE slis_layout_alv .
******只能抓出系统有做更改的数据***************
******而第一次INSERT MARA的数据抓不出来********
START-OF-SELECTION.
SELECT AOBJECTID AUSERNAME AUDATE BTABKEY
INTO TABLE it_change
FROM ( CDPOS AS B INNER JOIN CDHDR AS A ON
     AOBJECTCLAS = BOBJECTCLAS AND
     AOBJECTID   = BOBJECTID   AND
     ACHANGENR   = BCHANGENR )
WHERE A~OBJECTCLAS = 'MATERIAL'
AND   A~UDATE = l_ersda
AND   B~TABNAME = 'MARC'
AND   B~CHNGIND = 'I'.
LOOP AT it_change.
   search_len = STRLEN( it_change-TABKEY ).
   search_len = search_len - 4.
   IF search_len > 0.
     IT_MARC-WERKS = it_change-TABKEY+search_len(4).
   ENDIF.
   IT_MARC-MATNR = it_change-objectid+0(18).
   IT_MARC-USERNAME = it_change-username.
   IT_MARC-UDATE    = It_change-udate.
   IT_MARC-FLAG_UI = 'U'.
   APPEND IT_MARC.
   CLEAR IT_MARC.
   CLEAR R_MATNR.
   R_MATNR-SIGN = 'I'.
   R_MATNR-OPTION = 'EQ'.
   R_MATNR-LOW = IT_MARC-MATNR.
   APPEND R_MATNR.
ENDLOOP.
****CDPOS is Cluster TABLE 所以没有办法用INNER JOIN******
SELECT OBJECTID CHANGENR USERNAME UDATE
INTO TABLE it_cdhdr
FROM CDHDR
WHERE OBJECTCLAS = 'MATERIAL'
AND   UDATE = l_ersda.
AND   TCODE = 'MM02'.
LOOP AT IT_cdhdr.
    SELECT * FROM CDPOS
    WHERE OBJECTCLAS = 'MATERIAL'
    AND   OBJECTID = IT_CDHDR-OBJECTID
    AND   CHANGENR = IT_CDHDR-CHANGENR
    AND   TABNAME   = 'MARC'
    AND   CHNGIND = 'I'.
      search_len = STRLEN( CDPOS-TABKEY ).
      search_len = search_len - 4.
      IF search_len > 0.
        IT_MARC-WERKS = CDPOS-TABKEY+search_len(4).
      ENDIF.
      IT_MARC-MATNR = IT_cdhdr-objectid+0(18).
      IT_MARC-USERNAME = IT_cdhdr-username.
      IT_MARC-UDATE    = IT_cdhdr-udate.
      IT_MARC-FLAG_UI = 'U'.
      APPEND IT_MARC.
     CLEAR IT_MARC.
      CLEAR R_MATNR.
      R_MATNR-SIGN = 'I'.
      R_MATNR-OPTION = 'EQ'.
      R_MATNR-LOW = IT_MARC-MATNR.
      APPEND R_MATNR.
      CLEAR IT_MARC.
    ENDSELECT.
ENDLOOP.
IF g_tcode_flag = 'L'.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        PERCENTAGE = 20
        TEXT       = '处理好当天CHANGE的数据'.
ENDIF.
*******抓当天做了INSERT的数据*************
*******不需要***********************
SELECT BMATNR BWERKS INTO TABLE IT_INSERT
FROM MARC AS B JOIN MARA AS A
ON   AMATNR = BMATNR
WHERE A~ERSDA = l_ersda.
LOOP AT IT_INSERT.
   IT_MARC-MATNR = IT_INSERT-MATNR.
   IT_MARC-WERKS = IT_INSERT-WERKS.
   IT_MARC-FLAG_UI = 'I'.
   APPEND IT_MARC.
   CLEAR IT_MARC.
   CLEAR R_MATNR.
   R_MATNR-SIGN = 'I'.
   R_MATNR-OPTION = 'EQ'.
   R_MATNR-LOW = IT_MARC-MATNR.
   APPEND R_MATNR.
ENDLOOP.
IF g_tcode_flag = 'L'.
   CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
     EXPORTING
       PERCENTAGE = 40
       TEXT       = '处理好当天INSERT的数据'.
ENDIF.
IF g_tcode_flag = 'L'.
    PERFORM get_MAKTX.
    PERFORM get_mara.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        PERCENTAGE = 100
        TEXT       = '处理好数据,并开始显示数据'.
    PERFORM do_data.
    PERFORM display_alv.
ELSE.
    PERFORM get_MAKTX.
    PERFORM do_ftp.
ENDIF.
*&      Form get_marktx
      text
FORM get_maktx.
SELECT MATNR MAKTX INTO TABLE IT_MAKT FROM MAKT
WHERE MATNR IN R_MATNR AND SPRAS = '1'.
ENDFORM.                    "get_marktx
*&      Form get_mara
      text
FORM get_mara.
SELECT * INTO TABLE it_mara FROM MARA
WHERE MATNR IN R_MATNR.
ENDFORM.                    "get_mara
*&      Form do_data
      text
FORM do_data.
SORT IT_MARC BY MATNR WERKS.
DELETE ADJACENT DUPLICATES FROM IT_MARC COMPARING MATNR WERKS.
LOOP AT IT_MARC.
    CLEAR IT_MAKT.
    CLEAR IT_MARA.
    READ TABLE IT_MAKT WITH KEY MATNR = IT_MARC-MATNR.
    READ TABLE IT_MARA WITH KEY MATNR = IT_MARC-MATNR.
    MOVE-CORRESPONDING IT_MARA TO IT_OUT.
    IT_OUT-MAKTX = IT_MAKT-MAKTX.
    IT_OUT-WERKS = IT_MARC-WERKS.
    IF IT_MARC-FLAG_UI = 'U'.
      IT_OUT-ERNAM = IT_MARC-USERNAME.
    ENDIF.
    APPEND IT_OUT.
    CLEAR IT_OUT.
ENDLOOP.
ENDFORM.                    "do_data
*SELECT AMATNR BMAKTX INTO CORRESPONDING
*FIELDS OF FTP_ITEMDOC1 FROM MARA AS A JOIN MAKT AS B
*ON AMATNR = BMATNR WHERE A~ERSDA = l_ersda
*AND B~SPRAS = '1' . "代表为中文说明。
APPEND FTP_ITEMDOC1.
*******DEVK909212****************
*******添加RANGE*****************
CLEAR R_MATNR.
R_MATNR-SIGN = 'I'.
R_MATNR-OPTION = 'EQ'.
R_MATNR-LOW = FTP_ITEMDOC1-MATNR.
APPEND R_MATNR.
CLEAR FTP_ITEMDOC1.
*******DEVK909212****************
*ENDSELECT.
*******DEVK909212****************
****get WERKS information from MARC*******
*SELECT MATNR WERKS INTO TABLE IT_MARC
*FROM MARC
*WHERE MATNR IN R_MATNR.
*******DEVK909212****************
******DEVK909212****************
**MARK**************************
*LOOP AT FTP_ITEMDOC1 .
MOVE : FTP_ITEMDOC1-MATNR TO FTP_ITEMDOC-MATNR,
        FTP_ITEMDOC1-MATNR TO FTP_ITEMDOC-MATNR1,
        FTP_ITEMDOC1-MAKTX TO FTP_ITEMDOC-MAKTX.
APPEND FTP_ITEMDOC.
CLEAR FTP_ITEMDOC.
*ENDLOOP.
******DEVK909212****************
******DEVK909212***********************************
**根据IT_MARC中信息，往北京和福清的TABLE写数据*****
FORM do_ftp.
LOOP AT IT_MARC.
***福清的
    IF IT_MARC-WERKS = '1010' OR IT_MARC-WERKS = '1020'
       OR IT_MARC-WERKS = '1023' .
     READ TABLE FTP_ITEMDOC1 WITH KEY MATNR = IT_MARC-MATNR.
     MOVE : FTP_ITEMDOC1-MATNR TO FTP_FUQING-MATNR,
        FTP_ITEMDOC1-MATNR TO FTP_FUQING-MATNR1,
        FTP_ITEMDOC1-MAKTX TO FTP_FUQING-MAKTX.
      CLEAR IT_MAKT.
      READ TABLE IT_MAKT WITH KEY = IT_MARC-MATNR.
      MOVE : IT_MARC-MATNR TO FTP_FUQING-MATNR,
         IT_MARC-MATNR TO FTP_FUQING-MATNR1,
         IT_MAKT-MAKTX TO FTP_FUQING-MAKTX.
      APPEND FTP_FUQING.
      CLEAR FTP_FUQING.
    ENDIF.
***北京的
    IF IT_MARC-WERKS = '1041' OR IT_MARC-WERKS = '1042'.
     READ TABLE FTP_ITEMDOC1 WITH KEY MATNR = IT_MARC-MATNR.
     MOVE : FTP_ITEMDOC1-MATNR TO FTP_BEIJING-MATNR,
        FTP_ITEMDOC1-MATNR TO FTP_BEIJING-MATNR1,
        FTP_ITEMDOC1-MAKTX TO FTP_BEIJING-MAKTX.
      CLEAR IT_MAKT.
      READ TABLE IT_MAKT WITH KEY = IT_MARC-MATNR.
      MOVE : IT_MARC-MATNR TO FTP_BEIJING-MATNR,
             IT_MARC-MATNR TO FTP_BEIJING-MATNR1,
             IT_MAKT-MAKTX TO FTP_BEIJING-MAKTX.
      APPEND FTP_BEIJING.
      CLEAR FTP_BEIJING.
    ENDIF.
ENDLOOP.
****清楚重复的数据**********
SORT FTP_FUQING.
DELETE ADJACENT DUPLICATES FROM FTP_FUQING.
SORT FTP_BEIJING.
DELETE ADJACENT DUPLICATES FROM FTP_BEIJING.
***传送数据********
REFRESH FTP_ITEMDOC.
FTP_ITEMDOC[] = FTP_FUQING[].
FTP_WERKS = '1010'.
PERFORM ftp_work.
REFRESH FTP_ITEMDOC.
FTP_ITEMDOC[] = FTP_BEIJING[].
FTP_WERKS = '1041'.
PERFORM ftp_work.
******DEVK909212***********************************
ENDFORM.                    "do_ftp
*&      Form ftp_work
     把以前FTP的工作做一个FORM
*******DEVK909212**************************
FORM ftp_work.
*******DEVK909212**************************
CHECK FTP_ITEMDOC[] IS NOT INITIAL.
FTP function *****************************************************
DATA : HDL TYPE I,
         L_SLEN TYPE I ,
         ERROR,
         KEY TYPE I VALUE 26101957,
         DEST TYPE RFCDES-RFCDEST VALUE 'SAPFTPA'.
DATA: FTP_RESULT TYPE TABLE OF TEXT.
DATA: P_FILE TYPE RLGRAP-FILENAME.
DATA: L_USER(16) TYPE C VALUE 'SFIS',
        L_PWD(16) TYPE C VALUE 'SFIS',
        L_HOST(16) TYPE C VALUE '172.16.31.17'.
*******DEVK909212**************************
*****根据不同的工厂来抓FTP的信息
CALL FUNCTION 'Z_FTP_SFIS'
    EXPORTING
      BLART = 'S'
      WERKS = FTP_WERKS
    IMPORTING
      HOST = L_HOST
      USER1 = L_USER
      PASS1 = L_PWD.
*******DEVK909212**************************
CONCATENATE l_ersda '.KP' INTO P_FILE.
SET EXTENDED CHECK OFF.
ERROR = 0.
CHECK HDL IS INITIAL.
Connect to server
L_SLEN = STRLEN( L_PWD ).
CALL FUNCTION 'HTTP_SCRAMBLE'
    EXPORTING
      SOURCE      = L_PWD
      SOURCELEN   = L_SLEN
      KEY         = KEY
    IMPORTING
      DESTINATION = L_PWD.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
   EXPORTING
     TEXT = 'Connect to FTP Server'.
CALL FUNCTION 'FTP_CONNECT'
    EXPORTING
      USER            = L_USER
      PASSWORD        = L_PWD
      HOST            = L_HOST
      RFC_DESTINATION = DEST
    IMPORTING
      HANDLE          = HDL
    EXCEPTIONS
      NOT_CONNECTED   = 1
      OTHERS          = 2.
IF SY-SUBRC <> 0.
    MOVE: 'B' TO WA_ZMSGTA-BLART,
          l_ersda TO WA_ZMSGTA-REFNUMBER,
          SY-MSGTY TO WA_ZMSGTA-MSGTY,
          'MARA' TO WA_ZMSGTA-TBMA_VAL.
    EXPLAIN_MSG SY-MSGID SY-MSGNO ' ' SY-MSGV1 SY-MSGV2 SY-MSGV3
                SY-MSGV4 WA_ZMSGTA-MSE1.
    ERROR_MSG_UPDATA WA_ZMSGTA.
    EXIT.
ENDIF.
CALL FUNCTION 'FTP_COMMAND'
    EXPORTING
      HANDLE        = HDL
      COMMAND       = 'ascii'
    TABLES
      DATA          = FTP_RESULT
    EXCEPTIONS
      TCPIP_ERROR   = 1
      COMMAND_ERROR = 2
      DATA_ERROR    = 3.
IF SY-SUBRC <> 0.
    EXPLAIN_MSG SY-MSGID SY-MSGNO ' ' SY-MSGV1 SY-MSGV2 SY-MSGV3
                SY-MSGV4 WA_ZMSGTA-MSE1.
    MOVE: 'B' TO WA_ZMSGTA-BLART,
          l_ersda TO WA_ZMSGTA-REFNUMBER,
          SY-MSGTY TO WA_ZMSGTA-MSGTY,
          'MARA' TO WA_ZMSGTA-TBMA_VAL.
    ERROR_MSG_UPDATA WA_ZMSGTA.
    EXIT.
ENDIF.
CALL FUNCTION 'FTP_R3_TO_SERVER'
    EXPORTING
      HANDLE         = HDL
      FNAME          = P_FILE
      CHARACTER_MODE = 'X'
    TABLES
      TEXT           = FTP_ITEMDOC
    EXCEPTIONS
      TCPIP_ERROR    = 1
      COMMAND_ERROR = 2
      DATA_ERROR     = 3
      OTHERS         = 4.
IF SY-SUBRC <> 0.
    EXPLAIN_MSG SY-MSGID SY-MSGNO ' ' SY-MSGV1 SY-MSGV2 SY-MSGV3
                SY-MSGV4 WA_ZMSGTA-MSE1.
    MOVE: 'B' TO WA_ZMSGTA-BLART,
          l_ersda TO WA_ZMSGTA-REFNUMBER,
          SY-MSGTY TO WA_ZMSGTA-MSGTY,
          'MARA' TO WA_ZMSGTA-TBMA_VAL.
    ERROR_MSG_UPDATA WA_ZMSGTA.
    EXIT.
ENDIF.
*******DEVK909212**************************
*******CLOSE FTP******************
CHECK NOT HDL IS INITIAL.
CALL FUNCTION 'FTP_DISCONNECT'
    EXPORTING
      HANDLE = HDL.
CALL FUNCTION 'RFC_CONNECTION_CLOSE'
    EXPORTING
      DESTINATION = DEST
    EXCEPTIONS
      OTHERS      = 1.
CLEAR HDL.
ENDFORM.                    "ftp_work
*******DEVK909212**************************
FORM DISPLAY_ALV .
*-- PREPARE ALV DATA
PERFORM EVENTTAB_BUILD USING GT_EVENTS[].
PERFORM COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].
*-- LAYOUT SETTING
PERFORM PREPARE_ALV_FIELD USING GT_FIELDCAT[].
*-- ALV DISPLAY
PERFORM CALL_REUSE_ALV_GRID_DISPLAY.
ENDFORM.                    " display_alv
*&      Form eventtab_build
      text
     -->P_GT_EVENTS[] text
FORM EVENTTAB_BUILD USING PT_EVENTS TYPE SLIS_T_EVENT.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE = 0
    IMPORTING
      ET_EVENTS   = PT_EVENTS.
READ TABLE PT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                           INTO LS_EVENT.
IF SY-SUBRC = 0.
    LS_EVENT-FORM = 'TOP_OF_PAGE'.
    MODIFY PT_EVENTS FROM LS_EVENT INDEX SY-TABIX.
ENDIF.
ENDFORM.                    " eventtab_build
*&      Form comment_build
      text
     -->P_GT_LIST_TOP_OF_PAGE[] text
FORM COMMENT_BUILD USING PT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
DATA: LS_LINE TYPE SLIS_LISTHEADER,
        L_DATE(30),
        l_v_BWKEY like T001W-BWKEY, "Valuation area
        l_v_BUKRS like T001K-BUKRS. "Firm/Company
Listenerschrift: Typ H
CLEAR LS_LINE.
LS_LINE-TYP = 'H'.
LS_LINE-KEY: not used for this type
select single BWKEY
   into l_v_BWKEY
   from t001w
   where WERKS IN s_WERKS.
select single BUKRS
   into l_v_BUKRS
   from t001k
   where BWKEY = l_v_BWKEY.
SELECT SINGLE butxt INTO LS_LINE-INFO
    FROM t001
   WHERE bukrs = l_v_BUKRS.
APPEND LS_LINE TO PT_TOP_OF_PAGE.
Kopfinfo: Typ S
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = '报表名称：'.
LS_LINE-INFO = SY-TITLE.
APPEND LS_LINE TO PT_TOP_OF_PAGE.
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = '打印日期：'.
WRITE SY-DATUM TO LS_LINE-INFO.
ls_line-info = sy-datum.
APPEND LS_LINE TO PT_TOP_OF_PAGE.
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = '打印時間：'.
WRITE SY-UZEIT TO LS_LINE-INFO.
ls_line-info = sy-uzeit.
APPEND LS_LINE TO PT_TOP_OF_PAGE.
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = '使用者：'.
LS_LINE-INFO = SY-UNAME.
APPEND LS_LINE TO PT_TOP_OF_PAGE.
ENDFORM.                    " comment_build
*&      Form prepare_alv_field
      text
     -->P_GT_FIELDCAT[] text
FORM PREPARE_ALV_FIELD USING P_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: LS_LINE TYPE SLIS_FIELDCAT_ALV.
*-- DEFINE MARCO
DEFINE APPEND_ALV_FIELD.
    CLEAR LS_LINE.
    LS_LINE-FIELDNAME = &1.
    LS_LINE-TABNAME = &2.
    LS_LINE-REPTEXT_DDIC = &3.
    LS_LINE-SELTEXT_L = &3.
    LS_LINE-SELTEXT_M = &3.
    LS_LINE-SELTEXT_S = &3.
    LS_LINE-QFIELDNAME = &4.
    LS_LINE-QTABNAME = &5.
    LS_LINE-NO_OUT    = &6.
    LS_LINE-NO_ZERO   = &7.
    LS_LINE-OUTPUTLEN = &8.
    APPEND LS_LINE TO P_FIELDCAT.
END-OF-DEFINITION.
APPEND_ALV_FIELD: 'MATNR' 'IT_OUT' '料号'
                  'O' 'X' ''.
APPEND_ALV_FIELD: 'WERKS' 'IT_OUT' '工厂'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'MTART' 'IT_OUT' 'MTyp'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'MEINS' 'IT_OUT' 'BUn'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'MATKL' 'IT_OUT' '物料组\分群码'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'MATKX' 'IT_OUT' '物料描述'
                    'O' 'X' ''.
APPEND_ALV_FIELD: 'PSTAT' 'IT_OUT' '维护状态'
                    'O' 'X' ''.
APPEND_ALV_FIELD: 'BRGEW' 'IT_OUT' '毛重'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'NTGEW' 'IT_OUT' '净重'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'GEWEI' 'IT_OUT' 'WUn'
                  'O' 'X' ''.
APPEND_ALV_FIELD: 'FERTH' 'IT_OUT' '对外机种名'
                 'O' 'X' ''.
APPEND_ALV_FIELD: 'KZUMW' 'IT_OUT' '高关税标识'
               'O' 'X' ''.
APPEND_ALV_FIELD: 'ERNAM' 'IT_OUT' '创建者'
             'O' 'X' ''.
APPEND_ALV_FIELD: 'ERSDA' 'IT_OUT' '创建日期'
          'O' 'X' ''.
ENDFORM.                    " prepare_alv_field
*&      Form call_reuse_alv_grid_display
      text
--> p1        text
<-- p2        text
FORM CALL_REUSE_ALV_GRID_DISPLAY .
gs_layout-f2code              = 'DISPLAY'.
gs_print-no_print_listinfos   = 'X'.
gs_layout-colwidth_optimize   = 'X'.       "列宽度自动根据内容优化
gs_layout-f2code              = '&ETA'.    "double check弹出详细信息
gs_layout-zebra               = 'X'.       "清单条纹显示
gs_layout-no_vline            = ''.        "是否显示列间隔线
gs_layout-box_fieldname       = ''.        "是否显示checkbox
gs_layout-confirmation_prompt = ''.        "推出清单是否提示
gs_layout-detail_titlebar     = '详细信息'."详细清单的标题
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM                = SY-CPROG
      I_BACKGROUND_ID                   = 'ALV_BACKGROUND'
     I_CALLBACK_PF_STATUS_SET          = 'ALV_PF_STATUS'
     I_CALLBACK_USER_COMMAND           = 'ALV_USER_COMMAND'
     I_CALLBACK_TOP_OF_PAGE            = GT_LIST_TOP_OF_PAGE[]
      IT_FIELDCAT                       = GT_FIELDCAT[]
      IT_EVENTS                         = GT_EVENTS[]
      I_STRUCTURE_NAME                  = 'IT_OUT'
      I_SAVE                            = 'A'
      IS_LAYOUT                         = GS_LAYOUT
      IS_PRINT                          = GS_PRINT
    TABLES
      T_OUTTAB                          = IT_OUT
    EXCEPTIONS
      PROGRAM_ERROR                     = 1
      OTHERS                            = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " call_reuse_alv_grid_display
*&      Form PREPARE_ALV_FIELD
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.
ENDFORM.                    "TOP_OF_PAGE

Hi,
Please check your field catalog and refer field names once again.
Check spelling, or Check strucutre properly.
There are something wrong in your catalog definition
aRs.

Run time error - DYNPRO_MSG_IN_HELP using F4IF_INT_TABLE_VALUE_REQUEST

I am using FM - F4IF_INT_TABLE_VALUE_REQUEST on a selection screenf field. After that I do some validation and throw an error message in the at selection screen event.
But this results in DYNPRO_MSG_IN_HELP error.
I need to have the error message. I cannot change it to Info or Success message. (Program doesn't give run time error if i change the message to S or I or W ). How do I get around this ? What is wrong with F4IF_INT_TABLE_VALUE_REQUEST .
Am I not calling it correctly ?
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'CLASS'   "Field from it_class
      dynpprog        = sy-cprog "Program
      dynpnr          = sy-dynnr "Dynpro number
      dynprofield     = 'P_FOLD' "Select-options field
      value_org       = 'S'       "Value return: C: cell by cell, "S: structured
      display         = 'F'       "Override readiness for input
    TABLES
      value_tab       = it_class "table with selection values
      return_tab      = t_return "Return value
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
Error Message:    The program attempted to issue a " " message during "F4" processing.
    This is an illegal operation.
    The program was terminated.
    Screen name.............. "ZMMR0010_INFORECORD_UPDT"
    Screen number............ 0200
Edited by: Shareen Hegde on Mar 29, 2011 1:47 AM

Hi,
ther are 3 things you can change.
Parameter dynpprog shouldn't be sy-cprog or sy-repid. Please decalre a variable where you can pass the value of sy-cprog to and give it to that parameter.
Parameter dynpnr shouldn't be sy-dynnr. Please decalre a variable where you can pass the value of sy-dynnr to and give it to that parameter.
Parameter display is of type DDBOOL_D and can have value 'X' or SPACE (see fix values of domain DDBOOL!).
Regards,
Klaus

Error in BDC Back Ground Processing

Dear All,
I am facing problem on while executing BDC program. First i am executing in Foreground method there it displaying errors occured,
means it showing full discription or error.
But when i used Back ground processing its displayig the full error discription like "No posting object defined for 1230/ / / " here i need full error discription.
please do the need full.
Regrads,
Srinivas.

Hi
In background processing you cannot see the error message, for that you have to write logic for capturing messages.
Use 'Format_Message' function module so that you can get the complete message and then you can display that on the screen.
Hope it helps...

Run time error while using Class gcl_error

Hi All,
I am getting run time error while using class gcl_error
                                      type REF to zsreport_error_handling:
'' Attempt to access a component using 'NULL' object reference (points to nothing).
An object reference must point to an object ( an instance of a class) before you can use it to access components ( variable : ''GCL_ERROR'').
Either the reference point has not yet been set or it has been reset to 'NULL' by a clear statement."
Can you please suggest any solution for this ?
Thanks in advance.

Dear All
Its Resolved Thanks For your Valuable time Support
INCLUDE LV03VFB4 inside below code trigger error.
PERFORM VVBBD_AUFBAUEN USING WA_AVBBD
                                    WA_AVBBD-APOMOBILE
                                    DA_SUBRC
                                    DA_UPDKZ
                                    DA_VVBBD_TABIX
                                    0.
This Was the Error some how 0 was there we are removed the 0 now it is working fine
Rgds
Thomson

When i run Time Machine to back up my computer onto an external hard drive, i have no way of knowing when the back up process has been completed. I don't know when it is safe to disconnect the external hard drive - which is store in a separate location.

When i run Time Machine to back up my computer on to an external hard drive, i have no way of knowing when the back up process has been completed. This is necessary to know because i don't leave my external hard drive connected to the computer. I routinely disconnect it after backing up the hard drive, and then i store the external hard drive in a different location from the computer. So, knowing when the back up process has been completed would be a very helpful thing to have the computer specify.

Just enable Time Machine's menu extra (System Preferences -> Time Machine -> Show Time Machine in menu bar.
This will add a little Time Machine icon to your menubar. When Time Machine is actively backing up your data, the icon will spin as a visual indicator. You can also click the menu icon to see the backup status, including how much data is left to back up.

Run-Time errors using DAQmx and Borland C++ Builder 5.0

I've written a simple program on MS Visual C++ 6.0 to test my PCI-6014 board and it works fine.
I copied the code to Borland C++ builder 5.0 and had some linker problems with the .lib files that where solved with borland's "coff2omf".
Now I've been getting run-time errors when I use the function DAQmxCreateAIVoltageChan()... The error code is -50251: "The specified software component is not available. The component was not loaded".
But I'm sure that the code is right, since it works fine on MS Visual C++ 6.0!
That the part of the code where I'm getting the error:
iErro = DAQmxCreateTask("", &thTask);
iErro = DAQmxCreateAIVoltageChan(thTask, "Dev1/ai0", "", DAQmx_Val_Diff, -10.0, 10.0, DAQmx_Val_Volts, NU
LL);
Thanks for the help,
Marcelo

Hello
Borland enables certain types of exceptions by default which are initially disable in MSVC. You will need to refer to the documentation for Borland Builder on how to disable floating point exceptions. I believe you can do it by adding the following statement to your initialization code, but you should double check this:
_control87(MCW_EM, MCW_EM);
These exceptions get thrown because we are doing some floating point initialization underneath. This is not an indication of a bug or a problem of any sort. Apparently you have to this for alot of libraries to work correctly with Borland (OpenGL etc...)
Hope this helps
Bilal Durrani
NI
Bilal Durrani
NI

Run Time Error when attempting to use pse 10 editor

While using the editor in PSE 10, it suddenly stopped working, giving me a "run time error" message. I have created a new user account, created restore points on my PC, attempted to change the preference files, all to no avail. The software came installed on my PC, so I'm unable to do an uninstall and reinstall as I don't have the installation CD. The PC manufacturer and Adobe support have been unable to help (neither providing me with a product key). Can someone help me fix the "run time error"? Until it's fixed, the product is unusable.

Can you share the exact error message or probably a screenshot which might help us reviewing it and suggest you any solution.
Thanks,
Garry

After updating my itunes per the update notice I received a run-time error R6034 message. Now I am unable to use iTunes. What can I do to repair this error?

After updating my iTunes per the update notice I received a run-time error R6034. Now I am unable to access iTunes at all.
Can someone tell me how to correct this problem?

Uninstall your existing copy of iTunes. Delete any copies of the iTunesSetup.exe (or iTunes64Setup.exe) installer files from your downloads areas for your web browsers and download a fresh copy of the iTunes installer from the Apple website:
http://www.apple.com/itunes/download/
(The current build of the 11.1.4.62 installer was changed a few days ago, which fixed the bulk of the reports of MSVCR80.dll/R6034/APSDaemon.exe/Error-7/AMDS-could-not-start trouble ... but the build number on the installer was not changed. So we're trying to make sure you do the reinstall using a "new good" 11.1.4.62 installer instead of an "old bad".)
Does the install with the new copy of the installer go through properly? If so, does that clear up the error message?
If you still have the same error messages cropping up, then try the procedures from the following user tip:
Troubleshooting issues with iTunes for Windows updates

Run time error when using search

I get a run time error when using the search in iTunes store. Running current iTunes version.

Duplicate post -- Client ADI display A runtime error in Office 2010

Run time error in Back ground processing using LSMW

Similar Messages

Maybe you are looking for