Отсутствие в абапе булевского типа

Silence1

Поскольку в АВАРе нет булевского типа (true/false), приходится изгаляться примерно так:
в таблице ZTABLE поле IS_DOPSOGL типа char, 1, значение 'X' - типо истина, ' ' - ложь.
Условие выбора в select определяется динамически:

Code:

data:  STRING TYPE STRING, str1(1), str2(1) .
  str1 = ' '.
  str2 = 'X'.
  DEFINE SELECTTURN.
    select * from ZTABLE into corresponding fields of table itabl
        where  bukrs = p_bukrs
          and TYPDG in p_TYPDG
          and (&1).
  END-OF-DEFINITION.
  case 'X'.
    when p_md1.
      STRING = '(IS_DOPSOGL = str1 or IS_DOPSOGL = str2)'.
    when p_md2.
      STRING = 'IS_DOPSOGL = str1'.
    when p_md3.
      STRING = 'IS_DOPSOGL = str2'.
  endcase.

  SELECTTURN STRING.

Но подобное решение просто коробит мой взор.
Как можно более изящно записать условие в случае, когда IS_DOPSOGL любое?
В других языках можно было в select добавить банально and true - и работало!

sy-uname

Silence1 написала:

Поскольку в АВАРе нет булевского типа (true/false), приходится изгаляться примерно так:
в таблице ZTABLE поле IS_DOPSOGL типа char, 1, значение 'X' - типо истина, ' ' - ложь.

ADD1: Для эстетов есть группа типов (TYPE-POOL) ABAP, где определен тип ABAP_BOOL и константы ABAP_FALSE и ABAP_TRUE.

Цитата:

Условие выбора в select определяется динамически:

Code:

data:  STRING TYPE STRING, str1(1), str2(1) .
  str1 = ' '.
  str2 = 'X'.
  DEFINE SELECTTURN.
    select * from ZTABLE into corresponding fields of table itabl
        where  bukrs = p_bukrs
          and TYPDG in p_TYPDG
          and (&1).
  END-OF-DEFINITION.
  case 'X'.
    when p_md1.
      STRING = '(IS_DOPSOGL = str1 or IS_DOPSOGL = str2)'.
    when p_md2.
      STRING = 'IS_DOPSOGL = str1'.
    when p_md3.
      STRING = 'IS_DOPSOGL = str2'.
  endcase.

  SELECTTURN STRING.

Но подобное решение просто коробит мой взор.
Как можно более изящно записать условие в случае, когда IS_DOPSOGL любое?
В других языках можно было в select добавить банально and true - и работало!

Читаем справку к SELECT:

Цитата:

... The result of the logical expression (cond_syntax) is determined by the result of the contained logical expression. If cond_syntax is initial when the statement is executed, the logical expression is true.

т.е. достаточно:

Code:

when p_md1.
      clear STRING.

Silence1

sy-uname написал(а):

ADD1: Для эстетов есть группа типов (TYPE-POOL) ABAP, где определен тип ABAP_BOOL и константы ABAP_FALSE и ABAP_TRUE.

Cпасибо!

Цитата:

... т.е. достаточно:

Code:

when p_md1.
      clear STRING.

Сработало!
Я думала and c пустышкой не прокатит)))))

СПАСИБО!

ArmAnn

еще можно использовать RANGES:

Code:

 ranges: rstr1 for ZTABLE-IS_DOPSOGL.

 if p_md1 = ''.
   rstr1-sign = 'I'. rstr1-option = 'EQ'. 
   rstr1-low = p_md3.
   append rstr1.
 endif.

select * from ZTABLE into corresponding fields of table itabl
        where  bukrs = p_bukrs
          and TYPDG in p_TYPDG
          and IS_DOPSOGL in rstr1.

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

Отсутствие в абапе булевского типа

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