DATA: begin of t_abc occurs 1,
       abc(1) type c,
      end of t_abc.

t_abc-abc ='A'. append t_abc.
t_abc-abc ='B'. append t_abc.
t_abc-abc ='C'. append t_abc.
t_abc-abc ='D'. append t_abc.
t_abc-abc ='E'. append t_abc.
t_abc-abc ='F'. append t_abc.
t_abc-abc ='G'. append t_abc.
t_abc-abc ='H'. append t_abc.
t_abc-abc ='I'. append t_abc.
t_abc-abc ='J'. append t_abc.
t_abc-abc ='K'. append t_abc.
t_abc-abc ='L'. append t_abc.
t_abc-abc ='M'. append t_abc.
t_abc-abc ='N'. append t_abc.
t_abc-abc ='O'. append t_abc.
t_abc-abc ='P'. append t_abc.
t_abc-abc ='Q'. append t_abc.
t_abc-abc ='R'. append t_abc.
t_abc-abc ='S'. append t_abc.
t_abc-abc ='T'. append t_abc.
t_abc-abc ='U'. append t_abc.
t_abc-abc ='V'. append t_abc.
t_abc-abc ='W'. append t_abc.
t_abc-abc ='X'. append t_abc.
t_abc-abc ='Y'. append t_abc.
t_abc-abc ='Z'. append t_abc.


DATA: t(5) type c,
    txt(5),
         i type i,
         j type i,
        in type n,
        jn type n,
     it(3) type c.

clear: in, jn.
** Формат ЧислоБуква
write: / 'Формат ЧислоБуква'.
LOOP at t_abc.
i = 0.
do 10 times.
it = i.
in = i.
concatenate '@' in t_abc-abc '@' into t.
concatenate '_' in t_abc-abc '_' into txt.
WRITE:/ t, ' - ', txt.
add 1 to i.
enddo.
endloop.
skip 1.


clear: in, jn.
** Формат ЧислоЧисло:
write: / 'Формат ЧислоЧисло'.
i = 0.
j = 0.
do 10 times.
in = i.
do 10 times.
  jn = j.
  concatenate '@' in jn '@' into t.
  concatenate '_' in jn '_' into txt.
  WRITE:/ t, ' - ', txt.
   add 1 to j.
enddo.
add 1 to i.
enddo.

skip 1.
** Формат БукваБуква
write: / 'БукваБуква'.
data t_abc_1 like t_abc occurs 1 with header line.
t_abc_1[] = t_abc[].
loop at t_abc.
loop at t_abc_1.
  concatenate '@' t_abc-abc t_abc_1-abc '@' into t.
  concatenate '_' t_abc-abc t_abc_1-abc '_' into txt.
  WRITE:/ t, ' - ', txt.
endloop.
endloop.

  DATA: i TYPE i, j TYPE i, tx(2), ch(4), hx(4) TYPE x, icon(4).
  FIELD-SYMBOLS: <fs> TYPE c.

  define code.
    &1 = sy-index + 47.
    IF &1 > 57. &1 = &1 + 7. ENDIF.
    hx = &1.
    ASSIGN hx TO <fs> CASTING.
    MOVE <fs> TO ch.
    &2 = ch+3.
  end-of-definition.

  DO 36 TIMES.
    code i tx(1).
    DO 36 TIMES.
      code j tx+1.
      CONCATENATE '@' tx '@' INTO icon.
      write: / tx, icon.
    ENDDO.
  ENDDO.

data: begin of it_icon occurs 1000
        , id type icon-id
        , name type icon-name
        , shorttext type icont-shorttext
    , end of it_icon
.
field-symbols <f> like line of it_icon.

select icon~id name shorttext
    into corresponding fields of table it_icon
    from icon
    left join icont
        on icont~id = icon~id
       and icont~langu = sy-langu.
loop at it_icon assigning <f>.
  write: / <f>-id+1(2), <f>-id, <f>-name, <f>-shorttext.
endloop.

* Все иконки
REPORT ZTEST045 .
TYPE-POOLS icon.

DATA mask(36) TYPE C.
DATA index1   TYPE sy-index.
DATA index2   TYPE sy-index.
DATA icon     TYPE icon-id.
DATA text(2)  TYPE C.

CONCATENATE '0123456789' sy-abcde INTO mask.

index1 = 0.
DO 36 TIMES.
  index2 = 0.
  DO 36 TIMES.
    CONCATENATE '@' mask+index1(1) mask+index2(1) '@' INTO icon.
    CONCATENATE     mask+index1(1) mask+index2(1)     INTO text.
    WRITE: / icon, text.
    index2 = index2 + 1.
  ENDDO.
  index1 = index1 + 1.
ENDDO.