ZDISCONNECT_PACKAGE Source Code

ZDISCONNECT_PACKAGE.apap

*&                                                                     *
*& REPORT ZDISCONNECT_PACKAGE
*&                                                                     *
REPORT zdisconnect_package .
*>>>> START OF INSERTION <<<<

PARAMETERS: package   TYPE devclass.

DATA: modify_sign TYPE scompksign,
      pack_data   TYPE scompkdtln.
modify_sign-parentcl = 'X'.
pack_data-devclass   = package.
CALL FUNCTION 'PA_MAINTAIN_PACKAGE_DARK'
  EXPORTING
    i_operation        = 'MODIFY'                           "#EC NOTEXT
    i_modify_data_sign = modify_sign
  CHANGING
    c_package_data     = pack_data
  EXCEPTIONS
    OTHERS             = 1.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  RETURN.
ELSE.
  WRITE: / 'Package data successfully modified'.
ENDIF.