gv_date_old TYPE likp-wadat,
gv_serial TYPE num9,
gv_kdmat TYPE vwahn-kdmat,
gv_meng TYPE char10,
lf_masterorsingle TYPE char3,
lf_hex_rs TYPE x LENGTH 4 VALUE '001E',
lf_hex_gs TYPE x LENGTH 4 VALUE '001D',
lf_hex_eot TYPE x LENGTH 4 VALUE '0004',
lf_char_rs TYPE c,
lf_char_gs TYPE c,
lf_char_eot TYPE c.
FIELD-SYMBOLS: <lfs_rs>,
<lfs_gs>,
<lfs_eot>.
WRITE is_wahn-wadat TO gv_date_old yymmdd.
WRITE is_wahn-exidv+11(9) TO gv_serial.
" Get non-printing control characters set
ASSIGN lf_hex_rs TO <lfs_rs> CASTING TYPE c.
ASSIGN lf_hex_gs TO <lfs_gs> CASTING TYPE c.
ASSIGN lf_hex_eot TO <lfs_eot> CASTING TYPE c.
lf_char_rs = <lfs_rs>.
lf_char_gs = <lfs_gs>.
lf_char_eot = <lfs_eot>.
" Master or single label
IF is_wahn-zzmastersingle = 'M'.
lf_masterorsingle = 'M'.
ELSE.
lf_masterorsingle = 'S'.
ENDIF.
CONCATENATE
'[)>' lf_char_rs
'06' lf_char_gs
'P' gv_kdmat lf_char_gs
'Q' gv_menge lf_char_gs
'V' gv_lifnr lf_char_gs
'D' gv_date_old lf_char_gs
lf_masterorsingle gv_serial
lf_char_rs lf_char_eot
INTO gv_pdf417.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.