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

[Jerry Adams <jerry@xxxxxxxxxxxxxxx>]

Bill,

That's one thing I didn't think of.  The table (LISTCONS) is a 
DDS-defined physical.

	* 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:
> 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.
> >
> >   
> >     
>
>