Re: Display_Journal() binary Entry_Data?

EXPJRNE is open source and export journal receiver entries in a Db file
combining journal and file info in one record (using the same structure of
the original db file).

Very nice and clean utility.

Best regards
--
Marco Facchinetti

Mr S.r.l.

Tel. 035 962885
Cel. 393 9620498

Skype: facchinettimarco


Il giorno gio 22 mag 2025 alle ore 22:06 Justin Taylor <
jtaylor.0ab@xxxxxxxxx> ha scritto:

Rob, INTERPRET did the trick. Thank you

cesco, I'm sure I wouldn't be allowed to install EXPJRNE, and my guess is
it's a 5250 viewer, which wouldn't work in my current headless
application. Thanks




On Thu, May 22, 2025 at 2:26 PM Rob Berendt <robertowenberendt@xxxxxxxxx>
wrote:

In the link I provided was a commented out link with more detail. I got
the following from that by really scrolling down.

create table rob.jt (
mychar *char*(*10*),
myint *int*);


*-- Data Field Buffer Buffer Field
Column *
*--Field Type Length Length Position Usage

Heading*

*--MYCHAR CHAR 10 10 1 Both MYCHAR

*

*-- Allows the null value

*

*-- Coded Character Set Identifier . . . . . : 37

*

*--MYINT BINARY 9 0 4 11 Both MYINT

*

*-- Allows the null value

*

;
*insert* into rob.jt
values('hi', *27*);

SELECT
*INTERPRET*(*substring*(entry_data, *11*, *4*) as *INTEGER*) as myint,
*CAST*(*SUBSTRING*(JT.ENTRY_DATA, *1*, *200*) AS *CHAR*(*200*
)), JT.ENTRY_DATA, JT.* FROM TABLE (
QSYS2.DISPLAY_JOURNAL( '#MXJRN', 'USERS',
OBJECT_LIBRARY *=>* 'ROB',
OBJECT_NAME *=>* 'JT',
OBJECT_OBJTYPE *=>* '*FILE',
OBJECT_MEMBER *=>* 'JT',
JOURNAL_CODES *=>* 'R'
)) AS JT;
;
*-- returns 27 for myint*

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.