Guest User

Untitled

a guest
Mar 18th, 2018
89
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.62 KB | None | 0 0
  1. Function rti_toggle_Resizing_thread(bResizeFlag)
  2. /*
  3. ** for ud 5.0.0.4 or better
  4. ** Turn reizing thread on or off
  5. ** Usage:
  6. ** rti_toggle_Resizing_thread(1) ; * enable resizing
  7. ** rti_toggle_Resizing_thread(0) ; * disable resizing
  8. ** rti_toggle_Resizing_thread(""); * toggle resizing
  9. **
  10. ** 16-may-16 rjc Created
  11. ** 29-Jun-16 rjc Modifed the return value
  12. */
  13. $Insert logical
  14. $insert RTI_LH_INFO_EQUATES
  15. Declare Function rti_lh_info
  16. If Assigned(bResizeFlag) Else bResizeFlag = ""
  17. Begin Case
  18. Case bresizeFlag == true$
  19. new_value = true$
  20. Case bresizeFlag == false$
  21. new_value = false$
  22. Case 1
  23. * Get the state of the flag
  24.  
  25. Session_info = rti_lh_info(cmd_session_info$)
  26. resize_disabled = session_Info<7>
  27. is_enabled = Not(resize_disabled)
  28.  
  29. * Flip It
  30. new_value = Not(is_enabled)
  31. End Case
  32.  
  33. * Set it
  34. unused = rti_lh_info(cmd_resizing_thread$, new_value )
  35.  
  36. * Confirm it
  37. Session_info = rti_lh_info(cmd_session_info$)
  38. resize_disabled = session_Info<7>
  39. is_enabled = Not(resize_disabled)
  40. Return Oconv(is_enabled, 'BEnabled,Disabled')
  41.  
  42.  
  43. compile insert RTI_LH_INFO_EQUATES
  44. * 05-17-16 rjc Added CMD_RESIZING_THREAD$, CMD_SIZELOCK$
  45. EQU CMD_SESSION_INFO$ TO 1
  46. EQU CMD_TABLE_INFO$ TO 2
  47. EQU CMD_LOCK_INFO$ TO 3
  48. EQU CMD_LOCKS_INFO$ TO 4
  49. equ CMD_TABLES_IN_VOL$ TO 5
  50. equ CMD_UNLOCK$ TO 6
  51. Equ CMD_LOGGING$ To 7
  52. Equ CMD_RESIZING_THREAD$ To 8
  53. Equ CMD_SIZELOCK$ To 9
  54.  
  55. * 01-21-17 rjc
  56. Equ lhi_table_modulo$ To 1
  57.  
  58. Equ lhi_table_framesize$ To 2
  59. Equ lhi_table_percent$ To 3
  60. Equ lhi_table_reccount$ To 4
  61. Equ lhi_table_sizelock$ To 5
  62. Equ lhi_table_threshold$ To 6
  63. Equ lhi_table_realname$ To 7
  64. Equ lhi_table_fileversion$ To 8
  65. Equ lhi_table_alpha$ To 9
Add Comment
Please, Sign In to add comment