Добрый день,

в примере ниже программа вызывает FM который
не имеет интерфейса, но тем не менее при помощи
ASSIGN переменные программы доступны в FM
и их можно изменять....

Вопрос: если я в FM установлю break-point и
попаду в DEBUGGER
есть ли возможность
в DEBUGGER видеть переменные вызывающей программы?

в примере ниже
FM = ZASSIGN
вызывающая программа = ZASSIGN1

Заранее спасибо
Юрий


*&---------------------------------------------------------------------*
*& Report ZASSIGN1
*&
*&---------------------------------------------------------------------*
REPORT zassign1.

TYPES: BEGIN OF ts_1,
field1 TYPE char03,
field2 TYPE char08,
END OF ts_1.
TYPES: tt_1 TYPE TABLE OF ts_1.

DATA: gt_1 TYPE tt_1.
DATA: gs_1 TYPE ts_1.

CLEAR: gt_1, gt_1[]."FILL TABLE
CLEAR: gs_1.
MOVE '001' TO gs_1-field1.
MOVE 'AAAAAAAA' TO gs_1-field2.
APPEND gs_1 TO gt_1.
CLEAR: gs_1.
MOVE '002' TO gs_1-field1.
MOVE 'BBBBBBBB' TO gs_1-field2.
APPEND gs_1 TO gt_1.
CLEAR: gs_1.
MOVE '003' TO gs_1-field1.
MOVE 'CCCCCCCC' TO gs_1-field2.
APPEND gs_1 TO gt_1.

CLEAR: gs_1. "1.AUSGABE
WRITE:/ 'BEFOR:' COLOR 7.
LOOP AT gt_1 INTO gs_1.
WRITE:/ gs_1-field1,
gs_1-field2.
CLEAR: gs_1.
ENDLOOP.
* !!! ES GIBT KEINE ÜBERGABE IN FuBa !!!
CALL FUNCTION 'ZASSIGN'." FuBa AUFRUF
* !!! ES GIBT KEINE ÜBERGABE AUS FuBa !!!
CLEAR: gs_1. "2.AUSGABE
WRITE:/ 'AFTER:' COLOR 6.
LOOP AT gt_1 INTO gs_1.
WRITE:/ gs_1-field1,
gs_1-field2.
CLEAR: gs_1.
ENDLOOP.

*FUNCTION zassign.
**"---------------------------------------------------------------------
**"*"Lokale Schnittstelle:
**"---------------------------------------------------------------------
* DATA: fsnamet(32).
* DATA: fsnames(32).
*
* FIELD-SYMBOLS: <fs> TYPE ANY.
*
* FIELD-SYMBOLS: <fst> TYPE STANDARD TABLE.
* FIELD-SYMBOLS: <fss> TYPE ANY.
*
* fsnamet = '(ZASSIGN1)GT_1'.
* ASSIGN (fsnamet) TO <fst>.
*
* fsnames = '(ZASSIGN1)GS_1'.
* ASSIGN (fsnames) TO <fss>.
*
* ASSIGN COMPONENT 1 OF STRUCTURE <fss> TO <fs>.
* <fs> = '004'.
* ASSIGN COMPONENT 2 OF STRUCTURE <fss> TO <fs>.
* <fs> = 'DDDDDDDD'.
* APPEND <fss> TO <fst>.
* ASSIGN COMPONENT 1 OF STRUCTURE <fss> TO <fs>.
* <fs> = '005'.
* ASSIGN COMPONENT 2 OF STRUCTURE <fss> TO <fs>.
* <fs> = 'EEEEEEEE'.
* APPEND <fss> TO <fst>.
*
* WRITE:/ 'FuBa:' COLOR 4. "AUSGABE AUS FuBa
* LOOP AT <fst> INTO <fss>.
* WRITE:/ <fss>.
* ENDLOOP.
*
*ENDFUNCTION.

Так и наберите в отладчике как в коде. Например (ZASSIGN1)GT_1.

Ja imel wwidu
nel3ia li uwidet WSE dostupnije peremennije
wi3iwajushej programmi ???

Может пригодиться?

Новый отладчик: "Замените инструмент" -> "Спец.инструменты" -> "Анализ памяти" -> "Объекты памяти".

Классический отладчик: "Перейти к" -> "Просмотр статусов" -> "Занимаемая память" -> "Потр.памяти - ранг.списки".