home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / dfhelp_a.pkg < prev    next >
Encoding:
Text File  |  1993-05-19  |  8.6 KB  |  223 lines
  1. // dfhelp_a.pkg (secondary help maintenance program [A] header package)
  2. // July 2, 1991
  3. // LS
  4.  
  5. #CHKSUB 1 1 // Verify the UI subsystem.
  6.  
  7. inherit_screen // use current screen (from parent .flx) as background
  8.  
  9. //////////////////////////////////
  10. ////////////////////////////////// macro commmands
  11. //////////////////////////////////
  12.  
  13. #COMMAND DEFINE_SYMBOL R "FOR" R // like #REPLACE, but only if not yet defined
  14.   #IFDEF !1
  15.   #ELSE
  16.     #REPLACE !1 !3
  17.   #ENDIF
  18. #ENDCOMMAND
  19.  
  20. #COMMAND USE_FILE R // declares fields in a database file without opening it
  21.   #IFDEF !1.RECNUM
  22.   #ELSE
  23.     #INCLUDE !1.FD
  24.   #ENDIF
  25.  
  26.   #IFDEF !1.FILE_NUMBER
  27.   #ELSE
  28.     #SET Q$ !1.RECNUM
  29.     #REPLACE !1.FILE_NUMBER |CI!q
  30.   #ENDIF
  31.  
  32.   #IF (!0>1)
  33.     USE_FILE !2 !3 !4 !5 !6 !7 !8 !9
  34.   #ENDIF
  35. #ENDCOMMAND
  36.  
  37. //////////////////////////////////
  38. ////////////////////////////////// symbol definitions
  39. //////////////////////////////////
  40.  
  41. DEFINE_SYMBOL VALID_OPTIONS      FOR 'PONIE' // passed command line options values
  42. DEFINE_SYMBOL PATH_OPTION        FOR 'P'
  43. DEFINE_SYMBOL OPEN_FILE_OPTION   FOR 'O'
  44. DEFINE_SYMBOL NEW_FILE_OPTION    FOR 'N'
  45. DEFINE_SYMBOL IMP_MAINT_OPTION   FOR 'I'
  46. DEFINE_SYMBOL ERS_MAINT_OPTION   FOR 'E'
  47.  
  48. DEFINE_SYMBOL SUCCESS_REPLY      FOR 'Y'
  49. DEFINE_SYMBOL FAIL_REPLY         FOR 'N'
  50. DEFINE_SYMBOL ABORT_REPLY        FOR 'A'
  51.  
  52. DEFINE_SYMBOL MAX_LINES_ALLOWED  FOR 32767
  53.  
  54. DEFINE_SYMBOL EMPTY_STRING       FOR ('')
  55. DEFINE_SYMBOL EMPTY_REPL_STRING  FOR ('@')
  56.  
  57. DEFINE_SYMBOL F1_HELP_TEXT       FOR ('<F1=Help>')
  58. DEFINE_SYMBOL F2_OK_TEXT         FOR ('<F2=OK>')
  59. DEFINE_SYMBOL ESC_CANCEL_TEXT    FOR ('<Esc=Cancel>')
  60. DEFINE_SYMBOL DEF_EXT_TEXT       FOR ('.DEF')
  61. DEFINE_SYMBOL DAT_EXT_TEXT       FOR ('.DAT')
  62.  
  63. DEFINE_SYMBOL HELP_GRP_FILENAME  FOR 'helpgrp' // default filenames
  64. DEFINE_SYMBOL HELP_SBJ_FILENAME  FOR 'helpsbj'
  65. DEFINE_SYMBOL HELP_XRF_FILENAME  FOR 'helpxrf'
  66. DEFINE_SYMBOL HELP_CTX_FILENAME  FOR 'helpctx'
  67.  
  68. DEFINE_SYMBOL GRP_SCAN_TYPE      FOR 0
  69. DEFINE_SYMBOL SBJ_SCAN_TYPE      FOR 1
  70. DEFINE_SYMBOL XRF_SCAN_TYPE      FOR 3
  71. DEFINE_SYMBOL CTX_SCAN_TYPE      FOR 5
  72.  
  73. DEFINE_SYMBOL XRF_SAVE_TYPE      FOR 2
  74. DEFINE_SYMBOL CTX_SAVE_TYPE      FOR 4
  75.     
  76. #IFDEF POINTED_CURSOR_TYPE // for display_window class
  77. #ELSE
  78.   #REPLACE POINTED_CURSOR_TYPE |CI2
  79. #ENDIF
  80.  
  81. //////////////////////////////////
  82. ////////////////////////////////// images for file output (make_file)
  83. //////////////////////////////////
  84.  
  85. /helpgrp_def_top_img // help grp def format
  86. -----------------------------------------------------------------------------
  87.   DATE: 00/00/00      TIME: 00:00                                  PAGE:  1
  88.   FILE DEFINITION FOR FILE: GRP (# 255)
  89. -----------------------------------------------------------------------------
  90.   FILE ROOT NAME          : _@______________________________________
  91.   USER DISPLAY NAME       : GROUP
  92.   DATAFLEX FILE NAME      : GRP
  93. -----------------------------------------------------------------------------
  94.   RECORD LENGTH           : 34        ( USED: 33 )
  95.   MAX NUMBER OF RECORDS   : 10000     ( USED: 0 )
  96.   FILE COMPRESSION        : None
  97.   RE-USE DELETED SPACE    : Yes
  98.   MULTI-USER REREAD       : Yes
  99. -----------------------------------------------------------------------------
  100.  
  101. /helpsbj_def_top_img // help sbj def format
  102. -----------------------------------------------------------------------------
  103.   DATE: 00/00/00      TIME: 00:00                                  PAGE:  1
  104.   FILE DEFINITION FOR FILE: SBJ (# 255)
  105. -----------------------------------------------------------------------------
  106.   FILE ROOT NAME          : _@______________________________________
  107.   USER DISPLAY NAME       : SUBJECT
  108.   DATAFLEX FILE NAME      : SBJ
  109. -----------------------------------------------------------------------------
  110.   RECORD LENGTH           : 4096      ( USED: 4081 )
  111.   MAX NUMBER OF RECORDS   : 10000     ( USED: 0 )
  112.   FILE COMPRESSION        : Standard
  113.   RE-USE DELETED SPACE    : Yes
  114.   MULTI-USER REREAD       : Yes
  115. -----------------------------------------------------------------------------
  116.  
  117. /helpxrf_def_top_img // help xrf def format
  118. -----------------------------------------------------------------------------
  119.   DATE: 00/00/00      TIME: 00:00                                  PAGE:  1
  120.   FILE DEFINITION FOR FILE: XRF (# 255)
  121. -----------------------------------------------------------------------------
  122.   FILE ROOT NAME          : _@______________________________________
  123.   USER DISPLAY NAME       : LINK
  124.   DATAFLEX FILE NAME      : XRF
  125. -----------------------------------------------------------------------------
  126.   RECORD LENGTH           : 8         ( USED: 6 )
  127.   MAX NUMBER OF RECORDS   : 10000     ( USED: 0 )
  128.   FILE COMPRESSION        : None
  129.   RE-USE DELETED SPACE    : Yes
  130.   MULTI-USER REREAD       : Yes
  131. -----------------------------------------------------------------------------
  132.  
  133. /helpctx_def_top_img // help ctx def format
  134. -----------------------------------------------------------------------------
  135.   DATE: 00/00/00      TIME: 00:00                                  PAGE:  1
  136.   FILE DEFINITION FOR FILE: CTX (# 255)
  137. -----------------------------------------------------------------------------
  138.   FILE ROOT NAME          : _@______________________________________
  139.   USER DISPLAY NAME       : CONTEXT
  140.   DATAFLEX FILE NAME      : CTX
  141. -----------------------------------------------------------------------------
  142.   RECORD LENGTH           : 73        ( USED: 73 )
  143.   MAX NUMBER OF RECORDS   : 10000     ( USED: 0 )
  144.   FILE COMPRESSION        : None
  145.   RE-USE DELETED SPACE    : Yes
  146.   MULTI-USER REREAD       : Yes
  147. -----------------------------------------------------------------------------
  148.  
  149. /helpgrp_def_bottom_img // help grp def format
  150. NUM  FIELD NAME       TYPE SIZE  OFFST IX   RELATES TO FILE.FIELD
  151. ---  ---------------  ---- ----- ----- --   ---------------------------------
  152.   1  GRP_NAME         ASC     33     1  1   
  153.  
  154.  
  155. INDEX# FIELDS          DES U/C    LENGTH LEVELS SEGMENTS MODE
  156. ------ --------------- --- ---    ------ ------ -------- -------
  157.   1    GRP_NAME        No  No       33     4       1     Online
  158.  
  159. /helpsbj_def_bottom_img // help sbj def format
  160. NUM  FIELD NAME       TYPE SIZE  OFFST IX   RELATES TO FILE.FIELD
  161. ---  ---------------  ---- ----- ----- --   ---------------------------------
  162.   1  SBJ_NAME         ASC     33     1  1   
  163.   2  SBJ_TEXT         TEX   4048    34      
  164.  
  165.  
  166. INDEX# FIELDS          DES U/C    LENGTH LEVELS SEGMENTS MODE
  167. ------ --------------- --- ---    ------ ------ -------- -------
  168.   1    SBJ_NAME        No  No       36     4       2     Online
  169.        RECNUM          No  No 
  170.  
  171. /helpxrf_def_bottom_img // help xrf def format
  172. NUM  FIELD NAME       TYPE SIZE  OFFST IX   RELATES TO FILE.FIELD
  173. ---  ---------------  ---- ----- ----- --   ---------------------------------
  174.   1  GRP_RECNUM       NUM    6.0     1  1   FILE_251.RECNUM (251,0)
  175.   2  SBJ_RECNUM       NUM    6.0     4  2   FILE_252.RECNUM (252,0)
  176.  
  177.  
  178. INDEX# FIELDS          DES U/C    LENGTH LEVELS SEGMENTS MODE
  179. ------ --------------- --- ---    ------ ------ -------- -------
  180.   1    GRP_RECNUM      No  No       6      3       2     Online
  181.        SBJ_RECNUM      No  No 
  182.  
  183.   2    SBJ_RECNUM      No  No       6      3       2     Online
  184.        GRP_RECNUM      No  No 
  185.  
  186. /helpctx_def_bottom_img // help ctx def format
  187. NUM  FIELD NAME       TYPE SIZE  OFFST IX   RELATES TO FILE.FIELD
  188. ---  ---------------  ---- ----- ----- --   ---------------------------------
  189.   1  APP_NAME         ASC     15     1  1   
  190.   2  MOD_NAME         ASC     15    16  1   
  191.   3  HLP_NAME         ASC     40    31  1   
  192.   4  XRF_RECNUM       NUM    6.0    71  2   FILE_253.RECNUM (253,0)
  193.  
  194.  
  195. INDEX# FIELDS          DES U/C    LENGTH LEVELS SEGMENTS MODE
  196. ------ --------------- --- ---    ------ ------ -------- -------
  197.   1    APP_NAME        No  Yes      70     5       3     Online
  198.        MOD_NAME        No  Yes
  199.        HLP_NAME        No  Yes
  200.  
  201.   2    XRF_RECNUM      No  No       6      3       2     Online
  202.        RECNUM          No  No 
  203.  
  204. /*
  205.  
  206. //////////////////////////////////
  207. ////////////////////////////////// packages
  208. //////////////////////////////////
  209.  
  210. use enterr          // error package (ignores find errors)
  211. use help_chn        // global help package
  212. use key_btn         // key button class
  213. use set             // set class (generic)
  214. use data_set        // data set database mgmt class
  215. use sellist         // selection list data entry class
  216.  
  217. use_file grp sbj xrf ctx  // declare files and fields w/o opening files
  218. use_file grp2 sbj2 xrf2 ctx2
  219.  
  220. set application_name to "SYSTEM"
  221. set module_name to "DFHELP"      // act like part of DFHELP program module
  222.  
  223.