Вот подправил прогу, внимательней мне надо читать сообщения (особенно ниже) по тексту ....
ладно вот новая версия, сильно не пинайте, заработала, и ладно ...
REPORT ZMMXXXX.
*&---------------------------------------------------------------------*
*& Report YXXX
*&---------------------------------------------------------------------*
TYPES: BEGIN OF itype,
LINE(80),
END OF itype.
DATA itab TYPE itype OCCURS 0 WITH HEADER LINE.
TABLES: trdir.
PARAMETERS PROGRAM LIKE trdir-name.
PARAMETERS expert AS CHECKBOX DEFAULT 'X'.
DATA prog_tmp(20) TYPE C. " судя по всему тут либо
DATA prog_bak(20) TYPE C. " судя по всему тут
CONCATENATE 'z_tmp' sy-datum sy-uzeit '_' sy-uname INTO prog_tmp.
CONCATENATE 'z_bak' sy-datum sy-uzeit '_' sy-uname INTO prog_bak.
* проверка редактирование/просмотр
IF expert = 'X'.
READ REPORT PROGRAM INTO itab.
INSERT REPORT prog_bak FROM itab.
EDITOR-CALL FOR itab.
INSERT REPORT PROGRAM FROM itab.
ENDIF.
*
IF expert = ''.
READ REPORT PROGRAM INTO itab.
INSERT REPORT prog_tmp FROM itab.
INSERT REPORT prog_bak FROM itab.
EDITOR-CALL FOR REPORT prog_tmp.
READ REPORT prog_tmp INTO itab.
INSERT REPORT PROGRAM FROM itab.
ENDIF.
ССори правил в попыхах, лиш бы заработало .... не вдавался в подробности .....
Анализ ошибки
Àíàëèç îøèáêè
You wanted to write program "z_bak20090519234705_>типа пользователь<" to the library.
Program names may be up to 30 characters long.
Longer names are reserved for SAP Basis tools.
Since the program name is between 31 and 35 characters long, and did
not previously exist, the system checks suffix 1 (characters 31-35)
for correctness.
However, it can only check this, if you specify the EXTENSION TYPE
exttype, which is missing from the statement in this case.