Re: How do I retrieve the RRN of a PF or LF in a RPG program.

[Bruce Vining <bruce.vining@xxxxxxxxx>]

I'm sorry but a 4-byte integer is not 15,0.  10,0 is a lot closer.

On Tue, Aug 25, 2020 at 3:45 PM George Smith <gsmith@xxxxxxxx> wrote:

> Set the Information Data Structure on the file with the INFDS keyword and
> the subfield in the Data Structure is 397 to 400 Integer with zero decimals
> (15,0) as 397   400I  0. Working on a program using the relative record
> number to update the file since my key fields are not strong enough to
> bring the record in for update.
>
> George R. Smith
> Sr. JD Edwards Analyst
> 3325 W Trinity Blvd,  Grand Prairie, TX 75050  (817) 510-1600 ext. 4121
>
> -----Original Message-----
> From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of
> dfreinkel
> Sent: Tuesday, August 25, 2020 2:39 PM
> To: RPG400-L
> Subject: How do I retrieve the RRN of a PF or LF in a RPG program.
>
> Its been a while and I cannot find where the value of the record read
> (READ,
> CHAIN.) is placed by the system.
>
>
>
> I tried on the F extension spec KRECNO.
>
> I also defined the INFDS but don't see a definition for the RRN of the
> record read.
>
>
>
> Where is it defined?
>
>
>
> TIA
>
>
>
> Darryl Freinkel
>
> A4G.
>
> Tel: 770.321.8562 | Cell: 678.355.8562
>
>
>
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com