Monitoring the SCC4 transaction

Hi,

I found it interesting to share this code because it serves to monitor the SCC4 , it is a transaction that opens the SAP environment to change … where they can be made ​​without request.

This can cause several problems with audit inconsistency environments … We will have a table that stores user data and email that will receive the notification.

After a job is triggered to run Z program at this point if the environment is open, it will trigger an email displaying the environment and principal for people registered in the table.

Steps:

1 – Create Table

Table: ZBASIS_DEST_MAIL

2 – Create program
ABAP:

*&---------------------------------------------------------------------*
*& Report  ZJOB_STATUS_SCC4
*&
*&---------------------------------------------------------------------*
*& mail: tobias@tolfo.com.br
*&phone: +55 5599510981
*&---------------------------------------------------------------------*
REPORT  ZJOB_STATUS_SCC4.
TABLES: T000.
TYPES: BEGIN OF ty_tbtco,
            jobname   TYPE tbtco-jobname,
            sdlstrtdt TYPE tbtco-sdlstrtdt,
            sdlstrttm TYPE tbtco-sdlstrttm,
       END OF ty_tbtco.
TYPES: BEGIN OF ty_tbtcom,
            sdlstrtdt TYPE tbtco-sdlstrtdt,
            sdlstrttm TYPE tbtco-sdlstrttm,
       END OF ty_tbtcom.
DATA: it_t000      TYPE TABLE OF t000,
      gt_tbtco     TYPE TABLE OF ty_tbtco,
      gt_dest_mail TYPE TABLE OF zbasis_dest_mail.
DATA: wa_dest_mail  TYPE  zbasis_dest_mail,
      wa_t000       TYPE t000,
      wa_tbtco      TYPE ty_tbtco.
*validacao dos parametros
PERFORM parameters_t000.
*&---------------------------------------------------------------------*
*&      Form  parameters
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM parameters_t000 .
* Ini.1- Seleciona os mandantes que estao abertos
 SELECT *
   FROM t000
   INTO TABLE it_t000
   WHERE CCCORACTIV <> '2' OR CCNOCLIIND <> '3'.
* End.1
* Ini.2 - Verifica se existe algum ambiente aberto, se verdadeiro ele vai selecionar
* os emails que devem receber a notificacao, caso contrario nao executa o programa.
    IF it_t000 IS NOT INITIAL.
        PERFORM select_mail.
    ELSE.
         EXIT.
    ENDIF.
* End.2
ENDFORM.                    " parameters_t000
*&---------------------------------------------------------------------*
*&      Form  SELECIONA_EMAIL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM select_mail .
* Ini. 3 - Seleciona os emails
 SELECT *
  FROM ZBASIS_DEST_MAIL
  INTO TABLE gt_dest_mail.
* End. 3
* Ini 4. Verifica se existe algum email cadastrado para enviar a notificacao.
* e realiza a chamada.
  IF gt_dest_mail[] IS INITIAL.
    MESSAGE text-003 TYPE 'S'.
    STOP.
  ENDIF.
  PERFORM send_mail.
ENDFORM.                    " select_mail
*&---------------------------------------------------------------------*
*&      Form  send_mail
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM send_mail .
  DATA: lt_receivers TYPE TABLE OF somlreci1,
        lt_txt       TYPE TABLE OF solisti1.
  DATA: wa_doc_data  TYPE sodocchgi1,
        wa_receivers TYPE somlreci1,
        wa_txt       TYPE solisti1.
  REFRESH: lt_receivers, lt_txt.
  CLEAR:   wa_receivers, wa_txt, wa_doc_data.
  LOOP AT gt_dest_mail INTO wa_dest_mail.
          wa_receivers-receiver = wa_dest_mail-email.
          wa_receivers-rec_type = 'U'.
       APPEND wa_receivers TO lt_receivers.
       CLEAR wa_receivers.
  ENDLOOP.
* Ini.5 - Montanto as mensagens
  wa_doc_data-obj_descr = 'Status do Ambientes atraves da  SCC4 -  ' && sy-host && sy-mandt.
  wa_txt-line =           'Ambientes Alterados: ' .
  APPEND wa_txt TO lt_txt.
  LOOP AT it_t000 INTO wa_t000.
    wa_txt-line(32) = wa_t000-mtext.
    WRITE wa_t000-mandt        TO wa_txt-line+35(12).
    WRITE wa_t000-changeuser   TO wa_txt-line+50(11).
    WRITE wa_t000-changedate   TO wa_txt-line+70(13).
    APPEND wa_txt TO lt_txt.
* End.5
  ENDLOOP.
* Chama funcao para o envio do email
  CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
    EXPORTING
      document_data              = wa_doc_data
      document_type              = 'RAW'
      put_in_outbox              = 'X'
      commit_work                = 'X'
    TABLES
      object_content             = lt_txt
      receivers                  = lt_receivers
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      document_type_not_exist    = 3
      operation_no_authorization = 4
      parameter_error            = 5
      x_error                    = 6
      enqueue_error              = 7
      OTHERS                     = 8.
 ENDFORM.                    " send_mail

2 – Create JOB
The job time is the User discretion, in my case I use 1 minute.

3 – Email layout received

Any doubts I am available,

Tobias Tolfo