Re: Display_Journal() binary Entry_Data?

[Justin Taylor <jtaylor.0ab@xxxxxxxxx>]

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*