At 12:02 PM 11/4/2002 +1100, Randy Peterson wrote:
This sounds like choose might be better than a dialog. That way only valid options will appear for the user to choose from.On my machine (CVAL('drives')) gave me the following value: CDENs You could use string commands to punctuate this list. Perhaps you could request from RDCC one of the following additional commands: LIST DRIVES CHOOSE varname FROM #DRIVES If (CVAL('drives')) returned a comma delimited list, you could use that in a command like: CHOOSE vDrive from #LIST (CVAL('drives')) You could then use those results in a choose statement.
Randy Peterson, Myron Finegold and Larry Lustig:
It would be really COOL if the (CVAL('Drives')) function returns
the list of available/mapped drives with a comma delimited list.
Similar to (CVAL('Printers')) function in TGRB2000 (ver 6.5++).
Then, you could use something like the following:
Example 01:
-- GetDriveForBackup.RMD
CLS
SET AUTODROP OFF
SET RBGSIZE CENTER CENTER 800 600
PAUSE 3 USING 'Searching for Available Drives' CAPTION 'System Backup' AT 14 36
SET VAR vTitle TEXT = 'Select Drive For Backup'
SET VAR vCaption TEXT = 'Available Drives'
SET VAR vDriveList TEXT = (CVAL('Drives'))
SET VAR vLines INTEGER = (((SLEN(.vDriveList))/2)+1)
SET VAR vDriveToBackup TEXT = NULL
CLS
CHOOSE vDriveToBackup FROM #LIST .vDriveList AT 12 32 +
TITLE .vTitle CAPTION .vCaption LINES .vLines FORMATTED
IF vDriveToBackup IS NULL THEN
GOTO Done
ENDIF
-- Check to make sure that drive is accessible and/or ready?
SET VAR vDriveReady = (GETVAL('GetDriveReady',.vDriveToBackup))
IF vDriveReady = '0' THEN
CLS
SET VAR vMsg TEXT = ('Selected Drive'&.vDriveToBackup&'is NOT Accessible!')
PAUSE 2 USING .vMsg CAPTION 'System Backup' AT 14 30
GOTO Done
ENDIF
-- Now, you know that the exact drive letter for backup
-- You also know that the drive is ready and/or accessible
-- Do what you have to do here ...
LABEL Done
CLS
CLEAR VAR vTitle, vCaption, vLines, vDriveToBackup, vDriveReady, vMsg
QUIT TO MainMenu.RMD
RETURN
It would be NICE if we can use above sample in 6.5++ (Build:1.860xRT03)!
Oh WAIT .. I'm sitting here beside the head of the Dream Team (Wayne Erickson)
and he is giving me a hard time to implement this into the upcoming inline patch-3.
I guess, we'll have to wait for the Final Beta (Release Candidate 3), to be released
shortly.
Very Best Regards,
Razzak.
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
