RCCSEC_MIGRATION_042 SAP ABAP Report - IS-M: Encryption of Payment Cards in IAC Temporary Tables

RCCSEC_MIGRATION_042 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter RCCSEC_MIGRATION_042 into the relevant SAP transactions such as SE38 or SE80

ABAP code to call this SAP report using the submit statement

This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.

Text pool values

INCLUDES used within this REPORT RCCSEC_MIGRATION_042

INCLUDE MJ_CCSECA_ENCTYPE.

TABLES used within REPORT and the associated SELECT statement:

No SAP DATABASE tables are accessed within this REPORT code!

Function Modules used within report and the associated call statement:

CCSECA_READ_CUSTOMIZING
CALL FUNCTION 'CCSECA_READ_CUSTOMIZING'
  IMPORTING
    E_SECLV = LV_SECLV.

BAL_DSP_PROFILE_DETLEVEL_GET
CALL FUNCTION 'BAL_DSP_PROFILE_DETLEVEL_GET'
  IMPORTING
    E_S_DISPLAY_PROFILE = LS_DISPLAY_PROFILE.

BAL_DSP_PROFILE_STANDARD_GET
*CALL FUNCTION 'BAL_DSP_PROFILE_STANDARD_GET'
*  IMPORTING
*    e_s_display_profile = ls_display_profile.

BAL_DSP_LOG_DISPLAY
CALL FUNCTION 'BAL_DSP_LOG_DISPLAY'
  EXPORTING
    I_S_DISPLAY_PROFILE = LS_DISPLAY_PROFILE
    I_S_LOG_FILTER      = LV_LOG_FILTER
  EXCEPTIONS
    OTHERS              = 4.

BAL_DB_SAVE
CALL FUNCTION 'BAL_DB_SAVE'
  EXPORTING
    I_CLIENT         = SY-MANDT
    I_SAVE_ALL       = 'X'
  EXCEPTIONS
    LOG_NOT_FOUND    = 1
    SAVE_NOT_ALLOWED = 2
    NUMBERING_ERROR  = 3.

CCSECA_CHECK_DISPLAY_ALLOWED
        CALL FUNCTION 'CCSECA_CHECK_DISPLAY_ALLOWED'
          EXCEPTIONS
            no_authorization = 1
            OTHERS           = 2.

CCSECA_READ_CUSTOMIZING
    CALL FUNCTION 'CCSECA_READ_CUSTOMIZING'
      EXPORTING
        I_CCINS = -CCINS
      IMPORTING
        E_SECLV = LV_SECLV.

BAL_LOG_MSG_ADD
  CALL FUNCTION 'BAL_LOG_MSG_ADD'
    EXPORTING
      I_LOG_HANDLE = LV_LOG_HANDLE
      I_S_MSG      = LS_LOG_MSG
    EXCEPTIONS
      OTHERS       = 4.

CCSECA_CCNUM_STORE_ENCRYPTED
    CALL FUNCTION 'CCSECA_CCNUM_STORE_ENCRYPTED'
      EXPORTING
        I_CCNUM          = 
        I_TRY_REUSE      = 'X'
        I_UPDATE_TASK    = ' '
      IMPORTING
        E_GUID           = 
      EXCEPTIONS
        ENCRYPTION_ERROR = 1
        DUPLICATE_GUID   = 2
        NOT_AVAILABLE    = 3
        ERROR_MESSAGE    = 4.

CCSECA_CCNUM_MASKING
    CALL FUNCTION 'CCSECA_CCNUM_MASKING'
      EXPORTING
        I_CCNUM        = 
      IMPORTING
        E_CCNUM_MASKED = 
      EXCEPTIONS
        NOT_AVAILABLE  = 1
        OTHERS         = 2.

CCSECA_CCNUM_DECRYPTION
    CALL FUNCTION 'CCSECA_CCNUM_DECRYPTION'
      EXPORTING
        I_ENCTYPE         = '2'
        I_GUID            = 
      IMPORTING
        E_CCNUM           = 
      EXCEPTIONS
        DECRYPTION_ERROR  = 1
        INVALID_CARD_GUID = 2
        OTHERS            = 3.

BAL_LOG_CREATE
  CALL FUNCTION 'BAL_LOG_CREATE'
    EXPORTING
      I_S_LOG      = LS_LOG_HEADER
    IMPORTING
      E_LOG_HANDLE = LV_LOG_HANDLE
    EXCEPTIONS
      OTHERS       = 2.

DDIF_NAMETAB_GET
  CALL FUNCTION 'DDIF_NAMETAB_GET'
    EXPORTING
      TABNAME   = LV_TABNAME
    TABLES
      DFIES_TAB = LT_DFIES
    EXCEPTIONS
      NOT_FOUND = 1.

ENQUEUE_EJKWWWTEMP_ORDER
      CALL FUNCTION 'ENQUEUE_EJKWWWTEMP_ORDER'
        EXPORTING
          SESSIONNO      = 
        EXCEPTIONS
          FOREIGN_LOCK   = 1
          SYSTEM_FAILURE = 2.

ENQUEUE_EJHWWWTEMP_ORDER
      CALL FUNCTION 'ENQUEUE_EJHWWWTEMP_ORDER'
        EXPORTING
          SESSIONNO      = 
        EXCEPTIONS
          FOREIGN_LOCK   = 1
          SYSTEM_FAILURE = 2.

ENQUEUE_EJKWWWTEMP_SERV
      CALL FUNCTION 'ENQUEUE_EJKWWWTEMP_SERV'
        EXPORTING
          ISM_IACSERVNO  = 
        EXCEPTIONS
          FOREIGN_LOCK   = 1
          SYSTEM_FAILURE = 2.

DEQUEUE_ALL
  CALL FUNCTION 'DEQUEUE_ALL'.