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
>
>
