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

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

No - it maps as an Int(10) which is a 4 byte field not 10.



> On Aug 25, 2020, at 4:56 PM, George Smith <gsmith@xxxxxxxx> wrote:
>
> Okay Bruce you got me but the field maps out in RDi as a 10 byte INT field when coded as the 397 400I  0.
>
> 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 Bruce Vining
> Sent: Tuesday, August 25, 2020 3:36 PM
> To: RPG programming on IBM i
> Subject: Re: How do I retrieve the RRN of a PF or LF in a RPG program.
>
> 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
>
>
> -- 
> Thanks and Regards,
> Bruce
> 931-505-1915
> -- 
> 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