Очередной пример индо-кода

Alex80

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

все мы немного индусы

बड़े करीने से

lakschmi

если неизвестно есть ли поле в структуре, то, имхо, лучше уж так:

DATA: ls_components TYPE abap_compdescr.
DATA: lo_strucdescr TYPE REF TO cl_abap_structdescr.
DATA: xxx TYPE xxx.

lo_strucdescr ?= cl_abap_typedescr=>describe_by_data( xxx ).

LOOP AT lo_strucdescr->components INTO ls_components.

if ls_components-name = '!+_)(*&^%$#@!Z?>'
write tratatatata!
endf.
Как-то так, точно не помню)

BlackJesus

Чего бы вы понимали в динамическом программировании, вот вам пример, когда динамика закладывается на случай, который не может предвидеть никто, кроме автора. А особенно легко и просто в этом случае добавляются в выборку новые критерии.

selection-screen begin of block 100 with frame title title.
*---------- ОБЪЯВЛЕНИЕ ПАРАМЕТРОВ СЕЛЕЦИОННОГО ЭКРАНА --------------------------
*PARAMETERS: zakazhik TYPE table1-KUNNR , "Заказчик
* otpkont TYPE table2-ADJ_EXT AS CHECKBOX. "Отправлено контрагенту
select-options zakazhik for table1-kunnr no intervals. "Заказчик
parameters: otpkont type table2-adj_ext as checkbox. "Отправлено
select-options dotkont for table2-adj_ext_date. "Дата отправки
parameters: otpzak type table2-adj_ext as checkbox. "Отправлено
select-options dotzak for table2-adj_ext_date. "Дата отправки
select-options statcard for table1-status no intervals.
*PARAMETERS: statcard TYPE table1-STATUS. "Статус
select-options: dat_reg for table1-regdat. "Дата регистрации
select-options: reg_num for table3-regnum_int no intervals. "Регистрационный номер
select-options: cardtyp for table1-cardtype no intervals, "Тип
scardtyp for table1-cardsubtype no intervals, "Подтип
vstdoc for table1-pr_regnum_int no intervals, "Вышестоящий документ
otvpodr for table2-resp_div no intervals, "Ответственное подразделение
ispoln for table2-actor_pernr no intervals, "Исполнитель
invprj for table2-invprj no intervals "Проект
.
*--------- КОНЕЦ ОБЪЯВЛЕНИЯ ПАРАМЕТРОВ СЕЛЕКЦИОННОГО ЭКРАНА --------------------
selection-screen end of block 100.

******************************************************************************************
******************************************************************************************
** Нижеследующий закомментированный код не стирать!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!!! он является ************
** культурным наследием великой державы Индии. Уничтожение этого кода ************
** может вызвать международный скандал!!! ************
******************************************************************************************
******************************************************************************************

" ПРОВЕРКА ПОЛЕЙ ЭКРАНА ДЛЯ ДАЛЬНЕЙШЕГО ФОРМИРОВАНИЯ УСЛОВИЯ ЗАПРОСА

"Если поле (Заказчик) заполнено
***** IF zakazhik IS NOT INITIAL.
***** CONCATENATE strquery '( a~KUNNR EQ zakazhik )' INTO strquery SEPARATED BY SPACE.
***** IF ( statcard IS NOT INITIAL ) OR
***** ( dat_reg IS NOT INITIAL ) OR
***** ( reg_num IS NOT INITIAL ) OR
***** ( cardtyp IS NOT INITIAL ) OR
***** ( scardtyp IS NOT INITIAL ) OR
***** ( vstdoc IS NOT INITIAL ) OR
***** ( otpkont IS NOT INITIAL ) OR
***** ( dotkont IS NOT INITIAL ) OR
***** ( otvpodr IS NOT INITIAL ) OR
***** ( ispoln IS NOT INITIAL ) OR
***** ( invprj IS NOT INITIAL ).
***** CONCATENATE strquery ' AND ' INTO strquery SEPARATED BY SPACE.
***** ENDIF.
***** ENDIF.
*****
***** "Если поле (Статус) заполнено
***** IF statcard IS NOT INITIAL.
***** CONCATENATE strquery '( a~STATUS EQ statcard )' INTO strquery SEPARATED BY SPACE.
***** IF ( dat_reg IS NOT INITIAL ) OR
***** ( reg_num IS NOT INITIAL ) OR
***** ( cardtyp IS NOT INITIAL ) OR
***** ( scardtyp IS NOT INITIAL ) OR
***** ( vstdoc IS NOT INITIAL ) OR
***** ( otpkont IS NOT INITIAL ) OR
***** ( dotkont IS NOT INITIAL ) OR
***** ( otvpodr IS NOT INITIAL ) OR
***** ( ispoln IS NOT INITIAL ) OR
***** ( invprj IS NOT INITIAL ).
***** CONCATENATE strquery ' AND ' INTO strquery SEPARATED BY SPACE.
***** ENDIF.
***** ENDIF.
*****
***** "Если поля (Дата регистрации) заполнены
***** IF dat_reg IS NOT INITIAL.
***** CONCATENATE strquery '( a~REGDAT IN dat_reg )' INTO strquery SEPARATED BY SPACE.
***** IF ( reg_num IS NOT INITIAL ) OR
***** ( cardtyp IS NOT INITIAL ) OR
***** ( scardtyp IS NOT INITIAL ) OR
***** ( vstdoc IS NOT INITIAL ) OR
***** ( otpkont IS NOT INITIAL ) OR
***** ( dotkont IS NOT INITIAL ) OR
***** ( otvpodr IS NOT INITIAL ) OR
***** ( ispoln IS NOT INITIAL ) OR
***** ( invprj IS NOT INITIAL ).
***** CONCATENATE strquery ' AND ' INTO strquery SEPARATED BY SPACE.
***** ENDIF.
***** ENDIF.
*****
***** "Если поле (Регистрационный номер) заполнено
***** IF reg_num IS NOT INITIAL.
***** CONCATENATE strquery '( a~REGNUM_INT IN reg_num )' INTO strquery SEPARATED BY SPACE.
***** IF ( cardtyp IS NOT INITIAL ) OR
***** ( scardtyp IS NOT INITIAL ) OR
***** ( vstdoc IS NOT INITIAL ) OR
***** ( otpkont IS NOT INITIAL ) OR
***** ( dotkont IS NOT INITIAL ) OR
***** ( otvpodr IS NOT INITIAL ) OR
***** ( ispoln IS NOT INITIAL ) OR
***** ( invprj IS NOT INITIAL ).
***** CONCATENATE strquery ' AND ' INTO strquery SEPARATED BY SPACE.
***** ENDIF.
***** ENDIF.
*****
***** "Если поле (Тип) заполнено
***** IF cardtyp IS NOT INITIAL.
***** CONCATENATE strquery '( a~CARDTYPE EQ cardtyp )' INTO strquery SEPARATED BY SPACE.
***** IF ( scardtyp IS NOT INITIAL ) OR
***** ( vstdoc IS NOT INITIAL ) OR
***** ( otpkont IS NOT INITIAL ) OR
***** ( dotkont IS NOT INITIAL ) OR
***** ( otvpodr IS NOT INITIAL ) OR
***** ( ispoln IS NOT INITIAL ) OR
***** ( invprj IS NOT INITIAL ).
***** CONCATENATE strquery ' AND ' INTO strquery SEPARATED BY SPACE.
***** ENDIF.
***** ENDIF.
*****
***** "Если поле (Подтип ) заполнено
***** IF scardtyp IS NOT INITIAL.
***** CONCATENATE strquery '( a~CARDSUBTYPE EQ scardtyp )' INTO strquery SEPARATED BY SPACE.
***** IF ( vstdoc IS NOT INITIAL ) OR
***** ( otpkont IS NOT INITIAL ) OR
***** ( dotkont IS NOT INITIAL ) OR
***** ( otvpodr IS NOT INITIAL ) OR
***** ( ispoln IS NOT INITIAL ) OR
***** ( invprj IS NOT INITIAL ).
***** CONCATENATE strquery ' AND ' INTO strquery SEPARATED BY SPACE.
***** ENDIF.
***** ENDIF.
*****
***** "Если поле (Вышестоящий документ) заполнено
***** IF vstdoc IS NOT INITIAL.
***** CONCATENATE strquery '( a~PR_REGNUM_INT EQ vstdoc )' INTO strquery SEPARATED BY SPACE.
***** IF ( otpkont IS NOT INITIAL ) OR
***** ( dotkont IS NOT INITIAL ) OR
***** ( otvpodr IS NOT INITIAL ) OR
***** ( ispoln IS NOT INITIAL ) OR
***** ( invprj IS NOT INITIAL ).
***** CONCATENATE strquery ' AND ' INTO strquery SEPARATED BY SPACE.
***** ENDIF.
***** ENDIF.
*****
***** "Если галочка (Отправлено контрагенту) поставлена
***** IF otpkont IS NOT INITIAL.
***** CONCATENATE strquery '( b~ADJ_EXT EQ otpkont )' INTO strquery SEPARATED BY SPACE.
***** IF ( dotkont IS NOT INITIAL ) OR
***** ( otvpodr IS NOT INITIAL ) OR
***** ( ispoln IS NOT INITIAL ) OR
***** ( invprj IS NOT INITIAL ).
***** CONCATENATE strquery ' AND ' INTO strquery SEPARATED BY SPACE.
***** ENDIF.
***** ENDIF.
*****
***** "Если поля (Дата отправки контрагенту) заполнены
***** IF dotkont IS NOT INITIAL.
***** CONCATENATE strquery '( b~ADJ_EXT_DATE IN dotkont )' INTO strquery SEPARATED BY SPACE.
***** IF ( otvpodr IS NOT INITIAL ) OR
***** ( ispoln IS NOT INITIAL ) OR
***** ( invprj IS NOT INITIAL ).
***** CONCATENATE strquery ' AND ' INTO strquery SEPARATED BY SPACE.
***** ENDIF.
***** ENDIF.
*****
***** "Если поле (Ответственное подразделение) заполнено
***** IF otvpodr IS NOT INITIAL.
***** CONCATENATE strquery '( b~RESP_DIV EQ otvpodr )' INTO strquery SEPARATED BY SPACE.
***** IF ( ispoln IS NOT INITIAL ) OR
***** ( invprj IS NOT INITIAL ).
***** CONCATENATE strquery ' AND ' INTO strquery SEPARATED BY SPACE.
***** ENDIF.
***** ENDIF.
*****
***** "Если поле (Исполнитель) заполнено
***** IF ispoln IS NOT INITIAL.
***** CONCATENATE strquery '( b~ACTOR_PERNR EQ ispoln )' INTO strquery SEPARATED BY SPACE.
***** IF ( invprj IS NOT INITIAL ).
***** CONCATENATE strquery ' AND ' INTO strquery SEPARATED BY SPACE.
***** ENDIF.
***** ENDIF.
*****
***** if invprj IS NOT INITIAL.
***** CONCATENATE strquery '( b~INVPRJ EQ invprj )' INTO strquery SEPARATED BY SPACE.
***** ENDIF.
*****
***** " КОНЕЦ ПРОВЕРКИ ПОЛЕЙ ЭКРАНА ДЛЯ ДАЛЬНЕЙШЕГО ФОРМИРОВАНИЯ УСЛОВИЯ ЗАПРОСА
*****
***** " ЕСЛИ ХОТЯБЫ ОДИН ЭЛЕМЕНТ ОКНА ВЫБОРА ЗАПОЛНЕН
***** IF strquery IS NOT INITIAL.
***** "----------------------- ВЫБИРАЕМ ТОЛЬКО ПОДТИП 04 --------------------------------
***** "----------------------- НА МОМЕНТ НАПИСАНИЯ ПРОГРАММЫ ВХОДЯЩИЕ В РЕЕСТР ----------
***** "------------------------ИМЕЮТ ИНДЕКС ХХХ ---------------------------------------------------
*****
***** "------------------------ДЕЛАЕМ ВЫБОРКУ С ПАРАМЕТРАМИ ЕСЛИ ОНИ СУЩЕСТВУЮТ-------------------
***** SELECT *
***** INTO CORRESPONDING FIELDS OF TABLE it_table1
***** FROM TABLE1 AS a INNER JOIN TABLE2 AS b
***** ON a~REGNUM_INT EQ b~REGNUM_INT
***** WHERE (strquery) AND ( CARDSUBTYPE = 'xx' ) AND ( CARDKIND = 'XXX' ).
***** "---------------------------------------------------------------------------------------------
***** ENDIF.
*****
*****
***** " ЕСЛИ ПУСТО ТОГДА ВЫБИРАЕМ ВСЕ ДАННЫЕ
***** IF strquery IS INITIAL.
***** "----------------------- ВЫБИРАЕМ ТОЛЬКО ПОДТИП 04 --------------------------------
***** "----------------------- НА МОМЕНТ НАПИСАНИЯ ПРОГРАММЫ ВХОДЯЩИЕ В РЕЕСТР ----------
***** "------------------------ИМЕЮТ ИНДЕКС XXX ---------------------------------------------------
***** SELECT *
***** INTO CORRESPONDING FIELDS OF TABLE it_table1
***** FROM TABLE1 AS a INNER JOIN TABLE2 AS b
***** ON a~REGNUM_INT EQ b~REGNUM_INT
***** WHERE ( CARDSUBTYPE = 'xx' ) AND ( CARDKIND = 'XXX' ).
***** ENDIF.

Dzed Maroz

/me ушёл рыдать ........ :cry:

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

какой все-таки размах у людей... все могут...

BlackJesus

Они-то могут.... а мне приходится бороться между природной тягой к прекрасному коду и ленью его переписывать.

Pad0nak

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

Они-то могут.... а мне приходится бороться между природной тягой к прекрасному коду и ленью его переписывать.

дайте угадать, лень безжалостно побеждает? :lol:

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

Ну вот вам расово-немецкий подход:

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

CLEAR:
XVBEP.
* Getunetes CLEAR :
*VBEP = XVBEP.
VBEP = XVBEP.

MOVE-CORRESPONDING XVBEP TO VBEPD.
*VBEPD = VBEPD.

Это из того, что прямо под рукой оказалось.

BlackJesus

К сожалению не всегда...

SYS

Code:

DATA num(6).
DATA i_len  TYPE i.
DATA i_lenparam  TYPE i.

LOOP AT <table>.
  num = sy-tabix.
  CONDENSE num.
  CLEAR i_len.
  i_len = strlen( num ).
  DESCRIBE FIELD num LENGTH i_lenparam IN CHARACTER MODE.
  PERFORM add_left_0
           USING  i_lenparam
           CHANGING  num.
ENDLOOP.


FORM  add_left_0        USING  VALUE(i_len_field) TYPE i
                        CHANGING  VALUE(c_mvz) TYPE c.
  DATA:
    i_len  TYPE  i.

  i_len = strlen( c_mvz ).
  DO ( i_len_field - i_len ) TIMES.
    CONCATENATE '0' c_mvz INTO c_mvz.
  ENDDO.
ENDFORM.

Ну, вот скажите, как так можно? Ведь это психику травмирует!

sy-uname

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

...
Ну, вот скажите, как так можно? Ведь это психику травмирует!

Оплата по количеству строк?

dedzinatajs

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

Чего бы вы понимали в динамическом программировании, вот вам пример, когда динамика закладывается на случай, который не может предвидеть никто, кроме автора. А особенно легко и просто в этом случае добавляются в выборку новые критерии

Кстати, вы интересную тему затронули

__Gennady

Не могу удержаться. Пример правда длинноват, но аффтор определенно жжот)) Ибо результат - непонятный и неработающий код(логические ошибки).

Code:

* Проводка позиций с минусом

  lt_ftpost_tmp[] = it_ftpost[].

* find D pos
  LOOP AT lt_ftpost_tmp INTO ls_ftpost_tmp WHERE fnam = 'BSEG-WRBTR' AND stype = 'P'.
    IF ls_ftpost_tmp-fval CS '-'.
      ls_d = ls_ftpost_tmp-count.
      APPEND ls_d TO lt_d.
    ENDIF.
  ENDLOOP.

* find K pos
  READ TABLE lt_ftpost_tmp INTO ls_ftpost_tmp WITH KEY fnam = 'RF05A-NEWBS' stype = 'P' fval = '50'.
  IF sy-subrc = 0.
    ls_k = ls_ftpost_tmp-count.
  ENDIF.

  REFRESH: lt_ftpost,lt_blntab.
  lt_ftpost[] = it_ftpost[].

  IF NOT lt_d[] IS INITIAL AND ls_k NE space.

    LOOP AT lt_ftpost INTO ls_ftpost WHERE stype = 'P'.
      CLEAR l_del.
      LOOP AT lt_d INTO ls_d.
        IF ( ls_ftpost-count NE ls_d AND ls_ftpost-count NE ls_k ).
          DELETE lt_ftpost WHERE count = ls_d.
          l_del = 'X'.
          EXIT.
        ENDIF.
      ENDLOOP.
      IF l_del = 'X'.
        CONTINUE.
      ENDIF.
    ENDLOOP.

* reorganization ftpost

* proc D
    l_wrbtr = 0.
    l_n = 0.

    LOOP AT lt_d INTO ls_d.

      READ TABLE lt_ftpost ASSIGNING <lf_ftpost> WITH KEY stype = 'P' count = ls_d fnam = 'BSEG-WRBTR'.
      IF sy-subrc = 0.
        REPLACE ALL OCCURRENCES OF '-' IN <lf_ftpost>-fval WITH ''.
        l_n = <lf_ftpost>-fval.
        l_wrbtr = l_wrbtr + l_n.
      ENDIF.

      CLEAR ls_ftpost.
      ls_ftpost-stype = 'P'.
      ls_ftpost-count = ls_d.
      ls_ftpost-fnam  = 'BSEG-XNEGP'.
      ls_ftpost-fval  = 'X'.
      SHIFT ls_ftpost-fval LEFT DELETING LEADING space.
      APPEND ls_ftpost TO lt_ftpost.

    ENDLOOP.

LAT

Code:

  constants :  l_c_TRANSCODE type char9    value 'TRANSCODE' .

    clear l_tcode .
    assign component l_c_TRANSCODE
           of structure wa_zwpcontrol to <fs_tcode> .
    if  not <fs_tcode> is initial .
       move <fs_tcode> to l_tcode .
    endif .

По такому маленькому фрагменту кода трудно судить. Возможно, автор действительно заслуженный индус. А возможно, это сделано для отладки: имя поля используется где-то еще и программер не уверен, что в дальнейшем придется анализировать именно это поле. В этом случае, изменив значение константы l_c_TRANSCODE в одном месте, автор безо всяких усилий выполнит изменения везде, где ему там нужно. Возможно еще, это просто остатки какого-то более сложного алгоритма.

holocron

а как вам такое?

Code:

data: _(40).

или такое?

Code:

          perform compare_del using ls_subitem-zz_nposto changing lv_res1.

          if lv_res1 eq 'EQ'.
...

          if lv_res1 eq 'LT' or
             lv_res1 eq 'EQ'.
...

form compare_del  using    i_val1
                  changing e_res    type char2.

  data:
        lv_text1  type text20,
        lv_text2  type text20,
        lv_text3  type text20,
        lv_text4  type text20.

  clear e_res.

  split i_val1 at '/' into lv_text1 lv_text2 lv_text3 lv_text4.

  if lv_text4 eq ''.
    e_res = 'NE'.
  elseif lv_text4 eq gv_zpart4.
    e_res = 'EQ'.
  elseif lv_text4 lt gv_zpart4.
    e_res = 'LT'.
  else.
    e_res = 'GT'.
  endif.
endform.

хотя и не индус писал...

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

Очередной пример индо-кода

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