Hallo GG,

ohne das jetzt getestet zu haben, denke ich mal in etwa so
PHP-Code:
Update x/ipdocim a
Set
(a.imbelda.imadrn ) = 
    (
Select '20' concat SubStr(Digits(b.akkdt2), 12
                 
concat SubStr(Digits(b.akkdt2), 32)
                 
concat SubStr(Digits(b.akkdt2), 52),
             
akkto
        from xxx
/ako01pf b where a.imbeln b.akanr and b.akkdt2 130101)
where imbeln between 148125 and 148129
  
and imbela 'AS'
  
and imbelj <> 13
  
and imbeln in (Select akanr from xxx/ako01pf where akkdt2 130101
Gruß
Ronald