*&---------------------------------------------------------------------*
*& Form frm_change_qty
*&---------------------------------------------------------------------*
* Put sign in front
*----------------------------------------------------------------------*
FORM frm_change_qty USING p_qty
CHANGING p_qty1.
p_qty1 = p_qty.
SHIFT p_qty1 LEFT DELETING LEADING ' '.
SHIFT p_qty1 UP TO '-' LEFT CIRCULAR.
CONDENSE p_qty1 NO-GAPS.
ENDFORM. " frm_change_qty
FM:CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'