home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / COMMONGR / CG.2 / COMMON / TOPIC31.STD < prev    next >
Text File  |  1995-03-19  |  2KB  |  88 lines
  1. # topic31.std    314.2 - 4/9/93
  2. # @(#)Copyright (C) 1987-1993 Verity, Inc.
  3. # System/User Topic Set Descriptor
  4. #
  5. $control: 1
  6. descriptor:
  7.   /packed = yes
  8. {
  9.   data-table:    nod
  10.     /offset = 0
  11.     /num-records = 1
  12.     /max-records = 1
  13.   {
  14.     fixwidth:    TOPSTAMP_MAJ 4 date
  15.     fixwidth:    TOPSTAMP_MIN 4 date
  16.     fixwidth:    TOPTYPE      2 signed-integer
  17.     fixwidth:    MAXIID       2 signed-integer
  18.     fixwidth:    SYSNAME        10 text
  19.     fixwidth:    SPARE        42 text
  20.   }
  21.  
  22.   data-table:    nod
  23.     /priority = HIGH
  24.     /offset   = 64
  25.   {
  26.     fixwidth:    OP    2    signed-integer
  27.     fixwidth:    CLINK    2  unsigned-integer
  28.     fixwidth:    PLINK    2  unsigned-integer
  29.     
  30.     fixwidth:    IID    2    signed-integer
  31.     fixwidth:    STAMP    2    signed-integer
  32.     fixwidth:    STASH    2    signed-integer
  33.     fixwidth:    FLAGS    2  unsigned-integer
  34.     
  35.     fixwidth:    OPARG    4    signed-integer
  36.  
  37.     varwidth:    VALUE       xvk
  38.     fixwidth:    VALUE_OF   3 unsigned-integer
  39.     fixwidth:    VALUE_SZ   2 unsigned-integer
  40.  
  41.     varwidth:    NAME       xtn
  42.     fixwidth:    NAME_OF    3 unsigned-integer
  43.     fixwidth:    NAME_SZ    1 unsigned-integer
  44.  
  45.     varwidth:    ANNOT      xta
  46.     fixwidth:    ANNOT_OF   3 unsigned-integer
  47.     fixwidth:    ANNOT_SZ   2 unsigned-integer
  48.  
  49.     varwidth:    AUTHOR       xta
  50.     fixwidth:    AUTHOR_OF  3 unsigned-integer
  51.     fixwidth:    AUTHOR_SZ  1 unsigned-integer
  52.  
  53.     varwidth:    DATE       xta
  54.     fixwidth:    DATE_OF    3 unsigned-integer
  55.     fixwidth:    DATE_SZ    1 unsigned-integer
  56.  
  57.   }
  58.  
  59.   data-table:     lnk
  60.     /priority = HIGH
  61.   {
  62.     fixwidth:    CNODE    2  unsigned-integer
  63.     fixwidth:    CNEXT    2  unsigned-integer
  64.  
  65.     fixwidth:    PNODE    2  unsigned-integer
  66.     fixwidth:    PNEXT    2  unsigned-integer
  67.  
  68.     fixwidth:    WEIGHT    1  unsigned-integer
  69.     fixwidth:    THRESH    1  unsigned-integer
  70.   }
  71.  
  72.   data-table:    del
  73.   {
  74.     varwidth:    DELNAMES     xta
  75.     fixwidth:    DELNAMES_OF  3 unsigned-integer
  76.     fixwidth:    DELNAMES_SZ  1 unsigned-integer
  77.   }
  78.   data-table:    nam
  79.   {
  80.     fixwidth:    NAMEIDX      2    signed-integer
  81.   }
  82.   data-table:    val
  83.   {
  84.     fixwidth:    VALUEIDX  2    signed-integer
  85.   }
  86. }
  87. $$
  88.