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
midrange.com
