/* REXX See CHALL */

"ISREDIT MACRO"

PULL fstring cstring grkl pos from to

xFF     = 'FF'x                                     /* Hex FF ( 255 ) */
Blank   = '40'x                                     /* Hex 40 ( 064 ) */

fstring = TRANSLATE(fstring,Blank,xFF)
cstring = TRANSLATE(cstring,Blank,xFF)

"ISREDIT (width) = DATA_WIDTH"
to = MIN(to,width)

IF from > to THEN DO
   dummy = to
   to    = from
   from  = dummy
END

IF grkl = 'YES' then
   grkl = 'C'
ELSE
   grkl = ''

"ISREDIT CHANGE ALL" grkl||fstring cstring pos from to

IF rc = 0 THEN DO
   "ISREDIT (treffer) = CHANGE_COUNTS"
END
ELSE DO
   treffer = 0
END

"ISREDIT END"