FUNCTION ZIDOC_READ_COMPLETELY.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(DOCUMENT_NUMBER) LIKE  EDIDC-DOCNUM
*"  EXPORTING
*"     VALUE(IDOC_CONTROL) LIKE  EDIDC STRUCTURE  EDIDC
*"     VALUE(NUMBER_OF_DATA_RECORDS) LIKE  SY-DBCNT
*"     VALUE(NUMBER_OF_STATUS_RECORDS) LIKE  SY-DBCNT
*"  TABLES
*"      INT_EDIDS STRUCTURE  EDIDS OPTIONAL
*"      INT_EDIDD STRUCTURE  EDIDD OPTIONAL
*"  EXCEPTIONS
*"      DOCUMENT_NOT_EXIST
*"      DOCUMENT_NUMBER_INVALID
*"----------------------------------------------------------------------

  IF DOCUMENT_NUMBER IS INITIAL.
    MESSAGE E054(E0) RAISING DOCUMENT_NUMBER_INVALID.
  ENDIF.

  CALL FUNCTION 'IDOC_READ_COMPLETELY'
    EXPORTING
      document_number          = document_number
    importing
      idoc_control             = idoc_control
      number_of_data_records   = number_of_data_records
      number_of_status_records = number_of_status_records
    TABLES
      int_edids                = int_edids
      int_edidd                = int_edidd
    EXCEPTIONS
      document_not_exist       = 1
      document_number_invalid  = 2
      OTHERS                   = 3.
  IF sy-subrc = 1.
    MESSAGE E062(E0) WITH DOCUMENT_NUMBER RAISING DOCUMENT_NOT_EXIST.
  ENDIF.


ENDFUNCTION.