opo without smi

tony

declaration:

table tfihub002
table ttcibd007
table tttadv130
table tfifam011
table tfifam003

domain tcmcs.str2 pp
domain tcmcs.str11 ss

extern domain tcyesno smi.item,smi.set,smi.foi,smi.both.set,temp.foi
long mm

detail.1:
before.layout:
mm = 0
smi.both.set = tcyesno.no

select fihub002.item,fihub002.iown
from fihub002
where fihub002._index1 = {:tdpur401.item}
selectdo
smi.item = tcyesno.yes
mm = mm + 1
if mm = 1 then
  if fihub002.iown = fihub.invt.flex then
   smi.foi = tcyesno.yes
  else
   smi.foi = tcyesno.no
  endif
else
  if fihub002.iown = fihub.invt.flex then
   temp.foi = tcyesno.yes
  else
   temp.foi =tcyesno.no
  endif
  if smi.foi <> temp.foi then
   smi.both.set = tcyesno.yes
  endif
endif
selectempty
smi.item = tcyesno.no
smi.set = tcyesno.no
smi.foi = tcyesno.no
smi.both.set = tcyesno.no
endselect

if smi.item = tcyesno.yes then
select fihub002.item
from fihub002
where fihub002._index1 = {:tdpur401.item,:tdpur401.otbp}
selectdo
  smi.set = tcyesno.yes
selectempty
  smi.set = tcyesno.no
endselect
endif

select tcibd007.ecpr
from tcibd007
where tcibd007._index1 = {:tdpur401.item}
selectdo

selectempty
tcibd007.ecpr(1) = 0
endselect

pp = tdpur401.acti(1;2)
ss = tdpur401.acti(3;11)

select ttadv130.desc
from ttadv130
where ttadv130._index1 between {:pp,"B50","c","",1,:ss}
                           and {:pp,"B50 ","c ","zzzz",1,:ss}
      and ttadv130._compnr = 000
   AS SET WITH 1 ROWS      
selectdo

selectempty
ttadv130.desc =""
endselect

select fifam011.*
from fifam011
where fifam011._index1 = {:tdpur401.orno,:tdpur401.pono,:tdpur401.sqnb}
selectdo
select fifam003.volu
from fifam003
where fifam003._index1 = {:tdpur401.item,:fifam011.mitm,:fifam011.manu}
       and fifam003.bpid = :tdpur401.otbp
selectdo

selectempty
  fifam003.volu = -50
endselect
selectempty
fifam003.volu = -100
endselect