| Title: | *OLD* ALL-IN-1 (tm) Support Conference |
| Notice: | Closed - See Note 4331.l to move to IOSG::ALL-IN-1 |
| Moderator: | IOSG::PYE |
| Created: | Thu Jan 30 1992 |
| Last Modified: | Tue Jan 23 1996 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 4343 |
| Total number of notes: | 18308 |
Hi,
I have a customer who has lines of code similar to the following lines
in her command procedure. She said that it worked fine in V2.4. The
procedure prompted the user and proceeded. In V3.0 the user is prompted
but sees no prompt text.
Below is a modified version of the command procedure. When the
procedure is run in ALL-IN-1 V2.4 the line 'Print or list (p/l) [L]:'
is displayed on the terminal. In ALL-IN-1 V3.0 it isn't. We know the
prompt is being processed but the line of text never displays.
$!test.com
$! $write oamailbox "oa .prompt Print or list (p/l) [L]:","\get oa$script_psib "
$@dclmailbox:
$ans = f$extract(0,1,result)
$ if ans .eqs. "P" .or. ans .eqs. "p" then goto 5$
$exit
$5$:
$sho sym ans
$exit
She can change the .PROMPT to PROMPT and use OA$PROMPT_TEXT
instead of OA$SCRIPT_PSIB but what changed with .PROMPT between versions?
Any ideas?
Thanks,
Kathy Perreault
| T.R | Title | User | Personal Name | Date | Lines |
|---|---|---|---|---|---|
| 2698.1 | Did you ask you know who? | AIMTEC::WICKS_A | on the Streets of San Francisco | Wed May 12 1993 03:37 | 9 |
Kathy,
What does a quick perusal of the old BLISS code show? I just went to
check for you but it appears my account disappeared when you know who
upgraded said machine to an unsupported version of OpenVMS.
Regards,
Andrew.D.Wicks
| |||||
| 2698.2 | It was changed to work as documented | IOSG::HULIN | Ian Hulin, IOSG: REO, DTN 830-6141 | Mon May 24 1993 10:52 | 27 |
Kathy,
The change in V3.0 was a bug fix so that .PROMPT could take a true symbol
for any of its parameters. Previously it had refused to do anything with
DSRs. The routine it used fell back to translating unquoted text as
ALL-IN-1 literal strings. So your example code could be modified to work as
$!test.com
$ write/symbol oamailbox -
"oa .prompt ","'Print or list (p/l) [L]:'","\get oa$script_psib "
$! ^ ^
$@dclmailbox:
$ans = f$extract(0,1,result)
$ if ans .eqs. "P" .or. ans .eqs. "p" then goto 5$
$exit
$5$:
$sho sym ans
$exit
As far as I remember all the parameters to .PROMPT are now symbols.
Cheers,
Ian
| |||||