Вопрос: как в IF поместить Logical Expressions

Любаша

Помогите: есть некоторое условие в IF, которое зависит от нескольких параметров и которое я составляю в некоторую переменную l_line.

Мне надо теперь вставить l_line в оператор IF. Каким образом это возможно сделать - кто подскажет?

Если я пишу просто

Code:

IF ( l_line ).

То ругается.
Как можно еще сделать проверку переменного значения?

PP

М.б.
IF l_line ne 0.
...
ENDIF.
так?

Любаша

В L_Line может быть следующее выражение:

Code:

DOKNRDOG1 = t_dogovor-DOKNRDOG

Или другое - более сложное. Если поставить NE ' ' то TRUE будет всегда. Меня это не устраивает. Мне нужно проверить именно мое L_line на TRUE и FALSE.

Pchelka

IF этого не поддерживает, это только в WHERE можно.
Без FIELD-SYMBOLS не обойтись.

Geolog

А что мешает-то в IF-е записать это условие? Или CHECK использовать.
Как я понимаю, Вы пытаетесь создать нето вроде "динамического IF". С какой целью?

Pchelka

Примерчик:

Code:

TABLES: mara.
DATA: matnr TYPE mara-matnr
    .

mara-matnr = 'TEST'.
matnr = 'TEST'.



FIELD-SYMBOLS: <l_e1xxxxx>  TYPE ANY
             , <l_fname>    TYPE ANY
             , <l_field>    TYPE ANY
             .

ASSIGN ('MARA') TO <l_e1xxxxx>.
CHECK sy-subrc EQ 0.

ASSIGN 'MATNR' TO <l_fname>.
CHECK sy-subrc EQ 0.

ASSIGN COMPONENT <l_fname>
                 OF STRUCTURE <l_e1xxxxx> TO <l_field>.
CHECK sy-subrc EQ 0.

IF <l_field> = matnr.
  WRITE '='.
ELSE.
  WRITE '<>'.
ENDIF.

Любаша

Спасибо, Pchelka.
Попробую поработать с FIELD-SYMBOLS.

Виктор(Минск)

Любаша написал(а):

Помогите: есть некоторое условие в IF, которое зависит от нескольких параметров и которое я составляю в некоторую переменную l_line.

Мне надо теперь вставить l_line в оператор IF. Каким образом это возможно сделать - кто подскажет?

Как вариант, может обратить взор на генерацию временных подпрограмм?

Оператор: GENERATE SUBROUTINE POOL (и далее F1)

Pchelka

Виктор(Минск) написал:

Как вариант, может обратить взор на генерацию временных подпрограмм?

Из пушек по воробьям :wink:

Виктор(Минск)

Если требуется обработать случАй IF Поле1 ['>' '<' '<=' ... 'eq'] Поле2, то Field-symbols и CASE для всех случаев.

А если в общем случае, то мне воробьев не жалко.

trop

если есть желание поизвращаться:
http://trop.host.sk/abap/abapsv.php?src ... -13-50.txt

см. форму _assert_46x и макрос вызова %assert6,
это аналогия assert в sap4.7
насколько помню: прога завершается, на сел.экран выводятся -
условие, файл и номер строки, где оно было нарушено,
поведение ессно можно поменять.

пример вызова
%assert6 'sy-subrc eq 0 and not ( l_tab[] is initial )'.

Любаша

Ну что, вроде получилось. За исключением одной вещи:
когда у меня значение INITIAL, то нет присвоения, поэтому я просто не могу сравнить IF

Code:

 
    IF <l_fieldtd> = <l_fieldgs>.
        .....
      ELSE.
          ...
        EXIT.
      ENDIF.

А мне надо, чтобы INITIAL тоже срабатывало. И делало то, что в IFе.
Кто подскажет, как быть?

Code:

   
  FIELD-SYMBOLS:
                 <l_gts_sflight>  TYPE ANY
               , <l_t_dogdokum1>  TYPE ANY
               , <l_fnametd>    TYPE ANY
               , <l_fnamegs>    TYPE ANY
               , <l_fieldtd>    TYPE ANY
               , <l_fieldgs>    TYPE ANY
               .

  ASSIGN ('gts') TO <l_gts>.
  CHECK sy-subrc EQ 0.
  ASSIGN ('t_dogdokum1') TO <l_t_dogdokum1>.
  CHECK sy-subrc EQ 0.


  ASSIGN gl_sort-fieldname  TO <l_fnametd>.
  CHECK sy-subrc EQ 0.
  ASSIGN gl_sort-fieldname  TO <l_fnamegs>.
  CHECK sy-subrc EQ 0.

 LOOP AT gl_sort.
      ASSIGN COMPONENT <l_fnametd>
                       OF STRUCTURE <l_t_dogdokum1> TO <l_fieldtd>.
      CHECK sy-subrc EQ 0.
      ASSIGN COMPONENT <l_fnamegs>
                       OF STRUCTURE <l_gts> TO <l_fieldgs>.
      CHECK sy-subrc EQ 0.
      IF <l_fieldtd> = <l_fieldgs>.
 ...
      ELSE.
...
        EXIT.
      ENDIF.
     ENDLOOP.

Любаша

Всё получилось. С INITIAL я была не права - работает.
Простите начинающего: нашла ошибку - в структуре не хватало поля.

:oops:

Спасибо за помощь.

OlegDm

Можно воспользоваться и макросами:

Code:

REPORT  ZPM_X_MACRO_DEMO.

data: i1 type i,
      i2 type i,
      i3 type i,
      c1(10) type c,
      c2(10) type c,
      d1 type d,
      d2 type d.

* --------------------------------------

define if_eq.
  if &1 eq &2.
     write: / &1, '=', &2, ' is True'.
  else.
     write: / &1, '=', &2, ' is False'.
  endif.
end-of-definition.

* --------------------------------------

i1 = 2.
i2 = 3.

c1 = 'ABC'.
c2 = 'ABC'.

d1 = sy-datum.
d2 = sy-datum.

* --------------------------------------

if_eq i1 i2.
if_eq i1 i3. " i3 - initial
if_eq c1 c2.
if_eq d1 d2.

Любаша

Спасибо, про макросы я вообще ничего не знала.
Теперь пригодится когда-нибудь.

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

Вопрос: как в IF поместить Logical Expressions

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