Razzak
You tease, you!! Great idea Randy, great response Razzak! I can't wait!
David Blocker
----- Original Message -----
From: "A. Razzak Memon" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, November 03, 2002 10:01 PM
Subject: Re: Database Backup File to Your Choice of Drive - Razzak's Reply
>
> 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/
>
================================================
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/
