home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / menu / progen / source / prodim71.bi < prev    next >
Encoding:
Text File  |  1991-05-27  |  1.3 KB  |  48 lines
  1. DEFINT A-Z
  2.  TYPE RecordType
  3.   status      AS STRING * 1  'First element is in use flag
  4.   Num         AS STRING * 3
  5.   name        AS STRING * 16  '(in order for alphabetical sort)
  6.   type        AS STRING * 1
  7.   case        AS STRING * 1
  8.   key         AS STRING * 1
  9.   decimal     AS STRING * 2
  10.   length      AS STRING * 2
  11.   format      AS STRING * 20
  12.   erow        AS STRING * 2
  13.   ecol        AS STRING * 2
  14.   progname    AS STRING * 8
  15.   comment     AS STRING * 30
  16.   recnum      AS INTEGER
  17.   DUM         AS STRING * 14
  18.   END TYPE
  19.  
  20. TYPE PIMindex
  21.  
  22.          desc       AS STRING * 24
  23.          file       AS STRING * 8
  24.          indexF(20) AS STRING * 32
  25.          klen(20)   AS INTEGER
  26.          nok(20)    AS INTEGER
  27.          nexav(20)  AS INTEGER
  28.          kdel(20)   AS INTEGER
  29.  
  30. END TYPE
  31.  
  32.   DIM SHARED PIMmaster AS PIMindex
  33.  
  34.   DIM SHARED RecField AS RecordType
  35.   DIM SHARED indexKEY$(20, 6)  ' Index variables
  36.   DIM SHARED formatsel1$(16)
  37.   DIM SHARED formatsel2$(16)
  38.   DIM SHARED fieldpointer%(25, 80)  ' Frame for input markers
  39.   DIM SHARED fl$(255)   ' File array, 2nd Key Select Array
  40.   DIM SHARED scrnline$(25)  ' Lines 1-24
  41.   DIM SHARED dialog$(20)
  42.   DIM SHARED omenu$(10)
  43.  
  44.   DIM SHARED TestRecField AS RecordType
  45.   DIM SHARED DispLine$(30)
  46.   DIM SHARED Findex(100) AS RecordType
  47.  
  48.