GeMIS_WEB/GUI/incl/datdataavailable.i

    DEFINE INPUT PARAMETER pcRelative AS CHARACTER NO-UNDO.

    /* Code placed here will execute PRIOR to standard behavior. */

    RUN SUPER( INPUT pcRelative).

    IF NOT fData THEN RETURN.

    FIND FIRST tRowObject.
    IF AVAILABLE rowObject THEN BUFFER-COPY rowObject TO tRowObject.
    ELSE DO:
        EMPTY TEMP-TABLE tRowObject.
        CREATE  tRowObject.
    END.
    fData = FALSE.