Code: |
SELECT OM.ORDNUM, OM.ORDTYP, OM.PROCESSCOMPIND1, OM.PROCESSCOMPIND2, OC.ORDNUM, OC.MSGNUM FROM A0.OCORDHV OM,A0.OMSGV OC WHERE OM.ORDNUM = OC.ORDNUM AND OC.MSGNUM = :WS-MSGNUM-VAL AND OM.ORDTYP = :WS-ORDTYP-VAL AND OM.PROCESSCOMPIND1 = :WS-COMPIND1-VAL AND OM.PROCESSCOMPIND2 = :WS-COMPIND2-VAL FOR UPDATE OF PROCESSDTE7,PROCESSCOMPIND2 END-EXEC. |
Code: |
EXEC SQL UPDATE A0.OCORDHV SET PROCESSCOMPIND2 = :WS-COMPIND1-VAL, PROCESSDTE7 = :WS-CREATEDTE-OM WHERE CURRENT OF ABC_CURS END-EXEC |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours