Appreciate some advice on this. How does one "bail-out" after prnsetup invoked? See LASTKEY usage after prnsetup below. Have attempted 2 scripting methods, both fail when running at the r:\ prompt - that is, the file is printed anyway, though ESC key pressed. Inconsistent behaviour while tracing: sometimes prints, sometimes doesn't, and when it doesn't, flashes back to r:\ with no error message and disappearing cursor (assuming some error occurs but can't trap it). TIA!
Brad Davidson
********************************
-- LISTABLE.RMD
CLS
CLEAR VAR vtab
CLEAR VAR vlast
SET VAR vtab TEXT = NULL
CHOOSE vtab FROM #TABLES AT 5 10 TITLE 'TABLE INFO' +
CAPTION 'Print Table Specs For ONE Table, As Selected'
+
LINES 20 FORMATTED
IF vtab IS NULL OR vtab = '[Esc]' THEN
GOTO finish
ENDIF
DELETE tempfile.txt
OUTPUT tempfile.txt
SET LINES 0
LIST .vtab
SET LINES 20
OUTPUT SCREEN
PRNSETUP
-- IF (LASTKEY(0)='[esc]') THEN
-- GOTO finish
-- ENDIF
-- Per RSyntax Version
SET VARIABLE vlast = (LASTKEY(0))
IF vlast = '[Esc]' THEN
GOTO finish
ENDIF
OUTPUT PRINTER
TYPE tempfile.txt
OUTPUT SCREEN
LABEL finish
CLS
RETURN
