Да, должно работать.
Данные, объявленные в этой секции, являются общими для всех программ одной группы.
Вот если будешь ФМ вызывать, то передать в него данные таким же макаром не получится, т.к. ФМ будет в отдельной подгруппе.
В хеплнике же есть демка?
Code:
* INCLUDE part.
DATA:
BEGIN OF COMMON PART struc,
f1 TYPE i,
f2 TYPE i,
s TYPE i,
END OF COMMON PART struc.
PROGRAM param.
INCLUDE part.
PARAMETERS:
p1 TYPE i DEFAULT 20,
p2 TYPE i DEFAULT 90.
f1 = p1.
f2 = p2.
PERFORM summming IN PROGRAM sum.
PROGRAM sum.
INCLUDE part.
FORM summing.
s = f1 + f2.
PERFORM display IN PROGRAM disp.
ENDFORM.
PROGRAM disp.
INCLUDE part.
FORM display.
WRITE: / f1, f2, s.
ENDFORM.
Вход
Регистрация
FAQ пользователя
Поиск
