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

dedzinatajs

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

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'.

Ну там ничего страшного по-моему нет

Автором не являюсь, но судя по всему, речь идет о номерах поставок, которые указаны в поле не напрямую, а после третьего слэша.
То есть нет возможности напрямую сравнивать операнды в логических условиях, типа как IF ls_subitem-zz_npostob(2)+4 LT gv_zpart. Да и вероятно в функциональной спецификации было расписано в абзаце что-то типа:

* Если номер поставки соответствует такому-то то Сценарий 1
* Если номер поставки меньше такого-то Сценарий 2
и так далее

В таких случаях есть смысл писать код максимально приближенный к ФС, так как у функционалов семь пятниц на неделе - потом будет быстрее видно, что и как надо поменять. Так что если бы уважаемый автор написал код типа
IF lv_res1 EQ lc_del_number_equal....
то было бы вполне кошерно, а так единственное, что семантика вроде if lv_res1 eq 'LT' поначалу вгоняет в некоторый ступор.

matel

Сергей Королев написал:

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 .

и если б только один раз такое встречалось, а то ведь у персонажа это прям ноу-хау

и где их только берут...

Вполне нормальный код, если :
а) Тип wa_zwpcontro есть generic (type any, например) .
б) Автор предполагает, что программа wa_zwpcontrol всегда должна иметь поле TRANSCODE. Например, если в конечном итоге она ссылается на структуру в дикшинари, содержащую TRANSCODE. И если эта структура в будущем будет изменена, так что TRANSCODE изчезнет, то и программу надо менять, а дапм будет получен 99% на этапе тестирования девелопером, что гораздо лучше, чем если бы программа с неправильной логикой уехала на QA.

А как вы, господа смешливые, будете получать доступ к компонентам переменных total и extract в ракурсе ведения? Небось тоже поиндусите?

Jelena

А в чем сакральный смысл использования EQ вместо знака '='? Неужели не лень набивать два символа вместо одного? Или там оплата посимвольная, как у машинисток?

matel

= имеет двойное значение, это оператор присваивания и оператор сравнения.
EQ только оператор сравнения. Это ускоряет чтение кода (другим программистом), во всяком случае мне проще понимать код, когда я вижу специальные операторы сравнения.

Удав

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

И если эта структура в будущем будет изменена, так что TRANSCODE изчезнет, то и программу надо менять, а дапм будет получен 99% на этапе тестирования девелопером, что гораздо лучше, чем если бы программа с неправильной логикой уехала на QA.

А что, при изменении структуры программа в дамп не упадет, если напрямую типизированная переменная указана будет?
В указанном коде значение используется только для привоения значения, никакой особой логики здесь не заложено.
Да и анализировать код транзакции в программе имхо не очень то правильно :wink:

matel

Удав написал(а):

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

И если эта структура в будущем будет изменена, так что TRANSCODE изчезнет, то и программу надо менять, а дапм будет получен 99% на этапе тестирования девелопером, что гораздо лучше, чем если бы программа с неправильной логикой уехала на QA.

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

Ну напиши, как бы ты сделал это присвоение, при условии, что wa_zwpcontrol -- это input параметр функционального модуля, имеющий тип any.

Удав

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

Ну напиши, как бы ты сделал это присвоение, при условии, что wa_zwpcontrol -- это input параметр функционального модуля, имеющий тип any.

Я как раз говорил о том, что лучше избегать параметров типа any и использовать их только в том случае, когда без этого не обойтись.
Как раз при использовании событий в ракурсах ведения без FIELD-SYMBOLS действительно не обойтись.
Но в любом случае не делать проверку на успешность ASSIGN мягко говоря неправильно.

Вот альтернативный код.
Я не буду здесь распостраняться на тему использования лишних переменных типа l_tcode

Code:

DATA: BEGIN OF ls_data,
        transcode TYPE sy-tcode,
      END OF ls_data.

...
  CLEAR ls_data. "Можно опустить, т.к. структура  - локальная переменная
  MOVE-CORRESPONDING wa_zwpcontrol TO ls_data.
  IF ls_data-transcode IS NOT INITIAL.
    ...
  ENDIF.

matel

Работает, правда мы тогда никак не узнаем, есть ли в wa_zwpcontrol компонент transcode или он просто initial.

Удав

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

Работает, правда мы тогда никак не узнаем, есть ли в wa_zwpcontrol компонент transcode или он просто initial.

А зачем нам гадать, есть он там или нет?
Я же уже писал, что в таком случае лучше сразу использовать типизированные параметры. И не нужно будет гадать на кофейной гуще с обнаружением ошибок только в runtime :mrgreen:

matel

А если wa_zwpcontrol может, скажем, быть трех разных типов, каждый из которых, по убеждению автора, обязан содержать поле transcode?

Удав

Тогда наверное автор должен был просто выделить transcode в отдельный параметр и не заставлять нас тратить время на такие пустяки.
Поэтому Сергей Королев и привел этот код, чтобы мы такое не писали :lol:

zsap

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

А как вы, господа смешливые, будете получать доступ к компонентам переменных total и extract в ракурсе ведения? Небось тоже поиндусите?

С ракурсом ведения незачем к индусам ходить

Code:

data ls_row type my_table.
ls_row = total.
 

holocron

Code:

"4) Т.к. таблица MSEG достаточно большая (50000 записей в сутки),прошу
 "добавить перед поиском проверку на наличие хотя бы одной записи.
  SELECT COUNT( * ) FROM mseg.
  CHECK sy-subrc = 0.

как вам?

Serge69

Code:

READ TABLE T_BKPF INTO BKPF INDEX 1.
IF T_BKPF-BSTAT NE ' '.  EXIT.  ENDIF.
SELECT SINGLE * FROM T001 WHERE BUKRS = T_BKPF-BUKRS.

А как вам это?

SYS

Видимо решили меня вчера индусы поздравить с 1 апреля. Вот только неувязка, они даже не догадываются о таком празднике

Долго пытался вникнуть что хотели сделать этим нестандартным индусским подходом, а оказалось всё довольно просто. Записать в переменную текущую дату в пользовательском формате.

Code:

constants: c_dot(1)      type c value '.',
           c_slash(1)    type c value '/',
           c_hyphen(1)   type c value '-',
           c_date1(10)   type c value 'DD.MM.YYYY',
           c_date2(10)   type c value 'MM/DD/YYYY',
           c_date3(10)   type c value 'MM-DD-YYYY',
           c_date4(10)   type c value 'YYYY.MM.DD',
           c_date5(10)   type c value 'YYYY/MM/DD',
           c_date6(10)   type c value 'YYYY-MM-DD'.
data:  v_date(10)  type c.
       t_usdef     like usdef occurs 0 with header line.

    t_usdef-bname = sy-uname.
    append t_usdef.
*  Getting user defaults
    call function 'SUSR_GET_USER_DEFAULTS'
      tables
        users = t_usdef.

    v_date = sy-datum.

    case t_usdef-datfm.
      when c_date1.
        concatenate v_date+6(2) v_date+4(2) v_date+0(4)
               into v_date separated by c_dot.
      when c_date2.
        concatenate v_date+4(2) v_date+6(2) v_date+0(4)
               into v_date separated by c_slash.
      when c_date3.
        concatenate v_date+4(2) v_date+6(2) v_date+0(4)
               into v_date separated by c_hyphen.
      when c_date4.
        concatenate v_date+0(4) v_date+4(2) v_date+6(2)
               into v_date separated by c_dot.
      when c_date5.
        concatenate v_date+0(4) v_date+4(2) v_date+6(2)
               into v_date separated by c_slash.
      when c_date6.
        concatenate v_date+0(4) v_date+4(2) v_date+6(2)
               into v_date separated by c_hyphen.
    endcase.

P.S. Какие же все-таки трудолюбивые люди :mrgreen:

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

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

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