
DATA: lv_dummy TYPE c,
lv_clen TYPE i,
lv_line(72) TYPE c,
lv_otf TYPE itcoo,
lv_len TYPE i,
lv_size TYPE i,
lv_hex(144) TYPE x.
FIELD-SYMBOLS: <l_fs> TYPE c.
CLEAR: et_otf_data.
DATA(lv_pdf) = iv_pdf.
lv_size = 72.
DESCRIBE FIELD lv_dummy LENGTH lv_clen IN BYTE MODE.
lv_size = lv_size * lv_clen.
lv_len = xstrlen( lv_pdf ).
WHILE lv_len > lv_size.
lv_hex(lv_size) = lv_pdf(lv_size).
ASSIGN lv_hex(lv_size) TO <l_fs> CASTING.
lv_line = <l_fs>.
lv_otf = lv_line.
APPEND lv_otf TO et_otf_data.
SHIFT lv_pdf LEFT BY lv_size PLACES IN BYTE MODE.
lv_len = xstrlen( lv_pdf ).
ENDWHILE.
IF lv_len > 0.
CLEAR: lv_hex, lv_otf, lv_line.
lv_hex = lv_pdf(lv_len).
ASSIGN lv_hex(lv_size) TO <l_fs> CASTING.
lv_line = <l_fs>.
lv_otf = lv_line.
APPEND lv_otf TO et_otf_data.
ENDIF.
CLEAR: lv_dummy,
lv_clen,
lv_line,
lv_otf,
lv_len,
lv_size,
lv_hex.
UNASSIGN : <l_fs>.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
7 | |
7 | |
6 | |
4 | |
4 | |
4 | |
4 | |
4 | |
3 | |
3 |