Element Kinetic and Strain energy per set using DMAP

[mechan12]

I have a simple 103 solution in which I add a DMAP. I am new to DMAP. I figured out how to insert some dmap code in a 103. My goal is to generate a new table with the total energy for each element set for each mode. Read again: for each element set. For both the Strain and the Kinetic energy. I want to do it in DMAP because it's possible.

SOL 103
DIAG 8, 14, 47
INCLUDE 'modalsimple.dmap'
CEND
SET 3= 1
SET 5= 1
SET 6= 2,3
SUBCASE 1
SUBTITLE = MODES
METHOD(STRUCTURE)=1
  ECHO=NONE
  SPC=2
  DISP=ALL
  ESE=ALL
  EKE=ALL
BEGIN BULK
...
EIGRL          1                      10                            MASS
SPC            2       1  123456      0.
ENDDATA

my dmap contains this:

COMPILE SEDRCVR
ALTER 'AFTER ELEMENT STRESS'
PARAML ONRGY1//'PRESENCE'////S,N,NONRGY1 $
MESSAGE //'my DMAP message::NONRGY1:'/NONRGY1 $
IF (NONRGY1<>-1) THEN
$ this has error at run time: 
DBC ONRGY1//'OESE'/'OEKE'/////////////SEID//S,N,CP/APP $ POSTU
MESSAGE //'DMAP:: APP:'/APP $
ELSE
  MESSAGE //'my DMAP message:: ONRGY1 TABLE NOT AVAILABLE:'/NONRGY1 $
ENDIF

I am not sure how to:
- retrieve the table with the energy using the DBC (I need to grab the OESE and the OEKE tables)
- filter the energy by element set, possibly doing directly the summation of all the energy per element set in a new table.

Mechan12