RCCSEC_MIGRATION_040 SAP ABAP Report - IS-M/AM: Encryption of Payment Cards From Order and Billing Document

RCCSEC_MIGRATION_040 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_040 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_040

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.

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

ENQUEUE_EJHAK
      CALL FUNCTION 'ENQUEUE_EJHAK'
        EXPORTING
          AVM_NR         = LS_JHAISZ-AVM_NR
        EXCEPTIONS
          FOREIGN_LOCK   = 1
          SYSTEM_FAILURE = 2.

ISM_ENQUEUE_EVVBAKE
        CALL FUNCTION 'ISM_ENQUEUE_EVVBAKE'
          EXPORTING
            AVM_NR         = LS_JHAISZ-AVM_NR
          EXCEPTIONS
            FOREIGN_LOCK   = 1
            SYSTEM_FAILURE = 2.

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.

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.

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.

ISMAM_INVOICE_ENQUEUE
    CALL FUNCTION 'ISMAM_INVOICE_ENQUEUE'
      EXPORTING
        PV_VBELN     = LV_VBELN
        PV_ENQMODE   = 'E'
      CHANGING
        PT_ENQOBJ    = LT_ENQOBJ
      EXCEPTIONS
        FOREIGN_LOCK = 1
        SYSTEM_ERROR = 2
        OTHERS       = 3.

CCSECA_CCNUM_STORE_ENCRYPTED
  CALL FUNCTION 'CCSECA_CCNUM_STORE_ENCRYPTED'
    EXPORTING
      I_CCNUM          = LS_JHAISZ-CCNUM
      I_TRY_REUSE      = 'X'
      I_UPDATE_TASK    = ' '
    IMPORTING
      E_GUID           = LS_JHAISZ-CGUID
    EXCEPTIONS
      ENCRYPTION_ERROR = 1
      DUPLICATE_GUID   = 2
      NOT_AVAILABLE    = 3
      ERROR_MESSAGE    = 5.

CCSECA_CCNUM_MASKING
  CALL FUNCTION 'CCSECA_CCNUM_MASKING'
    EXPORTING
      I_CCNUM        = LS_JHAISZ-CCNUM
    IMPORTING
      E_CCNUM_MASKED = LS_JHAISZ-CCNUM
    EXCEPTIONS
      NOT_AVAILABLE  = 1
      ERROR_MESSAGE  = 5.

CCSECA_CCNUM_DECRYPTION
  CALL FUNCTION 'CCSECA_CCNUM_DECRYPTION'
    EXPORTING
      I_ENCTYPE         = '2'
      I_GUID            = LS_JHAISZ-CGUID
    IMPORTING
      E_CCNUM           = LS_JHAISZ-CCNUM
    EXCEPTIONS
      DECRYPTION_ERROR  = 1
      INVALID_CARD_GUID = 2
      ERROR_MESSAGE     = 5.

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.

DEQUEUE_ALL
  CALL FUNCTION 'DEQUEUE_ALL'.