Running quick from within quiz

[Jim Hamer]

You could try to solve this problem by launching the Quiz from the
Initialize Procedure of the Quick program. Use the DCL Command file to
suppress the output of the Quiz. The Quiz program would have to create a
permanent subfile.

The Quick code would look like this:

PROCEDURE INITIALIZE
BEGIN
      RUN COMMAND "@QUIZ_PROGRAM_EXTRACT.COM"
END

The Command file would look like this:

$       QTP AUTO=QUIZ_PROGRAM_EXTRACT.QTC NOLIST NOSTATISTICS
$       IF .NOT. $STATUS THEN GOTO ABNORMAL
$
$NORMAL:
$       EXIT
$!
$ABNORMAL:
$       SET NOVERIFY
$       WRITE SYS$OUTPUT "*****************************"
$       WRITE SYS$OUTPUT "Program terminated abnormally"
$       WRITE SYS$OUTPUT "*****************************"
$       EXIT 40


At 12:54 AM 98/10/27 +1100, you wrote:
>G'Day
>
>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.
>
>Can anybody tell me what is special about the qdesign environment, and
>could I set it up in the production environment?
>
>+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
>+ 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.
>
>

Thanks,

Jim
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.