AW: Using a qualified data structure field for ExtMbr keyword

Hi,

I always used EXTMBR in conjunction with EXTFILE. Then it works correctly. I
tried your example and got also an open to the first member regardless what
I specified in the source code as member name. This problem has nothing to
do with qualified data structures. 
Hope there is somebody who can explain this specific exactly.
Regards,
Werner Noll

-----Ursprüngliche Nachricht-----
Von: antoine.contal@xxxxxxx [mailto:antoine.contal@xxxxxxx]
Gesendet: Donnerstag, 13. Mai 2004 17:24
An: rpg400-l@xxxxxxxxxxxx
Betreff: Using a qualified data structure field for ExtMbr keyword






Hello!

I am trying to use a field from a qualified data structure in an ExtMbr
keyword, but it does not seem to work. I do not understand what is the
problem.

For instance, the following code fails at runtime.

---

FMYFILE    IF   E             disk    ExtMbr(myDS.member) UsrOpn

DmyDS             DS                  Qualified
D member                        10A

 /free
   myDS.member = 'MYMBR';
   open MYFILE;
   close MYFILE;

   *inlr = *on;
 /end-free

---

Although it compiles fine, it fails when trying to open MYFILE. The runtime
environment complains it cannot find member ' ' (blank). Yet, the debugger
confirms that myDS.member contains 'MYMBR' when the open statement is
reached.

I am sorry if this question was already asked. I have browsed the ML
archive, but I could not find similar posts.

Thank you for your help!

Antoine CONTAL



Les informations contenues dans ce message sont confidentielles et peuvent
constituer des informations privilegiees. Si vous n etes pas le destinataire
de ce message, il vous est interdit de le copier, de le faire suivre, de le
divulguer ou d en utiliser tout ou partie. Si vous avez recu ce message par
erreur, merci de le supprimer de votre systeme, ainsi que toutes ses copies,
et d en avertir immediatement l expediteur par message de retour....
Il est impossible de garantir que les communications par messagerie
electronique arrivent en temps utile, sont securisees ou denuees de toute
erreur ou virus. En consequence, l expediteur n accepte aucune
responsabilite du fait des erreurs ou omissions qui pourraient en resulter.
--- ----------------------------------------------------- ---
The information contained in this e-mail is confidential. It may also be
legally privileged. If you are not the addressee you may not copy, forward,
disclose or use any part of it. If you have received this message in error,
please delete it and all copies from your system and notify the sender
immediately by return e-mail.
E-mail communications cannot be guaranteed to be timely secure, error or
virus-free. The sender does not accept liability for any errors or omissions
which arise as a result.

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.