PreviousNextIndex

SAVE CACHE statement

Saves the schema cache of a database to an operating system file. Subsequent sessions can then share the same cache by using the Schema Cache File (-cache) parameter.

Syntax

SAVE CACHE  
    { CURRENT | COMPLETE } 
    { database-name | VALUE ( char-expr ) } 
  TO 
    { pathname |  VALUE ( char-expr ) } 
[ NO-ERROR ] 

CURRENT
COMPLETE
database-name
pathname
VALUE (char-expr)
NO-ERROR
Example

This procedure saves the complete schema cache for each database that you specify in the current working directory, and displays any error messages associated with connecting or saving the cache:

r-schcsh.p
DEFINE VARIABLE db-name AS CHARACTER NO-UNDO FORMAT "x(12)" INITIAL ?. 
DEFINE VARIABLE icnt    AS INTEGER   NO-UNDO. 
DO WHILE db-name <> "": 
  SET db-name LABEL "Database Name"  
    WITH FRAME A SIDE-LABELS TITLE "Save Cache" VIEW-AS DIALOG-BOX. 
  IF db-name <> "" THEN  
    CONNECT VALUE(db-name) -1 NO-ERROR. 
  ELSE LEAVE. 
  IF NOT ERROR-STATUS:ERROR THEN DO: 
    SAVE CACHE COMPLETE VALUE(db-name) TO VALUE(db-name + ".csh") NO-ERROR. 
    IF NOT ERROR-STATUS:ERROR THEN 
      MESSAGE "Saved schema cache for" db-name "in" db-name + ".csh.". 
    ELSE DO: 
      BELL. 
      DO icnt = 1 TO ERROR-STATUS:NUM-MESSAGES: 
        MESSAGE ERROR-STATUS:GET-MESSAGE(icnt) VIEW-AS ALERT-BOX. 
      END. 
    END. 
  END. 
  ELSE DO: 
    BELL. 
    DO icnt = 1 TO ERROR-STATUS:NUM-MESSAGES: 
      MESSAGE ERROR-STATUS:GET-MESSAGE(icnt) VIEW-AS ALERT-BOX. 
    END. 
  END. 
  DISCONNECT VALUE(db-name) NO-ERROR. 
END. 

Notes
See also

CONNECT statement, ERROR-STATUS system handle


OpenEdge Release 10.2B
Copyright © 2009 Progress Software Corporation
PreviousNextIndex