/* TCMERR.PLI: Include file for TCM error and status codes */

DCL TCMDSW EXTERNAL FIXED BIN(15);	/* Dsw of last TCM system call */

/* TCM ERROR CODES */

DCL 1 TCMERR STATIC EXTERNAL,
      2 TE_BDH  FIXED BIN(7) INIT(-1), /* Bad Height Parameter (height > maximum or < 1) */
      2 TE_INS  FIXED BIN(7) INIT(-2), /* ...TCM not installed */
      2 TE_BDW  FIXED BIN(7) INIT(-3), /* Bad Parameter (out of range) */
      2 TE_BDP  FIXED BIN(7) INIT(-4), /* Bad Width Parameter (width > maximum or < 2) */
      2 TE_CRT  FIXED BIN(7) INIT(-5), /* Invalid CRT terminal type */
      2 TE_IDS  FIXED BIN(7) INIT(-6), /* Insufficient Dynamic Storage, no buffer space */
      2 TE_ACT  FIXED BIN(7) INIT(-7), /* TCM not active (aborted) */
      2 TE_NSW  FIXED BIN(7) INIT(-8), /* No such window */
      2 TE_OTF  FIXED BIN(7) INIT(-9), /* Cannot open text_save file */
      2 TE_EOL  FIXED BIN(7) INIT(-10),/* No more lines */
      2 TE_SRV  FIXED BIN(7) INIT(-11),/* Send or Receive error */
      2 TE_AST  FIXED BIN(7) INIT(-12),/* Receive AST initialization error */
      2 TE_STA  FIXED BIN(7) INIT(-13),/* TCM not started */
      2 TE_EVF  FIXED BIN(7) INIT(-14),/* Event flag directive error */
      2 TE_TMO  FIXED BIN(7) INIT(-15),/* Timeout on no CRT activity */
      2 TE_INF  FIXED BIN(7) INIT(-26),/* Init_data file not found */
      2 TE_FIO  FIXED BIN(7) INIT(-59),/* File I/O error */

/* TCM STATUS CODES (Editing errors & warnings) */

      2 TS_SUC  FIXED BIN(7) INIT(1),  /* Success, valid completion */
      2 TS_LSL  FIXED BIN(7) INIT(2),  /* Last line */
      2 TS_XFR  FIXED BIN(7) INIT(3),  /* Exit forward */
      2 TS_XBK  FIXED BIN(7) INIT(4),  /* Exit backward */
      2 TS_ABO  FIXED BIN(7) INIT(5),  /* Abort key pressed, user screen exit */
      2 TS_ENT  FIXED BIN(7) INIT(10), /* Enter key pressed */
      2 TS_IKY  FIXED BIN(7) INIT(11), /* Invalid key pressed in read only mode */
      2 TS_UKY  FIXED BIN(7) INIT(12), /* Undefined function key pressed */
      2 TS_BFI  FIXED BIN(7) INIT(20), /* Buffer full - char or line insert */
      2 TS_BFP  FIXED BIN(7) INIT(21), /* Buffer full - paste or undelete */
      2 TS_MCI  FIXED BIN(7) INIT(23), /* Maximum lines - char or line insert */
      2 TS_MCP  FIXED BIN(7) INIT(24), /* Maximum lines - paste of undelete */
      2 TS_RFS  FIXED BIN(7) INIT(30), /* Refresh screen key pressed */
      2 TS_HLP  FIXED BIN(7) INIT(31), /* Help key pressed */
      2 TS_CUT  FIXED BIN(7) INIT(40), /* Cut too large */
      2 TS_APE  FIXED BIN(7) INIT(50), /* Advance past end of text */
      2 TS_BPS  FIXED BIN(7) INIT(51), /* Backup past start of text */
      2 TS_SNF  FIXED BIN(7) INIT(52), /* String not found */
      2 TS_WTL  FIXED BIN(7) INIT(53); /* Word too long for line */