Поймать exception

sibrin

Можно ли поймать exception, когда вызывается несуществующий экран: CALL SCREEN invalid ?

try catch и catch system-exception не ловят такую ошибку.

Аналогично нужно поймать exception для PERFORM (INVALID) IN PROGRAM 'VALID'.
Если IF FOUND то как понять, успешный вызов или нет?.

sibrin

Номера экранов можно в D020S подсмотреть.

Если каждая perform будет устанавливать некую глобальную переменную DONE в 'X', то можно вырулить так:
DONE = ''.
perform (INVALID) IN PROGRAM VALID IF FOUND.
IF DONE = 'X'.
Но это не красиво. Может кто знает более прямое решение.

РМщик

1. Запуск экрана с предварительной проверкой на его существование

Code:

REPORT  ZU                .

DATA:      O_D020S LIKE D020S,
           O_D021S LIKE D021S OCCURS 0 WITH HEADER LINE,
           O_D022S LIKE D022S OCCURS 0 WITH HEADER LINE,
           O_D023S LIKE D023S OCCURS 0 WITH HEADER LINE,
           NS LIKE D020S-DNUM.


NS = '0100'.  " Номер экрана

REFRESH: O_D021S,O_D022S, O_D023S.

CALL FUNCTION 'RS_IMPORT_DYNPRO'
  EXPORTING
    DYNAME = SY-REPID
    DYNUMB = NS
  IMPORTING
    HEADER = O_D020S
  TABLES
    FTAB   = O_D021S
    PLTAB  = O_D022S
  EXCEPTIONS
    OTHERS = 99.


IF SY-SUBRC EQ 0.
  CALL SCREEN NS.
ENDIF.

Гость

sibrin написал:

Номера экранов можно в D020S подсмотреть.

Если каждая perform будет устанавливать некую глобальную переменную DONE в 'X', то можно вырулить так:
DONE = ''.
perform (INVALID) IN PROGRAM VALID IF FOUND.
IF DONE = 'X'.
Но это не красиво. Может кто знает более прямое решение.

в спецрегистрах пользовательские подпрограммы обязаны например чистить sy-subrc на выходе, иначе они считаются несуществующими. от флага не уйти наверное.

Сергей Королев

РМщик написал(а):

Code:

CALL FUNCTION 'RS_IMPORT_DYNPRO'
  EXPORTING
    DYNAME = SY-REPID
    DYNUMB = NS
  IMPORTING
    HEADER = O_D020S
  TABLES
    FTAB   = O_D021S
    PLTAB  = O_D022S
  EXCEPTIONS
    OTHERS = 99.

И что, DYNAME = SY-REPID прокатывает? Вроде ведь не должно...
А вообще, не понимаю я, зачем проверять наличие экрана перед вызовом. Если бы общей практикой было его динамическое создание, тогда еще туда-сюда, а так отсутстве экрана - это либо программная ошибка, либо ошибка настройки, и пусть бы дамп выдавался...

РМщик

2. Проверка существования подпрограммы

=== лучше не надо показывать мой вариант

to Сергей Королев -
да, sy-repid - лучше передавать через переменную,
просто наяваял на скорую руку, но в тесте - прокатило
а проверять - нужно, ибо можно вести настроечную таблицу
для своей проги, где можно будет менять номера экранов

РМщик

2. проверка существования подпрограммы

Code:

REPORT  ZU                .

DATA:    MYSYS LIKE SY-SUBRC, IND.

DATA: VALID LIKE SY-REPID VALUE 'ZTEST61',
      INVALID(30) VALUE 'MYPROG1',
      FR LIKE  STOKEN OCCURS 0 WITH HEADER LINE.


CALL FUNCTION 'SWF_FORMS_OF_PROGRAM_GET'
  EXPORTING
    PROGRAM                   = VALID
  TABLES
    FORM_ROUTINES             = FR
  EXCEPTIONS
    PROGRAM_NOT_FOUND         = 1
    CONTAINS_NO_FORM_ROUTINES = 2.

MYSYS = SY-SUBRC.

CASE MYSYS.
  WHEN 1. WRITE:/ 'Нет такой программы'.
  WHEN 2. WRITE:/ 'В программе нет вообще подпрограмм'.
  WHEN 0.
    READ TABLE FR WITH KEY STR = INVALID.
    IF SY-SUBRC = 0.
      WRITE:/ 'Нужна подпрограммма найдена'.
      PERFORM (INVALID) IN PROGRAM (VALID).
    ELSE.
      WRITE: / INVALID, '????'.
    ENDIF.
ENDCASE.


FORM MYPROG.
  WRITE:/ 'Эту строчку написала подпрограмма'.
ENDFORM.    

Ich Will

Цитата:

try catch и catch system-exception не ловят такую ошибку.

даже если catch'ить cx_root?

Сергей Королев

РМщик написал(а):

а проверять - нужно, ибо можно вести настроечную таблицу
для своей проги, где можно будет менять номера экранов

Так я и говорю, что в таком случае это ошибка конфигурации, о которой в любом случае надо что-то сообщить. Ну сообщите вы юзеру, что экрана не хватает, какая-нибудь бухгалтерша схватится за сердце... Я считаю, что подобные ошибки нужно ловить на этапе юнит-теста, и дамп тут очень поможет

Хотя, дело хозяйское...

Да и по поводу подпрограмм мне все это концептуально не нравится, уж пардон... Что-то не так в постановке, есть ощущение...

sibrin

Спасибо, РМщик'у.

Цитата:

Если бы общей практикой было его динамическое создание

Следующий вопрос закономерен: можно ли динамически создать selection-screen ?

PS.
Видимо, вызывать 'RS_IMPORT_DYNPRO' идеологически более правильно, чем просто сделать select from D020S. Это связано с тем, что структура таблиц в будущем может измениться?

sibrin

Сергей Королев написал:

Что-то не так в постановке, есть ощущение...

Пишу некий движок для сотрудника, который занимает среднее положение между бухгалтером и программистом. Этот сотрудник ввводит в конфигурацию имена подпрограмм и номера экранов.
Простые подпрограммы этот сотрудник пишет сам, более сложные - заказывает у программиста.

Экраны должны генерироваться динамически на основе настроечной таблицы.

"А почему снег идёт? --- Вот такое хреновое лето..."

Сергей Королев

Понятно... Чудны дела твои, Господи...
Для динамического экрана выбора есть ФМ FREE_SELECTIONS_DIALOG, а в нем есть документация с примером.

Удав

sibrin написал:

Аналогично нужно поймать exception для PERFORM (INVALID) IN PROGRAM 'VALID'.
Если IF FOUND то как понять, успешный вызов или нет?.

Можно отследить с помощью SET/GET параметров. Это и есть глобальная переменная

SET PARAMETER 'ZFL' FIELD space.
PERFORM someform IN PROGRAM ZSOME_TEST.
data: flg type c.
GET PARAMETER 'ZFL' FIELD flg.
IF flg = 'X'.
*Подпрограмма выполнилась
.....
ENDIF.
...

PROGRAM ZSOME_TEST.
.....
FORM someform.
.....
SET PARAMETER 'ZFL' FIELD 'X'.
....
ENDFORM.

Или через параметр вызываемой процедуры

РМщик

Удав написал(а):

sibrin написал:

Можно отследить с помощью SET/GET параметров. Это и есть глобальная переменная

1. А если вызываемая подпрограмма - из стандарта?
2. Правильнее, на мой взгляд, сначала проверить существование,
а потом вызывать.

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

Поймать exception

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