Re: [Junk released by User action] RE: RPG II Question

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.