I found that using natural find statement with non descriptor DDM(N) fields is faster than DDM(D) for descriptor.
After defined 3 fields in DDM as NON-Descriptors and run the batch successfully many times, then starting getting NAT3113 on/off with zero subcode, then setting off natural parms RCGET and RCFIND to avoid the error but did not work.
We felt that RCGET or RCFIND are not working properly or we missed something beyond Natparms setting.
notice, we still having superdescriptor field of the same three non-descriptor fields, we planning to turn off superdesc.
Herein prog ex:
FIND MULTI-FETCH 200 ADA-FILE WITH
NON-DESCRIPTOR-1 = #SECONDARY-DATE-N OR= #PRIMARY-DATE-N
AND NON-DESCRIPTOR-2 = #REG-RENEWAL-DT
AND NON-DESCRIPTOR-3 = #REG-STATUS