• Subject: Re: Relative Record Number
  • From: "Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>
  • Date: Sat, 02 Jan 99 00:46:04 +0100

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.

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

This thread ...

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].