Приколы на ABAP

Tim

Пробовал публиковать приколы в "курилке", но там нас не понимают. Давайте попробуем здесь сделать один такой топик.
Итак, может ли поле типа NUMC быть "eq space"? Этого быть не может, но давайте проверим:

Code:

DATA: g_nchar1 type gjahr,
      g_nchar2 type gjahr,
      g_char(4) value '/'.

split g_char at '/' into g_nchar1 g_nchar2.
if g_nchar1 EQ space.
  CLEAR g_nchar1.
endif.

* код проверен в 4.6 и ERP 2005

ArmAnn

Если память мне не изменяет - space в таких случаях считается как 0.
Вот совсем простой пример

Code:

DATA: GJAHR LIKE BKPF-GJAHR VALUE 0.

IF GJAHR = SPACE.
  WRITE:/ 'space'.
ENDIF.

результат:
space

так что никаких приколов

ЗЫ. версия 4.0

Sergo

Code:

DATA: var_c TYPE c,
      var_n TYPE n,
      var_d TYPE d,
      var_t TYPE t,
      var_i TYPE i,
      var_p TYPE p,
      var_f TYPE f,      
      var_x TYPE x,
      var_s TYPE string,
      var_xs TYPE string.

IF space = var_n.
  WRITE: / 'C = N'.
ENDIF.

IF space = var_d.
  WRITE: / 'C = D'.
ENDIF.

IF space = var_t.
  WRITE: / 'C = T'.
ENDIF.

IF space = var_i.
  WRITE: / 'C = I'.
ENDIF.

IF space = var_p.
  WRITE: / 'C = P'.
ENDIF.

IF space = var_f.
  WRITE: / 'C = F'.
ENDIF.

IF space = var_x.
  WRITE: / 'C = X'.
ENDIF.

IF space = var_s.
  WRITE: / 'C = S'.
ENDIF.

IF space = var_xs.
  WRITE: / 'C = XS'.
ENDIF.




Результат:
C = N
C = I
C = P
C = F
C = S
C = XS 

Tim

Прикол в том, что в после такого split в поле типа NUMC будет действительно пустота. Более того, split прекрасно запихивает в NUMC любые символы!

sibrin

Tim написал:

Прикол в том, что в после такого split в поле типа NUMC будет действительно пустота. Более того, split прекрасно запихивает в NUMC любые символы!

Если бы в первом сообщении вместо типа N использовать D или T, то возражений не было бы

Можно запихать туда текст и официальным способом:

Code:

data: d type d.
FIELD-SYMBOLS: <c> type c.
assign d to <c> CASTING.
<c> = 'text'.

sy-uname

Tim написал:

Прикол в том, что в после такого split в поле типа NUMC будет действительно пустота. Более того, split прекрасно запихивает в NUMC любые символы!

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

NUMC : 1-255 : numerischer Text : n(m)
где:
n : Any alphanumeric characters, however, valid values are only the digits 0 to 9

Code:

data: V1(5) type N
    , V2(5) type N.

field-symbols <FS> type C.

start-of-selection.

  assign V1 to <FS> casting. <FS> = 'ZZZ'. write / V1.
  assign V2 to <FS> casting. <FS> = 'YYY'. write / V2.
  add V1 to V2. write / V2.

Дамп будет только на третьей строке.

Mike1

Писал уже раз но повторюсь,
о "пользе" использования сионистских функций

Code:

report ztest.
data: KUNNR type KUNNR.
KUNNR = '9999'.
call function 'CONVERSION_EXIT_ALPHA_INPUT'
  exporting
    INPUT  = KUNNR
  importing
    OUTPUT = KUNNR.
write KUNNR using no edit mask.
KUNNR = '9999'.
call 'CONVERSION_EXIT_ALPHA_INPUT'  id 'INPUT'  field KUNNR
                                    id 'OUTPUT' field KUNNR.
write / KUNNR using no edit mask.

John Doe

Mike1 написал:

Писал уже раз но повторюсь,
о "пользе" использования сионистских функций

Меж тем так все чудно работает:

Code:

DATA: KUNNR TYPE KUNNR,
      OUT_KUNNR TYPE KUNNR.
KUNNR = '9999'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    INPUT  = KUNNR
  IMPORTING
    OUTPUT = KUNNR.
WRITE KUNNR USING NO EDIT MASK.
KUNNR = '9999'.
CALL 'CONVERSION_EXIT_ALPHA_INPUT'  ID 'INPUT'  FIELD KUNNR
                                    ID 'OUTPUT' FIELD OUT_KUNNR.
WRITE / OUT_KUNNR USING NO EDIT MASK.

Mike1

[quote="John Doe"][/quote]при случае скажу самому настырному пользователю- эту программу можно оптимизировать будет работать секунд на 20 быстрее

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

Приколы на ABAP

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