Можно ли сделать универсальный отчет или странного хочется

Shadow

Коллеги!

Вот хочется такой весчи.
1. Запускаю транзакцию...
2. На селекционном экране пишу запрос. Любой. Тот, который возвращает таблицу.
Ну, например:
"select * from anla where anlkl in (select anlkl from anka where ktopl cp '1*')".
То есть такой запросик, который в SE11 так просто не получишь.
3. Запускаю выполнение
4. Получаю в виде ALV-grid (или хоть в каком-нибудь) результат выполнения запроса.

Возможно ли создать вот такой инструмент?
Или совсем невозможного хочется?
Может быть он уже существует?
Какие есть альтернативы?

Спасибо.

Jelena

Вроде бы SAP Query делает что-то в этом роде: http://help.sap.com/saphelp_nw04/helpda ... ontent.htm

Мы в некоторых случаях еще заводим view в SE11 по двум таблицам.

Eugene

посмотри ФМ RFC_READ_TABLE
может поможет чем нибудь

sibrin

А если нужно udate сделать, можно использовать SE80->Environment->Examples->Performance Examples

EGF

Если Вам нужно обрабатывать любой запрос, то иначе чем через GENERATE SUBROUTINE POOL, я не представляю, как это сделать. А вот с выводом данных придётся помучиться, я думаю. Анализировать состав получаемых полей, строить по ним динамически внутреннюю таблицу и её выводить в грид... Как-то так... Может, кто предложит что попроще.

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

Вот наткнулся на группу функций SDBI_SQL, там есть, например DB_SQL_PARSE. Похоже эти функции используются в SQL-Trace (все это в 4.7)

1980

EGF написал(а):

Если Вам нужно обрабатывать любой запрос, то иначе чем через GENERATE SUBROUTINE POOL, я не представляю, как это сделать. А вот с выводом данных придётся помучиться, я думаю. Анализировать состав получаемых полей, строить по ним динамически внутреннюю таблицу и её выводить в грид... Как-то так... Может, кто предложит что попроще.

Предлагаю также запрашивать имя структуры для вывода, построить по ней вн. таблицу, выбрать into corresponding fields, а потом в АЛВ, сославшись на эту же структуру вместо филдкаталога.

sibrin

Цитата:

Предлагаю также запрашивать имя структуры для вывода, построить по ней вн. таблицу, выбрать into corresponding fields

В случае

Code:

select field1 field2
  from table1 join table2

придётся синтаксический разбор делать и анализировать, к какой таблице относится какое поле.

А синтаксис бывает разнообразным:

Code:

select table1~field as field1 table2~field as field2

EGF

sibrin написал:

А синтаксис бывает разнообразным|:

Code:

select table1~field as field1 table2~field as field2

Разнообразным, но не бесконечно разнообразным

Snegurenok

REPORT ZQK00523 .

parameters: p_tab type dd02l-tabname default 'SPFLI'
, p_langu type sy-langu default 'RU'
, p_list radiobutton group aa
, p_alv radiobutton group aa
.

data : r_dat type ref to data
, r_dsc type ref to cl_abap_typedescr
, r_elm type ref to cl_abap_elemdescr
, t_dsc type string
, s_elm type DFIES
, pos type i value 1
, r_cnt type ref to cl_gui_custom_container
, r_alv type ref to cl_gui_alv_grid
.

field-symbols
: <r> type any
, <f> type any
, <g> type any
, <t> type any table
.

top-of-page.
do.
assign component sy-index of structure <r> to <g>.
if sy-subrc ne 0.
exit.
endif.
r_dsc = cl_abap_typedescr=>DESCRIBE_BY_DATA( <g> ) .
r_elm ?= r_dsc.
s_elm = r_elm->GET_DDIC_FIELD( p_langu ).
write: at pos s_elm-REPTEXT.
pos = pos + s_elm-OUTPUTLEN + 1.
enddo.
uline.

start-of-selection.
create data r_dat type standard table of (p_tab).
assign r_dat->* to <t>.
select * from (p_tab) into table <t> up to 100 rows.
case 'X'.
when p_list.
loop at <t> assigning <r>.
new-line.
do.
assign component sy-index of structure <r> to <f>.
if sy-subrc ne 0.
exit.
endif.
write: <f>.
enddo.
endloop.
when p_alv.
CREATE OBJECT R_CNT EXPORTING CONTAINER_NAME = 'OUT01'.
CREATE OBJECT R_ALV EXPORTING I_PARENT = r_cnt.
CALL METHOD R_ALV->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
I_STRUCTURE_NAME = p_tab
CHANGING
IT_OUTTAB = <t>.
call screen 100.
endcase.

вот так

T

Snegurenok написал(а):

REPORT ZQK00523 .

Исходник от Василия Ковальского

?

EGF

Snegurenok написал(а):

...

вот так

Так то оно так, но только человек хочет результаты любого запроса получать...

Snegurenok

T написал:

Snegurenok написал(а):

REPORT ZQK00523 .

Исходник от Василия Ковальского

?

угу - курсы ООП

Пономарев Артем

Вообще основная проблема - распарсить запрос. Хотя можно и без этого. Опять таки используя Native SQL. И курсоры. Т.е. сначала открываем:

Code:

 
EXEC SQL.                               
   OPEN CURS FOR                            
        "текст запроса"
ENDEXEC.      

Потом фетчим:

Code:

   
DO.                               
  EXEC SQL.                       
    FETCH NEXT CURS INTO ...    
  ENDEXEC.                        
  IF SY-SUBRC NE 0.               
    EXIT.                         
  ENDIF.                          
ENDDO.

Потом закрываем:

Code:

   
EXEC SQL.                         
  CLOSE CURS                         
ENDEXEC.

Фетчим, понятно в TABLE TYPE ANY. Ну а потом анализ полученных результатов. И вывод хоть WRITE'ом

Snegurenok

EGF написал(а):

Snegurenok написал(а):

...

вот так

Так то оно так, но только человек хочет результаты любого запроса получать...

хм - помоему уперлись в вывод - ну вот результаты любого запроса

SPLIT v_sql AT 'FROM' INTO s1 s2.
SHIFT s2 LEFT DELETING LEADING space.
SPLIT s2 AT space INTO s1 s2.
REFRESH code.
APPEND 'PROGRAM SUBPOOL.' TO code.

APPEND 'FORM get_data using s1 changing tab1.' TO code.
APPEND 'data: r_dat TYPE REF TO data.' TO code.
APPEND 'FIELD-SYMBOLS : <out> TYPE ANY TABLE.' TO code.
APPEND 'CREATE DATA r_dat TYPE STANDARD TABLE OF (s1).' TO code.
APPEND 'ASSIGN r_dat->* TO <out>.' TO code.
APPEND v_sql TO code.
APPEND 'tab1 = <OUT>.' TO code.
APPEND 'ENDFORM.' TO code.
GENERATE SUBROUTINE POOL code
NAME prog
MESSAGE msg
LINE lin
WORD wrd
OFFSET off.

IF sy-subrc <> 0.
MESSAGE i666(01) WITH msg.
EXIT.
ELSE.
CREATE DATA r_dat TYPE STANDARD TABLE OF (s1).
ASSIGN r_dat->* TO <out>.
PERFORM get_data IN PROGRAM (prog)
USING s1 CHANGING <out>.
ENDIF.
************
v_sql - любой запрос результатом которого являеться одна из базовых таблиц.
Единственное ограничение в запросе должно быть обязательно
'INTO TABLE <OUT>'

можно как нить поизящней я думаю - ну ето первое что в голову пришло .

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

Можно ли сделать универсальный отчет или странного хочется

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