SAP Reports / Programs

/SSA/DAP SAP ABAP Report - SDCC: Data collection subroutines for APO







/SSA/DAP 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 /SSA/DAP 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.






SUBMIT /SSA/DAP. "Basic submit
SUBMIT /SSA/DAP AND RETURN. "Return to original report after report execution complete
SUBMIT /SSA/DAP VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Title: SDCC: Data collection subroutines for APO


INCLUDES used within this REPORT /SSA/DAP

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:

TSTR_CALC_TIME ** CALL FUNCTION 'TSTR_CALC_TIME' ** EXPORTING ** IV_BEGIN_TIMESTAMP_REQ = NOWSTAMP ** IV_DURATION_INTEGER = ONE_WEEK_AGO_SECONDS ** IV_DIRECTION = '-' ** IMPORTING ** EV_END_TIMESTAMP = WEEKAGOSTAMP.

TSTR_CALC_TIME * CALL FUNCTION 'TSTR_CALC_TIME' * EXPORTING * IV_BEGIN_TIMESTAMP_REQ = NOWSTAMP * IV_DURATION_INTEGER = ONE_WEEK_AGO_SECONDS * IV_DIRECTION = '-' * IMPORTING * EV_END_TIMESTAMP = WEEKAGOSTAMP.

DDIF_TABL_GET * CALL FUNCTION 'DDIF_TABL_GET' * EXPORTING * NAME = CHANAME * IMPORTING * DD02V_WA = DD02V_WA.

DB_EXISTS_TABLE * CALL FUNCTION 'DB_EXISTS_TABLE' * EXPORTING * TABNAME = CHANAME * IMPORTING * SUBRC = SUBRC_LF.

RSDU_INFOCUBE_FACTTABLES * CALL FUNCTION 'RSDU_INFOCUBE_FACTTABLES' * EXPORTING * I_INFOCUBE = LS_TSPLOBKO-ANCID * IMPORTING * E_FFACTTAB = LV_FFACTTAB * EXCEPTIONS * INFOCUBE_ERROR = 1 * INHERITED_ERROR = 2 * OTHERS = 3.

DDIF_TABL_GET * CALL FUNCTION 'DDIF_TABL_GET' * EXPORTING * NAME = LV_FFACTTAB * IMPORTING * DD02V_WA = DD02V_WA.

DB_EXISTS_TABLE * CALL FUNCTION 'DB_EXISTS_TABLE' * EXPORTING * TABNAME = LV_FFACTTAB * IMPORTING * SUBRC = SUBRC_LF.

DDIF_NAMETAB_GET ** CALL FUNCTION 'DDIF_NAMETAB_GET' ** EXPORTING ** TABNAME = LV_FFACTTAB ** ALL_TYPES = GC_TRUE ** EXCEPTIONS ** NOT_FOUND = 1 ** OTHERS = 2.

RFCDES2RFCDISPLAY * CALL FUNCTION 'RFCDES2RFCDISPLAY' * EXPORTING * IMPORT_RFCDES = IT_RFCDES ** AUTHORITY_CHECK = ' ' * IMPORTING * EXPORT_RFCDISPLAY = IT_RFCDISPLAY.

RFC_IP_TO_HOST * CALL FUNCTION 'RFC_IP_TO_HOST' * EXPORTING * RFCIP = IT_RFCDISPLAY-RFCHOST * IMPORTING * RFCHOST = HOSTNAME * EXCEPTIONS * IP_TO_HOST_CONVERSION_ERROR = 1 * .

RFCDES2RFCDISPLAY * CALL FUNCTION 'RFCDES2RFCDISPLAY' * EXPORTING * IMPORT_RFCDES = IT_RFCDES_APO ** AUTHORITY_CHECK = ' ' * IMPORTING * EXPORT_RFCDISPLAY = IT_RFCDISPLAY_APO.

RFC_IP_TO_HOST * CALL FUNCTION 'RFC_IP_TO_HOST' * EXPORTING * RFCIP = IT_RFCDISPLAY_APO-RFCHOST * IMPORTING * RFCHOST = HOSTNAME * EXCEPTIONS * IP_TO_HOST_CONVERSION_ERROR = 1 * .

RFC_SYSTEM_INFO ** CALL FUNCTION 'RFC_SYSTEM_INFO' ** DESTINATION IT_RFCDISPLAY-RFCDEST ** STARTING NEW TASK TASKNAME ** PERFORMING RETURN_RFC_SYSTEM_INFO ON END OF TASK.

PROFILE_FROM_PAHI ** CALL FUNCTION 'PROFILE_FROM_PAHI' ** DESTINATION IT_RFCDISPLAY-RFCDEST ** STARTING NEW TASK TASKNAME ** PERFORMING RETURN_PROFILE_FROM_PAHI ON END OF TASK ** EXPORTING ** SELECT_PARAMETER_TYPE = 'S' ** SELECT_HOSTNAME = WA_PROF_HIST-HOSTNAME ** SELECT_SYSTEMID = WA_PROF_HIST-SYSTEMID ** SELECT_START_DATE = '19000101' *** TABLES *** profile_history = it_prof_hist ** EXCEPTIONS ** COMMUNICATION_FAILURE = 1 ** SYSTEM_FAILURE = 2 ** .

RFC_SYSTEM_INFO ** CALL FUNCTION 'RFC_SYSTEM_INFO' ** DESTINATION IT_RFCDISPLAY-RFCDEST ** STARTING NEW TASK TASKNAME ** PERFORMING RETURN_RFC_SYSTEM_INFO ON END OF TASK.

OCS_GET_INFO ** CALL FUNCTION 'OCS_GET_INFO' ** DESTINATION IT_RFCDISPLAY-RFCDEST ** STARTING NEW TASK TASKNAME ** PERFORMING RETURN_OCS_GET_INFO ON END OF TASK *** IMPORTING *** EV_SAPRL = *** TABLES *** tt_patch = it_patch *** tt_addon = it_addon *** tt_component = it_component *** tt_comp_patch = it_comp_patch ** EXCEPTIONS ** COMMUNICATION_FAILURE = 1 ** SYSTEM_FAILURE = 2 ** .

QRFC_GET_VERSION * CALL FUNCTION 'QRFC_GET_VERSION' * IMPORTING * QVERSION = QRFC_VERSION-QVERSION * QSUPPLEMENT = QRFC_VERSION-QSUPPLEMENT.

RFC_SYSTEM_INFO ** CALL FUNCTION 'RFC_SYSTEM_INFO' ** DESTINATION IT_RFCDISPLAY-RFCDEST ** STARTING NEW TASK TASKNAME ** PERFORMING RETURN_RFC_SYSTEM_INFO ON END OF TASK.

QRFC_GET_VERSION





** CALL FUNCTION 'QRFC_GET_VERSION' ** DESTINATION IT_RFCDISPLAY-RFCDEST ** STARTING NEW TASK TASKNAME ** PERFORMING RETURN_QRFC_VERSION ON END OF TASK *** IMPORTING *** QVERSION = *** QSUPPLEMENT = ** EXCEPTIONS ** COMMUNICATION_FAILURE = 1 ** SYSTEM_FAILURE = 2 ** .

RFC_SYSTEM_INFO ** CALL FUNCTION 'RFC_SYSTEM_INFO' ** DESTINATION IT_RFCDISPLAY-RFCDEST ** STARTING NEW TASK TASKNAME ** PERFORMING RETURN_RFC_SYSTEM_INFO ON END OF TASK.

CIF_ADC_QUEUETYPE_GET ** CALL FUNCTION 'CIF_ADC_QUEUETYPE_GET' ** DESTINATION IT_RFCDISPLAY-RFCDEST ** STARTING NEW TASK TASKNAME ** PERFORMING RETURN_QTYPE_APO ON END OF TASK ** EXPORTING ** IV_LOGSYS = IT_RFCDISPLAY_APO-RFCDEST *** IMPORTING *** ev_queuetype = ** EXCEPTIONS ** COMMUNICATION_FAILURE = 1 ** SYSTEM_FAILURE = 2 ** .

AUTHORITY_CHECK_DATASET * CALL FUNCTION 'AUTHORITY_CHECK_DATASET' * EXPORTING ** PROGRAM = * ACTIVITY = 'READ' * FILENAME = LV_FILENAME * EXCEPTIONS * NO_AUTHORITY * ACTIVITY_UNKNOWN.

/SAPAPO/PFM_DPMASS_GET * CALL FUNCTION '/SAPAPO/PFM_DPMASS_GET' * EXPORTING * IM_START_DATE = LV_START_DATE * IM_START_TIME = LV_START_TIME * IM_JOBNR * = WA_DP_MASSPROC_TS-JOBNR * IMPORTING * EX_DP_MASSPROC = WA_DP_MASSPROC * EX_DP_ENDSTMP = WA_END_STAMP.

/SAPAPO/CTM_PRFLID_GET_PROFILE * CALL FUNCTION '/SAPAPO/CTM_PRFLID_GET_PROFILE' * EXPORTING * IV_PRFLID = LV_CTMPROFILE-PRFLID * IMPORTING * ES_PROFILE = LV_CTMPROFILE * EXCEPTIONS * PROFILE_NOT_FOUND = 1 * OTHERS = 2.

IS_A1S_CONNECTION_SDB * CALL FUNCTION 'IS_A1S_CONNECTION_SDB' * EXPORTING * IV_CON_NAME = IV_CON_NAME * IMPORTING * EV_A1S_CONNECTION = EV_A1S_CONNECTION * EXCEPTIONS * NO_DBSTATE = 1 * NO_DBCON_ENTRY = 2 * SQL_EXECUTE_FAILED = 3.

BP_FIND_JOBS_WITH_PROGRAM ** CALL FUNCTION 'BP_FIND_JOBS_WITH_PROGRAM' ** EXPORTING ** ABAP_PROGRAM_NAME = '/SAPAPO/OM_LVC_OBJECTS' ***" VALUE(ABAP_VARIANT_NAME) LIKE RALDB-VARIANT DEFAULT SPACE ***" VALUE(EXTERNAL_PROGRAM_NAME) LIKE TBTCSTEP-PROGRAM DEFAULT ***" SPACE ** DIALOG = 'N' ** STATUS = 'F' ** TABLES ** JOBLIST = JOBLIST ** EXCEPTIONS ** NO_JOBS_FOUND = 1 ** PROGRAM_SPECIFICATION_MISSING = 2 ** INVALID_DIALOG_TYPE = 3 ** JOB_FIND_CANCELED = 4.

BP_JOB_READ ** CALL FUNCTION 'BP_JOB_READ' ** EXPORTING ** JOB_READ_JOBCOUNT = JOBLIST-JOBCOUNT ** JOB_READ_JOBNAME = JOBLIST-JOBNAME ** JOB_READ_OPCODE = 20 ***" VALUE(JOB_STEP_NUMBER) LIKE TBTCP-STEPCOUNT OPTIONAL ** IMPORTING ** JOB_READ_JOBHEAD = JOBLIST ** TABLES ** JOB_READ_STEPLIST = STEPLIST ***" CHANGING ***" REFERENCE(RET) TYPE I OPTIONAL ** EXCEPTIONS ** INVALID_OPCODE = 1 ** JOB_DOESNT_EXIST = 2 ** JOB_DOESNT_HAVE_STEPS = 3.

RSPO_IRETURN_RAW_DATA ** CALL FUNCTION 'RSPO_IRETURN_RAW_DATA' ** EXPORTING ** RQ = RQ ***" VALUE(LIST_FIRST) LIKE RSPOTYPE-PAGE DEFAULT 1 ***" VALUE(LIST_COUNT) LIKE RSPOTYPE-PAGE DEFAULT 0 ***" VALUE(LIST_END) LIKE RSPOTYPE-MODE DEFAULT ' ' ***" VALUE(OTF_FIRST) LIKE RSPOTYPE-PAGE DEFAULT 1 ***" VALUE(OTF_COUNT) LIKE RSPOTYPE-PAGE DEFAULT 0 ***" VALUE(OTF_END) LIKE RSPOTYPE-MODE DEFAULT ' ' ***" VALUE(SHORT) TYPE C DEFAULT 'X' ***" EXPORTING ***" VALUE(MORE_DATA) LIKE RSPOTYPE-MODE ***" VALUE(COL_HEADER) LIKE RSPOTYPE-PRTCTL ***" VALUE(OTF_HEADER) LIKE ITCOO STRUCTURE ITCOO ***" VALUE(LAST_PAGE) LIKE RSPOTYPE-PAGE ** TABLES ** LINE_BUFFER = LINE_BUFFER ** PAGE_INDEX = PAGE_INDEX ***" LINE_BUFFER2 STRUCTURE RSPO_DS2 OPTIONAL ** EXCEPTIONS ** ERROR = 1.

SEL_SHOW_STAT_STATE_ADA * CALL FUNCTION 'SEL_SHOW_STAT_STATE_ADA' * EXPORTING * CON_NAME = CON_NAME * TABLES * ADA_SHOW_STAT_STATE = IT_DBSTATE * EXCEPTIONS * NO_ENTRY_FOUND = 1 * TABLE_NOT_FOUND = 2 * NO_CONNECTION = 3 * OTHERS = 4.

/SAPAPO/OM_COM_VERSION_GET * CALL FUNCTION '/SAPAPO/OM_COM_VERSION_GET' * IMPORTING * ET_VERSION = IT_COM_VERSION * EXCEPTIONS * OTHERS = 1.

QIWK_GET_ALL * CALL FUNCTION 'QIWK_GET_ALL' * IMPORTING * STATUS = STATUS * LAST_DATE = LAST_DATE * LAST_TIME = LAST_TIME * GROUPNAME = GROUPNAME * ERRMESS = ERRMESS * HOSTID = HOSTID * NACTIVE = NACTIVE * TABLES * QIWKLIST = QIWKLIST.

DBAN_GET_STATE * CALL FUNCTION 'DBAN_GET_STATE' * EXPORTING * IV_CON_NAME = CON_NAME * IMPORTING * EV_STATE = EV_STATE * EXCEPTIONS * OTHERS = 99.

DBAN_GET_AUTO_ACTIONS_STATE * CALL FUNCTION 'DBAN_GET_AUTO_ACTIONS_STATE' * EXPORTING * CON_NAME = CON_NAME * IMPORTING * AUTO_STARTUP = AUTO_STARTUP * FILES_TO_DB = FILES_TO_DB * AGGREGATION = AGGREGATION * AUTO_DELETION_COMP = AUTO_DELETION_COMP * AUTO_DELETION_DB = AUTO_DELETION_DB.

DBAN_GET_DATE_LIST * CALL FUNCTION 'DBAN_GET_DATE_LIST' * EXPORTING * IV_CON_NAME = CON_NAME * IV_FROM_DB = FROM_DB * TABLES * ET_DATE_LIST = ET_DATE_LIST * EXCEPTIONS * NO_DBMCONNECT = 1 * DBMRFC_START_ERROR = 2 * DBMRFC_EXEC_ERROR = 3 * UNKNOWN_ERROR = 4 * OTHERS = 99.

DBAN_GET_DAY_AGGREGATE * CALL FUNCTION 'DBAN_GET_DAY_AGGREGATE' * EXPORTING * CON_NAME = CON_NAME * COMPONENT = WA_DBAN_INFOS * DATE = ET_DATE_LIST-DATUM * IMPORTING * AGGREGATE = AGGREGATE * AGGR_COLUMNSINFO = AGGR_COLUMNSINFO[] * EXCEPTIONS * OTHERS = 99.

DBAN_GET_DATE_LIST * CALL FUNCTION 'DBAN_GET_DATE_LIST' * EXPORTING * IV_CON_NAME = CON_NAME * TABLES * ET_DATE_LIST = ET_DATE_LIST * EXCEPTIONS * NO_DBMCONNECT = 1 * DBMRFC_START_ERROR = 2 * DBMRFC_EXEC_ERROR = 3 * UNKNOWN_ERROR = 4 * OTHERS = 99.

DBAN_GET_FILE_CSV_FAST * CALL FUNCTION 'DBAN_GET_FILE_CSV_FAST' * EXPORTING * CON_NAME = CON_NAME * COMPONENT = WA_DBAN_INFOS * DATE = ET_DATE_LIST-DATUM * IMPORTING * OUTFILE = OUTFILE[] * EXCEPTIONS * OTHERS = 99.

DBAN_GET_COLUMNINFO * CALL FUNCTION 'DBAN_GET_COLUMNINFO' * TABLES * COLUMNSINFO = GT_COLUMNSINFO[] * DATA = OUTFILE[] * EXCEPTIONS * LINE_MISSING = 1 * DIFFERENT_FORMAT = 2 * OTHERS = 3.




GET_SYSTEM_TIMEZONE * CALL FUNCTION 'GET_SYSTEM_TIMEZONE' * IMPORTING * TIMEZONE = TZ.

DBAN_GET_COLUMNINFO * CALL FUNCTION 'DBAN_GET_COLUMNINFO' * TABLES * COLUMNSINFO = GT_COLUMNSINFO[] * DATA = AGG-DATAS[] * EXCEPTIONS * LINE_MISSING = 1 * DIFFERENT_FORMAT = 2 * OTHERS = 3.

BP_FIND_JOBS_WITH_PROGRAM * CALL FUNCTION 'BP_FIND_JOBS_WITH_PROGRAM' * EXPORTING * ABAP_PROGRAM_NAME = IT_ABAP_PROGRAM_NAME-PROGNAME * DIALOG = 'N' * STATUS = IT_STATUS * TABLES * JOBLIST = JOBLIST * EXCEPTIONS * NO_JOBS_FOUND = 1 * PROGRAM_SPECIFICATION_MISSING = 2 * INVALID_DIALOG_TYPE = 3 * JOB_FIND_CANCELED = 4.

TSTR_CALC_DURATION * CALL FUNCTION 'TSTR_CALC_DURATION' * EXPORTING * IV_BEGIN_TIMESTAMP = START_TIM * IV_END_TIMESTAMP = END_TIM * IMPORTING * EV_DURATION_INTEGER = DUR_TIM * EXCEPTIONS * FATAL_ERROR = 1 * TIME_INVALID = 2 * TIME_MISSING = 3 * TSTREAM_NOT_LOADABLE = 4 * TSTREAM_GENERATION_ERROR = 5 * PARAMETER_ERROR = 6 * UNSPECIFIED_ERROR = 7 * OTHERS = 8.

RFC_PING ** CALL FUNCTION 'RFC_PING' ** DESTINATION ** DESTINATION ** EXCEPTIONS ** COMMUNICATION_FAILURE = 97 ** SYSTEM_FAILURE = 98 ** OTHERS = 1.

RZL_SLEEP ** CALL FUNCTION 'RZL_SLEEP' ** EXPORTING ** SECONDS = 5 ** EXCEPTIONS ** ARGUMENT_ERROR = 1 ** OTHERS = 2.

RZL_SLEEP ** CALL FUNCTION 'RZL_SLEEP' ** EXPORTING ** SECONDS = RESTSECS ** EXCEPTIONS ** ARGUMENT_ERROR = 1 ** OTHERS = 2.

LC_GET_SINGLE_PARAMETER_DBMCLI * CALL FUNCTION 'LC_GET_SINGLE_PARAMETER_DBMCLI' * EXPORTING * CON_NAME = CON_NAME * PARAM_NAME = 'KERNELVERSION' * USE_DBMRFC = USE_DBMRFC * IMPORTING * PARAM_VALUE = LC_KERNEL_VERSION * TABLES * ACTION_PROTOCOL = ACTIONPROT * EXCEPTIONS * OTHERS = 99.

DD_EXIST_TABLE * CALL FUNCTION 'DD_EXIST_TABLE' * EXPORTING * TABNAME = TABNAME * STATUS = 'A' * IMPORTING * SUBRC = SUBRC * EXCEPTIONS * OTHERS = 1.

TH_SERVER_LIST * CALL FUNCTION 'TH_SERVER_LIST' ** EXPORTING ** SERVICES = 255 * TABLES * LIST = SERVERLIST * EXCEPTIONS * NO_SERVER_LIST = 1 * OTHERS = 2.

SAPWL_WORKLOAD_GET_STATISTIC * CALL FUNCTION 'SAPWL_WORKLOAD_GET_STATISTIC' * EXPORTING * PERIODTYPE = 'W' ** HOSTID = * STARTDATE = INPUT_DATE * INSTANCE = INSTANCE_NAME * TABLES * ACCOUNTING_STATISTIC_TASKTYPE = STATISTICS_DATA * EXCEPTIONS * UNKNOWN_PERIODTYPE = 1 * NO_DATA_FOUND = 2 * OTHERS = 3.

SAPWL_WORKLOAD_GET_STATISTIC * CALL FUNCTION 'SAPWL_WORKLOAD_GET_STATISTIC' * EXPORTING * PERIODTYPE = 'W' * HOSTID = HOST_NAME * STARTDATE = INPUT_DATE ** INSTANCE = instance_name * TABLES * ACCOUNTING_STATISTIC_TASKTYPE = STATISTICS_DATA * EXCEPTIONS * UNKNOWN_PERIODTYPE = 1 * NO_DATA_FOUND = 2 * OTHERS = 3.

GET_DBMCONNECT_INFO_SDB * CALL FUNCTION 'GET_DBMCONNECT_INFO_SDB' * EXPORTING * CON_NAME = CON_NAME * IMPORTING * DBSERVER = DBNODE * DBNAME = DBNAME * SYSID = SYSID * PROFILE = PROFILE * EXCEPTIONS * NO_DBCON_ENTRY = 1 * NO_DBCONUSR_ENTRY = 2 * GET_PROFILE_ERROR = 3 * NO_STRING_ENTRY = 4 * LC_SPLIT_ERROR = 5 * GET_PROFILE_ERROR_NO_DBCON = 6 * OTHERS = 7.

DBM_GETF * CALL FUNCTION 'DBM_GETF' DESTINATION 'SAPDB_DBM' * EXPORTING * DBMID = DBMID * DBNODE = DBNODE * DBNAME = DBNAME ** dbuser = dbuser * SYSID = SYSID * CONN = CON_NAME * PROFILE = PROFILE * DBMCMD = DBMCMD ** xuser = xuser * IMPORTING * SYSRC = SYSRC * DBMRC = DBMRC * ERRTXT = ERRTXT * TABLES * TANSW = LC_FILE_TAB * EXCEPTIONS * COMMUNICATION_FAILURE = 1 MESSAGE MSG_TEXT * SYSTEM_FAILURE = 2 MESSAGE MSG_TEXT.



Contribute (Add Comments)

Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.

The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.

This will then be available for everyone to easily find by simply searching on the report name /SSA/DAP or its description.