Skip to content

Instantly share code, notes, and snippets.

@jbratu

jbratu/OpenInsight Protect Active List

Last active April 22, 2016 15:51
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jbratu/94383b79131d9f738e30e38fa6260139 to your computer and use it in GitHub Desktop.
Save jbratu/94383b79131d9f738e30e38fa6260139 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
OpenInsight Protect Active List
//Original source: http://www.sprezzatura.com/library/whitepapers/OI%20Coding%20Standards%20v1%200%207.pdf
//Protect any active select list. Pop it at end of routine.
saveAtDict_ = @dict
saveAtRecord_ = @record
saveAtID_ = @id
saveAtRecCount_ = @recCount
saveAtRnCounter_ = @rn.Counter
A_ = 0 ; B_ = 0 ; C_ = 0 ; D_ = 0
call push.Select( A_, B_, C_, D_ )
//Perform new selections here
//Call RLIST()
//Restore any previous saved selects
call pop.Select( A_, B_, C_, D_ )
transfer saveAtDict_ to @dict
transfer saveAtRecord_ to @record
transfer saveAtID_ to @id
transfer saveAtRecCount_ to @recCount
@rn.Counter = saveAtRnCounter_
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment