How to read dynamic file names in RSEINB00?

Question

Hi, ABAP Gurus,
actually I'm a PI Consultant. Now I have a scenario to use the report RSEINB00.
In the Applicaton Server i put ASCII IDocs with the following name convension: <static name>+<time stemple>:
SAPIDOC20111127-224128-952.txt
SAPIDOC20111127-224129-115.txt
I created a new port in WE21 and the Outbound file and Inbound fiel tabs haben the same configration:
physical directory: /ABC/DEV100/inbound/
Function module: EDI_PATH_CREATE_DATE_TIME
Inbound file: SAPIDOC.txt
To execute the report RSEINB00 I must give the complete file name and port. It is not convenient.
My target is, with a job to run RSEINB00 once daily to read all files with name "SAPIDOC + <time stemple>" full automatically.
Is it possible? how to figure it out?
thanks a lot in advance! <removed by moderator>.
Regards
Rene
Edited by: Thomas Zloch on Nov 29, 2011 5:23 PM

Answer 1

with the extension of the standard report RSEINB00 i solved this problem. here is some code:
DATA:
  dir_name  LIKE  epsf-epsdirnam,
  file_mask LIKE  epsf-epsfilnam,
  g_message_fields LIKE edimessage.
DATA:
  filename LIKE  edi_path-pthnam,
  filename2 LIKE edi_path-pthnam,
  myport TYPE EDIPO-PORT.
DATA: h_EDIDC     LIKE EDIDC.
DATA:
  wa TYPE file_table.
DATA:
  t_dir_list TYPE STANDARD TABLE OF epsfili WITH HEADER LINE,
  itab TYPE table of file_table WITH HEADER LINE.
*The directoy, where the Markant ASCII IDocs are droped by XI.
dir_name = '<.../inbound>'.
*File mask of ASCII IDocs.
file_mask = 'XYIDOC.'.
*File port.
myport = '<Portname>'.
CALL FUNCTION 'EPS_GET_DIRECTORY_LISTING'
  EXPORTING
    dir_name               = dir_name
    file_mask              = file_mask
  TABLES
    dir_list               = t_dir_list
  EXCEPTIONS
    invalid_eps_subdir     = 1
    sapgparam_failed       = 2
    build_directory_failed = 3
    no_authorization       = 4
    read_directory_failed  = 5
    too_many_read_errors   = 6
    empty_directory_list   = 7
    OTHERS                 = 8.
IF sy-subrc <> 0.
  MESSAGE e600(fr) WITH 'No ASCII IDoc exits'.
ENDIF.
"BREAK-POINT.
*The old ASCII IDocs are stored in a dataset and copied with new file name sent_<original name>
LOOP AT t_dir_list.
  CONCATENATE dir_name '/' t_dir_list-name INTO filename.
  CONCATENATE dir_name '/sent_' t_dir_list-name INTO filename2.
open dataset filename for input in text mode.
open dataset filename2 for output in text mode.
if sy-subrc = 0.
  do.
    read dataset filename into wa.
      if sy-subrc <> 0.
       exit.
      endif.
  transfer wa to filename2.
     append wa to itab.
       enddo.
endif.
close dataset filename.
*loop at itab into wa.
transfer wa to filename2.
*endloop.
close dataset filename2.
  PERFORM inbound_processing USING filename.
ENDLOOP.
*&      Form  inbound_processing
FORM inbound_processing USING filename TYPE edi_path-pthnam.
do inbound processing from file
  CALL FUNCTION 'IDOC_INBOUND_FROM_FILE'
    EXPORTING
      file_name            = filename
      port                 = myport
    EXCEPTIONS
      file_open_failed     = 1
      marker_to_be_deleted = 2
      read_file_failed     = 3
      idoc_not_stored      = 4
      file_delete_failed   = 5
      marker_modify_failed = 6
      event_create_failed  = 7
      first_record_invalid = 8
      invalid_record       = 9
      OTHERS               = 10.
  IF sy-subrc <> 0.
fill message fields for exception handling from system fields
    MOVE-CORRESPONDING sy TO g_message_fields.
error handling using the 3.0 business workflow
    CALL FUNCTION 'IDOC_ERROR_WORKFLOW_START'
      EXPORTING
        docnum                  = 0
        eventcode               = 'EDIM'
        mess                    = g_message_fields
      EXCEPTIONS
        no_entry_in_tede5       = 0
        error_in_start_workflow = 0
        OTHERS                  = 0.
do not care for exceptions here
    COMMIT WORK.
append message for RFC
    MESSAGE ID     g_message_fields-msgid
            TYPE   'A'
            NUMBER g_message_fields-msgno
            WITH   g_message_fields-msgv1 g_message_fields-msgv2
                   g_message_fields-msgv3 g_message_fields-msgv4.
  ENDIF.
ENDFORM.                    "inbound_processing