UpdateLibild.p 373 B

1234567891011121314
  1. DEF TEMP-TABLE tLiBild LIKE LiBild.
  2. INPUT FROM 'C:\Entwicklung\DeltaDatenbanken\Ge_MIS_Wiederkehr\libild.d' NO-MAP NO-CONVERT.
  3. REPEAT TRANSACTION ON STOP UNDO, LEAVE:
  4. CREATE tLiBild.
  5. IMPORT tLiBild.
  6. END.
  7. INPUT CLOSE.
  8. FOR EACH tLibild:
  9. FIND LiBild OF tLiBild NO-ERROR.
  10. IF NOT AVAILABLE LiBild THEN CREATE LiBild.
  11. BUFFER-COPY tLiBild TO LiBild.
  12. END.