/*-------------------<---Start of Description-->---------------------\
| Move cursor to outside of the current word table;                  |
|---------------------<---End of Description-->----------------------|
|--------------------------------------------------------------------|
|------------<---Start of Files or Arguments Needed-->---------------|
| No arguemnt is needed;                                             |
| wordref: word reference; not necessary; default is "wordsys";      |
|-------------<---End of Files or Arguments Needed-->----------------|
|--------------------------------------------------------------------|
|------------------<---Start of Files Created-->---------------------|
| Example: %endtable;                                                |
| Usage:   %endtable(wordref);                                       |
\-------------------<---End of Files Created-->---------------------*/
%macro endtable/parmbuff;
/*--------------------------------------------\
| Author:  Duo Zhou;                          |
| Created: 6-6-2001 8:40pm;                   |
| Purpose: Move cursor to outside of the      |
|          current word table;                |
\--------------------------------------------*/
%local wordref wsid rc;
%let wordref=%qscan(&syspbuff, -1, %str( (),=));
%if (&wordref eq) %then %do;
   %let wordref=wordsys;
%end;
%let wsid=0;
%if (&wordref ne ) %then %do;
   %let wsid=%sysfunc(fopen(&wordref,o,132,e));
%end;
%if &wsid %then %do;
   %let rc=%sysfunc(fclose(&wsid));
   data _null_;
      file &wordref lrecl=2000;
      put '[TableSelectTable]';
      put '[LineDown 1]';
      put '[InsertPara]';
   run;
%end;
%else %do;
   %put ==> Alert! Incorrect window reference "&wordref", or window "&wordref" isn%str(%')t open.;
%end;
%mend endtable;