Re: Relative Record Number

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

Hello Booth,

Your positions are correct and I am not sure why you are getting such strange 
values but since you are using 
RPG IV I would define the field as an integer.  The file feedback data 
structure uses BIN(4) fields which are 
really integers.  RPG binary fields don't map very well but they were all we 
had for such a long time.

Regards,
Simon Coulter.

//----------------------------------------------------------
// FlyByNight Software         AS/400 Technical Specialists
// Phone: +61 3 9419 0175      Mobile: +61 0411 091 400
// Fax:   +61 3 9419 0175      E-mail: shc@flybynight.com.au
// 
// Windoze should not be open at Warp speed.
//--- forwarded letter -------------------------------------------------------
> X-Mailer: MR/2 Internet Cruiser Edition for OS/2 v1.50 b48 
> Date: Fri, 01 Jan 99 01:17:52 -0500
> From: boothm@ibm.net
> To: MIDRANGE-L@midrange.com
> Reply-To: MIDRANGE-L@midrange.com
> Subject: Relative Record Number

> 
> I'm still stuck.  What is wrong with this code?  Why do I get a value of 
>000538976288 as the value in the 
fields DB1RRNand DB2RRN for every single record?  This is in a 7-record file. 
Both files are logicals.
> 
>      FPHONEFL1  IF   E           K DISK    REMOTE INFDS(DB1)
>      F                                     RENAME(RPHONE:RPHONE1)
>      FPHONEFL2  IF   E           K DISK    REMOTE INFDS(DB2)
>      F                                     RENAME(RPHONE:RPHONE2)
>      D DB1             DS
>      D DB1RRN                397    400B 0
>      D DB2             DS
>      D DB2RRN                397    400B 0
> 
> 
> tia.
> 
> -- 
> -----------------------------------------------------------
> boothm@ibm.net
> Booth Martin
> -----------------------------------------------------------

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---