Skip to content
This repository has been archived by the owner on Dec 17, 2023. It is now read-only.

collector for queued RFCs added #121

Merged
merged 2 commits into from
Jan 29, 2021
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
65 changes: 65 additions & 0 deletions src/zamp_collector/zcl_amp_c_queued_rfcs.clas.abap
Original file line number Diff line number Diff line change
@@ -0,0 +1,65 @@
CLASS zcl_amp_c_queued_rfcs DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .

PUBLIC SECTION.

INTERFACES zif_amp_collector.

PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.



CLASS zcl_amp_c_queued_rfcs IMPLEMENTATION.
METHOD zif_amp_collector~get_metrics.

DATA name TYPE string.

metrics_current_run = zcl_amp_collector_utils=>initialize_metrics( metrics_last_run = metrics_last_run ).

"transaction SMQ1
SELECT
COUNT(*) AS count,
qname AS qname,
dest AS dest,
qstate AS status
FROM trfcqout
INTO TABLE @DATA(outbound_rfcs)
WHERE qrfcdatum = @date_current_run
GROUP BY qname, dest, qstate.

LOOP AT outbound_rfcs ASSIGNING FIELD-SYMBOL(<outbound_rfc>).

name = |{ <outbound_rfc>-qname }_{ <outbound_rfc>-dest }_{ <outbound_rfc>-status }|.

DATA(outbound_metric) = VALUE zif_amp_collector=>metric( metric_key = name metric_value = <outbound_rfc>-count ).
COLLECT outbound_metric INTO metrics_current_run.

ENDLOOP.

"transaction SMQ2
SELECT
COUNT(*) AS count,
qname AS qname,
dest AS dest,
qstate AS status
FROM trfcqin
INTO TABLE @DATA(inbound_rfcs)
WHERE qrfcdatum = @date_current_run
GROUP BY qname, dest, qstate.

LOOP AT inbound_rfcs ASSIGNING FIELD-SYMBOL(<inbound_rfc>).

name = |{ <inbound_rfc>-qname }_{ <inbound_rfc>-dest }_{ <inbound_rfc>-status }|.

DATA(inbound_metric) = VALUE zif_amp_collector=>metric( metric_key = name metric_value = <inbound_rfc>-count ).
COLLECT inbound_metric INTO metrics_current_run.

ENDLOOP.

ENDMETHOD.

ENDCLASS.
16 changes: 16 additions & 0 deletions src/zamp_collector/zcl_amp_c_queued_rfcs.clas.xml
Original file line number Diff line number Diff line change
@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOCLASS>
<CLSNAME>ZCL_AMP_C_QUEUED_RFCS</CLSNAME>
<LANGU>E</LANGU>
<DESCRIPT>amp collector queued RFCs (SMQ1/SMQ2)</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
</asx:values>
</asx:abap>
</abapGit>