|
Another interesting thing on this. Here is a something really weird (I
haven't filed the PMR yet).
Here is how I had my code:
// SQL Fields
D gSqlStmt S 1024A
D sqlResults E DS ExtName(NCMASTP)
/COPY MODULES/QCOPYSRC,SQLCOPY
// ***** Misc Fields *****
// Saved Fields
D
// Total Fields
D
// Screen Processing Fields
D screenCompleted...
D S N
This doesn't get through the precompiler with the mentioned error.
In some cleaning up I moved the location of a field to look like this:
// SQL Fields
D gSqlStmt S 1024A
D sqlResults E DS ExtName(NCMASTP)
/COPY MODULES/QCOPYSRC,SQLCOPY
// ***** Misc Fields *****
// Screen Processing Fields
D screenCompleted...
D S N
// Saved Fields
D
// Total Fields
D
It past the precompiler.
The copybook has the following:
// SQL Error Status Fields (Numeric Order)
D SQL_SUCCESS C CONST('00000')
D SQL_NO_MORE_ROWS...
D C CONST('02000')
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.