Re: Binary bit map in as/400

V5R2? Seriously? And you're running a BANK on something that out of date? I'm amazed that any other banks will communicate with you - that system can't even begin to support modern encryption levels!

About your only option is to use %BITxxx - that was introduced in V5R2 so you are just in luck there. Probably none of the Open Source options we have suggested will work on such an old machine.

As Buck has said you will need to basically take the 8 byte bitmap and loop through it taking a byte at a time and using %BITxxx to determine the presence of a particular field. As I noted before it depends what you are doing next as to the best way to code that.


Jon P.

On Apr 20, 2023, at 1:36 AM, krishna MAdiraju via RPG400-L <rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

Thanks scott.career started with as/400. Still not come out of AS/400.
Our machine iSeries with v5r2.How to decode binary bitmap in rpgle?



International Bank of Qatar, P.O.Box no 2001, Suhaim Bin Hamad street, Doha,State of Qatar. Mbl 0097455831459.

On Thursday, April 20, 2023 at 08:01:59 AM GMT+3, Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx> wrote:

The AS/400 was discontinued 23 years ago. Move on.

But regardless of whether you're using a 23 year old machine, or a
current one, the answer is the same: You need to deal with binary data
IN BINARY. You can't deal with binary data in EBCDIC -- you need to use
care to make sure you never translate it.

It will work perfectly fine on IBM i (or System i, iSeries or AS/400 if
you're really decades out of date) as long as you are careful not to
translate it.

Same goes with Unix, MacOS, Windows, z/OS, etc... it'll work fine if
you are careful not to translate it.

On 4/18/2023 11:39 PM, krishna MAdiraju via RPG400-L wrote:

Hi, I am facing difficulty in reading binary bitmap in as/400.is binary bitmap need to be converted to ebcidic?how ISO8583 BINARY BITMAP is decoded in as/400
thankskrishnaM

--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.


--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.