Re: Using qualified Ds in I/O

Hi John and thanks for your time.

You are right it's working but the reason is not the format. PF and all LF
over the PF share the same format:

DSPDBR FILE(MUDBCOS00F) RCDFMT(DBCOS):
MUDBCOS00F
MUDBCOS02L
MUDBCOS03L
MUDBCOS04L
MUDBCOS01L

DSPFD FILE(MUDBCOS*) TYPE(*RCDFMT):
MUDBCOS00F P *PHY 34 461 51E691EC84096
MUDBCOS01L L *LGL 34 461 51E691EC84096
MUDBCOS02L L *LGL 34 461 51E691EC84096
MUDBCOS03L L *LGL 34 461 51E691EC84096
MUDBCOS04L L *LGL 34 461 51E691EC84096

I guess the problem is the same (likerec, qualified ds):

Dcl-f mudbcos01l disk keyed usage(*input);
Dcl-f mudbcos04l disk keyed usage(*input) rename(dbcos:dbcos4);

Dcl-Ds sDbcos likerec(dbcos);
Dcl-ds rDbcos extname('MUDBCOS01L':'DBCOS':*ALL) qualified
inz End-ds;
Dcl-ds wDbcos extname('MUDBCOS01L':'DBCOS':*ALL) inz End-ds;

chain ('21903262') mudbcos01l sDbcos; // OK
chain ('21903262') mudbcos01l rDbcos; // OK
chain ('21903262') mudbcos01l wDbcos; // OK

chain ('21903262') mudbcos04l sDbcos; // RNF7595
chain ('21903262') mudbcos04l rDbcos; // RNF7595
chain ('21903262') mudbcos04l wDbcos; // RNF7595

So I'm back to my original RANT. Why?

TIA
--
Marco Facchinetti

Mr S.r.l.

Tel. 035 962885
Cel. 393 9620498

Skype: facchinettimarco


Il giorno gio 12 dic 2024 alle ore 15:05 Slanina, John via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> ha scritto:

MUDBCOS02I and MUDBCOS00F does not have the same Format Level, I just
tested on my system and then the logical has a format level I get that
error. Using mudbcos02l as the extname and it will work.

John Slanina



-----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('':*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.

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