RE: RNF7579 error when compiling a program using CHAIN and READE into a data structure

The result data structure DSOEDTLI17 does not include a subfield in position
1 for record format OEDTLF.

Darryl Freinkel
A4G.
Tel: 770.321.8562 Ext 111 | Cell: 678.355.8562

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Justin
Taylor
Sent: Friday, January 10, 2020 4:03 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: RNF7579 error when compiling a program using CHAIN and READE
into a data structure

What's the full error associated with the RNF7579?



-----Original Message-----
From: dfreinkel [mailto:dfreinkel@xxxxxxxxxxxxxxxxx]
Sent: Friday, January 10, 2020 2:22 PM
To: RPG400-L <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RNF7579 error when compiling a program using CHAIN and READE into a
data structure

I need some help to get this to work. I do not want to convert the program
to a SQLRPGLE program.



Here is the data structure definition:



d dsSYPARMS e ds extname(SYPARMS)
p4975-6

d dsDLSIBP e ds extname(DLSIBP )
p4975-6



d dsOEDTLI17 e ds alias qualified

d extname(OEDTLP:*all)

d prefix(m_)

d dsOEDTLP e ds alias qualified
p4975-6

d extname(OEDTLP:*all)

d dsOEDTLP1 e ds alias prefix(x_)
p4975-6

d extname(OEDTLP:*all)



02 C KYINV# READE OEDTLP dsOEDTLP 91



Chain (HDINV# : wLast_Line_No) OEDTLI17 dsOEDTLI17 ;

If %found(OEDTLI17) and wLast_Line_No > LINE_NO ;

wMissing_Line_Found = *on;

dsOEDTLP = dsOEDTLI17;

Endif;



dsOEDTLI17 gets the RNF7579.



How do I get this to work?



TIA



Darryl Freinkel

A4G.

Tel: 770.321.8562 Ext 111 | 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@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com