Now that you ask the question, I took another look and the OPNQRYF is
successful, but the SETLL to the file is where I'm failing. I was
thinking CCSID because I previously had an OPNQRYF fail because of that,
and didn't realize I wasn't failing on that command.
These are the error messages I'm getting:
InqVCTSS.EXE Mon Jun 11 15:02:35 2007 CPF5035: Data mapping error on
member CTSPHDR.
InqVCTSS.EXE Mon Jun 11 15:02:35 2007 CPF5097: Key mapping error on
member CTSLHDR3.
The fail is with a SETLL, error code of 1299.
FCTSLHdr3 IF E K Disk Remote Rename( CBRec: CBRec3
)
F UsrOpn
D cmd_OVRDBF1 C 'OVRDBF FILE('
D cmd_OVRDBF2 C ') OPNSCOPE(*JOB)
OVRSCOPE(*JOB) -
D SHARE(*YES)'
D cmd_QryBeg C 'OpnQryF File(('
D QRY_Sel1 C ')) Option(*All) QrySlt('''
D QRY_Sel2 C 'CBType *Eq "'
D QRY_Sel3 C '"'
D QRY_Sel4 C ' *Or '
D QRY_Sel5 C ''') KeyFld((*File))
CCSID(1252) -
D OPNSCOPE(*JOB)'
That's the makeup of the commands. OVRDBF simply missing the filename.
Query select missing the filename and selection criteria. Listed to
show the keywords used.
Kurt Anderson
Application Developer
Highsmith Inc
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[
mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Klement
Sent: Monday, June 11, 2007 2:52 PM
To: Midrange Systems Technical Discussion
Subject: Re: CCSID question
Hi Kurt,
I have a Visual Age RPG app using OPNQRYF running on Windows 2000.
The CCSID I've been using is 1252. It's been working great. But, I
seem to have a problem when the key field is a date field.
I'm a bit confused. Why do you think it's a CCSID error? AFIAK, all
of the possible characters in a date field are invariant.
--
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.
midrange.com
