Running quick from within quiz

Jeff Hoffman J.Hoffman@cchs.usyd.edu.au
Thu, 29 Oct 1998 10:22:20 +1100


Thanks for those who replied to my problem, especially Mike Armstrong and
Robert Edis.

>I have a slight problem (PH 7.10.E1 on a Open VMS Alpha)
>
>From a quick menu screen I want to run quiz eg
>
>	Command "quiz auto=rg_quiz:list_cnc_rounds.qzu" &
>        LABEL "CNC Rounds List" clear all 
>
>The .qzu file looks like this
>
>	use rg_quiz:list_cnc_rounds.qzc
>       $quick auto=rg_quick:list_cnc_rounds
>       exit
>
>The quiz program looks like this
>
>	acc acfp_assess
>	sort on acf_id &
>	     on ward_id &
>	     on refer_date
>	set rep nolim
>	set page len 0
>	set subfile name list_cnc_rounds
>	rep sum mrn assessment_no assess_status_code acf_id ward_id
>	build rg_quiz:list_cnc_rounds
>
>The Quick program looks like this
>
>	screen list_cnc_rounds activities find
>	file *list_cnc_rounds
>	access sequential
>	gen
>	build
>
>The .qzc creates a temp subfile, sorted into the rquired sequence, that is 
>used as a file into the interactive quick program.
>
>In testing I ran  everying within qdesign, and everything worked fine. 
>
>However now that I am moving into production, it appears that when I use
the >menu screen with the run command it put the who lot into
non-interactive mode >and the quick screen does not work.

For those interested:

A solution that worked was to run a DCL script from the menu screen, the
script ran quiz which used the .qku file:

	Command "@rg_quiz:list_cnc_rounds.com" &
        LABEL "CNC Rounds List" clear all 

The .com file looks like this

       $quiz
	use rg_quiz:list_cnc_rounds.qzu
       exit

The rest remained the same.

PS I did not want to use permanent subfiles due to locking problems, locks
were not released until the user when back up several levels. 
   Also the data could change on a regular basis so the file had to be
re-created each time the program ran which caused further problems with
permanent subfiles, multiple users and locking.
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
+ Jeff Hoffman                         + e-mail: J.Hoffman@cchs.usyd.EDU.AU +
+ Director                             +                                    +
+ WoniCon Pty Ltd                      +                           ,-_|\    +
+ 21 Prices Circuit                    +  voice: +61 2 9542 1527  /     \   +
+ Woronora    NSW     2141             +    fax: +61 2 9521 3979  \_,-._*   +
+ AUSTRALIA                            +                               v    +
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
+
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.