CALL FUNCTION 'Z_SWITCH_DSLICE'
         EXPORTING
           I_INFOPROV = 'ZICR003'
           I_DSNR     = 1
           I_STATUS   = 1.
FUNCTION Z_SWITCH_DSLICE.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(I_INFOPROV) TYPE  RSINFOPROV
*"     REFERENCE(I_DSNR) TYPE  RSPLS_DSNR
*"     REFERENCE(I_STATUS) TYPE  I
*"----------------------------------------------------------------------
  data wa_ds type rspls_ds.
  select single * from rspls_ds
          into wa_ds
          where infoprov = I_INFOPROV
            AND objvers = 'A'
            AND dsnr = I_DSNR.
  if I_status = 1. wa_ds-used = abap_true.
  elseif I_status = 0. wa_ds-used = abap_false.
  endif.
  update rspls_ds from wa_ds.
  COMMIT WORK.
ENDFUNCTION.
No comments:
Post a Comment