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
