Tunti meni, mutta onnistuinpa kirjoittamaan yhden SQL lauseen :) EI ollut sieltä helpoimmasta päästä, kiitos SQL/400, DB2 ja iki-ihanat juliaaniset päivämääräformaatit.
Tältä se nyt näyttää:
update F5811 set
QBÖPC=' 2351',
QBUSER='LIVAKIR',
QBPID='SQLUPDATE',
QBUPMJ=cast(cast(100 cast(substr(cast(curdate() as char(10)), 7, 2) as int) as char(3))
concat case length(trim(cast(dayofyear(curdate()) as char(3))))
when 1 then '00' concat cast(dayofyear(curdate()) as char(3))
when 2 then '0' concat cast(dayofyear(curdate()) as char(3))
when 3 then '' concat cast(dayofyear(curdate()) as char(3))
end as int),
QBTDAY=cast(substr(cast(curtime() as char(10)), 1, 2)
concat substr(cast(curtime() as char(10)), 4, 2)
concat substr(cast(curtime() as char(10)), 7, 2) as int)
where
QBMCU=' UUSIMAA' and
QBÖPC=' 2129' and
QBÖSVT='RES' and
QBÖVET='REL' and
QBÖWTY='00100' and
QBÖSA in
(select QAÖSA from F5801 where QAÖSTR='106')
nimim. functionmaster