RE: Using qualified Ds in I/O

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.