[Date Prev][Date Next][Thread Prev][Thread Next]
[Author Index] [Date Index] [Thread Index]
[SQR-USERS Info] [SQRUG Home Page]

Use of communication box



Our users have always preferred NOT using the communication box, i.e., we
compile our SQR's using the -XCB flag.  The reason they prefer this is
because the SQR/DOS icon that shows on the task bar while the SQR is running
disappears when the SQR is finished.  If the users are working on something
else while the SQR is running, they know it's finished when the icon is gone
from the task bar.

>From all that I have seen, this doesn't work when using the communication
box.  The communication box remains, as does the icon on the task bar, until
the user hits the <enter> key.

We have several programs that prompt for a variety of dates and I would like
to pass a string to an sqc in a manner similar to the following that would
use show...noprompt...and input to enter a date:

        example: MAIN PROGRAM                   show 'Enter prior begin
date({Prompt-Date}): ' clear-line

do ask-variable-date

move $VariableDt to $date1

show 'Enter current begin date({Prompt-Date}): ' clear-line

do ask-variable-date

move $VariableDt to $date2

                        INCLUDE FILE(SQC)               begin-procedure
ASK-VARIABLE-DATE

input $VariableDt noprompt

end-procedure

When I do this with the communication box, all is well.  Without the
communication box, I get NOPROMPT used - Enter value below.  The program
runs fine, but my variable prompts don't show.  So again, is there a way to
use the communication box and get it to shut down after SQR completion, and
remove it from the task bar, or can this type of prompt be shown/displayed
without the communication box?

Thanks in advance,
Ray


Raymond M. Riepenhoff                   United States Enrichment Corp.
Computing Specialist                        PO Box 628
Information Technology                    XT-801, MS 6001
Business Applications Support        Piketon, OH 45661
Phone: (740) 897-5842
FAX:    (740) 897-2066                     e-mail:
riepenhoffrm@ports.usec.com