[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference iosg::all-in-1_v30

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

244.0. "Prompt terminal via command file" by KERNEL::COOPER (Suzanne Cooper UK Customer Support (833)3502) Mon Mar 16 1992 16:30

	I've done a search of the various ALL-IN-1 notes conferences (old
and new), and I can't quite find what I'm looking for.

	What I want to do is, have a process that just sits in ALL-IN-1 
and prompts the terminal via a command file running in a subprocess.

The only way I can get this to work is as follows:

$paack_terminal = f$trnlnm("sys$command")
$allin1/user=manager/reent/noinit
	oa$ini_init
	command a.com 
	exit

The command procudure a.com is as follows

$ write oamailbox "oa get cli$pack_terminal"
$ @dclmailbox:
$ pack_terminal = 'result
$ uic_master_pwd_prompt:
$	open/read keyboard 'pack_terminal'
$	resad/prompt="Enter the password" keyboard uic_master_pwd
$	close/nolog keyboard	


	Is there a better way of doing this (i.e using ALL-IN-1 commands 
not VMS command).

Suzanne

T.R	Title	User	Personal Name	Date	Lines
244.1	Is this want you want ?	UTRTSC::BOSMAN	We're just sugar mice in the rain	`Tue Mar 17 1992 07:59`	14
	Hi, How about: $ ALLIN1 /NOINIT /REENTER OA$INI_INIT DO a EXIT $ EXIT where a.SCP looks like: PROMPT "Que ? " GET OA$DISPLAY = ">" OA$PROMPT_TEXT "<" Sjaak.
244.2		KERNEL::COOPER	Suzanne Cooper UK Customer Support (833)3502	`Tue Mar 17 1992 11:06`	4
	no I want to run a command procedure in he subprocess thanks Suzanne
244.3	Another shot ...	UTRTSC::BOSMAN	We're just sugar mice in the rain	`Tue Mar 17 1992 12:44`	17
	Ok�, How about: $ ALLIN1 /NOINIT /REENTER OA$INI_INIT COMMAND a EXIT $ EXIT where a.COM looks like: $ READ /PROMPT = "Que? " SYS$OUTPUT answer $ SHOW SYMBOL ANSWER This is a command-procedure running in the sub-process, waiting for input. Or else I'm afraid I missed your point. Sjaak.
244.4		KERNEL::COOPER	Suzanne Cooper UK Customer Support (833)3502	`Tue Mar 17 1992 14:44`	8
	sys$input is sys$command if you run the $alli/noinit bit from a command procedure. so therefore the input gets taken as the next line of the command procedure i.e. exit. btw I've got 41 versions of things that don't work, I think there is no easy way to do this given the running conditions, Suzanne
244.5		PAJERO::RHOTON	John Rhoton @TNO - DTN 871.7947	`Tue Mar 17 1992 15:21`	8
	I am not too sure what you are trying to do but would this do it? $ write oamailbox "oa prompt 'Password ' \ get oa$prompt_text" $ @dclmailbox: $ password = result John
244.6		KERNEL::COOPER	Suzanne Cooper UK Customer Support (833)3502	`Tue Mar 17 1992 16:03`	8
	it's something to do with the command procedure that calls ALL-IN-1 then in the ALL-IN-1 subprocess runs the rest of the command procedure. I'm not surprised that noone understand it took me three days. Still thanks for the help, I convinced the customer that by defining a 'file' which was really the terminal device, was the best he was likely to get, so he went away. Suzanne
244.7	I used SYS$OUTPUT!	UTRTSC::BOSMAN	We're just sugar mice in the rain	`Wed Mar 18 1992 07:13`	13
	Re .4 Suzanne, Did U notice that I used SYS$OUTPUT? And not SYS$INPUT or SYS$COMMAND! I used t.COM: $ ALLIN1 /NOINIT /REENTER OA$INI_INIT COMMAND {the proc. from my previous reply} EXIT $ EXIT And it works. That is, it asks me for input. Sjaak.