boris.p
| 1 |
|
|---|---|
| 2 |
DEFINE VARIABLE db-name AS CHARACTER NO-UNDO FORMAT "x(12)" INITIAL ?. |
| 3 |
DEFINE VARIABLE icnt AS INTEGER NO-UNDO. |
| 4 |
|
| 5 |
DO WHILE db-name <> "": |
| 6 |
SET db-name LABEL "Database Name" |
| 7 |
WITH FRAME A SIDE-LABELS TITLE "SSSSSSSave Cache" VIEW-AS DIALOG-BOX. |
| 8 |
IF db-name <> "" THEN |
| 9 |
CONNECT VALUE(db-name) -1 NO-ERROR. |
| 10 |
ELSE LEAVE. |
| 11 |
|
| 12 |
IF NOT ERROR-STATUS:ERROR THEN DO: |
| 13 |
SAVE CACHE COMPLETE VALUE(db-name) TO VALUE(db-name + ".csh") NO-ERROR. |
| 14 |
IF NOT ERROR-STATUS:ERROR THEN |
| 15 |
MESSAGE "SSSSSSSSSSaved schema cache for" db-name "in" db-name + ".csh.". |
| 16 |
ELSE DO: |
| 17 |
BELL. |
| 18 |
DO icnt = 1 TO ERROR-STATUS:NUM-MESSAGES: |
| 19 |
MESSAGE ERROR-STATUS:GET-MESSAGE(icnt) VIEW-AS ALERT-BOX. |
| 20 |
END. |
| 21 |
END. |
| 22 |
END. |
| 23 |
ELSE DO: |
| 24 |
BELL. |
| 25 |
DO icnt = 1 TO ERROR-STATUS:NUM-MESSAGES: |
| 26 |
MESSAGE ERROR-STATUS:GET-MESSAGE(icnt) VIEW-AS ALERT-BOX. |
| 27 |
END. |
| 28 |
END. |
| 29 |
DISCONNECT VALUE(db-name) NO-ERROR. |
| 30 |
END. |