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

Output of file : BUTLER3 contained in archive : DBMS0690.ZIP
Listing 3.

use glaccess && Dbase file to hold permissions info
delete all
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
if sql_stu > 1 && rows remain but error
do chkstu && error routine

  3 Responses to “Category : Files from Magazines
Archive   : DBMS0690.ZIP
Filename : BUTLER3

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: