RE: Assigning the actual length of a variable length field.

The code you have that is call WriteIFSRec() should be something like this:

writeIFSRec(%TrimR(myData): pHandle);

However, %TRIMR() will not seem to work if MYDATA does not have trailing blanks
in it. It could have some obscure character, such as X'00' which you might not
see in debug. 

If you do have a hex 0 in the field, you can still delete it by doing this at
V5.3 or later:

   myData = %trimR(myData: x'4000');

This trims off both blanks (hex 40) and nulls ( hex 0) from the right-side of
the value.

-Bob Cozzi
www.SystemItv.com
Ask your Manager to watch SystemItv.com


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On
Behalf Of GKern@xxxxxxxxxxxxxxxx
Sent: Wednesday, January 17, 2007 11:57 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Assigning the actual length of a variable length field.

Thanks Matt, I'll give that a try.

Bob - we're at V5R3, but here is the code:

D WriteIFSRec     PR              *   ExtProc('_C_IFS_fputs') 
D  ouBuffer                       *   Value Options(*STRING) 
D  stream_FILE                    *   Value 

Regards, Jerry

Gerald Kern - MIS Project Leader
Lotus Notes/Domino Administrator
IBM Certified RPG IV Developer
The Toledo Clinic, Inc.
4235 Secor Road
Toledo, OH 43623-4299
Phone 419-479-5535
gkern@xxxxxxxxxxxxxxxx


This e-mail message, including any attachments, is for the sole use of the 
intended recipient(s) and may contain confidential and privileged 
information. Any unauthorized use, disclosure or distribution is 
prohibited. If you are not the intended recipient, please inform the 
sender by reply e-mail and destroy this and all copies of this message.