RE: RPG II Question

["Bill Burnet" <BBurnet@xxxxxxxxxxxxxxxxxxxx>]

Jerry,
I tried it both ways with the same results. I even tried it outside of
the 36 environment with a strs36prc with the same results. I've read
posts where other people have been able to do this, but I always get an
error when my F specs don't match the file definition on the old 36
programs. But, that only applies to files created as s/36 files. If I
use a file in a 36 program that is DDS defined, it doesn't care about
record length or key position. Is your file a DDS file? That may explain
it.

-----Original Message-----
From: Jerry Adams [mailto:jerry@xxxxxxxxxxxxxxx] 
Sent: Monday, March 24, 2008 10:41 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: RPG II Question

Bill,

That's what I would have expected. 

In your test was the file defined as "IC" or "IF" ?

	* Jerry C. Adams
*IBM System i Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
	615.995.7024
fax
	615.995.1201
email
	jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>



Bill Burnet wrote:
> I get "This file accessed with wrong key location." when I try that.
>
> -----Original Message-----
> From: Jerry Adams [mailto:jerry@xxxxxxxxxxxxxxx] 
> Sent: Friday, March 21, 2008 11:59 AM
> To: RPG Midrange
> Subject: RPG II Question
>
> I really don't expect an answer.  In fact most people will probably
just
> delete this when they see the subject line.  But this is puzzling the 
> heck out of me.
>
> I went in to an RPG II program (old package) to do some simple 
> maintenance changes.  I noticed that one of the files was defined as:
>
> FFilenameIPEAFBlenRlenLK1AIOvKlocEDevice+
> FLISTCONSIF         27  1AI     1 DISK  
>
> Well, the key length is '1' but the key actually starts in position
'2' 
> of the record.  The purpose of the file is to validate a code entered
on
> a panel:
>
> C           WRCONS    CHAINLISTCONS             54
> C   54                SETON                     99
> C   54      *ZEROS    ADD  23        $            
> C   54                GOTO X2A                    
>
> The first position of LISTCONS is a status byte.  Currently every
record
> has an 'A' in position 1.  The program has been successfully
validating 
> these codes for years.  How is that possible?  I even put the program 
> under debug (ISDB) and verified the codes entered (WRCONS) and in the 
> file (ABCONS) are the same after the chain, and that indicator 54 is 
> turned *Off.
>
> It has been awhile since I programmed on a S/36, but I'm pretty sure 
> that, first, when the program started up it would give me a file 
> mismatch error.  Is the i5 really smart enough to say, "Well, he
botched
> that.  Let's just use what is really in the file."?
>
> Thanks.
>
>