RSCMSIM ::: Message 404: (Not Found)

Question

Hi,
during import of content repository, already exported with RSCMSEXL, RSCMSIM ends with this message:
Message 200: (OK)
Message 404: (Not Found)
Is it OK? What is the problem?
Regards.

Answer 1

Hi,
I hope this help you.
Bye.
*& Report  Z_I065101_MIGRATE
REPORT  z_i065101_migrate.
PARAMETERS:
p_repdst TYPE  sdokstca-stor_rep OBLIGATORY,
p_repsrc TYPE  sdokstca-stor_rep OBLIGATORY.
TYPES: BEGIN OF t_doclist,
         line(32) TYPE c,
       END OF t_doclist.
DATA: doclist   TYPE STANDARD TABLE OF t_doclist,
      doclist2   TYPE STANDARD TABLE OF t_doclist,
      doclist3   TYPE STANDARD TABLE OF t_doclist,
      wa_doclist   TYPE t_doclist.
CONSTANTS: timeout TYPE i VALUE 86400. "One day in seconds
*Get the list of the documents from source
CALL FUNCTION 'SCMS_DOC_IDLIST'
  EXPORTING
    stor_cat         = ' '
    crep_id          = p_repsrc
    timeout          = timeout     "(Time out value)
  TABLES
    doclist          = doclist
  EXCEPTIONS
    error_config     = 1
    bad_storage_type = 2
    OTHERS           = 3.
* Delete The unwanted entries if any
SORT doclist STABLE.
DELETE ADJACENT DUPLICATES FROM doclist.
*Get the list of the documents from destination
CALL FUNCTION 'SCMS_DOC_IDLIST'
  EXPORTING
    stor_cat         = ' '
    crep_id          = p_repdst
    timeout          = timeout     "(Time out value)
  TABLES
    doclist          = doclist2
  EXCEPTIONS
    error_config     = 1
    bad_storage_type = 2
    OTHERS           = 3.
IF sy-subrc = 0 .
  LOOP AT doclist INTO wa_doclist .
    READ TABLE doclist2 WITH KEY line = wa_doclist-line TRANSPORTING NO FIELDS.
    IF sy-subrc NE 0 .
      APPEND wa_doclist TO doclist3.
    ENDIF.
  ENDLOOP.
ELSE.
  doclist3[] = doclist[].
ENDIF.
CLEAR wa_doclist.
*Loop at the document and move them.
LOOP AT doclist3 INTO wa_doclist.
  CALL FUNCTION 'SCMS_DOC_COPY'
    EXPORTING
*   SRC_MANDT                   = SY-MANDT
     src_stor_cat               =  ' '
     src_crep_id                =   p_repsrc
     src_doc_id                 =  wa_doclist-line
*   SRC_PHIO_ID                 =
*   SRC_SIGNATURE               = 'X'
*   DST_MANDT                   = SY-MANDT
*   DST_STOR_CAT                = ' '
     dst_crep_id                  = p_repdst
     dst_doc_id                   = wa_doclist-line
*   DST_PHIO_ID                 =
*   DST_DOC_PROT                = 'rud'
*   SECURITY                    = ' '
*   OVERWRITE                   = ' '
* IMPORTING
*   DOC_ID_OUT                  =
* TABLES
*   MOD_COMPINFO                =
   EXCEPTIONS
     bad_storage_type            = 1
     bad_request                 = 2
     unauthorized                = 3
     not_found                   = 4
     forbidden                   = 5
     conflict                    = 6
     internal_server_error       = 7
     error_http                  = 8
     error_signature             = 9
     error_config                = 10
     error_format                = 11
     error_parameter             = 12
     error                       = 13
     blocked_by_policy           = 14
     OTHERS                      = 15.
  IF sy-subrc = 0.
    TRANSLATE wa_doclist-line  TO UPPER CASE.
    WRITE :/ 'Document copied Successfully', wa_doclist-line .
  ELSE.
    TRANSLATE wa_doclist-line  TO UPPER CASE.
    WRITE :/ 'Document copy is not successful' , wa_doclist-line .
  ENDIF.
  COMMIT WORK.
ENDLOOP.
* If the control reaches here all the documents would have got copied and thus We can delete the entries