/* Accessing incoming call data */

address tbase

GETVAR                              /* 
                                    ** Fills all rexx variables with 
                                    ** data from TeleBASE
                                    */

callnum = numcalls                  /* 
                                    ** Set the current 'callnum', to the
                                    ** latest one available.
                                    */

SENDVAR                             /* Tell TeleBASE to make it current */
GETVAR                              /* Get new data from TeleBASE       */
  say 'C_NAME is ' C_NAME
  say 'C_DATA is ' C_DATA
  say 'C_TIME is ' C_TIME  
  say 'C_DATE is ' C_DATE
  say 'C_RAW is '  C_RAW
  say 'C_NUM is '  C_NUM
  say 'NumCalls is ' numcalls
  say 'Caller number is ' callnum