DSHMTT.rexx

/* -----------------------------------------------------------------
 * Part One  Sticky Note for Master Trace Table
 * -----------------------------------------------------------------
 */
  parse arg row,col,rows,cols,color
  alias=gettoken() /* define alias (for stems) */
  /* Create FSS Screen defs */
  call fssDash  'Trace Table',alias,row,col,rows,cols,color 
  sticky.alias.__refresh=30  /* refresh every n seconds */
  /* rexx call to update sticky note */
  sticky.alias.__fetch="call StickyMasterTT "alias",10" 
return 0
/* -----------------------------------------------------------------
 * Part Two  Procedure to create the sticky Content
 * -----------------------------------------------------------------
 */
StickyMasterTT:
  parse arg __alias,maxl
  if mtt('REFRESH')<0 then _line.0=0
  j=0
  maxl=max(_line.0-maxl+1,1)
  do i=maxl to _line.0
     j=j+1
     sticky.__alias.j=_line.i
  end
return 0