Topspeed_JPI/TS/INCLUDE/ISP.DEF

(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  ISP.DEF - Modula-2 OS/2 API Isp... interface                            *
*                                                                          *
*  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
*  Copyright (c) 1988  Microsoft Corporation                               *
*  All Rights Reserved                                                     *
*                                                                          *
*  This file is compatible with OS/2 version 1.2.                          *
*                                                                          *
*--------------------------------------------------------------------------*)
(*# call(o_a_size => off,
         o_a_copy=>off,
         result_optional=>on,
         reg_saved => (bx, cx, dx, si, di, es, ds, st1, st2),
         reg_param => (),
         seg_name => none,
         near_call => off,
         ds_eq_ss => off) *)
(*# module(implementation=>off, init_code => off) *)
(*# name(prefix => os2_lib) *)
(*# data(near_ptr => off) *)

DEFINITION MODULE Isp;
FROM OS2DEF IMPORT BOOL;

(*  OS/2 Dialog Manager message constants and type definitions for
    user controls and user exits.  *)

(* Application-defined messages should be begin at DM_USER to avoid   *)
(* conflict with DM-defined messages.                                 *)

CONST
  DM_USER         = 2000H;
  CM_MESSAGE_BASE = 2800H;

(*  DM messages common to User Controls and User Exits                *)

  CM_FREE_CTL_RESOURCES  = CM_MESSAGE_BASE+00H;
  CM_MEM_ALLOC           = CM_MESSAGE_BASE+01H;
  CM_MEM_FREE            = CM_MESSAGE_BASE+02H;
  CM_MEM_REALLOC         = CM_MESSAGE_BASE+03H;
  CM_QUERY_CTL_HDL       = CM_MESSAGE_BASE+04H;
  CM_QUERY_USER_INST_PTR = CM_MESSAGE_BASE+05H;
  CM_SET_USER_INST_PTR   = CM_MESSAGE_BASE+06H;
  CM_UPDATE_CONTROL      = CM_MESSAGE_BASE+07H;

(*  DM User Control Messages                                          *)

  CM_INIT_USER_CONTROL      = CM_MESSAGE_BASE+08H;
  CM_PANEL_ENTERED          = CM_MESSAGE_BASE+09H;
  CM_END_DISPLAY            = CM_MESSAGE_BASE+0AH;
  CM_GET_UC_PARM_AND_TEXT   = CM_MESSAGE_BASE+0BH;
  CM_NO_FOCUS_USER_CONTROL  = CM_MESSAGE_BASE+0CH;
  CM_YES_FOCUS_USER_CONTROL = CM_MESSAGE_BASE+0DH;
  CM_SET_MIN_MAX_SIZE       = CM_MESSAGE_BASE+0EH;

(*  DM User Action Exit Messages                                      *)

  CM_DO_ACTION              = CM_MESSAGE_BASE+0FH;
  CM_INIT_USER_ACTION       = CM_MESSAGE_BASE+010H;

(*  DM User Check Exit Messages                                       *)

  CM_DO_CHECK               = CM_MESSAGE_BASE+011H;
  CM_INIT_USER_CHECK        = CM_MESSAGE_BASE+012H;

(*  DM User Command Action Exit Messages                              *)

  CM_DO_CMD_ACTION          = CM_MESSAGE_BASE+013H;
  CM_INIT_USER_CMD_ACTION   = CM_MESSAGE_BASE+014H;

(*  DM User Translate Exit Messages                                   *)

  CM_DO_XLATE               = CM_MESSAGE_BASE+015H;
  CM_INIT_USER_XLATE        = CM_MESSAGE_BASE+016H;

(*  DM User Variable Exit Messages                                    *)

  CM_INIT_USER_VARIABLE     = CM_MESSAGE_BASE+017H;
  CM_QUERY_VARIABLE_VALUE   = CM_MESSAGE_BASE+018H;
  CM_SET_VARIABLE_VALUE     = CM_MESSAGE_BASE+019H;

  CCTL_INPUT   = 1;
  CCTL_OUTPUT  = 2;

(* These constants are provided to make is easy for the writer of a   *)
(* user control or user exit to register their class.                 *)
(*                                                                    *)
(* The style constants provided as class styles for the application's *)
(* user control/exit window class.  They should "or" in any of their  *)
(* own class styles.  Currently these are null because DM doesn't     *)
(* require user controls/exits to have a particular window style, but *)
(* these can be changed in the future if that requirement arises.     *)
(*                                                                    *)
(* The extra bytes constants should be used so that user controls/    *)
(* exits have extra window words for the pointer to their instance    *)
(* data.  Any extra bytes the application wants to use must be after  *)
(* the first 4 in the extra window words, as these are reserved by    *)
(* DM.  Remember the UserInstancePtr in the user control/exit         *)
(* instance data can be used to point to application specific data.   *)

  CCTL_UC_CLASS_STYLE  = 00H;         (* User control   *)
  CCTL_UA_CLASS_STYLE  = 00H;         (* Action         *)
  CCTL_UK_CLASS_STYLE  = 00H;         (* Check          *)
  CCTL_UM_CLASS_STYLE  = 00H;         (* Command action *)
  CCTL_UX_CLASS_STYLE  = 00H;         (* Translate      *)
  CCTL_UV_CLASS_STYLE  = 00H;         (* Variable access*)

  CCTL_UC_EXTRA_BYTES  = 4;                   (* User control   *)
  CCTL_UA_EXTRA_BYTES  = 4;                   (* Action         *)
  CCTL_UK_EXTRA_BYTES  = 4;                   (* Check          *)
  CCTL_UM_EXTRA_BYTES  = 4;                   (* Command action *)
  CCTL_UX_EXTRA_BYTES  = 4;                   (* Translate      *)
  CCTL_UV_EXTRA_BYTES  = 4;                   (* Variable access*)


TYPE
  DefaultMessageParm = RECORD
                         RetCode    : LONGCARD;
                         MsgParmSize: CARDINAL;
                       END;
  FreeCtlResourcesParm    = DefaultMessageParm;
  InitUserControlParm     = DefaultMessageParm;
  InitUserVariableParm    = DefaultMessageParm;
  NoFocusUserControlParm  = DefaultMessageParm;
  YesFocusUserControlParm = DefaultMessageParm;
  PanelEnteredParm        = DefaultMessageParm;
  QueryUserInstPtrParm    = DefaultMessageParm;

  MemAllocParm = RECORD
                   RetCode    : LONGCARD;
                   MsgParmSize: CARDINAL;
                   ByteCount  : CARDINAL;
                 END;

  MemFreeParm  = RECORD
                   RetCode    : LONGCARD;
                   MsgParmSize: CARDINAL;
                   MemPtr     : FarADDRESS;
                 END;

  MemReallocParm = RECORD
                     RetCode     : LONGCARD;
                     MsgParmSize : CARDINAL;
                     NewByteCount: CARDINAL;
                     SrcPtr      : FarADDRESS;
                   END;

  QueryCtlHdlParm = RECORD
                      RetCode     : LONGCARD;
                      MsgParmSize : CARDINAL;
                      Name        : FarADDRESS;
                    END;

  SetUserInstPtrParm = RECORD
                         RetCode     : LONGCARD;
                         MsgParmSize : CARDINAL;
                         UserInstPtr : FarADDRESS;
                       END;

  UpdateControlParm  = RECORD
                         RetCode     : LONGCARD;
                         MsgParmSize : CARDINAL;
                         SetInitialState : BOOL;
                       END;

  EndDisplayParm = RECORD
                     RetCode          : LONGCARD;
                     MsgParmSize      : CARDINAL;
                     DispReasonCode   : LONGCARD;
                     MsgOnInvalidField: BOOL;
                   END;


  SetMinMaxSizeParm = RECORD
                        RetCode     : LONGCARD;
                        MsgParmSize : CARDINAL;
                        MinWidth,
                        MaxWidth,
                        MinDepth,
                        MaxDepth    : CARDINAL;
                      END;

  DoActionParm = RECORD
                   RetCode      : LONGCARD;
                   MsgParmSize  : CARDINAL;
                   ActionParmPtr: FarADDRESS;
                 END;

  InitUserActionParm = RECORD
                         RetCode      : LONGCARD;
                         MsgParmSize  : CARDINAL;
                         ActionParmPtr: FarADDRESS;
                       END;

  DoCheckParm = RECORD
                  RetCode      : LONGCARD;
                  MsgParmSize  : CARDINAL;
                  CheckValuePtr,
                  CheckParm1Ptr,
                  CheckParm2Ptr: FarADDRESS;
                END;

  InitUserCheckParm = RECORD
                        RetCode      : LONGCARD;
                        MsgParmSize  : CARDINAL;
                        CheckParm1Ptr,
                        CheckParm2Ptr: FarADDRESS;
                      END;

  DoCmdActionParm = RECORD
                      RetCode      : LONGCARD;
                      MsgParmSize  : CARDINAL;
                      CmdParmPtr,
                      CmdActionParmPtr: FarADDRESS;
                    END;

  InitUserCmdActionParm = RECORD
                            RetCode      : LONGCARD;
                            MsgParmSize  : CARDINAL;
                            CmdActionParmPtr: FarADDRESS;
                          END;

  DoXlateParm = RECORD
                  RetCode      : LONGCARD;
                  MsgParmSize  : CARDINAL;
                  Direction    : CARDINAL;
                  XlBufLen     : CARDINAL;
                  XlBufPtr     : FarADDRESS;
                  XlParmPtr    : FarADDRESS;
                  Continue     : BOOL;
                END;

  InitUserXlateParm = RECORD
                        RetCode      : LONGCARD;
                        MsgParmSize  : CARDINAL;
                        XlBufLen     : CARDINAL;
                        XlParmPtr    : FarADDRESS;
                      END;

  QueryVariableValueParm = RECORD
                             RetCode      : LONGCARD;
                             MsgParmSize  : CARDINAL;
                             VnamePtr     : FarADDRESS;
                             RetBufPtr    : FarADDRESS;
                             RetBufLen    : CARDINAL;
                             Subscript    : CARDINAL;
                           END;

  SetVariableValueParm = RECORD
                           RetCode      : LONGCARD;
                           MsgParmSize  : CARDINAL;
                           VnamePtr     : FarADDRESS;
                           BufPtr       : FarADDRESS;
                           Subscript    : CARDINAL;
                         END;


(* OS/2 Dialog Manager type definitions for the communication block and
   declarations for the functions used to call Dialog Manager Services *)

(*# call(c_conv=>on, reg_param=>(), near_call=>off, reg_saved=>(di,si,ds,st1,st2)) *)

CONST
  DMCOMMBLOCK_ERROR_INFO_COUNT = 6;

TYPE
  DMERRORINFO = RECORD
                  ReasonCode: LONGCARD;      (* Dialog Manager Return Code *)
                  OS2RetCode: LONGCARD;      (* DOS Return Code            *)
                END;

  DMCOMMBLOCK = RECORD
                  ReturnCode: LONGCARD;     (* Dialog Manager Return Code *)
                  ReasonCode: LONGCARD;     (* Dialog Manager Reason Code *)
                  InstanceID: ARRAY[0..7] OF CHAR; (* Instance Identifier *)
                  OS2RetCode: LONGCARD;     (* DOS Return Code            *)
                  ErrorInfo : ARRAY [0..DMCOMMBLOCK_ERROR_INFO_COUNT-1] OF DMERRORINFO;
                                            (* Error Information Array    *)
                  Filler    : ARRAY [0..59] OF CHAR; (* Used by DM -- don't modify *)
                END;

PROCEDURE ISPCI (VAR c:DMCOMMBLOCK; p1:LONGINT; p2: FarADDRESS): INTEGER;
PROCEDURE ISPCI2(VAR c:DMCOMMBLOCK; p1:LONGINT; p2,p3,p4: FarADDRESS): INTEGER;

(* OS/2 Dialog Manager error constants for user applications. *)

(* Dialog Manager Error Constants *)

CONST
  DMERR_BASE_ERROR_CLASS = 100000;
  DMERR_INFORMATIONAL    = 0;
  DMERR_LOW_WARNING      = 400000;
  DMERR_HIGH_WARNING     = 800000;
  DMERR_PROGRAMMER_ERROR = 1200000;
  DMERR_RESOURCE_FAILURE = 1600000;
  DMERR_SEVERE_ERROR     = 2000000;

(* ISPCI/ISPCI2 Error Constants *)

  DMERR_INVALID_HWND              = 1200100;
  DMERR_UPPERCASE                 = 1200101;
  DMERR_UPPERCASE_BUFFER          = 1200102;
  DMERR_UPPERCASE_VERB            = 1200103;
  DMERR_UNEXPECTED_PAREN          = 1200104;
  DMERR_BUF_TOO_LONG              = 1200105;
  DMERR_INVALID_SERVICE_PARM      = 1200106;
  DMERR_TOO_MANY_PARMS            = 1200107;
  DMERR_SUBFIELD                  = 1200108;
  DMERR_INVALID_KEYWORD           = 1200109;
  DMERR_SUBFIELD_MISSING          = 1200110;
  DMERR_PARM_MISSING              = 1200111;
  DMERR_POSITIONAL_MISSING        = 1200112;
  DMERR_INVALID_PARM_LENGTH       = 1200113;
  DMERR_LIST_FOUND                = 1200114;
  DMERR_NAME_LIST                 = 1200115;
  DMERR_KEYWORD_CONFLICT          = 1200116;
  DMERR_CMD_SERVICE               = 1200117;
  DMERR_STRING_END                = 1200118;
  DMERR_END_BUFFER_FOUND          = 1200119;
  DMERR_SUBSCRIPT_INVALID         = 1200120;
  DMERR_ISPCI2_CALL               = 1200121;
  DMERR_GET_SUBSTITUTE_VAR        = 1200122;
  DMERR_MORE_PARMS                = 1200123;
  DMERR_ISPCI_CALL                = 1200124;
  DMERR_BUFFER_EXCEEDS_MAX        = 1200125;
  DMERR_SERVICE_NOT_FOUND         = 1200126;
  DMERR_SERVICE_NAME_LENGTH       = 1200127;
  DMERR_BUFFER_EMPTY              = 1200128;
  DMERR_UNEXPECTED_LIST_FOUND     = 1200129;
  DMERR_PARM_TOO_LONG             = 1200130;
  DMERR_POSITIONAL_NOT_FOUND      = 1200131;
  DMERR_NO_POSITIONAL_FOUND       = 1200132;
  DMERR_NULL_PARM                 = 1200133;
  DMERR_END_BUFF_BEFORE_END_LIST  = 1200134;
  DMERR_KEYWORD_NOT_IN_TABLE      = 1200135;
  DMERR_INVALID_KEYWORD_LENGTH    = 1200136;
  DMERR_INVALID_SUB_KEYWORD       = 1200137;
  DMERR_SUBFIELD_NOT_NUMERIC      = 1200138;
  DMERR_REQUIRED_SUBFIELD_MISSING = 1200139;
  DMERR_CONVERTING_NUMERIC_PARM   = 1200140;
  DMERR_NUMERIC_PARM_RANGE        = 1200141;
  DMERR_KEYWORD_TABLE_NOT_FOUND   = 1600100;

(* Dialog Manager Controls Error Constants *)

  DMERR_LOAD_APPL_CMD_TABLE       = 505;
  CMERR_DEFAULT_KEY_TABLE_ENTRY   = 400500;
  CMERR_MATCHING_COMMAND_INDEX    = 400501;
  CMERR_NO_COMMAND_FOR_KEY        = 400502;
  DMERR_COMMAND_STACK_EMPTY       = 400503;
  CMERR_PS_INVALID_VALUE          = 400504;
  CMERR_DUPLICATE_LF_MOD_ROWS     = 400505;
  CMERR_OUT_OF_BOUNDS_POS         = 800500;
  CMERR_QUERY_ZPANELID            = 800501;
  CMERR_QUERY_ZFKA                = 800502;
  CMERR_UA_DO_ACTION              = 800505;
  CMERR_UM_DO_CMD_ACTION          = 800506;
  CMERR_UX_DO_XLATE               = 800507;
  CMERR_UK_DO_CHECK               = 800508;
  CMERR_EXECUTING_SCROLL          = 800509;
  CMERR_LMARGIN_EXCEEDS_RMARGIN   = 800510;
  CMERR_FONT_NOT_AVAILABLE        = 800511;
  CMERR_OVERFLOW_LF_MOD_ROWS      = 800523;
  CMERR_USER_DATA_FAILED_XLAT     = 800524;
  CMERR_VAR_DATA_TOO_BIG          = 800525;
  CMERR_SETTING_POOL_VARIABLE_8   = 800526;
  CMERR_GETTING_POOL_VARIABLE_8   = 800527;
  CMERR_INVALID_CMDACT_TYPE       = 1200502;
  CMERR_DOING_EXT_CMDACT          = 1200505;
  CMERR_DOING_INT_CMDACT          = 1200508;
  CMERR_INIT_USER_ACTION          = 1200520;
  CMERR_INIT_USER_CHECK           = 1200521;
  CMERR_INIT_USER_CONTROL         = 1200522;
  CMERR_INIT_USER_CMD_ACTION      = 1200523;
  CMERR_INIT_USER_XLATE           = 1200524;
  CMERR_USER_ACTION_NOT_REG       = 1200525;
  CMERR_USER_CHECK_NOT_REG        = 1200526;
  CMERR_USER_CONTROL_NOT_REG      = 1200527;
  CMERR_USER_CMD_ACTION_NOT_REG   = 1200528;
  CMERR_USER_VAR_ACCESS_NOT_REG   = 1200529;
  CMERR_USER_XLATE_NOT_REG        = 1200530;
  CMERR_FOCUS_DEST_WND_UNDEFINED  = 1200532;
  CMERR_FLD_CANNOT_TAKE_FOCUS     = 1200533;
  CMERR_ACCEPTING_FOCUS           = 1200535;
  CMERR_LF_NUM_OF_ROWS_OUT_RANGE  = 1200537;
  CMERR_TOP_ROW_OUT_OF_RANGE      = 1200539;
  CMERR_LC_OUTPUT_ONLY_FIELD      = 1200540;
  CMERR_LF_MOD_ROW_INVALID        = 1200542;
  CMERR_SL_NUMROWS_OUT_OF_RANGE   = 1200543;
  CMERR_SL_SELECTED_ROWS_RANGE    = 1200544;
  CMERR_SL_TOP_ROW_OUT_OF_RANGE   = 1200545;
  CMERR_LOAD_INFO_FONTS           = 1200546;
  CMERR_TEXT_LONGER_THAN_WND_MAX  = 1200547;
  CMERR_GET_COMMAND_AREA_TEXT     = 1200549;
  CMERR_SETTING_POOL_VARIABLE_12  = 1200550;
  CMERR_INIT_USER_VARIABLE        = 1200553;
  CMERR_GETTING_POOL_VARIABLE_12  = 1200554;
  CMERR_PS_NO_MATCH_ON_OUTPUT     = 1200555;
  CMERR_VAR_LENGTH_EXCEEDS_BUFFER = 1200556;
  CMERR_INVALID_MSG_PARM_SIZE     = 1200557;
  CMERR_ALLOC_AB_TEXT             = 1600500;
  CMERR_GETTING_MEM_CMDACT_STRING = 1600501;
  CMERR_SYSTEM_CMD_TABLE_WNDHDL   = 1600502;
  CMERR_SCROLLING_BACKWARD        = 1600504;
  CMERR_SCROLLING_FORWARD         = 1600505;
  CMERR_SCROLLING_LEFT            = 1600506;
  CMERR_SCROLLING_RIGHT           = 1600507;
  CMERR_SET_LF_EDIT_CTL_NAME      = 1600508;
  CMERR_SHOW_PANEL                = 1600509;
  CMERR_POPPING_CMD_STACK         = 1600510;
  CMERR_SETTING_POP_CMDSTR        = 1600511;
  CMERR_SETTING_ZVERB             = 1600512;
  CMERR_SETTING_ZCMD              = 1600513;
  CMERR_CANCELING_PANEL           = 1600514;
  CMERR_SETTING_REMAIN_CMDS       = 1600515;
  CMERR_EXECUTE_ENTER             = 1600516;
  CMERR_ENTERING_PANEL            = 1600517;
  CMERR_EXITING_PANEL             = 1600518;
  CMERR_SETTING_ZPANELID          = 1600519;
  CMERR_SETTING_ZFKA              = 1600520;
  CMERR_CHANGING_FKA_FORM         = 1600521;
  CMERR_SHOW_PANELID              = 1600522;
  CMERR_PASSTHRU                  = 1600523;
  CMERR_SETVERB                   = 1600524;
  CMERR_PUSH_CMD_STRING           = 1600525;
  CMERR_SETTING_CMD_TEXT          = 1600526;
  CMERR_REFRESHING_AVAILVAR       = 1600527;
  CMERR_REFRESHING_SKIPVAR        = 1600528;
  CMERR_KEYTBL_ENTRY_UNKNOWN      = 1600531;
  CMERR_REFRESHING_CMDACT_STRING  = 1600532;
  CMERR_PASSING_EXTERNAL_CMD      = 1600533;
  CMERR_PASSING_INTERNAL_CMD      = 1600534;
  CMERR_PASSING_KEY_TABLE_ENTRY   = 1600535;
  CMERR_EXECUTING_ALIAS           = 1600536;
  CMERR_EXTERNAL_CMD              = 1600537;
  CMERR_CHILD_NOT_KNOWN           = 1600538;
  CMERR_GETTING_MEM_ACTION_PARM1  = 1600539;
  CMERR_GETTING_MEM_ACTION_PARM2  = 1600540;
  CMERR_GETTING_MEM_VARIABLE_STR  = 1600541;
  DMERR_ALLOC_COMMAND_POOL        = 1600542;
  DMERR_GET_GBL_INSTANCE_MEM      = 1600543;
  DMERR_GET_INSTANCE_MEM          = 1600544;
  DMERR_GET_APPL_DATA_ENTRY_MEM   = 1600545;
  DMERR_REMAIN_CMD_STRING_MEM     = 1600546;
  DMERR_GET_CMD_STACK_NODE_MEM    = 1600547;
  DMERR_GET_CMD_STACK_MEM         = 1600548;
  CMERR_PASSING_EXT_CMD_STRING    = 1600549;
  CMERR_SETTING_SET_VAR           = 1600550;
  CMERR_NOTIFY_SETVAR_CHG         = 1600551;
  CMERR_SETTING_TOGGLE_VAR        = 1600552;
  CMERR_NOTIFY_TOGVAR_CHG         = 1600553;
  CMERR_QUERY_CMD_TABLE_WNDHDL    = 1600554;
  CMERR_LOADING_KEY_LIST          = 1600555;
  CMERR_GETTING_KEY_LIST          = 1600556;
  CMERR_CREATING_KEY_LIST         = 1600557;
  CMERR_QUERY_DMKEY_TABLE_INFO    = 1600558;
  CMERR_SETTING_ACTION_PARM1      = 1600560;
  CMERR_SETTING_ACTION_PARM2      = 1600561;
  CMERR_SETTING_VARIABLE          = 1600562;
  DMERR_EXECUTE_TUTORIAL          = 1600563;
  DMERR_LOAD_DEF_CMD_TABLE        = 1600564;
  DMERR_CREATE_DEF_CMD_TABLE      = 1600565;
  DMERR_LOAD_CMD_TABLE            = 1600566;
  DMERR_CREATE_APPL_CMD_TABLE     = 1600567;
  CMERR_RUN_CMD                   = 1600568;
  CMERR_DOING_PANEL_ACTION        = 1600570;
  CMERR_EXECUTING_KEY_ACTION      = 1600571;
  CMERR_LC_XLATE_VALUE            = 1600572;
  CMERR_UPDATE_LC_DATA            = 1600573;
  CMERR_QUERY_LC_ARRAY_VALUE      = 1600574;
  CMERR_LF_VARIABLE_CHANGED       = 1600575;
  CMERR_ALLOC_LC_DATA             = 1600576;
  CMERR_ALLOC_MODIFIED_ROWS_FLAGS = 1600577;
  CMERR_CELL_EDIT_TEXT_LIMIT      = 1600578;
  CMERR_REPOSITION_LF             = 1600579;
  CMERR_QUERY_LF_MOD_ROWS         = 1600580;
  CMERR_UPDATE_LF_MOD_ROWS        = 1600581;
  CMERR_ALLOC_TRANSLATE_BUFFER    = 1600582;
  CMERR_AB_ATTRIB_FAILED          = 1600583;
  CMERR_SETTING_PANEL_VARIABLE    = 1600585;
  CMERR_GETTING_PANEL_VARIABLE    = 1600587;
  CMERR_GETTING_MEM_VAR_BUFFER    = 1600588;
  CMERR_GETTING_CHANGED_VAR       = 1600589;
  CMERR_SETTING_CHANGED_VAR       = 1600590;
  CMERR_SET_INST_MIN_MAX_SIZE     = 1600591;
  CMERR_GETTING_USER_CMDACT_PARM  = 1600592;
  CMERR_USER_ACTION_PARM_ALLOC    = 1600593;
  CMERR_USER_CMD_ACT_PARM_ALLOC   = 1600594;
  CMERR_USER_CONTROL_PARM_ALLOC   = 1600595;
  CMERR_PS_DISPLAY_DM_MESSAGE     = 1600596;
  CMERR_PS_UPDATE_PANEL           = 1600597;
  CMERR_COMMAND_TEXT              = 1600598;
  CMERR_NO_KEY_TABLE              = 1600599;
  CMERR_NO_FKA_CREATED            = 1600600;
  CMERR_DIV_SET_MIN_MAX_SIZE      = 1600601;
  CMERR_DIV_GPI_SET_ATTRS         = 1600602;
  CMERR_DIV_GPI_SET_CUR_POS       = 1600603;
  CMERR_DIV_GPI_LINE              = 1600604;
  CMERR_BUTTON_ACCEPTING_FOCUS    = 1600605;
  CMERR_AR_QRY_REGION_MIN_CX      = 1600606;
  CMERR_NO_MEMORY                 = 1600607;
  CMERR_PAINT_INFO_TEXT           = 1600608;
  CMERR_FONT_METRICS_QRY_PROBLEM  = 1600609;
  CMERR_INFO_CHAR_ATTRS_PROBLEM   = 1600610;
  CMERR_ALLOC_TEXT_ATTR_POS_LIST  = 1600611;
  CMERR_ALLOC_TEXT_ATTR_POS_ARRAY = 1600612;
  CMERR_ALLOC_INFO_FORMAT_TABLE   = 1600613;
  CMERR_ALLOC_INFO_ATTR_ARRAY     = 1600614;
  CMERR_INVALID_TEXT_ATTRIBUTE    = 1600615;
  CMERR_ALLOC_FONT_METRICS_BUF    = 1600616;
  CMERR_ALLOC_MARGIN_ARRAY        = 1600618;
  CMERR_MAX_FONTS_LOADED          = 1600619;
  CMERR_INVALID_SYS_CMDACT        = 1600620;
  CMERR_CMD_ACTION_UNSPECIFIED    = 1600621;
  CMERR_DOING_USER_CMDACT         = 1600622;
  CMERR_INVALID_ACTION_TYPE       = 1600623;
  CMERR_SET_VAR_UNSPECIFIED       = 1600624;
  CMERR_TOGGLE_VAR_UNSPECIFIED    = 1600625;
  CMERR_MEM_SIZE_LIST             = 1600626;
  CMERR_PROCESSING_BACKTAB        = 1600628;
  CMERR_PROCESSING_TAB            = 1600629;
  CMERR_PROCESSING_VK_TAB         = 1600630;
  CMERR_RUN_CMD_UNSPECIFIED       = 1600631;
  CMERR_NOTIFY_VAR_CHANGE         = 1600632;
  CMERR_ACTION_BAR_UNDEFINED      = 1600633;
  CMERR_LC_ROW_OUT_OF_RANGE       = 1600634;
  CMERR_DF_DISPLAY_DM_MESSAGE     = 1600635;
  CMERR_ALLOC_MEMORY              = 1600636;
  CMERR_SET_TEXT_LIMIT            = 1600637;
  CMERR_EF_ACCEPTING_FOCUS        = 1600638;
  CMERR_UPDATE_SL_SELECTED_ROWS   = 1600639;
  CMERR_QUERY_SC_ARRAY_VALUE      = 1600640;
  CMERR_ALLOC_SL_XLATE_BUFFER     = 1600641;
  CMERR_SC_XLATE_VALUE            = 1600642;
  CMERR_INSERT_SL_ITEM            = 1600643;
  CMERR_QUERY_SL_SELECTED_ROWS    = 1600644;
  CMERR_ALLOC_FONT_DESCRIPTORS    = 1600645;
  CMERR_MODIFIED_ROWS_INDEX_RANGE = 1600646;
  CMERR_ALLOC_SF_WORK_BUFFER      = 1600676;
  CMERR_ALLOC_SF_CHECK_TEXT       = 1600677;
  CMERR_SET_SF_BUTTON_TEXT        = 1600678;
  CMERR_SF_CHANGE_CHECK_VALUE     = 1600679;
  CMERR_GET_COUNTRY_INFO          = 1600681;
  CMERR_CREATE_KEY_ACCELTABLE     = 1600682;
  CMERR_SET_KEY_ACCELTABLE        = 1600683;
  CMERR_KEY_LIST_UNSPECIFIED      = 1600684;
  CMERR_DF_OUTPUT_REPOSITION      = 1600687;
  CMERR_LOADING_CHGDEFS_PANEL     = 1600688;
  CMERR_ADDING_CHGDEFS_POPUP      = 1600689;
  CMERR_DISPLAYING_CHGDEFS        = 1600690;
  CMERR_REMOVING_CHGDEFS_POPUP    = 1600691;
  CMERR_DEFINING_CHGDEFS_VARS     = 1600692;
  CMERR_GETTING_CHGDEFS_VARS      = 1600693;
  CMERR_PUTTING_CHGDEFS_VARS      = 1600694;
  CMERR_DELETING_CHGDEFS_VARS     = 1600695;
  CMERR_DEFACT_IN_PROGRESS        = 1600696;
  CMERR_QUERY_DEFAULT_ACTION      = 1600697;
  CMERR_SET_TITLEBAR_TEXT         = 1600698;
  CMERR_CT_DISPLAY_DM_MESSAGE     = 1600699;
  CMERR_PS_MEM_ALLOC              = 1600700;
  DMERR_CMD_TABLE_UNAVAILABLE     = 1600701;
  CMERR_DOING_USER_ACTION         = 1600702;
  DMERR_CLASS_REGISTRATION_FAILED = 2000506;
  CMERR_SETTING_POOL_VARIABLE_20  = 2000515;
  CMERR_GETTING_POOL_VARIABLE_20  = 2000516;

(* Display Services Error Constants *)

  DMERR_PANEL_ENTERED             = 1700;
  DMERR_PASSTHRU                  = 1701;
  DMERR_SETVERB                   = 1702;
  DMERR_PANEL_CANCELED            = 401700;
  DMERR_PANEL_EXITED              = 801700;
  DMERR_QUERY_ZHELP_WND_TITLE     = 801701;
  DMERR_QUERY_ZPRIMARY_WND_TITLE  = 801702;
  DMERR_SET_FKA_FORM              = 801703;
  DMERR_SET_PANEL_ID_VISIBILITY   = 801704;
  DMERR_FORCEXIT_INVOKED          = 801705;
  DMERR_FORCEXIT_INVALID_WNDHDL   = 1201700;
  DMERR_FORCEXIT_INVALID_SET      = 1201701;
  DMERR_FORCEXIT_INVALID_DMCOMM   = 1201702;
  DMERR_NO_PRIOR_DISPLAY          = 1201703;
  DMERR_INVALID_ADDPOP            = 1201704;
  DMERR_NO_POPUPS_EXIST           = 1201705;
  DMERR_ADDPOP_BEFORE_PRIMARY_WND = 1201708;
  DMERR_ADDPOP_UNKNOWN_FIELD_NAME = 1201709;
  DMERR_ADDPOP_NO_PREV_DISPLAY    = 1201710;
  DMERR_MSGLOC_UNKNOWN_FIELD_NAME = 1201711;
  DMERR_FORCEXIT_DISPLAY_FAILED   = 1601700;
  DMERR_CREATE_PRIMARY_WND_ICON   = 1601701;
  DMERR_GET_PRIMARY_WND_ICON      = 1601702;
  DMERR_GET_PANEL_TEMPLATE        = 1601703;
  DMERR_CREATE_PANEL              = 1601704;
  DMERR_PANEL_ENTER_PROCESSING    = 1601705;
  DMERR_CREATE_FRAME              = 1601706;
  DMERR_UPDATE_PANEL              = 1601707;
  DMERR_SET_PANEL_HELP_INFO       = 1601708;
  DMERR_ALLOC_PANEL_MGR_INST_DATA = 1601709;
  DMERR_CREATE_FRAME_CONTROL      = 1601710;
  DMERR_ALLOC_PANEL_MGR_POOL      = 1601711;
  DMERR_ALLOC_PANEL_INST_DATA     = 1601712;
  DMERR_GPI_QUERY_TEXT_WIDTH      = 1601713;

(* Help Interface Error Constants *)

  DMERR_EXT_HELP_PANEL_UNDEFINED  = 1202100;
  DMERR_KEYS_HELP_UNDEFINED       = 1202101;
  DMERR_UNABLE_TO_LOAD_FONTS      = 1202138;
  DMERR_DMOPEN_LOAD_FONTS         = 1202139;
  DMERR_SET_LIBDEF_HELP_LIBRARIES = 1602101;
  DMERR_SET_HELP_SHOW_PAN_IDS     = 1602102;
  DMERR_DISPLAY_EXT_HELP_PANEL    = 1602103;
  DMERR_DISPLAY_KEYS_HELP_PANEL   = 1602104;
  DMERR_QUERY_ZKEYHELP_PROBLEM    = 1602105;
  DMERR_EXECUTING_HELP_TUTORIAL   = 1602106;
  DMERR_ALLOC_HIC_LOCAL_INST_DATA = 1602111;
  DMERR_ALLOC_HIC_GBL_INST_DATA   = 1602112;
  DMERR_ALLOC_HIC_HELPTABLE       = 1602113;
  DMERR_ALLOC_HIC_HELPSUBTABLE    = 1602114;
  DMERR_CREATE_HELP_INSTANCE      = 1602116;
  DMERR_ALLOC_EXT_HLP_NAME_BUFFER = 1602120;
  DMERR_ASSOC_PAN_WITH_HELP_INST  = 1602121;
  DMERR_SET_HELP_ACTIVE_WINDOW    = 1602122;
  DMERR_SET_HELP_LIB_NAMES        = 1602123;
  DMERR_SET_HELP_WND_TITLE        = 1602125;
  DMERR_DISPLAY_HELP_PANEL        = 1602127;
  DMERR_QRY_ACTION_BAR_HELP       = 1602128;
  DMERR_QRY_HELP_PANEL_NAME       = 1602129;
  DMERR_PROCESS_HELP_DISPLAY      = 1602130;
  DMERR_PROCESS_KEYS_HELP_ON_FKA  = 1602131;
  DMERR_PROCESS_DEFAULT_EXT_HELP  = 1602132;
  DMERR_ALLOC_NEW_HELP_LIB_NAMES  = 1602135;
  DMERR_DISPLAY_HIC_ERROR_MESSAGE = 1602136;
  DMERR_QUERY_HELP_LIBRARIES      = 1602137;
  DMERR_DISPLAY_HELP_FOR_HELP     = 1602140;

(* DMOPEN/DMCLOSE Error Constants *)

  DMERR_STARTING_TRACE            = 1202903;
  DMERR_INVALID_UNIQUE_PARM       = 1202901;
  DMERR_INVALID_DMCOMM_CLOSE      = 1202902;
  DMERR_SEMAPHORE_COMPID          = 1602900;
  DMERR_DMI_CLOSE_FAILED          = 1602901;
  DMERR_CREATE_SPACE_START        = 2002900;
  DMERR_CREATE_POOL_START         = 2002901;
  DMERR_GET_HEADER_START          = 2002902;
  DMERR_FAILED_STARTUP_DIMVALID   = 2002903;
  DMERR_SHARE_SEGS_DIMVALID       = 2002904;
  DMERR_GET_IID_DIMADD            = 2002906;
  DMERR_INVALID_DMCOMM_DIMADD     = 2002907;
  DMERR_INVALID_DMCOMM_DIMDEL     = 2002908;
  DMERR_GET_PROC_DIMSH            = 2002909;
  DMERR_GIVE_SEG_DIMSH            = 2002910;
  DMERR_INVALID_DMCOMM            = 2002911;
  DMERR_APPLID_UPPER_CASE         = 2002912;
  DMERR_PM_INITIALIZE             = 2002913;
  DMERR_CREATE_MSG_QUEUE          = 2002914;
  DMERR_GET_SPACE_DATA_OPEN       = 2002915;
  DMERR_DIM_ADD_FAILED            = 2002916;
  DMERR_EXLST_ADD_OPEN            = 2002917;
  DMERR_GET_SPACE_HAB_OPEN        = 2002918;
  DMERR_GET_SPACE_IID_OPEN        = 2002919;
  DMERR_DMI_OPEN_FAILED           = 2002920;
  DMERR_NLS_ERROR_OPEN            = 2002921;
  DMERR_PARM_MISSING_OPEN         = 2002922;
  DMERR_INVALID_APPLID            = 2002923;
  DMERR_INVALID_THREAD_ID         = 2002924;
  DMERR_INVALID_INSTID            = 2002925;
  DMERR_CANNOT_CREATE_INSTID      = 2002926;
  DMERR_CANNOT_CREATE_OBJ_WND     = 2002927;
  DMERR_EXLST_REMOVE_FAILED       = 2002928;
  DMERR_DIM_DEL_FAILED            = 2002929;
  DMERR_DM_CLASS_REGISTRATION     = 2002930;

(* Library Services Error Constants *)

  DMERR_APP_LIBDEF_FILE_NOT_FOUND = 3300;
  DMERR_LIBDEF_COMMAND_TOO_LONG   = 1203300;
  DMERR_LIBRARY_EXISTS            = 1203301;
  DMERR_HELP_EXISTS               = 1203302;
  DMERR_KEYLIST_MEMBER_NOT_FOUND  = 1203303;
  DMERR_ICON_MEMBER_NOT_FOUND     = 1203304;
  DMERR_MESSAGE_MEMBER_NOT_FOUND  = 1203305;
  DMERR_DM_PNL_MEMBER_NOT_FOUND   = 1203306;
  DMERR_COMMAND_MEMBER_NOT_FOUND  = 1203307;
  DMERR_INVALID_LIBDEF_IN_APP     = 1203308;
  DMERR_UNMATCHED_QUOTATION_MARK  = 1203309;
  DMERR_INVALID_LIBLIST           = 1203310;
  DMERR_OPEN_APP_FILE             = 1603300;
  DMERR_READ_APP_FILE             = 1603301;
  DMERR_OPEN_KEYLIST_LIBRARY      = 1603302;
  DMERR_OPEN_ICON_LIBRARY         = 1603303;
  DMERR_OPEN_MESSAGE_LIBRARY      = 1603304;
  DMERR_OPEN_DM_PNL_LIBRARY       = 1603305;
  DMERR_OPEN_COMMAND_LIBRARY      = 1603306;
  DMERR_GET_KEYLIST_LIBRARY_DIR   = 1603307;
  DMERR_GET_ICON_LIBRARY_DIR      = 1603308;
  DMERR_GET_MESSAGE_LIBRARY_DIR   = 1603309;
  DMERR_GET_DM_PNL_LIBRARY_DIR    = 1603310;
  DMERR_GET_COMMAND_LIBRARY_DIR   = 1603311;
  DMERR_GET_KEYLIST_MEMBER        = 1603312;
  DMERR_GET_ICON_MEMBER           = 1603313;
  DMERR_GET_MESSAGE_MEMBER        = 1603314;
  DMERR_GET_DM_PNL_MEMBER         = 1603315;
  DMERR_GET_COMMAND_MEMBER        = 1603316;
  DMERR_LIBRARY_CHANGED           = 1603317;
  DMERR_ALLOC_LIBRARY_DMOPEN      = 1603318;
  DMERR_ALLOC_FILE_READ_BUFFER    = 1603319;
  DMERR_ALLOC_NEW_LIBLIST         = 1603320;

(* Message Services Error Constants *)

  DMERR_QUERY_MESSAGE_ID_VISIBLE  = 403700;
  CMERR_MESSAGE_TRUNCATED         = 803700;
  CMERR_MESSAGE_NOT_FOUND         = 1203700;
  DMERR_DISPLAY_MESSAGE_PANEL     = 1603700;
  DMERR_ADD_MESSAGE_POPUP         = 1603701;
  DMERR_CREATE_MESSAGE_PANEL      = 1603702;
  DMERR_ALLOC_MESSAGE_ID          = 1603703;
  DMERR_LOAD_MESSAGE_PANEL_RSC    = 1603704;
  DMERR_CREATE_TEXT_CONTROL       = 1603705;
  DMERR_SHOW_CURRENT_PANEL        = 1603706;
  DMERR_REMOVE_MESSAGE_PANEL      = 1603707;
  DMERR_SET_MESSAGE_TEXT          = 1603708;
  DMERR_SET_ZVAR_RETURN_CODE      = 1603709;
  DMERR_ALLOC_INSTANCE_DATA       = 1603710;
  DMERR_ALLOC_SESSION_INST_DATA   = 1603711;
  DMERR_ALLOC_CRTCL_MESSAGE_TEXT  = 1603712;
  DMERR_LOAD_MESSAGE_RESOURCE     = 1603713;
  DMERR_CREATE_MSG_CONTROL        = 1603714;
  DMERR_GET_MESSAGE_RESOURCE      = 1603715;
  DMERR_GET_MESSAGE               = 1603716;
  DMERR_ALLOC_MSG_TEXT_REQUEST    = 1603717;
  CMERR_REFRESH_VARIABLE          = 1603718;
  CMERR_TRANSLATE_MSG_VARIABLE    = 1603719;
  DMERR_CREATE_SEVERE_PANEL       = 1603720;
  DMERR_LOAD_SEVERE_MSG_DLGBOX    = 1603721;
  DMERR_CREATE_ACCEL_TABLE        = 1603722;
  DMERR_SET_ACCEL_TABLE           = 1603723;
  CMERR_ALLOC_MSG_SUB_BUFFER      = 1603724;
  CMERR_ALLOC_VAR_XLAT_BUFFER     = 1603725;
  DMERR_UPDATE_MESSAGE_PANEL      = 1603726;
  DMERR_SET_MSGBOX_TITLE          = 1603727;
  DMERR_SET_BUTTON_TEXT           = 1603728;

(* Storage Manager Error Constants *)

  DMERR_STORAGE                   = 1604100;
  DMERR_ALLOCATING_SEGMENT        = 1604101;
  DMERR_ALLOC_INTERNAL_CAT        = 1604102;
  DMERR_ALLOC_STORAGE_REQUEST     = 1604103;
  DMERR_ALL_SEGMENTS_NOT_FREED    = 1604104;
  DMERR_COMBINED_BLOCKS_LST       = 1604105;
  DMERR_DELETING_POOL             = 1604106;
  DMERR_DELETING_SAT_STORAGE      = 1604107;
  DMERR_EXPANDING_POOL            = 1604108;
  DMERR_FREEING_CHAIN_LINK        = 1604109;
  DMERR_FREEING_POOLS_BLOCK       = 1604110;
  DMERR_FREEING_POOLS_LST         = 1604111;
  DMERR_FREEING_SEGMENT           = 1604112;
  DMERR_GETTING_LST_STORAGE       = 1604113;
  DMERR_GETTING_STORAGE_BLOCK     = 1604114;
  DMERR_INITIALIZING_SEGMENT      = 1604115;
  DMERR_INVALID_STORAGE_LENGTH    = 1604116;
  DMERR_OVERLAPPING_STORAGE       = 1604117;
  DMERR_REQUEST_TOO_LARGE         = 1604118;
  DMERR_SEGLINK_NOT_ALLOCATED     = 1604119;
  DMERR_SEGMENT_NOT_IN_CHAIN      = 1604120;
  DMERR_SHARING_ANCHOR_SEGMENT    = 1604121;
  DMERR_SHARING_STORAGE_SEGMENT   = 1604122;
  DMERR_STORAGE_NOT_IN_POOL       = 1604123;
  DMERR_SUBFREEING_STORAGE        = 1604124;
  DMERR_ADDING_AVAILABLE_LIST     = 2004100;
  DMERR_ALLOCATING_FIRST_BLOCK    = 2004101;
  DMERR_ALLOCATING_FIRST_CAT      = 2004102;
  DMERR_ALLOCATING_FIRST_LST      = 2004103;
  DMERR_ALLOC_INIT_SPACE          = 2004104;
  DMERR_CREATING_DEFAULT_POOL     = 2004105;
  DMERR_CREATING_INTERNAL_POOL    = 2004106;
  DMERR_CREATING_SEGLINK_POOL     = 2004107;
  DMERR_EXISTING_BLOCKS_LST       = 2004108;

(* Variable Services Error Constants *)

  DMERR_VAR_NOT_FOUND             = 805300;
  DMERR_VDELETE_VAR_NOT_FOUND     = 805301;
  DMERR_VCOPY_VAR_NOT_FOUND       = 805302;
  DMERR_NOT_A_NUMBER              = 805303;
  DMERR_INDEFINITE                = 805304;
  DMERR_NEG_INFINITY              = 805305;
  DMERR_POS_INFINITY              = 805306;
  DMERR_FLOAT_NUM_TOO_LARGE       = 805307;
  DMERR_DATA_TRUNC                = 805308;
  DMERR_BINSTR_DATA_TRUNC         = 805309;
  DMERR_FIXED_NUM_TOO_LARGE       = 805310;
  DMERR_FIXEDU_NUM_TOO_LARGE      = 805311;
  DMERR_FIXEDS_NUM_TOO_LARGE      = 805312;
  DMERR_HEX_NUM_TOO_LARGE         = 805313;
  DMERR_PACK_NUM_TOO_LARGE        = 805314;
  DMERR_BIT_NUM_TOO_LARGE         = 805315;
  DMERR_UNDERFLOW                 = 805316;
  DMERR_OVERFLOW                  = 805317;
  DMERR_FIXED_CONVERSION          = 805318;
  DMERR_FIXEDS_CONVERSION         = 805319;
  DMERR_FIXEDU_CONVERSION         = 805320;
  DMERR_HEX_CONVERSION            = 805321;
  DMERR_PACK_CONVERSION           = 805322;
  DMERR_BIT_CONVERSION            = 805323;
  DMERR_FLOAT_CONVERSION          = 805324;
  DMERR_UNSIGNED_FIX_FORMAT       = 805325;
  DMERR_NOT_A_PACK_NUMBER         = 805326;
  DMERR_VCOPY_DATA_TRUNC          = 805327;
  DMERR_INVALID_VAR_NAME          = 1205300;
  DMERR_INVALID_VDEFINE_VAR_NAME  = 1205301;
  DMERR_INVALID_VDELETE_VAR_NAME  = 1205302;
  DMERR_INVALID_VCOPY_VAR_NAME    = 1205303;
  DMERR_INVALID_VREPLACE_VAR_NAME = 1205304;
  DMERR_INVALID_DIMEN             = 1205305;
  DMERR_INVALID_VDEFINE_COPY      = 1205306;
  DMERR_INVALID_PACK_DIGITS       = 1205307;
  DMERR_INVALID_FLOAT_DIGITS      = 1205308;
  DMERR_PACK_NUM_LENGTH_TOO_SMALL = 1205309;
  DMERR_INVALID_SUB               = 1205310;
  DMERR_VAR_SUB_NOT_DEFINED       = 1205311;
  DMERR_VAR_SUB_INCORRECT_FORMAT  = 1205312;
  DMERR_INVALID_SUB_VALUE         = 1205313;
  DMERR_SUB_VAR_NOT_ADDED         = 1205314;
  DMERR_SUB_OUT_OF_RANGE          = 1205315;
  DMERR_VAR_NOT_ARRAY             = 1205316;
  DMERR_INVALID_VREPLACE_LENGTH   = 1205317;
  DMERR_INVALID_VCOPY_LENGTH      = 1205318;
  DMERR_INVALID_VDEFINE_LENGTH    = 1205319;
  DMERR_INVALID_PLACE_HOLDER      = 1205320;
  DMERR_NAME_FORMAT_LIST          = 1205321;

(* NLS Error Constants *)

  DMERR_SPLT_DBCS_DATA_TRUNC      = 805700;
  DMERR_SPLT_DBCS_CHAR            = 805701;
  DMERR_NLS_GETCTRYINFO           = 1605701;
  DMERR_NLS_CASEMAP               = 1605702;

(* REXX Interface Error Constants *)

  DMERR_DMCOMM_INVALID_NAME       = 1206200;
  DMERR_NO_PM_SESSION             = 1606200;
  DMERR_REXX_VARPOOL_ACCESS       = 1606201;


END Isp.