39 lines
1.5 KiB
Plaintext
39 lines
1.5 KiB
Plaintext
COMPILE Insert protect_common
|
|
* mtr 1-24-06
|
|
* rjc 02-23-24 - Changed EQU to POINT
|
|
point PROT.DOCONV@ TO SC_PROT_DOCONV
|
|
point PROT.DEFCONV@ TO SC_PROT_DEFCONV
|
|
point PROT.CURSCONV@ TO SC_PROT_CURSCONV
|
|
point PROT.NOPASS@ TO SC_PROT_LOCKMODE
|
|
point FILE.HANDLES@ TO SC_PROT_HANDLES
|
|
point FILE.NAMES@ TO SC_PROT_TABLEDATA
|
|
point TRANS.CONTROL@ TO SC_PROT_TRANSSTATE
|
|
point TRANS.INFO@ TO SC_PROT_TRANSDATA
|
|
point CONSISTENCY_LEVEL@ TO SC_PROT_CONSISTENCY
|
|
point TRANSFILE_HANDLES@ TO SC_PROT_TRANSHANDLES
|
|
|
|
* rjc 02-23-24 - Match Arev32 protect_Common
|
|
Dim table_handles@(8)
|
|
Dim lock_info@(7)
|
|
|
|
point table_handles@(0) To SC_PROT_TABLELOCKS(0)
|
|
point table_handles@(1) To SC_PROT_TABLELOCKS(1)
|
|
point table_handles@(2) To SC_PROT_TABLELOCKS(2)
|
|
point table_handles@(3) To SC_PROT_TABLELOCKS(3)
|
|
point table_handles@(4) To SC_PROT_TABLELOCKS(4)
|
|
point table_handles@(5) To SC_PROT_TABLELOCKS(5)
|
|
point table_handles@(6) To SC_PROT_TABLELOCKS(6)
|
|
point table_handles@(7) To SC_PROT_TABLELOCKS(7)
|
|
point table_handles@(8) To SC_PROT_TABLELOCKS(8)
|
|
|
|
point lock_info@(0) To SC_PROT_LOCKDATA(0)
|
|
point lock_info@(1) To SC_PROT_LOCKDATA(1)
|
|
point lock_info@(2) To SC_PROT_LOCKDATA(2)
|
|
point lock_info@(3) To SC_PROT_LOCKDATA(3)
|
|
point lock_info@(4) To SC_PROT_LOCKDATA(4)
|
|
point lock_info@(5) To SC_PROT_LOCKDATA(5)
|
|
point lock_info@(6) To SC_PROT_LOCKDATA(6)
|
|
point lock_info@(7) To SC_PROT_LOCKDATA(7)
|
|
|
|
|