home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / PROGRAMS.ARC / GLOBALS.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  2.1 KB  |  80 lines

  1.  
  2. GLOBAL DOMAINS
  3.   DB_SELECTOR    = dba; logdba
  4.   file = prn_file
  5.  
  6. /* Declarations for recordbrowser and screen handler */
  7.   TYPE        = int(); str(); real() ; cat()
  8.   TYPELIST    = TYPE*
  9.   VALUE        = int(INTEGER); str(STRING); real(REAL)
  10.   VALUELIST    = VALUE*
  11.   IDL        = STRING* 
  12.   FNAME        = STRING
  13.   FNAMELIST    = FNAME*
  14.  
  15.  
  16. /* Declarations for records in the database */
  17.   dbdom    = city(CITYNO,CITYNAME);
  18.         person(FIRSTNAME,LASTNAME,STREET,CITYNO,CODE)
  19.   CITYNO, CITYNAME, FIRSTNAME, LASTNAME, STREET, CODE = STRING
  20.  
  21.   INDEXNAME = person_name; person_adr; city_no
  22.   RELATION  = city; person
  23.  
  24.  
  25. /* Domains used by tools */
  26. include "tdoms.pro"
  27.  
  28.  
  29. /* Global database used in screen handler and record browser */
  30. GLOBAL DATABASE - globscrhnd
  31.   /* Database declarations used in scrhnd */
  32.   value(FNAME,STRING)        /* value of a field */
  33.   field(FNAME,TYPE,ROW,COL,LEN) /* Screen definition */
  34.   txtfield(ROW,COL,LEN,STRING)
  35.   windowsize(ROW,COL).
  36.  
  37.   /* Open indexes on relations */
  38.   indexes(INDEXNAME,BT_SELECTOR)
  39.  
  40.  
  41. /* Database to load and save via consult and save */
  42. GLOBAL DATABASE
  43.   /* Printer definitions */
  44.   margin(INTEGER)
  45.   topmargin(INTEGER)
  46.   pagelength(INTEGER)
  47.   printer_init(STRING)
  48.   printdest(STRING)
  49.   charconv(STRING)  
  50.   labels_margin(INTEGER)
  51.   labels_initcode(STRING)
  52.   labels_printdest(STRING)
  53.   screen(RELATION,GLOBSCRHND)    /* Saving different screens */
  54.  
  55.  
  56. GLOBAL PREDICATES
  57.   /* Global predicates for printer control */
  58.   determ init_printer(INTEGER,INTEGER,INTEGER,STRING,STRING,STRING)-(i,i,i,i,i,i)
  59.   determ write_ch(CHAR) - (i)
  60.   determ write_str(STRING) - (i)
  61.   determ make_footer
  62.   determ make_header
  63.   determ close_printer
  64.   determ check_page(STRING,INTEGER)-(i,i)
  65.   determ shift_page()
  66.   determ getpageno(INTEGER)-(o)
  67.  
  68.   /* Global predicates defined in screen handler */
  69.   determ createwindow(STRING) - (i)
  70.   determ scrhnd(STRING,KEY) - (i,o)
  71.   determ field_action(FNAME) - (i)
  72.   determ field_value(FNAME,STRING) - (i,o)
  73.   determ noinput(FNAME) - (i)
  74.   determ writescr
  75.  
  76.   /* Record browser */
  77.   determ browse(RELATION)-(i)
  78.  
  79. include "tpreds.pro"
  80.