Re: Move variable length field to fixed length

Below is a snippet of the code:
<Snip>

D FolderPath...

D s 256A Varying

D FileName...

D s 128A Varying

D Path_Name S 20A

D File_Name S 30A
/Free

Path_Name = FolderPath;

File_Name = FileName;
Eval FolderPath :C =
' /EPINS/INBOX/ '
' '
' '
' '
Eval FolderPath : X =
000D61C5 D7C9D5E2 61C9D5C2 D6E76100 - ../EPINS/INBOX/.
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
0000.... ........ ........ ........ -
................

Eval FileName :c =
' INVC2012040501.CSV '
' '
' '
Eval FileName :x =
0013C9D5 E5C3F2F0 F1F2F0F4 F0F5F0F1 - ..INVC2012040501
4BC3E2E5 00000000 00000000 00000000 - .CSV............
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
00000000 00000000 00000000 00000000 - ................
0000.... ........ ........ ........ -
................

Eval Path_Name :C = '/EPINS/INBOX/ '
Eval Path_Name :X =
61C5D7C9 D5E261C9 D5C2D6E7 61404040 - /EPINS/INBOX/
40404040 ........ ........ ........ -
............

Eval File_Name :C = 'INVC2012040501.CSV '
Eval File_Name :X =
C9D5E5C3 F2F0F1F2 F0F4F0F5 F0F14BC3 - INVC2012040501.C
E2E50040 40404040 40404040 4040.... - SV. ..

Note the x'00' after the last character on File_Name.

Thanks,

On Thu, Apr 5, 2012 at 3:44 PM, Charles Wilt <charles.wilt@xxxxxxxxx> wrote:

Gotta agree with Gary...

How is fldA being loaded?

Also try displaying %char(%len(fldA))

My guess is you'll see it's 7 and not the 6 you expect...

Perhaps you've got an OPTION(*STRING) on a parameter? That would add the
null.

Charles

On Thu, Apr 5, 2012 at 3:05 PM, Jeff Young <jyoung0950@xxxxxxxxx> wrote:

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.

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