[RBASE-L] - Re: PLUGIN RRowSize76.RBL 'v1|TABLE_NAME ptinfo' ??

[MDRD]

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" <raz...@rbase.com>
Sent: Monday, April 12, 2010 12:32 PM
To: "RBASE-L Mailing List" <rbase-l@rbase.com>
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