Question

我有一个程序，其中有一个复选框，如果用户启用它，则使用以下代码在后台运行程序：

    REPORT  zfile_creation_app2.
*&---------------------------------------------------------------------*
*& Create file on Application Server
*& if the file exist, it will be deleted and created with new content
*&---------------------------------------------------------------------*

TABLES : sflight.

TYPES: BEGIN OF ty_sflight,
         carrid TYPE sflight-carrid,
         connid TYPE sflight-connid,
         fldate TYPE sflight-fldate,
       END OF ty_sflight.

DATA: lv_file(255).
DATA: lt_sflight            TYPE TABLE OF ty_sflight.
FIELD-SYMBOLS: <fs_sflight> LIKE LINE OF lt_sflight.

"-----------------------------------------"
" Selection Screen
"-----------------------------------------"
SELECT-OPTIONS: s_carid FOR sflight-carrid,
                s_fldte FOR sflight-fldate.

" File Path on Application Server
PARAMETERS: p_path      TYPE btcxpgpar DEFAULT '/tmp',
            p_bckgrd(1) TYPE c DEFAULT 'X'.


"-----------------------------------------"
" Help Search for SAP Folder
"-----------------------------------------"

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
  DATA: c_fnh_mask TYPE dxfields-filemask VALUE '*',
        search_dir TYPE dxfields-longpath.

  CALL FUNCTION '/SAPDMC/LSM_F4_SERVER_FILE'
    EXPORTING
      directory        = search_dir
      filemask         = c_fnh_mask
    IMPORTING
      serverfile       = p_path
    EXCEPTIONS
      canceled_by_user = 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.

  "-----------------------------------------"
  " Processing
  "-----------------------------------------"

START-OF-SELECTION.

  IF p_bckgrd = 'X'.
    PERFORM start_in_background.
  ELSE.
    PERFORM get_data.
    PERFORM extract_to_file.
  ENDIF.

END-OF-SELECTION.
  WRITE: lv_file , ' is created' .


*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_data .

  SELECT carrid connid fldate FROM sflight INTO TABLE lt_sflight
  WHERE carrid IN s_carid[] AND
        fldate IN s_fldte.

  IF sy-subrc NE 0 .
    RETURN.
  ENDIF.

ENDFORM.

*&---------------------------------------------------------------------*
*&      Form  EXTRACT_TO_FILE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM extract_to_file .

  " Build FineName
  CONCATENATE p_path '/' 'Flight' sy-datum sy-uzeit '.txt' INTO lv_file.
  REPLACE ALL OCCURRENCES OF '//' IN lv_file WITH '/'.

  " Check if File exists
  OPEN DATASET  lv_file  FOR INPUT IN BINARY MODE.
  IF sy-subrc EQ 0.
    " If File Exists -> Delete it
    CLOSE DATASET   lv_file.
    DELETE DATASET  lv_file.
    CLOSE DATASET   lv_file.
  ENDIF.

  " Open file for Output
  OPEN DATASET  lv_file  FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
  IF sy-subrc NE 0 .
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
     WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

  " Transfer Data to file
  LOOP AT lt_sflight ASSIGNING <fs_sflight>.
    TRANSFER <fs_sflight> TO  lv_file .
  ENDLOOP.

  " Close File
  CLOSE DATASET  lv_file.

ENDFORM.

*&---------------------------------------------------------------------*
*&      Form  START_IN_BACKGROUND
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM start_in_background .

  DATA: d_jobcount LIKE tbtcjob-jobcount,
        d_jobname  LIKE tbtcjob-jobname.

  d_jobname = 'ZFILE_CREATION_APP2'.

  CALL FUNCTION 'JOB_OPEN'
    EXPORTING
      jobname          = d_jobname
    IMPORTING
      jobcount         = d_jobcount
    EXCEPTIONS
      cant_create_job  = 1
      invalid_job_data = 2
      jobname_missing  = 3
      OTHERS           = 4.

  IF sy-subrc NE 0.
    MESSAGE s368(00) WITH 'Error Creating Job'
    sy-subrc.
    EXIT.
  ENDIF.

  SUBMIT zfile_creation_app2
    WITH s_carid = s_carid
    WITH s_fldte = s_fldte
    WITH p_bckgrd = space
    WITH p_path = p_path
      VIA JOB d_jobname
          NUMBER d_jobcount
      AND RETURN.

  CALL FUNCTION 'JOB_CLOSE'
    EXPORTING
      jobcount          = d_jobcount
      jobname           = d_jobname
      strtimmed         = 'X' " Immediate
    EXCEPTIONS
      invalid_startdate = 1
      jobname_missing   = 2
      job_close_failed  = 3
      job_nosteps       = 4
      job_notex         = 5
      lock_failed       = 6
      OTHERS            = 7.

  IF sy-subrc > 0.
    MESSAGE s368(00) WITH 'Closing Job Failed'
    sy-subrc.
    EXIT.
  ENDIF.

ENDFORM.

不幸的是，后台作业总是取消，并出现以下错误： 以__.__.____ 格式输入日期这是用户的默认设置。

任何人都可以知道导致问题的原因以及如何解决问题吗？

提前致谢利亚

Answer 1

问题在于so_budat。如果你的so_budat是一个选择选项，请尝试使用“in”而不是“=”。见下文。

so_budat IN so_budat.

尝试在后台运行abap失败

1 个答案: