insert into supermag.smpostqueue (enqtime, enqseq, target, objtype, objid, paramint, paramstr, transflags, virtpack, commentary) select sysdate, :postindex, null, 'DC', code, null, null, 0, null, 'discprog1' from supermag.smdiscpers where code=:cardcode
insert into supermag.smpostqueue
(enqtime, enqseq, target, objtype, objid, paramint, paramstr, transflags, virtpack, commentary)
select sysdate, smpostqueueseq.NEXTVAL, null, 'DC', code, null, null, 0, null, 'discprog1'
from supermag.smdiscpers where code=:cardcode