SAP BW Create SPO via BAdI - Part 2

1
2
3
4
5
6
7
8

method IF_RSLPO_BADI_PARTITIONING~GET_T_SPO.
  DATA: l_spo TYPE rslponame.
  
  "Return a table with names of supported BAdI SPOs.
  SELECT SPONAME from ZSPOINFOPROV into l_spo.
    APPEND l_spo TO r_t_spo.
  ENDSELECT.
endmethod.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

method IF_RSLPO_BADI_PARTITIONING~GET_T_PART.

DATA: l_cnt TYPE i,
      l_posit TYPE i VALUE 1,
      l_id TYPE c LENGTH 2,
      l_s_part TYPE rslpo_badi_s_part,
      "ZSPOINFOPROV Variable
      l_it_spoinfoprov TYPE TABLE OF ZSPOINFOPROV,
      l_wa_spoinfoprov TYPE ZSPOINFOPROV.

SELECT * from ZSPOINFOPROV into CORRESPONDING FIELDS OF TABLE L_IT_SPOINFOPROV where SPONAME = I_SPO.

Loop at L_IT_SPOINFOPROV into L_WA_SPOINFOPROV.
  SELECT COUNT(*) from zspocriteria into l_cnt where PATTERNID = L_WA_SPOINFOPROV-PATTERNID1.
    WHILE l_posit LE l_cnt.
      UNPACK l_posit to l_id.
      l_s_part-IDPART = l_id.
      l_s_part-POSIT = l_posit.
      APPEND l_s_part TO r_t_part.
      l_posit = l_posit + 1.
    ENDWHILE.
    CLEAR l_posit.
  ENDLOOP.
  
endmethod. 

1

"Coding will follow later

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

method IF_RSLPO_BADI_PARTITIONING~GET_T_PART_CRIT.

DATA: l_id TYPE c length 2,
      l_s_part_crit TYPE rslpo_badi_s_part_crit,
      "SPOCRITERIA Variable
      l_it_criteria TYPE TABLE OF ZSPOCRITERIA,
      l_wa_criteria TYPE ZSPOCRITERIA,
      "ZSPOINFOPROV Variable
      l_it_spoinfoprov type table of zspoinfoprov,
      l_wa_spoinfoprov type zspoinfoprov.

SELECT * from ZSPOINFOPROV into CORRESPONDING FIELDS OF TABLE L_IT_SPOINFOPROV where SPONAME = I_SPO.

Loop at L_IT_SPOINFOPROV into L_WA_SPOINFOPROV.
  SELECT * from ZSPOCRITERIA into CORRESPONDING FIELDS OF TABLE l_it_criteria where patternid = L_WA_SPOINFOPROV-PATTERNID1 or patternid = l_wa_spoinfoprov-patternid2 or patternid = l_wa_spoinfoprov-patternid3 or patternid = l_wa_spoinfoprov-patternid4.

  LOOP AT l_it_criteria INTO l_wa_criteria.
    SELECT INFOOBJECT FROM ZSPOPATTERN into l_s_part_crit-IOBJNM where patternid = l_wa_criteria-patternid.
      If L_WA_CRITERIA-HIGHVALUE NE ''.
        l_s_part_crit-opt = 'BT'.
      ELSE.
        l_s_part_crit-opt = 'EQ'.
      ENDIF.
      UNPACK L_WA_CRITERIA-PARTGROUP to l_id.
      l_s_part_crit-IDPART = l_id.
      l_s_part_crit-low = l_wa_criteria-LOWVALUE.
      l_s_part_crit-high = l_wa_criteria-HIGHVALUE.
      l_s_part_crit-posit = L_WA_CRITERIA-PARTGROUP.
      APPEND l_s_part_crit TO r_t_part_crit.
    ENDSELECT.
  ENDLOOP.
ENDLOOP.

endmethod.

1

"Coding will follow later

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

method IF_RSLPO_BADI_PARTITIONING~GET_T_PART_DTP.

DATA: l_posit TYPE i VALUE 1,
      l_cnt TYPE i,
      l_id TYPE c LENGTH 2,
      l_s_part_dtp type rslpo_badi_s_part_dtp,
      "ZSPODTP Variable
      l_it_dtp type table of zspodtp,
      l_wa_dtp type zspodtp,
      "ZSPOINFOPROV Variable
      l_it_spoinfoprov type table of zspoinfoprov,
      l_wa_spoinfoprov type zspoinfoprov.

SELECT * from ZSPOINFOPROV into CORRESPONDING FIELDS OF TABLE L_IT_SPOINFOPROV where SPONAME = I_SPO.

Loop at L_IT_SPOINFOPROV into L_WA_SPOINFOPROV.

  SELECT COUNT(*) FROM ZSPOCRITERIA into l_cnt where PATTERNID = L_WA_SPOINFOPROV-PATTERNID1.
  SELECT * from ZSPODTP into CORRESPONDING FIELDS OF TABLE l_it_dtp where SPONAME = I_SPO.

  LOOP at l_it_dtp into l_wa_dtp.
    l_s_part_dtp-DTPTEMPLATE = l_wa_dtp-DTPTEMPLATE.
    l_s_part_dtp-OBJNM = l_wa_dtp-OBJNAME.
    l_s_part_dtp-LOGSYS = l_wa_dtp-LOGSYS.
    l_s_part_dtp-TLOGO = l_wa_dtp-OBJTYPE.
    WHILE l_posit LE l_cnt.
      UNPACK l_posit to l_id.
      l_s_part_dtp-IDPART = l_id.
      APPEND l_s_part_dtp TO r_t_part_dtp.
      l_posit = l_posit + 1 .
    ENDWHILE.
  ENDLOOP.
ENDLOOP.

endmethod.