|
Hi, I'm running into a little problem. Here's my code and I will explain the error I keep receiving. D CmdArray S 63A DIM(1) CTDATA D Cmd S 63A D Len S 15P 5 C MOVEA CmdArray(1) Cmd C Z-ADD 63 Len C CALL 'QCMDEXC' C PARM Cmd C PARM Len C READ FILEC C FILCFLD CHAIN FILEA C IF Not %FOUND(FILEA) C WRITE FILEA C ENDIF ** OVRDBF FILE(FILEA) TOFILE(LIBB/FILEA) SHARE(*YES) I displayed the override and there is an existing override to LIBB for FILEA. When I chain to FILEA it still seems to be looking at the file as if it is not overridden because records that I know are not in LIBB/FILEA are being being found. Those records are in *LIBL/FILEA, but not in LIBB/FILEA. I know that for sure. Any ideas?
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.