Re: [EXTERNAL] Four bytes field with bit manipulated

[Chamara Withanachchi <chamaraw@xxxxxxxxxx>]

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