RE: IFS Open Help...

Bob Cozzi wrote:

So you have to add the X'00' to the end of the string.
And you have to ensure that there are no trailing blanks in the field.
So for your example, this might work:

  FileName = %trimR(FileName) + X'00';
  pFileName = %addr(fileName);

Michael Shutte wrote on 09/03/2007 11:02:55:

Bob do I still need to add this to FileName when FileName is defined as 

35

characters and every single character position will be taken up?  I will
always have 35 characters.

I hope you don't mind an answer from me instead of Bob.  As Bob mentioned, 
whether you need to add the X'00' manually or not doesn't depend on the 
length of your string, but how you pass it to the procedure.

If you say "open(1FileNamP :Oflag:Omode:cp)", then you need to add the 
X'00'.  Note that if FileName is 35 characters, and you do

  FileName = %trimR(FileName) + X'00';

then you will not make any progress, because the X'00' will get truncated 
by the eval.

If you say "open(%trimR(fileName) :Oflag:Omode:cp)" then you will be okay 
because the "value" and "options(*string)" keywords will take care of 
adding the X'00' for you.

HTH,
Adam

Attention:

The information contained in this message and or attachments is 
intended only for the person or entity to which it is addressed and may contain 
confidential and/or privileged material. Any review, retransmission, 
dissemination or other use of, or taking of any action in reliance upon, this 
information by persons or entities other than the intended recipient is 
prohibited. If you received this message in error, please contact the sender 
and 
delete the material from any system and destroy any copies. Thank you for your 
time and consideration.

Attention: 

Le contenu de ce message et(ou) les fichiers ci-joints s?adressent 
exclusivement à la personne ou -entité à laquelle ils sont destinés. Ils 
peuvent 
contenir de l?information confidentielle, protégée et(ou) classifiée. Il est 
strictement interdit à toute personne ou entité autre que le(la) destinataire 
prévu(e) de ce message d?examiner, de réviser, de retransmettre ou de diffuser 
cette information, de prendre une quelconque action en fonction ou sur la base 
de celle-ci, ou d?en faire tout autre usage. Si vous avez reçu ce message par 
erreur, veuillez communiquer avec l?expéditeur(trice), supprimer ce message et 
les fichiers ci-inclus de tout système, et en détruire toutes copies, qu?elles 
soient électroniques ou imprimées. Nous vous remercions de votre entière 
collaboration.