Re: Issue with SYSTABLES in V5R3 and OPNQRYF

["Carel Teijgeler" <coteijgeler@xxxxxxxxx>]

Krish,

I think OPNQRYF uses the old classic SQL engine. SYSTABLES seem to have BLOB or 
CLOB fields in it, that will only be supported by the new advanced SQL engine.

This means: you have to do this with embedded SQL and drop the OPNQRYF solution.

Regards,
Carel Teijgeler.

*********** REPLY SEPARATOR  ***********

On 8-12-04 at 12:01 Krish Thirumalai wrote:

>We are having a strange error, during a test on V5R3 with the
>SYSTABLES file. Any suggestions are welcome,.
>
>We are using old code that worked fine on V4R4. The client is testing on
>V5R3 
>
>Message . . . . :   Shared open of member SYSTABLES failed.              
>Cause . . . . . :   The shared open of member SYSTABLES file SYSTABLES in
>  library QSYS2 failed because of error code 6.
>6 -- The process large object fields specified in the program is not
>consistent with
>the value specified for the original open. 
> 
>The code looks like this:
>                                                                      
>            CHGVAR     VAR(&QRYSLT) VALUE('TYPE="P" *AND WKFCHR="W" +
>                         *AND SYS_DNAME="' *TCAT &DTALIB *CAT '"')   
>            OVRDBF     FILE(SYSTABLES) LVLCHK(*NO) SHARE(*YES)       
>            OPNQRYF    FILE((SYSTABLES)) QRYSLT(&QRYSLT) +           
>                         MAPFLD((WKFCHR '%SST(SYS_TNAME 6 1)'))      
>                                                                     
>* READ THRU OUTFILE & RMV ALL MBRS FOR WORK FILES */                 
>                                                                     
>READ:       RCVF                                                     
> 
>The RCVF is where the error occurs.
>
>Thanks
>
>Krish
>--
>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
>To post a message email: MIDRANGE-L@xxxxxxxxxxxx
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/mailman/listinfo/midrange-l
>or email: MIDRANGE-L-request@xxxxxxxxxxxx
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/midrange-l.