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