change SO sales organization and price procedure

REPORT  ZSD01                                 .
TABLES: VBAP.

SELECT-OPTIONS:S_VBELN FOR VBAP-VBELN.
PARAMETERS: P_VKORG LIKE VBAK-VKORG DEFAULT '3000',
            P_VTWEG LIKE VBAK-VTWEG DEFAULT '01',
            P_BUKRS LIKE VBAK-BUKRS_VF DEFAULT '3000',
            P_KALSM LIKE VBAK-KALSM DEFAULT 'ZASAT1',
            P_BATCH LIKE VBAK-KALSM_CH,
            P_TEST AS CHECKBOX DEFAULT 'X'.

START-OF-SELECTION.
  PERFORM SUB_GET_DATA.
*&---------------------------------------------------------------------*
*&      Form  SUB_GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM SUB_GET_DATA .
  DATA: LT_VBAK LIKE TABLE OF VBAK WITH HEADER LINE.
  SELECT * INTO TABLE LT_VBAK
     FROM VBAK
     WHERE VBELN IN S_VBELN.
  LOOP AT LT_VBAK.
    IF P_VKORG IS NOT INITIAL.
      LT_VBAK-VKORG = P_VKORG.
    ENDIF.
    IF P_BUKRS IS NOT INITIAL.
      LT_VBAK-BUKRS_VF = P_BUKRS.
    ENDIF.
    IF P_KALSM IS NOT INITIAL.
      LT_VBAK-KALSM = P_KALSM.
    ENDIF.
    IF P_BATCH IS NOT INITIAL.
      LT_VBAK-KALSM_CH = P_BATCH.
    ENDIF.
    IF P_VTWEG IS NOT INITIAL.
      LT_VBAK-VTWEG = P_VTWEG.
    ENDIF.
    UPDATE VBAK FROM LT_VBAK.
  ENDLOOP.

  IF SY-SUBRC = 0 AND P_TEST IS INITIAL.
    COMMIT WORK.
    IF SY-SUBRC = 0.
      MESSAGE I001(00) WITH 'UPDATE SUCCESSFULLY'.
    ENDIF.
  ENDIF.

ENDFORM.                    " SUB_GET_DATA