RE: Move variable length field to fixed length

Jeff,

How is FldA populated? Maybe what you are populating FldA from is what you need to check.

You could always do something like this on FldA.

D x S 10I 0

x = %len(%trimr(FldA));

if (%subst(FldA:x:1) = x'00');
x = x - 1;
endif;

FldB = %subst(FldA:1:x);

Gary Monnier


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff Young
Sent: Thursday, April 05, 2012 12:05 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Move variable length field to fixed length

All,
I have a variable length field that I am moving to a fixed length field.
The fields are defined as:
D FldA S 128A Varying
D FldB S 30A

FldA = AB1234

My code is:
/Free
FldB = FldA;
After the move, FldB has a trailing NULL character.
When I look at it in DEBUG, I see 'C1C2F1F2F3F40040404040.....' for FldB.
FldA = 'C1C2F1F2F3F400000000..........................'

Release 7.1
Why am I getting the trailing NULL and how can I prevent it.

Thanks,

--
Jeff Young
Sr. Programmer Analyst
--
This is the RPG programming on the IBM i / System i (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.