with Code39Checksum as (
select '1' as letter, 1 as code from dual union all 
select 'A' as letter, 10 as code from dual union all 
select 'K' as letter, 20 as code from dual union all
select 'U' as letter, 30 as code from dual union all
select '2' as letter, 2 as code from dual union all
select 'B' as letter, 11 as code from dual union all
select 'L' as letter, 21 as code from dual union all
select 'V' as letter, 31 as code from dual union all
select '3' as letter, 3 as code from dual union all
select 'C' as letter, 12 as code from dual union all
select 'M' as letter, 22 as code from dual union all
select 'W' as letter, 32 as code from dual union all
select '4' as letter, 4 as code from dual union all
select 'D' as letter, 13 as code from dual union all
select 'N' as letter, 23 as code from dual union all
select 'X' as letter, 33 as code from dual union all
select '5' as letter, 5 as code from dual union all
select 'E' as letter, 14 as code from dual union all
select 'O' as letter, 24 as code from dual union all
select 'Y' as letter, 34 as code from dual union all
select '6' as letter, 6 as code from dual union all
select 'F' as letter, 15 as code from dual union all
select 'P' as letter, 25 as code from dual union all
select 'Z' as letter, 35 as code from dual union all
select '7' as letter, 7 as code from dual union all
select 'G' as letter, 16 as code from dual union all
select 'Q' as letter, 26 as code from dual union all
select '-' as letter, 36 as code from dual union all
select '8' as letter, 8 as code from dual union all
select 'H' as letter, 17 as code from dual union all
select 'R' as letter, 27 as code from dual union all
select '.' as letter, 37 as code from dual union all
select '9' as letter, 9 as code from dual union all
select 'I' as letter, 18 as code from dual union all
select 'S' as letter, 28 as code from dual union all
select ' ' as letter, 38 as code from dual union all
select '0' as letter, 0 as code from dual union all
select 'J' as letter, 19 as code from dual union all
select 'T' as letter, 29 as code from dual union all
select '+' as letter, 41 as code from dual union all
select '/' as letter, 40 as code from dual union all
select '$' as letter, 39 as code from dual union all
 select '%' as letter, 42 as code from dual
),
SplitBarcodeByLetter as 
 ( select substr(:PBarCode,level,1) as letter
 , level as lvl
   from (
 select 0 from dual
 minus
 select 1 from dual)
 connect by level <= length(:PBarCode)
  )
select :PBarCode as barcode, c2.letter as chckdgt
  from  Code39Checksum c
  join SplitBarcodeByLetter s on ( c.letter = s.letter )
  join Code39Checksum c2 on (1=1)
 where  1=1
   group by c2.code ,c2.letter
  having mod(sum(c.code),43) = c2.code

979226K007022 chckdgt N
979226K006511 chckdgt P
979226K007023 chckdgt O
979226K007016 chckdgt Q