dcl cb(128*1024) char(1); dcl wb(128*1024) widechar(1); dcl pos fixed bin(31); /* 128K bytes searched from the left for a non-numeric */ pos = memverify( addr(cb), stg(cb), '012345789' ); /* 256K bytes searched from the left for the a non-blank widechar */ pos = memverify( addr(wb), stg(wb), '0020'wx );