[RBASE-L] - Re: CHAR

[Steve Breen]

Razzak,
 
This may be a stupid question but what is the definition of "CHAR" and the idea 
of its function.
 
Is there any where to read or research this.
 
Thanks,
 
Steve

________________________________

From: rbase-l@rbase.com on behalf of A. Razzak Memon
Sent: Sun 3/9/2008 11:21 AM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: CHAR



At 11:09 AM 3/9/2008, Steve Breen wrote:

>Can any one let me know where I can learn more about how CHAR works.
>
>I am just not grasping an understanding of this concept yet

Steve,

Here are a few examples that should demonstrate the typical use:

-- Example 01
-- Multi-Line DIALOG and PAUSE 2 Command
CLS
CLEAR VAR vCaption,vDialogMessage,vYesNo,vEndKey
SET VAR vCaption TEXT = ' Your Dialog Caption Here ...'
SET VAR vDialogMessage TEXT = NULL
SET VAR vYesNo TEXT = NULL
SET VAR vEndKey TEXT = NULL
SET VAR vDialogMessage = +
((CHAR(013)) + +
  (CHAR(009))+'Line 1:'+(CHAR(009))+(CHAR(009))&'Contents of Line
1'+(CHAR(009))+(CHAR(013))+ +
  (CHAR(009))+'Line 2:'+(CHAR(009))+(CHAR(009))&'Contents of Line
2'+(CHAR(009))+(CHAR(013))+ +
  (CHAR(009))+'Line 3:'+(CHAR(009))+(CHAR(009))&'Contents of Line
3'+(CHAR(009))+(CHAR(013))+ +
  (CHAR(009))+'Line 4:'+(CHAR(009))+(CHAR(009))&'Contents of Line
4'+(CHAR(009))+(CHAR(013))+ +
  (CHAR(009))+'Line 5:'+(CHAR(009))+(CHAR(009))&'Contents of Line
5'+(CHAR(009))+(CHAR(013))+ +
  (CHAR(009))+'Line 6:'+(CHAR(009))+(CHAR(009))&'Contents of Line
6'+(CHAR(009))+(CHAR(013))+ +
  (CHAR(009))+'Line 7:'+(CHAR(009))+(CHAR(009))&'Contents of Line
7'+(CHAR(009))+(CHAR(013))+ +
  (CHAR(009))+'Line 8:'+(CHAR(009))+(CHAR(009))&'Contents of Line
8'+(CHAR(009))+(CHAR(013))+ +
  (CHAR(009))+'Line 9:'+(CHAR(009))+(CHAR(009))&'Contents of Line
9'+(CHAR(009)))
CLS
DIALOG .vDialogMessage vYesNo vEndKey YES +
CAPTION .vCaption +
ICON APP +
OPTION TITLE_FONT_COLOR BLACK +
|TITLE_BACK_COLOR WHITE +
|TRANSPARENCY 255 +
|WINDOW_BACK_COLOR WHITE +
|BUTTON_YES_CAPTION &Start +
|BUTTON_NO_CAPTION &Cancel +
|BUTTON_YES_COLOR GREEN +
|BUTTON_NO_COLOR RED +
|BUTTON_YES_FONT_COLOR WHITE +
|BUTTON_NO_FONT_COLOR WHITE
IF vYesNo IS NULL OR vEndKey = '[Esc]' THEN
    SET VAR vMsg = ((CHAR(009))+'[Esc] key was
pressed!'+(CHAR(009))+(CHAR(009)))
    PAUSE 2 USING .vMsg CAPTION .vCaption +
    ICON APP Button 'Press any key to continue ...' +
    OPTION BACK_COLOR WHITE +
    |MESSAGE_COLOR WHITE +
    |MESSAGE_FONT_COLOR GREEN +
    |BUTTON_COLOR WHITE +
    |BUTTON_FONT_COLOR GREEN
    GOTO Done
ENDIF
IF vYesNo = 'No' THEN
    SET VAR vMsg = ((CHAR(009))+'[Cancel] button was
pressed!'+(CHAR(009))+(CHAR(009)))
    PAUSE 2 USING .vMsg CAPTION .vCaption +
    ICON APP Button 'Press any key to continue ...' +
    OPTION BACK_COLOR WHITE +
    |MESSAGE_COLOR WHITE +
    |MESSAGE_FONT_COLOR GREEN +
    |BUTTON_COLOR WHITE +
    |BUTTON_FONT_COLOR GREEN
    GOTO Done
ENDIF
IF vYesNo = 'Yes' THEN
    SET VAR vMsg = ((CHAR(009))+'[Start] button was
pressed!'+(CHAR(009))+(CHAR(009)))
    PAUSE 2 USING .vMsg CAPTION .vCaption +
    ICON APP Button 'Press any key to continue ...' +
    OPTION BACK_COLOR WHITE +
    |MESSAGE_COLOR WHITE +
    |MESSAGE_FONT_COLOR GREEN +
    |BUTTON_COLOR WHITE +
    |BUTTON_FONT_COLOR GREEN
    GOTO Done
ENDIF
LABEL Done
CLEAR VAR vCaption,vDialogMessage,vYesNo,vEndKey
RETURN

-- Example 02
-- Multi-Line PAUSE with Custom Button
CLS
CLEAR VAR vCaption,vPauseMessage
SET VAR vCaption TEXT = '     Multi-Line Pause with Custom Button'
SET VAR vPauseMessage TEXT = NULL
SET VAR vPauseMessage = +
((CHAR(013)) + +
  'Line 1:'+(CHAR(009))+(CHAR(009))&'Contents of Line
1'+(CHAR(009))+(CHAR(013))+ +
  'Line 2:'+(CHAR(009))+(CHAR(009))&'Contents of Line
2'+(CHAR(009))+(CHAR(013))+ +
  'Line 3:'+(CHAR(009))+(CHAR(009))&'Contents of Line
3'+(CHAR(009))+(CHAR(013))+ +
  'Line 4:'+(CHAR(009))+(CHAR(009))&'Contents of Line
4'+(CHAR(009))+(CHAR(013))+ +
  'Line 5:'+(CHAR(009))+(CHAR(009))&'Contents of Line
5'+(CHAR(009))+(CHAR(013))+ +
  'Line 6:'+(CHAR(009))+(CHAR(009))&'Contents of Line
6'+(CHAR(009))+(CHAR(013))+ +
  'Line 7:'+(CHAR(009))+(CHAR(009))&'Contents of Line
7'+(CHAR(009))+(CHAR(013))+ +
  'Line 8:'+(CHAR(009))+(CHAR(009))&'Contents of Line
8'+(CHAR(009))+(CHAR(013))+ +
  'Line 9:'+(CHAR(009))+(CHAR(009))&'Contents of Line 9'+(CHAR(009)))
CLS
PAUSE 2 USING .vPauseMessage CAPTION .vCaption +
ICON APP Button 'Press any key to continue ...' +
OPTION BACK_COLOR WHITE +
|MESSAGE_COLOR WHITE +
|MESSAGE_FONT_COLOR GREEN +
|BUTTON_COLOR WHITE +
|BUTTON_FONT_COLOR GREEN
LABEL Done
CLEAR VAR vCaption,vPauseMessage
RETURN

Enjoy!

Very Best R:egards,

Razzak.

<<winmail.dat>>