Conference iosg::all-in-1_v30

966.0. "Screen display from .com file" by NCBOOT::HARRIS (oooppps) Tue Jun 30 1992 22:34

hi,

one of my customers has this command procedure. it is called from a business 
application from within ALL-IN-1.  the .com calls S1032. when the user is
finished with the buisness application, he exits it.  

this is the problem, he comes back to ALl-IN-1, but a blank screen is 
displayed.  he has to press KP0 to get an ALL-IN-1 menu to display.

Any ideas on how to get an ALL-IN-1 menu to display?  i've had the S1032
people here (at customer site) look at it and its not their problem.

	thanks - ann
____________________________________________________________________

!AUTO.COM  6-29-92    Arun Singh.
$SET MESSAGE /NOTEXT/NOSEVERITY/NOIDENTIFICATION/NOFACILITY
$!UNCOMMENT the following line to prevent people from using DC OPTION
$!GOTO NEXT
$!get the current equivalence value for logical TT:
$ OLD_TT = F$LOGICAL("TT")
$!
$! ask AL-IN-1 parent process to tell subprocess the value of
$! symbol OS$TERM_DEVICE:
$!
$WRITE OAMAILBOX "OA GET OA$TERM_DEVICE"
$WRITE OAMAILBOX "OA CLEAR"
$@DCLMAILBOX:
$ING_TT = RESULT
$!
$!assign new value to logical TT based on results of preceding step:
$! preceding step
$!
$DEFINE/NOLOG/PROC TT 'ING_TT'
$!
$! set up app symbols
$DEFINE DOCUM    $DISK14:[USATDDOC]
$DEFINE DOCSTD   $DISK14:[USATDDOC.STANDARDS]
$DEFINE DOCOMP   $DISK14:[USATDDOC.NEW_COMPLAINTS]
$DEFINE DOCARC   $DISK14:[USATDDOC.ARCHIVED]
$DEFINE DOCFMT   $DISK14:[USATDDOC.FORMAT]
$SET NOCONTROL =(Y)
$!SET BROADCAST = NO
$DEFINE/USER S1032_INI DOCUM:MAIN_CODE.DMC
$DEFINE /USER_MODE SYS$INPUT SYS$COMMAND
$S1032
$SET CONTROL =(Y)
$! Re-define TT to its previous value:
$ DEFINE/NOLOG/PROC TT 'OLD_TT'
$ GOTO END
$NEXT:
$write sys$output "<ESC>[1m<ESC>[5m"
$write sys$output "<ESC>#6 DC OPTION UNAVAILABLE"
$write sys$output "<ESC>#6 CALL 612-773-2715 FOR UPTIME"
$write sys$output "<ESC>[0m"
$wait 00:00:06
$!
$END:
$SET MESSAGE /TEXT/SEVERITY/IDENTIFICATION/FACILITY

    The CLEAR in the procedure certainly signals ALL-IN-1 that the screen
    should be cleared and therefore repainted when the COMMAND function is
    completed.

    Does a CTRL/W result in getting the display back?  How about just
    pressing RETURN?

    Very curious,
    don

    Hi,
    
    Put the CLEAR after your call to the command-procedure. Something like:
    COMMAND S1032 \CLEAR
    
    Regards,
    Sjaak.

	If .-1 doesn't work, you could also try a CLEAR FORM, to clear ALL-IN-1's
form context, which should cause it to re-paint when you return from your
command procedure.

	F

    thanks ! 
    
    	/CLEAR did it !