Re: INFDS layout

Something like this?


Fitcust02 uf e k disk infds(ds01)

D ds01 ds
D #rr01 397 400b 0

Matt Hopkins
Systems Architect
PDP Group, Inc./The Amynta Group
10909 McCormick Road
Hunt Valley, MD 21031
Office: 410.584.0330
Cell: 410.258.8845
Matt.Hopkins@xxxxxxxxxxxxxxx
mwhopkins@xxxxxxxxxxxxxxx


On 5/3/21, 2:14 PM, "RPG400-L on behalf of dfreinkel@xxxxxxxxxxxxxxxxx" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx on behalf of dfreinkel@xxxxxxxxxxxxxxxxx> wrote:

CAUTION: This email originated from outside of the organization. Do not click links or open attachments unless you recognize the sender and know the content is safe.


Thanks, Joe.

I am looking for the F-spec and ds for a RPG/400 program.

Darryl Freinkel
A4G
Telephone: 770.321.8562 Mobile: 678.355.8562

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Joe Pluta
Sent: Monday, May 3, 2021 2:09 PM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: Re: INFDS layout

This is what I use, Darryl:

dcl-ds infMyFile qualified;
rrn uns(10) pos(397);
end-ds;


On 5/3/2021 12:51 PM, dfreinkel@xxxxxxxxxxxxxxxxx wrote:
> I am changing a program and I need to get the RRN of the record in the
> physical/logical file I just read. I have tried to find the layout of
> the file information data structure which will give me the RRN of the
> record read without success.
>
>
>
> Does anyone have a copy they could forward to me?
>
>
>
> TIA
>
>
>
> Darryl Freinkel
>
> A4G
>
> Telephone: 770.321.8562 Mobile: 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://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Flists.midrange.com%2Fmailman%2Flistinfo%2Frpg400-l&amp;data=04%7C01%7Cmatt.hopkins%40amyntagroup.com%7C78b9a31f0a97422c7ded08d90e5f5060%7Cf2d946c22ae84d1cacbbabbf85cf2c37%7C0%7C0%7C637556624804824190%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&amp;sdata=%2BFma2C99V4UuBlV0TVFx9qjGlSYH1vgKGWWf7lJyaD0%3D&amp;reserved=0
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Farchive.midrange.com%2Frpg400-l&amp;data=04%7C01%7Cmatt.hopkins%40amyntagroup.com%7C78b9a31f0a97422c7ded08d90e5f5060%7Cf2d946c22ae84d1cacbbabbf85cf2c37%7C0%7C0%7C637556624804834143%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&amp;sdata=7LFcuSS6ipBV84DJJcoKbR3ZWJZvBFTXoHcvc3H3bxU%3D&amp;reserved=0.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Famazon.midrange.com%2F&amp;data=04%7C01%7Cmatt.hopkins%40amyntagroup.com%7C78b9a31f0a97422c7ded08d90e5f5060%7Cf2d946c22ae84d1cacbbabbf85cf2c37%7C0%7C0%7C637556624804834143%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&amp;sdata=J8aUFNq%2FjmI84mNrfCkp3AcwGrfk9KwNNEq9AgI5j%2Fc%3D&amp;reserved=0

--
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://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Flists.midrange.com%2Fmailman%2Flistinfo%2Frpg400-l&amp;data=04%7C01%7Cmatt.hopkins%40amyntagroup.com%7C78b9a31f0a97422c7ded08d90e5f5060%7Cf2d946c22ae84d1cacbbabbf85cf2c37%7C0%7C0%7C637556624804834143%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&amp;sdata=z3rLqkCbQ%2BaAfpy%2BvgyK7u7wCZMUwZ%2FdP3iOs5jQZ34%3D&amp;reserved=0
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Farchive.midrange.com%2Frpg400-l&amp;data=04%7C01%7Cmatt.hopkins%40amyntagroup.com%7C78b9a31f0a97422c7ded08d90e5f5060%7Cf2d946c22ae84d1cacbbabbf85cf2c37%7C0%7C0%7C637556624804834143%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&amp;sdata=7LFcuSS6ipBV84DJJcoKbR3ZWJZvBFTXoHcvc3H3bxU%3D&amp;reserved=0.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Famazon.midrange.com%2F&amp;data=04%7C01%7Cmatt.hopkins%40amyntagroup.com%7C78b9a31f0a97422c7ded08d90e5f5060%7Cf2d946c22ae84d1cacbbabbf85cf2c37%7C0%7C0%7C637556624804834143%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&amp;sdata=J8aUFNq%2FjmI84mNrfCkp3AcwGrfk9KwNNEq9AgI5j%2Fc%3D&amp;reserved=0