home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0000 - 0009 / ibm0000-0009 / ibm0003.tar / ibm0003 / ORACLE10.ZIP / IADBIOS.SQL < prev    next >
Encoding:
Text File  |  1987-08-31  |  2.2 KB  |  52 lines
  1. rem This script enters CRT data for SQL*Forms/IAD running on color PC's using
  2. rem BIOS screen control.  The terminal type is IADBIOS.  Run CRT as follows:
  3. rem
  4. rem       CRT IADBIOS USERNAME/PASSWORD
  5. rem
  6. rem Afterwards COPY IADBIOS.CRT SQLFORMS.CRT as the IAD default.  Otherwise,
  7. rem the terminal definition file will be "IADBIOS.CRT", and you must indicate
  8. rem to each utility that you wish to use a non-default CRT file (usually,
  9. rem with a "-c" switch:  -c IADBIOS).
  10. rem
  11. rem Note:  the necessary tables must already be part of the database
  12. rem on which this script is to be run.  CRT.SQL is a file that creates
  13. rem these tables.
  14.  
  15. set echo OFF
  16.  
  17. rem **********************************************************************
  18. rem Enter the master record for the CRT definition
  19. rem **********************************************************************
  20.  
  21. delete from crt where name='IADBIOS';
  22. insert into crt (name, type, base, lines, columns, msgl, modl, clearscreen,
  23.     cleareol, att3, att2_3, att1_2_3,
  24.     backspace, forespace, goto_cl, offset, clearline, att1,
  25.     att2, att1_2, att1_3, attoff, scrup, scrdn, graphon,
  26.     graphoff, cursorup, cursordown)
  27.  values ('IADBIOS', 'CHAR', 1, 25, 80, 24, 25, '\eC\eL\002',
  28.     '\eE', '\eL\204', '\eL\027', '\eL\027',
  29.     '\eB', '\eA', '\eK\y\x', 0, '\eE\eF', '\eL\027',
  30.     '\eL\011', '\eL\107', '\eL\004', '\eL\002', '\eG', '\eH', NULL,
  31.     NULL, '\eU', '\eT')
  32. /
  33.  
  34. rem **********************************************************************
  35. rem Define the box-graphic characters
  36. rem **********************************************************************
  37.  
  38. delete from crtbox where crtname='IADBIOS';
  39. insert into crtbox values ('IADBIOS', 'Y', '│', '─', '┌', '┐', '└', '┘',
  40.     '├', '┤', '┬', '┴', '┼', '|', '-', '+', '+', '+', '+', '+', '+', '+',
  41.     '+', '+');
  42.  
  43. rem **********************************************************************
  44. rem Define the function keys
  45. rem **********************************************************************
  46.  
  47. DELETE FROM esc WHERE NAME='IADBIOS';
  48. insert into esc select prod_code, 'IADBIOS', func, escseq, comments
  49.                   from esc
  50.                  where name='PCBIOS';
  51. commit
  52.