Re: OCL -- RPG400-L

--
[ Picked text/plain from multipart/alternative ]
Lars;
Wow! After re-reading your answer again, I did have the key length, but I
noticed you had EXTK in the Fspec... so I tried it... and it worked! Thanks
so much!
You are all THE BEST!
Most Sincerely;
Kathie



In a message dated 09/24/2001 1:58:15 AM Central Daylight Time,
lv@sanistaal.dk writes:


> Subj: Re: OCL
> Date: 09/24/2001 1:58:15 AM Central Daylight Time
> From:    lv@sanistaal.dk (Lars Villadsen)
> Sender:    rpg400-l-admin@midrange.com
> Reply-to: <A HREF="mailto:rpg400-l@midrange.com">rpg400-l@midrange.com</A>
> To:    rpg400-l@midrange.com
>
>
>
>
>
> Hi Kathie (and David)
>
> To David : this is indeed an rpg question
>
> To Kathie :
>
> You have to specify the key length in the f-spec :
>
> FFILE    IC        512R 8AI  EXTK DISK
>
> the key in this example is 8 long
>
> good luck
>
> Lars
>
>
>
>
>                     Kmh0421@aol.com
>                     Sent by:                To:     RPG400-L@midrange.com
>                     rpg400-l-admin@mi       cc:
>                     drange.com              Subject:     OCL
>
>
>                     21-09-01 20:57
>                     Please respond to
>                     rpg400-l
>
>
>
>
>
>
> --
> [ 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.
>
>
>
>
> _______________________________________________
> 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.
>
>
>
> ----------------------- Headers --------------------------------
> Return-Path: <rpg400-l-admin@midrange.com>
> Received: from  rly-xf02.mx.aol.com (rly-xf02.mail.aol.com
> [172.20.105.226]) by air-xf03.mail.aol.com (v80.17) with ESMTP id
> MAILINXF37-0924025815; Mon, 24 Sep 2001 02:58:15 -0400
> Received: from  linux.midrange.com ([207.224.38.113]) by
> rly-xf02.mx.aol.com (v80.21) with ESMTP id MAILRELAYINXF28-0924025539; Mon,
> 24 Sep 2001 02:55:39 -0400
> Received: from linux.midrange.com (localhost [127.0.0.1])
>     by linux.midrange.com (8.11.2/linuxconf) with ESMTP id f8O76CP04910;
>     Mon, 24 Sep 2001 02:06:12 -0500
> Received: from saniaal.sanistaal.dk ([195.249.120.131])
>     by linux.midrange.com (8.11.2/linuxconf) with ESMTP id f8O75LP04757
>     for <rpg400-l@midrange.com>; Mon, 24 Sep 2001 02:05:21 -0500
> Subject: Re: OCL
> To: rpg400-l@midrange.com
> X-Mailer: Lotus Notes Release 5.0.2c (Intl) 2 February 2000
> Message-ID: <OF8ED96309.ECBF8029-ON41256AD1.002B5D1F@sanistaal.dk>
> From: "Lars Villadsen" <lv@sanistaal.dk>
> X-MIMETrack: Serialize by Router on SANIAAL/Sanistaal(Release 5.0.8 |June
> 18, 2001) at
> 24-09-2001 08.56.46
> MIME-Version: 1.0
> content-transfer-encoding: 7bit
> content-type: text/plain;
> charset=us-ascii
> Sender: rpg400-l-admin@midrange.com
> Errors-To: rpg400-l-admin@midrange.com
> X-BeenThere: rpg400-l@midrange.com
> X-Mailman-Version: 2.0.6
> Precedence: bulk
> Reply-To: rpg400-l@midrange.com
> List-Help: <mailto:rpg400-l-request@midrange.com?subject=help>
> List-Post: <mailto:rpg400-l@midrange.com>
> List-Subscribe: <http://lists.midrange.com/cgi-bin/listinfo/rpg400-l>,
>     <mailto:rpg400-l-request@midrange.com?subject=subscribe>
> List-Id: RPG programming on the AS400 / iSeries <rpg400-l.midrange.com>
> List-Unsubscribe: <http://lists.midrange.com/cgi-bin/listinfo/rpg400-l>,
>     <mailto:rpg400-l-request@midrange.com?subject=unsubscribe>
> List-Archive: <http://archive.midrange.com/rpg400-l/>
> Date: Mon, 24 Sep 2001 09:56:42 +0200
>
>
>