How to lock transaction codes in ABAP report

Question

Hello all,
I'm now planning to lock several transaction codes as a batch job to prevent end users from using locked tr-cds while processing batch jobs during online service period.
I found out tr-cd: SM01 to lock tr-cds, but I don't get what I can do with this tr-cd when you want to execute this as a background job.
I suppose I can make it by using transaction recorder or call transaction.
But I want to do this in smarter manner (like executing certain report PGM with a variant containing tr-cds to be locked).
I rather prefer using FM or BAPI to using transaction recorder etc if possible...
If you know anything on this issue, please please help me..
Hozy

Answer 1

Hi,
Not quite correct - this is the FM that posts a record about the lock/unlock to the audit log (SM01 calls it), but ir doesn't change the transaction lock itself.
Here is a sample report that does do the trick. You may want to change it to your needs, e.g. allow changing multiple transactions in one run:
REPORT  ZTXLOCK.
parameters:
  p_tcode      type tcode obligatory,
  p_mode       type char1 obligatory.   "L=lock, U=unlock
tables: tstc.
at selection-screen on p_tcode.
  select single * from tstc where tcode = p_tcode.
  if sy-subrc <> 0.
    message e002(sy) with 'Transaction code not found'.
  endif.
at selection-screen on p_mode.
  if p_mode na 'LU'.
    message e002(sy) with 'Invalid mode, use L (lock), U (unlock)'.
  endif.
start-of-selection.
  case p_mode.
    when 'L'.
      perform bit-set(sapmtstc) using tstc-cinfo 6.
    when 'U'.
      perform bit-reset(sapmtstc) using tstc-cinfo 6.
  endcase.
  update tstc.
  if sy-dbcnt = 0.
    message e002(sy) with 'TSTC update failed'.
  endif.
Regards,
Mark