RFUPESCSBI03_1 SAP ABAP INCLUDE - Subroutines common handling for CSB19_an5

RFUPESCSBI03_1 is a standard ABAP INCLUDE 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 RFUPESCSBI03_1 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 RFUPESCSBI03_1

No INCLUDES are used within this REPORT code!

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:

FILE_VALIDATE_NAME
    CALL FUNCTION 'FILE_VALIDATE_NAME'              "<< Note #1782742
      EXPORTING
        logical_filename           = 'FI-CA-DTA-NAME'
      CHANGING
        physical_filename          = PAR_FIL1
      EXCEPTIONS
        logical_filename_not_found = 1
        validation_failed          = 2
        OTHERS                     = 3.

WS_QUERY
    CALL FUNCTION 'WS_QUERY'
         EXPORTING
              FILENAME = PAR_FIL1
              QUERY    = 'FE'  "abbrev. for 'file exists'

FILE_VALIDATE_NAME
    CALL FUNCTION 'FILE_VALIDATE_NAME'              "<< Note #1782742
      EXPORTING
        logical_filename           = 'FI-CA-DTA-NAME'
      CHANGING
        physical_filename          = PAR_FIL1
      EXCEPTIONS
        logical_filename_not_found = 1
        validation_failed          = 2
        OTHERS                     = 3.

GUI_UPLOAD
      CALL FUNCTION 'GUI_UPLOAD'
           EXPORTING
                FILENAME   =  UC_FILENAME
                FILETYPE   = 'ASC'
           IMPORTING
                FILELENGTH = UP_FILELENGTH
           TABLES
                DATA_TAB   = UP_810
           EXCEPTIONS
                OTHERS.

WS_UPLOAD
*      CALL FUNCTION 'WS_UPLOAD'
*           EXPORTING
*                FILENAME   = PAR_FIL1
*                FILETYPE   = 'ASC'
*           IMPORTING
*                FILELENGTH = UP_FILELENGTH
*           TABLES
*                DATA_TAB   = UP_810
*           EXCEPTIONS
*                OTHERS.

WS_FILENAME_GET
    CALL FUNCTION 'WS_FILENAME_GET'
         EXPORTING
              DEF_FILENAME = ' '
              DEF_PATH     = ' '
              MASK         = ',*.*,*.*.'

WS_QUERY
  CALL FUNCTION 'WS_QUERY'
       EXPORTING
            FILENAME = UP_OUT
            QUERY    = 'DE'
       IMPORTING
            RETURN   = UP_RET
       EXCEPTIONS
            OTHERS.

DYNP_VALUES_READ
  CALL FUNCTION 'DYNP_VALUES_READ'
       EXPORTING
            DYNAME             = L_REPID
            DYNUMB             = '1000'
            TRANSLATE_TO_UPPER = ' '
       TABLES
            DYNPFIELDS         = UP_TAB
       EXCEPTIONS
            OTHERS.

CONVERT_YEAR_WITH_THRESHOLD
  CALL FUNCTION 'CONVERT_YEAR_WITH_THRESHOLD'
    EXPORTING
      INPUT  = NUMC02
    IMPORTING
      OUTPUT = NUMC04.

BANK_ACCOUNT_CHECK
  CALL FUNCTION 'BANK_ACCOUNT_CHECK'
    EXPORTING
      BANK_ACCOUNT     = HELP_ACC
      BANK_CONTROL_KEY = HELP_CD
      BANK_COUNTRY     = 'ES'
      BANK_NUMBER      = HELP_BANK
    EXCEPTIONS
      OTHERS           = 01.

BUS_DI_DATA_INITIALIZE
  CALL FUNCTION 'BUS_DI_DATA_INITIALIZE'
       EXPORTING
            I_STRUCTURE = 'FKKVK_S_DI'
       IMPORTING
            E_DATA      = L_FKKVK_S_DI_INI
       EXCEPTIONS
            OTHERS      = 3.

BUS_DI_DATA_INITIALIZE
  CALL FUNCTION 'BUS_DI_DATA_INITIALIZE'
       EXPORTING
            I_STRUCTURE = 'FKKVKP_S_DI'
       IMPORTING
            E_DATA      = L_FKKVKP_S_DI_INI
       EXCEPTIONS
            OTHERS      = 3.

VKK_FICA_DI
  CALL FUNCTION 'VKK_FICA_DI'
    EXPORTING
      I_AKTYP     = '02'
      I_PARTNER   = WA_FKKVKP-GPART
      I_VKONTO    = WA_FKKVKP-VKONT
      I_VKTYP     = '01'
      I_APPLK     = 'R'
      I_FKKVK_DI  = FKKVK_S_DI
      I_XUPDTASK  = ' '
      I_XCOMMIT   = 'X'
      I_XCHDOC    = 'X'
*      I_VALDT     = ''
    IMPORTING
      E_XERROR    = GV_ERROR
    TABLES
      T_FKKVKP_DI = T_FKKVKP_S_DI
      T_MESSAGE   = GT_MESSAGE.