1 .* ***********************************************************
  2 .* *                                                         *
  3 .* *                                                         *
  4 .* * Copyright, (C) Honeywell Information Systems Inc., 1981 *
  5 .* *                                                         *
  6 .* *                                                         *
  7 .* ***********************************************************
  8 .*                                      TAB MACROS
  9 .*                                      ENTRY VECTOR
 10 .indctl on
 11 .srv TOC_PART "tab"
 12 .srv TOC_CBAR "%ChangeBar%"
 13 .ur .go %InputFileName%
 14 .*                                      TURN TABING ON
 15 .la tab_on
 16 .ts "%TABING%" ^= ""
 17 .go ret
 18 .srv TABING "TAB_ON"
 19 .ifi toc_setup
 20 .go ret
 21 .*                                      COUNT, EMIT TOC LINE & TITLE
 22 .la tab
 23 .la dot_tab
 24 .ur .ifi break_title "%Parameter%"
 25 .*
 26 .ts "%InputFileName%" = "tab"
 27 .ifi tab_get_no 1
 28 .ts "%InputFileName%" = "dot_tab"
 29 .ifi dot_tab_get_no 1
 30 .*
 31 .brb
 32 .ur .ur .spt %%{1 + %LABELSPACE% + %MPM_SPACE%}%%
 33 .srv TITLE1 "Table %table%.  %TITLE1%"
 34 .*
 35 .tbb
 36 .srv I 1
 37 .fif
 38 .alc
 39 .la TAB_LOOP
 40 .ur .ur %%TITLE%I%%%
 41 .srv I %I% + 1
 42 .ts %I% <= %TITLEN%
 43 .go TAB_LOOP
 44 .fin
 45 .alb
 46 .ur .ur .spf %%{%LABELSPACE% + %MPM_SPACE%}%%
 47 .tbe
 48 .*
 49 .la tab_output_index
 50 .ts "%TABING%" = ""
 51 .go TAB_STEP_INDEX
 52 .*
 53 .ur .wrt %FileName%.tab.compin .1Table %table%.
 54 .ur .wrt %FileName%.tab.compin .bbc 2
 55 .ur .wrt %FileName%.tab.compin .inl 1
 56 .ur .ifi toc_entry "%TITLE%"
 57 .*
 58 .la TAB_STEP_INDEX
 59 .srv NEXT_TAB_NO %NEXT_TAB_NO% + %TAB_INCR%
 60 .srv NEXT_TAB_DOT_NO %NEXT_TAB_DOT_NO% + %TAB_DOT_INCR%
 61 .go ret
 62 .*                                      TAB_INDEX
 63 .la tab_index
 64 .la dot_tab_index
 65 .srv TITLE "%Parameter%"
 66 .ts "%InputFileName%" = "tab_index"
 67 .ifi tab_get_no 1
 68 .ts "%InputFileName%" = "dot_tab_index"
 69 .ifi dot_tab_get_no 1
 70 .go tab_output_index
 71 .*                                      RETURN Nth NEXT TAB NO.
 72 .la tab_get_no
 73 .la dot_tab_get_no
 74 .srv TABLE_SECTION;.srv NEXT_TAB_NO;.srv NEXT_TAB_DOT_NO
 75 .srv TAB_INCR 0;.srv TAB_DOT_INCR 0
 76 .ts "%TABLE_SECTION%" = "%section%"
 77 .go INCR_TAB_CT
 78 .srv TABLE_SECTION "%section%"
 79 .srv NEXT_TAB_NO 0;.srv NEXT_TAB_DOT_NO 0
 80 .*
 81 .la INCR_TAB_CT
 82 .ts "%InputFileName%" ^= "tab_get_no"
 83 .go CHECK_DOT_TABS
 84 .srv TAB_INCR %Parameter%
 85 .srv TABLE_COUNT %NEXT_TAB_NO% + %TAB_INCR%
 86 .srv NEXT_TAB_DOT_NO 0
 87 .go INCR_TAB_JOIN
 88 .*
 89 .la CHECK_DOT_TABS
 90 .ts %NEXT_TAB_NO% > 0
 91 .go DOT_TABS_OK
 92 .err No prior table.
 93 .go ret
 94 .*
 95 .la DOT_TABS_OK
 96 .srv TAB_DOT_INCR %Parameter%
 97 .ur .srv TABLE_COUNT %NEXT_TAB_NO%.%%{%NEXT_TAB_DOT_NO% + %TAB_DOT_INCR%}%%
 98 .*
 99 .la INCR_TAB_JOIN
100 .srv table "%section%-%TABLE_COUNT%"
101 .ts "%section%" = ""
102 .srv table "%TABLE_COUNT%"
103 .go ret
104 .*                                      TAB HEADER
105 .la tab_header
106 .brb
107 .spt 3
108 .fif
109 .if "%DeviceClass%" = "bitmap"
110 .then     .fnt CSBI 14
111           .tlh 3 0 |||Tables|
112           .fnt
113 .else     .tlh 2 ||TABLES||
114 .endif
115 .cbf                          ;.* in case preceding entry has a cbar
116 .fnt CSR 9
117 .fla |%add_date%|%PageNo%|%ORDER_NUMBER%%add_letter%|
118 .fnt
119 .*
120 .la ret
121 .indctl
122 .rt