Try the following:

there is an undocumented service, DISPLAY_JOURNAL_ENTRY_INFO, which will parse out the journal entry data. Basically it's stuffed in there in a format which might be able to be pushed into an rpg external data structure. Keeping in mind that the structure may change (but often in practice rarely does) might be the reason this function is undocumented.

-- Display journal entry data
-- Undocumented IBM feature.
call qsys2.display_journal_entry_info(2, --not sure what 2 means
'journal name',
Sequence_number, -- SEQUENCE_NUMBER
'receiver library', -- RECEIVER_LIBRARY
'receiver name', -- RECEIVER_NAME
'journal code (aka PT, DL, etc)' -- JOURNAL_CODE

Rob Berendt

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.