Thanks Bill
Very cool, worked like a charm.
I may do another search looking for stray DLL's, I must have a mismatch
somewhere.
Marc
--------------------------------------------------
From: "Bill Eyring" <[email protected]>
Sent: Monday, April 12, 2010 3:46 PM
To: "RBASE-L Mailing List" <[email protected]>
Subject: [RBASE-L] - Re: PLUGIN RRowSize76.RBL 'v1|TABLE_NAME ptinfo' ??
Marc,
If you want, use this code to find a table row size. Modify it for your
needs.
--FindTableRowSize.eep
set v vtable text=null
set v vsize int=null
choose vtable for #tblviews +
chkbox 1 +
title 'select table then click on [ok] button to continue' +
caption 'get table row size' lines 19 formatted +
option title_font_size 10 +
|title_font_name tahoma +
|buttons_show_glyph on +
|themename razzmatazz
if vtable is null the
goto theend
endi
sel sys_row_size into vsize vi1 fro sys_tables whe sys_table_name=.vtable
set v vmsg text=('Table Row Size for'&.vtable&'is'&(ctxt(.vsize)))
pau 2 using .vmsg caption 'Find Table Row Size' icon confirm +
OPTION MESSAGE_FONT_NAME Tahoma +
|MESSAGE_FONT_COLOR 0 +
|MESSAGE_FONT_SIZE 10 +
|MESSAGE_FONT_BOLD ON +
|THEMENAME RAZZMATAZZ
label theend
clear variables vtable,vsize
Ret
Bill Eyring
-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of MDRD
Sent: Monday, April 12, 2010 2:10 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: PLUGIN RRowSize76.RBL 'v1|TABLE_NAME ptinfo' ??
Hi Razzak
I have the RBL in the same folder.
Using your command file I get 0 row size for every table.
I am not sure what else to look for.
Thanks
Marc
--------------------------------------------------
From: "A. Razzak Memon" <[email protected]>
Sent: Monday, April 12, 2010 12:32 PM
To: "RBASE-L Mailing List" <[email protected]>
Subject: [RBASE-L] - Re: PLUGIN RRowSize76.RBL 'v1|TABLE_NAME ptinfo' ??
At 01:17 PM 4/12/2010, Marc Schluter wrote:
What an I doing wrong? I can not get it to work.
I am connected to the DB with the owner password
PLUGIN RRowSize76.RBL 'v1|TABLE_NAME ptinfo'
Marc,
Here is a routine that you could re-cycle, if you wish.
Have fun!
Very Best Regards,
Razzak.
-- RRowSize.RMD to find the row size for a given table name
-- Author: A. Razzak Memon
-- Date Created: October 8, 2009
IF (CVAL('DATABASE')) <> 'RRBYW14' OR (CVAL('DATABASE')) IS NULL THEN
CONNECT RRBYW14 IDENTIFIED BY NONE
ENDIF
LABEL Start
CLEAR VAR
vTableName,vRowSize,vString,vPauseMessage,vYesNo,vCaption,vEndKey
SET VAR vTableName TEXT = NULL
SET VAR vRowSize INTEGER = NULL
SET VAR vString TEXT = NULL
SET VAR vPauseMessage TEXT = NULL
SET VAR vYesNo TEXT = 'No'
SET VAR vCaption TEXT = ' Finding Row Size - Select Table Name'
CLS
CHOOSE vTableName FOR #TABLES +
CHKBOX 1 +
TITLE 'Select a table and then click on [OK] button to continue' +
CAPTION .vCaption LINES 19 FORMATTED +
OPTION LIST_FONT_COLOR MAROON +
|TITLE_FONT_COLOR MAROON +
|TITLE_BACK_COLOR [R234,G234,B234] +
|WINDOW_BACK_COLOR [R234,G234,B234] +
|TITLE_FONT_SIZE 10 +
|TITLE_FONT_NAME VERDANA +
|LIST_BACK_COLOR [R234,G234,B234] +
|BUTTONS_SHOW_GLYPH ON +
|THEMENAME R:BASE Rocks!
IF vTableName = '[Esc]' THEN
GOTO Done
ENDIF
IF vTableName IS NULL THEN
PAUSE 2 USING 'Table NOT Selected!' +
CAPTION .vCaption ICON STOP +
BUTTON 'Click here to select a table ...' +
OPTION BACK_COLOR WHITE +
|MESSAGE_COLOR WHITE +
|MESSAGE_FONT_NAME Verdana +
|MESSAGE_FONT_COLOR RED +
|MESSAGE_FONT_SIZE 10 +
|MESSAGE_FONT_BOLD ON +
|MESSAGE_FONT_ITALIC OFF +
|MESSAGE_FONT_STRIKEOUT OFF +
|BUTTON_COLOR WHITE +
|BUTTON_FONT_COLOR GREEN +
|THEMENAME R:BASE Rocks!
GOTO Start
ENDIF
SET VAR vString = ('vRowSize|TABLE_NAME'&.vTableName)
PLUGIN RRowSize76.RBL &vString
SET VAR vPauseMessage = +
((CHAR(013))+'Table Name:'+(CHAR(009))&.vTableName+(CHAR(013))+ +
'Row Size:'+(CHAR(009))&(CTXT(.vRowSize)))
CLS
PAUSE 2 USING .vPauseMessage +
CAPTION 'Finding Row Size' +
ICON APP +
BUTTON 'Press any key to continue ...' +
OPTION MESSAGE_FONT_NAME VERDANA +
|MESSAGE_FONT_SIZE 10 +
|MESSAGE_FONT_COLOR MAROON +
|MESSAGE_FONT_BOLD OFF +
|BUTTON_COLOR WHITE +
|BUTTON_FONT_COLOR GREEN +
|THEMENAME R:BASE Rocks!
GOTO Start
LABEL Done
CLS
CLEAR VAR
vTableName,vRowSize,vString,vPauseMessage,vYesNo,vCaption,vEndKey
RETURN
