× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



The problem in in you program.  Check the key length on the F-spec for this
file.

----- Original Message -----
From: <Kmh0421@aol.com>
To: <RPG400-L@midrange.com>
Sent: Friday, September 21, 2001 1:57 PM
Subject: OCL


> --
> [ Picked text/plain from multipart/alternative ]
> Hi again...
> Does anyone know OCL?
> Do I have to somehow define the length of the key to a logical in the OCL?
> I am almost finished with all of these programs, about 4 left.... then
back
> to the future!
> Thanks....Again!
> Kathie
>
>
> I did a BLDINDEX and created a logical over my physical, keyed by the last
13
> bytes of my flat file, positions 52 to 64. (U2 is the logical) My OCL now
> looks like this:
>  *************** Beginning of data ***************************
>  // LOCAL OFFSET-102,DATA-'?WS?'
>  // OVRDBF FILE(IC935U) TOFILE(KMHFILES/IC935U)
>  // OVRDBF FILE(IC935U2) TOFILE(KMHFILES/IC935U2)
>  // OVRDBF FILE(DE400A) TOFILE(KMHFILES/DE400A)
>  // OVRDBF FILE(IC052A) TOFILE(KMHFILES/IC052A)
>  // OVRDBF FILE(IC040A) TOFILE(KMHFILES/IC040A)
>  // LOAD IC935U
>  // FILE NAME-IC935U,DISP-SHR,RECORDS-500,EXTEND-10
>  // FILE NAME-IC935U2,DISP-SHR,RECORDS-500,EXTEND-10
>  // FILE NAME-DE400A,DISP-SHR
>  // FILE NAME-IC052A,DISP-SHR
>  // FILE NAME-IC040A,DISP-SHR
>  // RUN
> When I call it... I get an error:
>
>  SYS2206 Options (  23)
>  IC935U2. This file accessed with wrong key length.
>
>  Cause . . . . . :   In referencing the file identified in the message,
the
>    program running is using the wrong key length value.  If you are
running
>    a procedure, you incorrectly entered a procedure name or parameter.
>  Recovery  . . . :   Enter option 2 or 3 and give the programmer the
message
>    ID (SYS2206) and the file name identified in the message.
>  Possible choices for replying to message . . . . . . . . . . . . . . . :
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.