Extname 'MUDBCOS00FI' ?
This is how I use it.
dcl-f rxhrtv01 disk usage(*input) keyed;
dcl-ds rxhrtv01Ds ExtName('RXHRTV01' :*all) qualified;
header extFld('DXA6CB');
headerData extFld('DXA7CB');
end-ds;
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Marco Facchinetti
Sent: Tuesday, December 10, 2024 12:17 PM
To: RPG400-L@xxxxxxxxxxxxxxxxxx
Subject: Using qualified Ds in I/O
________________________________
CAUTION: This email originated from outside of the PENCOR network. Do not click on any links or open attachments unless the sender is known, and the content is verified as safe.
________________________________
Hi all, maybe it's only my but I find this one annoyng:
Dcl-f mudbcos02l disk keyed usage(*input);
Dcl-Ds rDbcos extname('MUDBCOS00F':*ALL) qualified End-ds;
chain ('21903262') mudbcos02l rDbcos;
It's not working (RNF7595)
A workaround is:
Dcl-f mudbcos02l disk keyed usage(*input);
Dcl-Ds rDbcos extname('MUDBCOS00F':*ALL) qualified End-ds;
Dcl-Ds rCos likerec(dbcos);
chain ('21903262') mudbcos02l rCos;
eval-corr rDbcos = rCos;
if %nullind(rDbcos.Duedate);
%nullind(rDbCos.Duedate) = *off;
rDbCos.Duedate = %date();
EndIf;
Or (but max field's name length is 14 and will be prefixed in the whole
programm):
Dcl-f mudbcos02l disk keyed usage(*input) prefix('RS.');
Dcl-Ds RS extname('MUDBCOS00F':*ALL) qualified End-ds;
chain ('21903262') mudbcos02l;
if %nullind(RS.Duedate);
%nullind( RS.Duedate) = *off;
RS.Duedate = %date();
EndIf;
So my question is: why is it not possible to use a qualified Ds in I/O operations?
TIA
--
Marco Facchinetti
Mr S.r.l.
Tel. 035 962885
Cel. 393 9620498
Skype: facchinettimarco
--
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.
midrange.com
