GeMIS_WEB/GUI/Tools/UpdateFemeld.p

DEFINE TEMP-TABLE tFemeld    LIKE Femeld .
DEFINE TEMP-TABLE tFehlwerte LIKE Fehlwerte.

INPUT FROM 'Femeld.d' NO-MAP NO-CONVERT.
REPEAT TRANSACTION ON STOP UNDO, LEAVE:
    CREATE  tFemeld.
    IMPORT tFemeld.
END.
INPUT CLOSE.

FOR EACH tFemeld:
    IF  tFemeld.Sprcd = ?    OR
        tFemeld.Sprcd = 0    THEN NEXT.
    IF  tFemeld.Fenr  < 1000 THEN NEXT.
    FIND Femeld OF tFemeld NO-ERROR.
    IF NOT AVAILABLE Femeld THEN CREATE Femeld.
    BUFFER-COPY tFemeld TO Femeld.
END.

INPUT FROM 'Fehlwerte.d' NO-MAP NO-CONVERT.
REPEAT TRANSACTION ON STOP UNDO, LEAVE:
    CREATE  tFehlwerte.
    IMPORT tFehlwerte.
END.
INPUT CLOSE.

FOR EACH tFehlwerte:
    FIND Fehlwerte OF tFehlwerte NO-ERROR.
    IF NOT AVAILABLE Fehlwerte THEN CREATE Fehlwerte.
    BUFFER-COPY tFehlwerte TO Fehlwerte.
END.