      * TOTEM.DEF - Some useful TOTEM definitions.
      * Last modified: 25-Nov-99 TDC.

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

       01  TOTEM-PRINT-VARIABLE.
           05  TOTEM-PAGENUM         PIC 9(06) VALUE 0.
           05  TOTEM-PAGENUM-SYS     PIC 9(06) VALUE 0.
           05  TOTEM-SETUPPRINT      PIC 9     VALUE 0.

       01 SHOW-MSG.
           05 MSG-CALL-FAIL-CODE     PIC X(2).
           05 MSG-Id                 PIC 9(3).
           05 MSG-ERR-FILE           PIC X(30).

      * for message display
           78 MSG-LENGTH VALUE 256.
           78 MSG-FULL-LENGTH VALUE 256.
       01 MSG-BOX.
      * Mb-Default-Icon, Mb-Warning-Icon, Mb-Error-Icon, 4:QUESTION
           05 MSG-ICON-TYPE PIC 9 VALUE 1.
      * Mb-Yes, Mb-No, Mb-Cancel
           05 MSG-DEFAULT-BUTTON PIC 9 VALUE 1.
      * Mb-Ok, Mb-Yes-No, Mb-Ok-Cancel, Mb-Yes-No-Cancel
           05 MSG-BUTTON-TYPE PIC 9 VALUE 1.
      * Mb-Yes, Mb-No, Mb-Cancel
           05 MSG-RETURN-VALUE PIC 9 VALUE 1.
           05 MSG-1 PIC X(MSG-LENGTH).
           05 MSG-2 PIC X(MSG-LENGTH).
           05 MSG-3 PIC X(MSG-LENGTH).
           05 MSG-TEXT PIC X(MSG-FULL-LENGTH).
           05 MSG-TEXT-POINTER         PIC S9(4) COMP-1.
           05 MSG-SIZE                 PIC S9(4) COMP-1.
		   05 MSG-TITLE                PIC X(MSG-LENGTH).

      * Temporary variable
       77 Idx1                        PIC 9(3).
       77 Idx2                        PIC 9(3).
       77 Idx3                        PIC 9(3).
       77 TMP-VAR                     PIC 9(3).

      * Form & Frame Index
       77 Form-Index                  PIC 9(2).
       77 Frame-Index                 PIC 9(2).

       77 QUIT-MODE-FLAG              PIC S9(4) VALUE 0.

       01  USER-DEFINED-VARIABLE.
           10 CHECK-STATUS     PIC X.
              88 CHECK-OK      VALUE "Y" FALSE SPACE.

      * For FD Read / Next / Previous status buffer.
       01  ERR-BUF.
           05 ERR-MSG.
               10 ERR-MODE         PIC  X(20).
               10 ERR-FILE         PIC  X(20).
           05 ERR-STAT         PIC  X(02).

      * For Navigator's Enable Flags
      *
      * VALUE : FIRST / PREVIOUS / NEXT / LAST / CURRENT / 
      *                REFRESH / ADD / UPDATE / DELETE / CLEAR / EXIT
      *
       77 NAVI-ENABLE-ID       PIC  X(11) VALUE "11111111111".
       77 NAVI-ENABLE-ID-I     PIC  X(11) VALUE "11111100011".
       77 NAVI-ENABLE-ID-O     PIC  X(11) VALUE "00000111111".
       77 NAVI-ENABLE-IR       PIC  X(11) VALUE "00001111111".
       77 NAVI-ENABLE-IR-I     PIC  X(11) VALUE "00001100011".
       77 NAVI-ENABLE-IR-O     PIC  X(11) VALUE "00000111111".
       77 NAVI-ENABLE-IS-I     PIC  X(11) VALUE "10101000011".
       77 NAVI-ENABLE-IS-O     PIC  X(11) VALUE "00000010011".
       77 NAVI-ENABLE-RD       PIC  X(11) VALUE "11111111111".
       77 NAVI-ENABLE-RD-I     PIC  X(11) VALUE "11111100011".
       77 NAVI-ENABLE-RD-O     PIC  X(11) VALUE "00000111111".
       77 NAVI-ENABLE-RR       PIC  X(11) VALUE "00001111111".
       77 NAVI-ENABLE-RR-I     PIC  X(11) VALUE "00001100011".
       77 NAVI-ENABLE-RR-O     PIC  X(11) VALUE "00000111111".
       77 NAVI-ENABLE-RS-I     PIC  X(11) VALUE "10101000011".
       77 NAVI-ENABLE-RS-O     PIC  X(11) VALUE "00000010011".
       77 NAVI-ENABLE-SS-I     PIC  X(11) VALUE "10101000011".
       77 NAVI-ENABLE-SS-O     PIC  X(11) VALUE "00000010011".
