dcl cb(128*1024) char(1); dcl wb(128*1024) widechar(1); dcl pos fixed bin(31); /* 128K bytes searched from the right for a numeric */ pos = memsearchr( addr(cb), stg(cb), '012345789' ); /* 256K bytes searched from the right for a widechar '0' or '1' */ pos = memsearchr( addr(wb), stg(wb), '0030_0031'wx );