compile insert WINDOW_COMMON%
/*                 The Window Processor Common Area Definitions

 This definition is the same as AREV.COMMON.  Both insert records refer to
 the same variables in memory, so you can use either in your programs.

 By using the WINDOW_COMMON% block you are less likely to inadvertently use a
 common variable as a local variable and introduce bugs into your program. We
 recommend the use of WINDOW_COMMON% for all new development.  AREV.COMMON is
 provided for programs that already use that version of the common block.

*/

COMMON WC_SRC_FILE%              ;* The Window's File's file-variable.
COMMON WC_SRC_DICT%              ;* The Window's Dictionary's file-variable.
COMMON WC_XREF_WINDOW%           ;* The Xref Window.  Used in XREF.BROWSE
COMMON WC_WINDXY%                ;* Upper-left and lower-right initial coordinates.
COMMON WC_LABEL%                 ;* Labels in the entry screen.
COMMON WC_KEY_FULL%              ;* True when @ID contains the full key.
COMMON WC_PROMPTS%               ;* The prompt data.
COMMON WC_TEMPLATE%              ;* The Template record name.
COMMON WC_VSP_VY%                ;* Vspace Y coordinate for current prompt.
COMMON WC_QUERY_TEMPLATE%        ;* Contains stripped template used by QUERY process
COMMON WC_SOFT_KEYS%             ;* The Soft Keys.
COMMON WC_SOFT_DATA%             ;* The CATALYST calls associated with the above.
COMMON WC_AMV%                   ;* List of prompts that are AMVs.
COMMON WC_AMV_VARS%              ;* Information maintained per set of AMVs.  See WINDOW.CONSTANTS.
COMMON WC_RECALC%                ;* List of prompts to be recalculated when a change occurs.
COMMON WC_DETAIL_HELP%           ;* Catalyst call for Detail Help.
COMMON WC_JOINED_LOCKS%          ;* Array of joined record keys that are locked.
COMMON WC_REDISPLAY_LIST%        ;* List of prompts to redisplay.
COMMON WC_WINDOW_ACTION%         ;* Causes Window shape changes.  See WINDOW.CONSTANTS
COMMON WC_VSP_VLEN%              ;* Vspace length for current prompt.
COMMON WC_DELETE_REC%            ;* True means delete the current record.
COMMON WC_ID_NEXT%               ;* The next @ID to use.
COMMON WC_BROWSE_NEXT%           ;* The next Browse List to use.
COMMON WC_SAVE_REC%              ;* True means save the current record.
COMMON WC_DISPLAY_ACTION%        ;* Causes specific display actions.  See WINDOW.CONSTANTS.
COMMON WC_INDEX_POPUP%           ;* Catalyst Code/Command to support INDEX/QUERY POPUP
COMMON WC_HELP_PROTECT%          ;* True means don't allow changes to Help text.
COMMON WC_INT_KEYS%              ;* List of prompts where calculations depend on the current prompt.
COMMON WC_RELATED_KEYS%          ;* The Related Keys.
COMMON WC_RELATED_DATA%          ;* The Catalyst calls associated with the above.
COMMON WC_FREEFORM%              ;* The Freeform printing definition.
COMMON WC_PREC%                  ;* The previous record.
COMMON WC_BLABEL%                ;* The Window Title.
COMMON WC_PREPROC%               ;* The Pre-Processes.
COMMON WC_POSTPROC%              ;* The Post-Processes.
COMMON WC_TEMPLATE_FILE.NAME%    ;* The name of the file containing the template.
COMMON WC_PSEUDO_FILE%           ;* The collector window codes.
COMMON WC_JOINED_HANDLES%        ;* Array of file handles associated with JOINED.LOCKS
COMMON WC_BROWSE_LIST%           ;* The current Browse List.
COMMON WC_MAINT_KEY%             ;* (Used in Paint only.)
COMMON WC_BROWSE_POPUP%          ;* The Browse Popup.  Used in XREF.BROWSE.
COMMON WC_XCNT%                  ;* The count of IDs in the current Browse List.
COMMON WC_TABLE_WIDTH%           ;* The width of VSPACE needed for Table Mode.
COMMON WC_TUTORIAL%              ;* Contains the code/cmd called when you press [Ctrl-F2].
COMMON WC_WIN_ACCOUNT%           ;* This Window's Account.
COMMON WC_UPSWD%                 ;* This Window's Password.
COMMON WC_ULVL%                  ;* This Window's Restriction Level.
COMMON WC_RLIST_SELECT%          ;* The R/LIST select criteria created by QUERY.
COMMON WC_RLIST_SORT%            ;* The R/LIST sort fields created by QUERY.
COMMON WC_UBROWSE_LIST%          ;* List of IDs that have been written.
COMMON WC_RING_PTR%              ;* The position of the current ID in the Browse List.
COMMON WC_MPR_MODE%              ;* MOVE/PAN/RESIZE mode flag
COMMON WC_DELIM%                 ;* The delimiter of the current prompt.
COMMON WC_VSP_VDEPTH%            ;* Vspace depth for the current prompt.
COMMON WC_IS_ORIG%               ;* The original value of the current prompt.
COMMON WC_YMAX%                  ;* The height of the window borders.
COMMON WC_STOP_LIST%             ;* Contains the INDEX stop words
COMMON WC_QUERY_MODE%            ;* True means QUERY mode entered at TCL instead of '\'
COMMON WC_LABEL_LIST%            ;* USED IN REDISPLAY OF LABELS DISPLAY.ACTIONS = REDISPLAY.ALL$
COMMON WC_REPROC%                ;* The Replacement Processes.
COMMON WC_PERPROC%               ;* The Perpetual Process.
COMMON WC_WC%                    ;* The exit key from SCRIBE.
COMMON WC_WST_CHAR%              ;* The starting key for SCRIBE.
COMMON WC_HCOLOR%                ;* Prompt Highlight colors for editable fields
COMMON WC_WI%                    ;* The current prompt number.
COMMON WC_REC_MAP%               ;* Recalculate map for dependent symbolics.
COMMON WC_OREC%                  ;* The original record.
COMMON WC_PKEY%                  ;* The previous key.
COMMON WC_XMAX%                  ;* The width of the window borders.
COMMON WC_KEY_CNT%               ;* The count of prompts in the key.
COMMON WC_KEY_MAP%               ;* List of prompts in the key.
COMMON WC_W_CNT%                 ;* The count of prompts in the window.
COMMON WC_SI%                    ;* The current prompt attributes.
COMMON WC_IS%                    ;* The current prompt data.
COMMON WC_IS_DFLT%               ;* The default value for the current prompt.
COMMON WC_VIEWER_ENV%            ;* Environmental array used by VIEW process.
COMMON WC_VIRTUAL%               ;* Virtual space coordinates.
COMMON WC_WLX%                   ;* The left border position.
COMMON WC_WLY%                   ;* The top border position.
COMMON WC_WRX%                   ;* The right border position.
COMMON WC_WRY%                   ;* The bottom border position.
COMMON WC_WDONE%                 ;* True means done with this Window.
COMMON WC_WCHANGE%               ;* True means the current prompt data has changed.
COMMON WC_REQ_FIELDS%            ;* List of prompts that are required.
COMMON WC_REQ_CNT%               ;* The count of prompts that are required.
COMMON WC_RESET%                 ;* The Reset flag.  See WINDOW.CONSTANTS.
COMMON WC_LOCKING_ON%            ;* True means lock the records.
COMMON WC_WLOCKED%               ;* True means the record is available for changing.
COMMON WC_WEXIT_KEYS%            ;* The exit keys passed to SCRIBE.
COMMON WC_MAIN_MENU%             ;* The menu associated with this window.
COMMON WC_ATR_OVR%               ;* The Window's display attributes.
COMMON WC_APPL_DOMAIN%           ;* Reserved for future use
COMMON WC_JOINED_KEYS%           ;* Array of record keys that relate to joined files.
COMMON WC_RECALC_CNT%            ;* The count of prompts to be recalculated.
COMMON WC_DATAFILE%              ;* The name of the data file.
COMMON WC_VWINDOW%               ;* The virtual space buffer.
COMMON WC_VDX%                   ;* The left edge of the visible part of the window.
COMMON WC_VDY%                   ;* The right edge of the visible part of the window.
COMMON WC_VPREV%                 ;* The save image of the screen.
COMMON WC_WEXPLODE%              ;* True means start the window with an explosion.
COMMON WC_VALID%                 ;* False means stop the current operation.
COMMON WC_FORCE_CHANGE%          ;* True means force WCHANGE to true.
COMMON WC_TABLE_EXIT_MODE%       ;* True means exit table mode at [Esc], else return to window mode.
COMMON WC_SCRIBE_FLAGS%          ;* Passed to SCRIBE.  See SCRIBE.FLAG.CONSTANTS.
COMMON WC_EXCEPT_KEYS%           ;* The exception keys passed to SCRIBE.
COMMON WC_PSEUDO%                ;* Contents of @PSEUDO when current window is called.
COMMON WC_LABEL_IMAGE%           ;* Used to hold label print images.
COMMON WC_W_ENV%                 ;* Window Environment.  See WINDOW.CONSTANTS.
COMMON WC_WI_NEXT%               ;* The next prompt number to process.
COMMON WC_W%(WC_W_CNT%)          ;* The prompt array.  PROMPTS is MatParsed into here.
COMMON WC_VSP_VX%                ;* Vspace X coordinate for current prompt.
COMMON WC_VIRTUAL_ON%            ;* True means that part of the window is not visible.
COMMON WC_RING_NEXT%             ;* The next value for RING.PTR.
COMMON WC_TABLE_ON%              ;* True means we are in Table Mode.
COMMON WC_NEW_ID%                ;* True means we have a new key in ID.NEXT.
COMMON WC_START%                 ;* The starting prompt after the key has been input.
COMMON WC_DATAFILE_NEXT%         ;* The next data file name to use.
COMMON WC_NEW_BROWSE%            ;* True means we have a new Browse List in BROWSE.NEXT.
COMMON WC_NEW_DATAFILE%          ;* True means we have a new data file in DATAFILE.NEXT.
COMMON WC_CRT_VX%                ;* The physical screen X-coordinate of the current prompt.
COMMON WC_CRT_VY%                ;* The physical screen Y-coordinate of the current prompt.
COMMON WC_CRT_VLEN%              ;* The physical screen length of the current prompt.
COMMON WC_CRT_VDEPTH%            ;* The physical screen depth of the current prompt.
COMMON WC_PROMPT_TYPE%           ;* The type of the current prompt.  See WINDOW.CONSTANTS.
COMMON WC_MV_NEXT%               ;* The next value index for the current AMV group.
COMMON WC_CURR_AMV_GROUP%        ;* The current AMV group number.
COMMON WC_MV%                    ;* The current value index for the current AMV group.
COMMON WC_SCRIBE_STATE%          ;* The state of SCRIBE after an exit.  See SCRIBE.STATE.CONSTANTS.
COMMON WC_VHEAD%                 ;* More virtual space.  Used in Table Mode.
COMMON WC_AMV_ACTION%            ;* The action to perform on the current AMV group.  See WINDOW.CONSTANTS.
COMMON WC_UNKEYS%                ;* List of keys to disable in this window.
COMMON WC_LABEL_CNT%             ;* Count of the number of labels in the window.
COMMON WC_REGISTER%(10)          ;* Storage available for customizing window.
COMMON WC_REAL_DATAFILE%         ;* The real datafile name is stored here for
                                  * paint - Arev 2.0
COMMON WC_DICTFILE%              ;* Dictionary File name
