      * OPENSAVE.DEF - Definitions for C$OPENSAVEBOX routine
      * Last modified: 06-May-1996 - TDC; 10-May-2000 PJE.

      * Copyright (c) 1996-2007 by Acucorp, Inc.  Users of ACUCOBOL
      * may freely include this file in their COBOL source code.

      * Opcodes

       78  OPENSAVE-SUPPORTED                  VALUE 1.
       78  OPENSAVE-OPEN-BOX                   VALUE 2.
       78  OPENSAVE-SAVE-BOX                   VALUE 3.
       78  OPENSAVE-BROWSE-FOLDER              VALUE 4.

      * Error return values

       78  OPNSAVERR-UNSUPPORTED               VALUE 0.
       78  OPNSAVERR-CANCELLED                 VALUE -1.
       78  OPNSAVERR-NO-MEMORY                 VALUE -2.
       78  OPNSAVERR-NAME-TOO-LARGE            VALUE -3.

       01  OPENSAVE-DATA.
           03  OPNSAV-FILENAME                 PIC X(256).
           03  OPNSAV-FLAGS                    PIC 9(4) COMP-X VALUE 0.
           03  OPNSAV-DEFAULT-EXT              PIC X(12).
           03  OPNSAV-TITLE                    PIC X(80).
           03  OPNSAV-FILTERS                  PIC X(512).
           03  OPNSAV-DEFAULT-FILTER           PIC 9(4) COMP-X VALUE 0.
           03  OPNSAV-DEFAULT-DIR              PIC X(128).
           03  OPNSAV-BASENAME                 PIC X(128).

      * The following flag values can be added together when
      * using the OPEN-BOX or SAVE-BOX opcodes
       78  OPENSAVE-OVERWRITEPROMPT            VALUE 2.
       78  OPENSAVE-PATHMUSTEXIST              VALUE 2048.
       78  OPENSAVE-FILEMUSTEXIST              VALUE 4096.
       78  OPENSAVE-CREATEPROMPT               VALUE 8192.
       78  OPENSAVE-NOREADONLYRETURN           VALUE 32768.

      * The following flag values can be added together when
      * using the opcode OPENSAVE-BROWSE-FOLDER
       78  OPENSAVE-BROWSE-DONTGOBELOWDOMAIN   VALUE 2.
       78  OPENSAVE-BROWSE-RETURNFSANCESTORS   VALUE 8.
       78  OPENSAVE-BROWSE-EDITBOX             VALUE 16.
       78  OPENSAVE-BROWSE-NEWDIALOGSTYLE      VALUE 64.
       78  OPENSAVE-BROWSE-BROWSEINCLUDEURLS   VALUE 128.
       78  OPENSAVE-BROWSE-UAHINT              VALUE 256.
       78  OPENSAVE-BROWSE-NONEWFOLDERBUTTON   VALUE 512.
       78  OPENSAVE-BROWSE-BROWSEFORCOMPUTER   VALUE 4096.
       78  OPENSAVE-BROWSE-BROWSEFORPRINTER    VALUE 8192.
       78  OPENSAVE-BROWSE-BROWSEINCLUDEFILES  VALUE 16384.

      * End of OPENSAVE.DEF
