ISREDIT MACRO
/* PUT YOUR CURSOR WITHIN A PICTURE STRING AND IT WILL CALCULATE */
/* THE PICTURE SIZE AND REPLACE THE SIZE IN THE PICTURE CLAUSE */
SET &TICK = &NRSTR(')
SET &CHNGE = '(KK)'
ISREDIT (LINE,COL) = CURSOR
ISREDIT FIND "&TICK" .ZCSR .ZCSR NEXT
ISREDIT (LINE,COLEND) = CURSOR
ISREDIT FIND "&TICK" .ZCSR .ZCSR PREV
ISREDIT (LINE,COLBEG) = CURSOR
SET &COLLEN = &EVAL(&COLEND-&COLBEG-1)
SET &ZEDSMSG = -
&STR(STRING IS &COLLEN CHAR LONG)
ISPEXEC SETMSG MSG(ISRZ000)
ISREDIT FIND "(" PREV
ISREDIT (LINE,COL) = CURSOR
ISREDIT CURSOR = &LINE &EVAL(&COL-1)
ISREDIT CHANGE &CHNGE (&COLLEN.) NEXT
ISREDIT SAVE
EXIT
