Return to Symbol

Return the Expression String for a Dimension Example

   $$ Example program for DRFEXP EDA
   $$
   entity/eid
   number/resp
   string/expstr(132)
   $$
   $$ select entity
   $$
   lbeg:
   mask/26
   ident/'Select Dimension',eid,resp
   jump/lend:,lend:,,,,,resp
   $$
   $$
   expstr = &DRFEXP(eid,IFERR,lerr:)
   messg/'Expression is ',expstr
   jump/lbeg:
   $$
   lerr:
   messg/'error in DRFEXP'
   $$
   $$
   lend:
   halt