[RBASE-L] - Re: Bail-Out After Prnsetup Invoked, LASTKEY Usage

[Brad Davidson]

Alastair, An attempt in declaring variable vlast as data type integer returned following errors: (2178) value does not have same type/scale as variable vlast, and, (2418) Invalid Integer value , so now program bails in all cases. Know there's a big 'duh' in here, but appreciate someone pointing this out to me. Any other ideas - can you duplicate? Thanks! -Brad Davidson Alastair Burr wrote: Brad, It _looks_ to me as if the version you have currently should work BUT do you have the variable vLast declared beforehand? If not, try adding: SET VAR vLast INTEGER = NULL after your line: -- Per RSyntax Version Regards,Alastair.  ----- Original Message ----- From: Brad Davidson To: RBASE-L Mailing List Sent: Wednesday, March 26, 2003 4:41 PM Subject: [RBASE-L] - Bail-Out After Prnsetup Invoked, LASTKEY Usage  R:Base Windows 6.5++ Bld 1.864 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