SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF }
.L0S31 { font-style: italic; color: #808080 }
.L0S32 { color: #3399FF }
.L0S33 { color: #4DA619 }
.L0S52 { color: #0000FF }
.L0S55 { color: #800080 }
.L0S70 { color: #808080 }
"加前导零
DEFINE add_pre_zero.
call function ‘CONVERSION_EXIT_ALPHA_INPUT‘
exporting
input = &1
importing
output = &2
exceptions
length_error = 1
others = 2.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
END-OF-DEFINITION.
"去前导零
DEFINE delete_pre_zero.
call function ‘CONVERSION_EXIT_ALPHA_OUTPUT‘
exporting
input = &1
importing
output = &2
exceptions
length_error = 1
others = 2.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
END-OF-DEFINITION.