Дамп при загрузке на стороне исходной системы

Faron

Добрый!

Инициализация дельты прошла успешно и все загрузилось. Затем запускаю дельта загрузку и система сразу валится, при просмотре ошибки попадаем в дамп. В исходной в тесте экстрактора не удалось уловить ничего...

Error in the ABAP Application Program
The current ABAP program "SAPMSSY1" had to be terminated because it has
come across a statement that unfortunately cannot be executed.
The following syntax error occurred in program "/BIC/SAPLQIFI_GL_KOR_REG_UDP "
in include "/BIC/SAPLQIFI_GL_KOR_REG_UDP " in
line 0:
"The program "/BIC/SAPLQIFI_GL_KOR_REG_UDP" is not Unicode-compatible, "
"according to its program attributes."
" "
" "
The include has been created and last changed by:
Created by: "ALEREMOTE "
Last changed by: "ALEREMOTE "
Error in the ABAP Application Program
The current ABAP program "SAPMSSY1" had to be terminated because it has
come across a statement that unfortunately cannot be executed.

Code:

256 form xab_run_driver using prog         type c
257                           if_found     type i
258                           new_function type c.
259 data : program like syst-repid.
260
261     program = prog.
262     if new_function = space.
>>>       call 'RfcImport' id 'Push' field rfctype_abap4_exit
264                        id 'Info' field program.
265     else.
266       call 'RfcImport' id 'Push' field rfctype_abap4_exit
267                        id 'Info' field program
268                        id 'Function' field new_function.
269     endif.
270     if if_found = 0.
271        perform (sy-xform) in program (sy-xprog).
272     else.
273        perform (sy-xform) in program (sy-xprog) if found.
274     endif.
275
276 endform.

Smoky

Возможно дело в кодировке. В настройках RFC соединения к исходной системе стоит юникод?

Faron

Да, базис сказал стоит.

Faron

Разобрались. Спасибо нашему базису:)
Есть нота по этому поводу: 728998 - Delta after upgrade:Program /BI0/SAPLQI* not Unicode-enabled
Рекомендуется создать программу ZBI_UNICODE (возможно уже есть) и запустить ее указав имя дефектной программы.

Code:

REPORT  ZBI_UNICODE.

TABLES: PROGDIR, TRDIR.
DATA: L_S_PROGDIR LIKE PROGDIR,
      L_T_PROGDIR LIKE L_S_PROGDIR OCCURS 0.

PARAMETERS PRO_NAME LIKE PROGDIR-NAME.

IF PRO_NAME EQ '*'.
  SELECT * FROM PROGDIR INTO TABLE L_T_PROGDIR
    WHERE ( NAME   LIKE '/BI0/SAPLQI%' OR
            NAME   LIKE '/BI0/SAPLQ1%' OR
            NAME   LIKE '/BIC/SAPLQI%' OR
            NAME   LIKE '/BIC/SAPLQ1%'    )
        AND UCCHECK EQ SPACE.
  IF SY-SUBRC EQ 0 AND NOT L_T_PROGDIR IS INITIAL.
    LOOP AT L_T_PROGDIR INTO L_S_PROGDIR.
      L_S_PROGDIR-UCCHECK = 'X'.
      MODIFY PROGDIR FROM L_S_PROGDIR.
      WRITE: /(40) L_S_PROGDIR-NAME, '-> UCCHECK = X'.
    ENDLOOP.
    WRITE: /. WRITE: / '-> Unicode Flag is set!'.
  ELSE.
    MESSAGE S022(R3).
    EXIT.
  ENDIF.

ELSE.
  SELECT SINGLE * FROM PROGDIR INTO L_S_PROGDIR
    WHERE  NAME EQ PRO_NAME AND UCCHECK EQ SPACE.
  IF SY-SUBRC EQ 0 AND NOT L_S_PROGDIR IS INITIAL.
    L_S_PROGDIR-UCCHECK = 'X'.
    MODIFY PROGDIR FROM L_S_PROGDIR.
    WRITE: /(40) L_S_PROGDIR-NAME, '-> UCCHECK = X'.
    WRITE: /. WRITE: / '-> Unicode Flag is set!'.
  ELSE.
    MESSAGE S022(R3).
    EXIT.
  ENDIF.
ENDIF.

Дамп при загрузке на стороне исходной системы

Кто сейчас на конференции