Category : Files from Magazines
Archive   : DBMS0690.ZIP
Filename : BUTLER3

Listing 3.


use glaccess && Dbase file to hold permissions info
delete all
pack
call dbsql with 'setvar c 1 2', 'c 2 30', 'c 3 30', sql_stu
call dbsql with 'query gl_objects', sql_stu, sql_row, sql_msg
store .f. to m_sel, m_ins, m_upd, m_del, m_exe

* Loop to get new row from SQL Server and place
* columns 1-3 in memvars m_type, m_obj, m_col
do while sql_stu = 1
call dbsql with "nextrow 1 2 3", sql_stu, sql_row, sql_msg,;
m_type, m_obj, m_col
if sql_stu =1 && more rows remain
append blank
* grab memvar and pad to 30 characters
m_obj = m_obj + replicate (' ', 30-len(m_obj))
m_col = m_col + replicate (' ', 30-len(m_col))
m_type = m_type + ' '
* place memvars from SQL Server into Dbase table
replace object with m_obj, column with m_col,;
type with m_type, sel with m_sel, ins with m_ins,;
del with m_del, o_s with m_sel, o_i with m_ins,;
o_d with m_del, upd with m_upd, exe with m_exe,;
o_u with m_upd, o_e with m_exe
skip
loop
else
if sql_stu > 1 && rows remain but error
do chkstu && error routine
else
exit
endif
endif
enddo