ON CTRL-W, F12 ANYWHERE DO:
    MESSAGE "Database:" PDBNAME("dictdb") SKIP
        "OPSYS:" OPSYS SKIP(1)
        "Propath:" SUBSTRING(PROPATH,1,80) SKIP
        "Propath:" SUBSTRING(PROPATH,81,80) SKIP
        "Propath:" SUBSTRING(PROPATH,161,80) SKIP
        "Propath:" SUBSTRING(PROPATH,241,80) SKIP(1)
        "This-procedure:" THIS-PROCEDURE:NAME SKIP
        "Self-name:" SELF:NAME SKIP(1)
        "This Program:" program-name(2) SKIP
        "Prev Program:" program-name(3) SKIP
        "Prev Program:" program-name(4) SKIP
        "Prev Program:" program-name(5) SKIP(1)
        "Default-window:" DEFAULT-WINDOW SKIP
        "Current-window:" CURRENT-WINDOW SKIP
        "Active-window:" ACTIVE-WINDOW SKIP(1)
        "Font:" CURRENT-WINDOW:FONT SKIP
        "Frame-file:" frame-file SKIP
        "Frame-field:" frame-field SKIP
        "Frame-name:" frame-name SKIP
        "Frame-value:" frame-value SKIP(1)
        "Event-type:" LAST-EVENT:EVENT-TYPE SKIP
        "Event-function:" LAST-EVENT:FUNCTION SKIP
        "Event-label:" LAST-EVENT:LABEL SKIP
        VIEW-AS ALERT-BOX.
END.