Re: [EXTERNAL] Four bytes field with bit manipulated

Hi,

Below is the definition

Dcl-S line Char(3500);

Dcl-S genHeaderBitMapResult Char(4);


Im storing bits in genHeaderBitMapResult by using %BITOR and %BITAND BIFs
as the way I want, finally I do below


line = genHeaderBitMapResult;




Chamara

On Wed, Jul 24, 2019 at 11:41 PM Alan Shore via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

Hi Chamara
It might be better to show how you are defining these 2 fields and how you
are moving fielda to fieldb

This web page might be of help

https://www.mcpressonline.com/programming/rpg/converting-numeric-to-character-and-character-to-numeric

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill


-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of
Chamara Withanachchi
Sent: Wednesday, July 24, 2019 2:05 PM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: [EXTERNAL] Four bytes field with bit manipulated

Dear All

I have a 4 byte field which represent total length of a data in a message
and the length is specified using bits.

When I move this 4 byte field to 1500 character field it drops some of
data from original 4 byte field

Ex if my 4 byte field contains below
00000000 00000000 00000000 01110011

When I move this to 1500 character field this shows as
00000000 00000000 00000000 00000001

I use free format RPG in 7.2 box any idea why this is happening.


Chamara.

Sent from my iPhone
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

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

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com