Re: [EXTERNAL] Four bytes field with bit manipulated

It still doesn't seem to make much sense but ...

This code does exactly what I'd expect:

Dcl-s wait char(1);

Dcl-ds testDS;
bits uns(10);
End-ds;

dcl-s result char(100);

bits = X'F1F2F3F4';

result = testDS;

Dsply ('How we doing so far?') ' ' wait;

Instead of using Bitwise operations I just loaded a hex value into the field "bits" and then used the DS "testDS" to remap the bits as a char field and copied it into the result field. I loaded 'F1F2F3F4' and that is exactly what I saw in debug in the result field.

In other words it behaves _exactly_ as I would expect.

So I don't know what your logic is doing but if you are only doing what you claim then it should work.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Jul 25, 2019, at 1:57 AM, Chamara Withanachchi <chamaraw@xxxxxxxxxx> wrote:

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

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