Logic for this comparision of character type operands.

Question

Source field name: ZDCNFG
Target Info Objects:
ZDVD59
ZDVD10
ZDVD14
ZDVD18
ZDVD25
ZDVD50
Scenario1: If ZDCNFG = 2(10). 2 is quantity and 10 in brackets is part number (DVD format). So I will have to update the quantity respective field as shown below.
ZDVD59: 0
ZDVD10: 2 -->updated 10 part
ZDVD14: 0
ZDVD18: 0
ZDVD25: 0
ZDVD50: 0
Scenario2: If ZDCNFG: 2(25)3(50)
ZDVD59: 0
ZDVD10: 0
ZDVD14: 0
ZDVD18: 0
ZDVD25: 2 --> Updated
ZDVD50: 3 --> Updated
Scenario3: If ZDCNFG: 2(5)3(9) ---This is exceptional case. If we have 5 and 9 then add and assign 5 to ZDVD59 rest all are 0.
ZDVD59: 5  Sum of DVD5 and DVD9
ZDVD10: 0
ZDVD14: 0
ZDVD18: 0
ZDVD25: 0
ZDVD50: 0
Quantity is the value which is out side the brackets. For e.g. in 10(5), 10 is the quantity.
Can any one give me a logic for this.
I was trying with CA  CS etc..but no charm.
Thanks
Kiran

Answer 1

Kiran,
This should work
parameters: zdcnfg(50).
data: zdvd59(3),
zdvd10(3),
zdvd14(3),
zdvd18(3),
zdvd25(3),
zdvd50(3),
rcnt type i,
roff type i,
temp type i.
data: static(50).
start-of-selection.
  static = zdcnfg.
  replace all occurrences of '(5)' in zdcnfg with '+' replacement count rcnt.
  if rcnt ge 1.
    zdcnfg = static.
    do rcnt times.
      replace first occurrence of '(5)' in zdcnfg with '+' replacement offset roff.
      temp = roff - 1.
      add zdcnfg+temp(1) to zdvd59.
    enddo.
  endif.
  zdcnfg = static.
  clear: roff, rcnt, temp.
  replace all occurrences of '(9)' in zdcnfg with '+' replacement count rcnt.
  if rcnt ge 1.
    zdcnfg = static.
    do rcnt times.
      replace first occurrence of '(9)' in zdcnfg with '+' replacement offset roff.
      temp = roff - 1.
      add zdcnfg+temp(1) to zdvd59.
    enddo.
  endif.
    zdcnfg = static.
  clear: roff, rcnt, temp.
  replace all occurrences of '(10)' in zdcnfg with '+' replacement count rcnt.
  if rcnt ge 1.
    zdcnfg = static.
    do rcnt times.
      replace first occurrence of '(10)' in zdcnfg with '+' replacement offset roff.
      temp = roff - 1.
      add zdcnfg+temp(1) to zdvd10.
    enddo.
  endif.
    zdcnfg = static.
  clear: roff, rcnt, temp.
  replace all occurrences of '(14)' in zdcnfg with '+' replacement count rcnt.
  if rcnt ge 1.
    zdcnfg = static.
    do rcnt times.
      replace first occurrence of '(14)' in zdcnfg with '+' replacement offset roff.
      temp = roff - 1.
      add zdcnfg+temp(1) to zdvd14.
    enddo.
  endif.
    zdcnfg = static.
  clear: roff, rcnt, temp.
  replace all occurrences of '(18)' in zdcnfg with '+' replacement count rcnt.
  if rcnt ge 1.
    zdcnfg = static.
    do rcnt times.
      replace first occurrence of '(18)' in zdcnfg with '+' replacement offset roff.
      temp = roff - 1.
      add zdcnfg+temp(1) to zdvd18.
    enddo.
  endif.
    zdcnfg = static.
  clear: roff, rcnt, temp.
  replace all occurrences of '(25)' in zdcnfg with '+' replacement count rcnt.
  if rcnt ge 1.
    zdcnfg = static.
    do rcnt times.
      replace first occurrence of '(25)' in zdcnfg with '+' replacement offset roff.
      temp = roff - 1.
      add zdcnfg+temp(1) to zdvd25.
    enddo.
  endif.
    zdcnfg = static.
  clear: roff, rcnt, temp.
  replace all occurrences of '(50)' in zdcnfg with '+' replacement count rcnt.
  if rcnt ge 1.
    zdcnfg = static.
    do rcnt times.
      replace first occurrence of '(50)' in zdcnfg with '+' replacement offset roff.
      temp = roff - 1.
      add zdcnfg+temp(1) to zdvd50.
    enddo.
  endif.