RE: Internal error in SAP OLE document container control

Question

Hi,
When i execute the transaction for assigning standard document to an applicant activity, PBWW, i get an error message stating 'Internal error in SAP OLE document container control'.  Please help me out of this problem.
We are using SAP version ECC 6
Thanks and Regards,
sowmya

Answer 1

Hi,
Sorry for replying so late.
Follow these steps
•     Create a report ZPAPUT04 in your system.
•     Using ZPAPUT04, upload all the templates in TEMPLATES.zip one by one. Please make sure that only the option 'Upload' in the selection screen is chosen. You have to pass the other inputs as given below
If you have extracted the templates in the 'C: \ folder of your system
then
For R3_TP97_E.dot template
FILENAME = C:\R3_TP97_E.DOT
DOTNAME = R3_TP97_E
For TEMPLATE_E.DOT template
FILENAME = C:\TEMPLATE_E.DOT
DOTNAME = TEMPLATE_E
Execute the upload program ZPAPUT04
For R3_TP97A_E.dot template
FILENAME = C:\R3_TP97A_E.DOT
DOTNAME = R3_TP97A_E
Execute the upload program ZPAPUT04
<b>Report to be executed</b>
REPORT  ZPAPUT04                                .
types: begin of data_type,
        line(132) type x,
      end of data_type.
DATA langu type thead-tdspras VALUE 'D'.                  
DATA data_x type table of data_type.
DATA wa_data_x type data_type.
DATA text type table of tline.
DATA wa_text type tline.
DATA header type thead.
DATA header_x type xstring.
field-symbols: <data_x> type x,
               <text> type x.
DATA filename type string.
parameters:  file_c(128) default 'C:\R3_TP97_D.DOT',
             dotname type TDOBNAME default 'R3_TP97_D',
             download as checkbox default 'X',
             upload as checkbox default 'X'.
DATA bytes_up type i.
DATA bytes_down type i.
DATA result1 type string.
DATA result2 type string.
data charsize type i.
class CL_ABAP_CHAR_UTILITIES definition load.
charsize = CL_ABAP_CHAR_UTILITIES=>charsize.
filename = file_c.
if upload = 'X'.
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
    FILENAME                      = filename
    FILETYPE                      = 'BIN'
  HAS_FIELD_SEPARATOR           = ' '
  HEADER_LENGTH                 = 0
  READ_BY_LINE                  = 'X'
  IMPORTING
    FILELENGTH                    = bytes_up
  HEADER                        =
  TABLES
    DATA_TAB                      = data_x
  EXCEPTIONS
    FILE_OPEN_ERROR               = 1
    FILE_READ_ERROR               = 2
    NO_BATCH                      = 3
    GUI_REFUSE_FILETRANSFER       = 4
    INVALID_TYPE                  = 5
    NO_AUTHORITY                  = 6
    UNKNOWN_ERROR                 = 7
    BAD_DATA_FORMAT               = 8
    HEADER_NOT_ALLOWED            = 9
    SEPARATOR_NOT_ALLOWED         = 10
    HEADER_TOO_LONG               = 11
    UNKNOWN_DP_ERROR              = 12
    ACCESS_DENIED                 = 13
    DP_OUT_OF_MEMORY              = 14
    DISK_FULL                     = 15
    DP_TIMEOUT                    = 16
    OTHERS                        = 17
IF SY-SUBRC <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF bytes_up <= 0.
  result1 = 'UPLOAD ERROR ?:o('.
ELSE.
  result1 = 'UPLOAD OK :o)'.
ENDIF.
LOOP AT data_x INTO wa_data_x.
  assign wa_data_x-line to <data_x> casting.
  assign wa_text-tdline to <text> casting.
  <text> = <data_x>.
  append wa_text TO text.
ENDLOOP.
CALL FUNCTION 'INIT_TEXT'
  EXPORTING
    ID             = 'TAPP'
    LANGUAGE       = langu                                 
    NAME           = dotname
    OBJECT         = 'APP-DOT'
  IMPORTING
    HEADER         = header
  TABLES
    LINES          = text
  EXCEPTIONS
    ID             = 1
    LANGUAGE       = 2
    NAME           = 3
    OBJECT         = 4
    OTHERS         = 5
IF SY-SUBRC <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT data_x INTO wa_data_x.
  assign wa_data_x-line to <data_x> casting.
  assign wa_text-tdline to <text> casting.
  <text> = <data_x>.
  append wa_text TO text.
ENDLOOP.
CALL FUNCTION 'SAVE_TEXT'
  EXPORTING
    CLIENT                = '000'                          
    HEADER                = header
  INSERT                = ' '
  SAVEMODE_DIRECT       = ' '
  OWNER_SPECIFIED       = ' '
  LOCAL_CAT             = ' '
IMPORTING
  FUNCTION              =
  NEWHEADER             =
  TABLES
    LINES                 = text
  EXCEPTIONS
    ID                    = 1
    LANGUAGE              = 2
    NAME                  = 3
    OBJECT                = 4
    OTHERS                = 5
IF SY-SUBRC <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
if download = 'X'.
refresh data_x.
refresh text.
clear wa_data_x.
clear wa_text.
unassign <data_x>.
unassign <text>.
DOWNLOAD
CALL FUNCTION 'READ_TEXT'
  EXPORTING
    CLIENT                        = '000'                  
    ID                            = 'TAPP'
    LANGUAGE                      = langu                  
    NAME                          = dotname
    OBJECT                        = 'APP-DOT'
  ARCHIVE_HANDLE                = 0
  LOCAL_CAT                     = ' '
IMPORTING
  HEADER                        =
  TABLES
    LINES                         = text
  EXCEPTIONS
    ID                            = 1
    LANGUAGE                      = 2
    NAME                          = 3
    NOT_FOUND                     = 4
    OBJECT                        = 5
    REFERENCE_CHECK               = 6
    WRONG_ACCESS_TO_ARCHIVE       = 7
    OTHERS                        = 8
IF SY-SUBRC <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT text INTO wa_text.
  assign wa_data_x-line to <data_x> casting.
  assign wa_text-tdline to <text> casting.
  <data_x> = <text>.
  append wa_data_x TO data_x.
ENDLOOP.
*DATA fn_length type i.
*DATA offset type i.
*fn_length = strlen( file_c ).
*offset = fn_length - 4.
*concatenate filename(offset) '_DOWN' filename+offset(4) INTO filename.
IF upload <> 'X'.
  DATA dx_ln type i.
  describe table data_x lines dx_ln.
  bytes_up = dx_ln * sy-tleng.
ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
    BIN_FILESIZE                  = bytes_up
    FILENAME                      = filename
    FILETYPE                      = 'BIN'
  APPEND                        = ' '
  WRITE_FIELD_SEPARATOR         = ' '
  HEADER                        = '00'
  TRUNC_TRAILING_BLANKS         = ' '
  WRITE_LF                      = 'X'
  COL_SELECT                    = ' '
  COL_SELECT_MASK               = ' '
  IMPORTING
    FILELENGTH                    = bytes_down
  TABLES
    DATA_TAB                      = data_x
  EXCEPTIONS
    FILE_WRITE_ERROR              = 1
    NO_BATCH                      = 2
    GUI_REFUSE_FILETRANSFER       = 3
    INVALID_TYPE                  = 4
    NO_AUTHORITY                  = 5
    UNKNOWN_ERROR                 = 6
    HEADER_NOT_ALLOWED            = 7
    SEPARATOR_NOT_ALLOWED         = 8
    FILESIZE_NOT_ALLOWED          = 9
    HEADER_TOO_LONG               = 10
    DP_ERROR_CREATE               = 11
    DP_ERROR_SEND                 = 12
    DP_ERROR_WRITE                = 13
    UNKNOWN_DP_ERROR              = 14
    ACCESS_DENIED                 = 15
    DP_OUT_OF_MEMORY              = 16
    DISK_FULL                     = 17
    DP_TIMEOUT                    = 18
    FILE_NOT_FOUND                = 19
    DATAPROVIDER_EXCEPTION        = 20
    CONTROL_FLUSH_ERROR           = 21
    OTHERS                        = 22
IF SY-SUBRC <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF bytes_down <> bytes_up and upload = 'X'.
  result2 = 'DOWNLOAD ERROR ?:o('.
ELSEIF bytes_down > 0.
  result2 = 'DOWNLOAD OK :o)'.
ELSE.
  result2 = 'DOWNLOAD ERROR ?:o('.
ENDIF.
endif.
write: result1, / result2, / 'Bytes per Character: ', charsize.
Download the template attached to note 558548
Regards,
Sowmya