home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / brokcode.zip / READHD2.EXE / lha / READHDR1.CLA < prev   
Text File  |  1989-04-13  |  5KB  |  118 lines
  1.          MEMBER('READHDR')
  2. HEADLIST     PROCEDURE                ! PRINT INFORMATION
  3.  
  4.  OMIT('** ENDH **')
  5. ╔══════════════╦═══════════════════════════════════════════════════════════════╗
  6. ║ READHDR1.CLA ║ Prints the File Header Information                   ║
  7. ╚══════════════╩═══════════════════════════════════════════════════════════════╝
  8. ** ENDH **
  9.  
  10.  
  11. REPORT         REPORT      WIDTH(80)
  12. HDR_LINE          HEADER
  13.          COL(29)    STRING('CLARION FILE HEADER INFO {17}Pg. 1')
  14.            ROW(+1,26)   STRING(30),USE(MESSAGE)
  15.            ROW(+1,1)    STRING('Print Date :')
  16.          COL(14)    STRING(@D1),USE(TDATE)
  17.          COL(23)    STRING(@T3),USE(TTIME)
  18.          COL(53)    STRING('File Date :')
  19.          COL(65)    STRING(@D1),USE(FHE:CHGDATE)
  20.          COL(74)    STRING(@T3),USE(FHE:CHGTIME)
  21.            ROW(+1,1)    STRING('═{80}') CTL(@LF)
  22.               .
  23. FHE_DETAIL          DETAIL
  24.            ROW(+1,3)    STRING('FILE SIGNATURE {7}:')
  25.          COL(32)    STRING(@P#####P),USE(FHE:FILESIG)
  26.            ROW(+2,3)    STRING('FILE ATTRIBUTES {6}:')
  27.          COL(30)    STRING(8),USE(BITSTR)
  28.            ROW(+2,3)    STRING('NUMBER OF KEYS {7}:')
  29.          COL(35)    STRING(@P##P),USE(FHE:NUMBKEYS)
  30.            ROW(+1,3)    STRING('NUMBER OF RECORDS    :')
  31.          COL(28)    STRING(@N9),USE(FHE:NUMRECS)
  32.            ROW(+1,3)    STRING('NUMBER OF DELETES    :')
  33.          COL(28)    STRING(@N9),USE(FHE:NUMDELS)
  34.            ROW(+1,3)    STRING('NUMBER OF FIELDS {5}:')
  35.          COL(32)    STRING(@N5),USE(FHE:NUMFLDS)
  36.            ROW(+1,3)    STRING('NUMBER OF PICTURES   :')
  37.          COL(32)    STRING(@N5),USE(FHE:NUMPICS)
  38.            ROW(+1,3)    STRING('NUMBER OF ARRAYS {5}:')
  39.          COL(32)    STRING(@N5),USE(FHE:NUMARRS)
  40.            ROW(+2,3)    STRING('RECORD LENGTH {8}:')
  41.          COL(32)    STRING(@N5),USE(FHE:RECLEN)
  42.            ROW(+2,3)    STRING('START OF DATA {8}:')
  43. OFFSET         COL(28)    STRING(@N9),USE(FHE:OFFSET)
  44.            ROW(+2,3)    STRING('LOGICAL EOF {10}:')
  45.          COL(28)    STRING(@N9),USE(FHE:LOGEOF)
  46.            ROW(+1,3)    STRING('LOGICAL BOF {10}:')
  47.          COL(28)    STRING(@N9),USE(FHE:LOGBOF)
  48.            ROW(+2,3)    STRING('1st USUABLE FREEREC  :')
  49.          COL(28)    STRING(@N9),USE(FHE:FREEREC)
  50.            ROW(+2,3)    STRING('RECORD NAME {10}:')
  51.          COL(28)    STRING(12),USE(FHE:RECNAM)
  52.            ROW(+1,3)    STRING('MEMO NAME {12}:')
  53.          COL(28)    STRING(12),USE(FHE:MEMNAM)
  54.            ROW(+1,3)    STRING('FILENAME PREFIX {6}:')
  55.          COL(28)    STRING(3),USE(FHE:FILPRE)
  56.            ROW(+1,3)    STRING('RECORD PREFIX {8}:')
  57.          COL(28)    STRING(3),USE(FHE:RECPRE)
  58.            ROW(+2,3)    STRING('SIZE OF MEMO {9}:')
  59.          COL(32)    STRING(@N5),USE(FHE:MEMOLEN)
  60.            ROW(+1,3)    STRING('COLUMN WIDTH OF MEMO :')
  61.          COL(32)    STRING(@N5),USE(FHE:MEMOWID) CTL(@LF)
  62.                 CTL(@FF)
  63.               .
  64. RHE_HEAD          DETAIL
  65.          COL(29)    STRING('CLARION FILE HEADER INFO {17}Pg. 2')
  66.            ROW(+1,26)   STRING(30),USE(MESSAGE)
  67.            ROW(+2,1)    STRING('NAME {15}TYPE {6}OFFSET   LENGTH   Dec '   |
  68.                   & 'Sig   # Dec  Array #  Pict #')
  69.            ROW(+1,1)    STRING('═{80}') CTL(@LF)
  70.               .
  71. RHE_DETAIL          DETAIL
  72.          COL(1)        STRING(16),USE(RHE:FLDNAME)
  73.          COL(20)    STRING(7),USE(FLDTYPE)
  74. FOFFSET         COL(30)    STRING(@N5),USE(RHE:FOFFSET)
  75.          COL(39)    STRING(@N5),USE(RHE:LENGTH)
  76.          COL(49)    STRING(@N3),USE(RHE:DECSIG)
  77.          COL(59)    STRING(@N3),USE(RHE:DECDEC)
  78.          COL(65)    STRING(@N5),USE(RHE:ARRNUM)
  79.          COL(74)    STRING(@N5),USE(RHE:PICNUM) CTL(@LF)
  80.               .
  81.               FOOTER
  82.            ROW(+2,32)   STRING('** END OF REPORT **') CTL(@LF)
  83.                 CTL(@FF)
  84.          .          .
  85.  
  86. TDATE         LONG                 ! TODAYS DATE
  87. TTIME         LONG                 ! TODAYS TIME
  88. FLDTYPE         STRING(7)
  89.  
  90.  CODE
  91.    TDATE=TODAY()                 ! GET CURRENT DATE AND TIME
  92.    TTIME=CLOCK()
  93.    FHE:OFFSET = FHE:OFFSET + 5             ! PRINT TRUE DATA START LOC
  94.    MESSAGE=CENTER('For : '& clip(fname),30)
  95.    OPEN(REPORT)                     ! PRINT THE REPORT
  96.    PRINT(FHE_DETAIL)                 ! FILE HEADER DETAIL
  97. !══════════════════ NOW PROCESS THE RECORD DESCRIPTORS ═════════════════════════
  98.   PRINT(RHE_HEAD)                 ! RECORD HEADER HEADER
  99.   SET(RECHEAD,86)                 ! Start at byte 86
  100.   LOOP FHE:NUMFLDS TIMES             ! Do for No. of Fields
  101.     NEXT(RECHEAD)
  102.     RHE:FOFFSET = RHE:FOFFSET + 1         ! PRINT TRUE FIELD START LOC
  103.     EXECUTE RHE:FLDTYPE                 ! Display Field Type of ...
  104.       FLDTYPE='LONG   '                 ! 1
  105.       FLDTYPE='REAL   '                 ! 2
  106.       FLDTYPE='STRING '                 ! 3
  107.       FLDTYPE='PICTURE'                 ! 4
  108.       FLDTYPE='BYTE   '                 ! 5
  109.       FLDTYPE='SHORT  '                 ! 6
  110.       FLDTYPE='GROUP  '                 ! 7
  111.       FLDTYPE='DECIMAL'                 ! 8
  112.     .
  113.     PRINT(RHE_DETAIL)                 ! ACTUAL RECORD DETAIL
  114.   .
  115.   CLOSE(REPORT)
  116.  RETURN
  117.  
  118.