Еще раз о PBO

anatolyl

Уважаемые господа! При наличии времени окажите помощь.

Задача : имею экран 0200, из него по кнопке запускаю процесс в
режиме NEW TASK. Не могу заставить отработать PBO при окончании процесса.

module user_command_0200 input.

CASE ok_code.

WHEN 'RUN'.
PERFORM do_run.
....
по кнопке запускаю процесс

CALL FUNCTION 'ZAM_FM_CREATE_SWIFT' STARTING NEW TASK '001'
PERFORMING f_task_end ON END OF TASK.

соответственно

FORM f_task_end USING taskname.

DATA lv_mssg(80). "#EC NEEDED

RECEIVE RESULTS FROM FUNCTION 'ZAM_FM_CREATE_SWIFT'
EXCEPTIONS
* RESOURCE_FAILURE = 1
communication_failure = 2 MESSAGE lv_mssg
system_failure = 3 MESSAGE lv_mssg
OTHERS = 4.

IF sy-subrc EQ 0.
...
?????
* SUPPRESS DIALOG.
* SET screen 200.
* SET USER-COMMAND 'STOP'.
* LEAVE to SCREEN '0200'.

ENDIF.

ENDFORM. " F_TASK_END

Большое спасибо.

vga

Цитата:

Receives the results returned by a function module called asynchronously ( CALL FUNCTION func STARTING NEW TASK taskname). This ABAP statement is used within a FORM routine. The form routine must have a place holder for passing the task name (for example, USING taskname - see example), and it can only be used to receive and execute simple ABAP statements. It cannot contain any statements that interrupt the program execution (such as CALL SCREEN, CALL DIALOG, CALL TRANSACTION, SUBMIT, COMMIT WORK, WAIT, Remote Function CAlls, CPIC calls), or any warning or information messages that use the MESSAGE statement.

Правила форума

Еще раз о PBO

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