RE: List remote journals and the status

Well, if you are on the system you want to display the information for
then how about just using WRKJRNA with DETAIL(*RMTJRN)? You can use

DSPOBJD OBJ(*ALL/*ALL) OBJTYPE(*JRN) OUTPUT(*OUTFILE)

OUTFILE(QTEMP/JOURNALS)

Then loop through QTEMP/JOURNALS and do a

WRKJRNA (&lib/&Obj) DETAIL(*RMTJRN)


And it can all be done in CL!


Gary

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Jim Oberholtzer
Sent: Monday, November 21, 2011 6:30 AM
To: Midrange Systems Technical Discussion
Subject: Re: List remote journals and the status

Gary,

Good thought but I don't need to ask the remote systems to send me
anything, the local (main) system has all the information needed. The
API Retrieve Journal Information will retrieve everything. Getting a
list of the journal receivers is as easy as you suggest.

Since my target audience for this function are administrators, most of
whom have little or no experience in RPG of any flavor I was hoping to
do the entire process in CL. (This is also partly due to my own
extraordinarily rusty RPG skills) At this moment it looks doable. And
before the chorus starts, yes, it would much faster and better to manage
in RPG with subfiles and all, even better in COBOL but the concept of
getting in done in CL is just appealing to me, so let's not have a
discussion about the better place to do it.

Now, does anyone have an example of calling the Remote Journal
Information API in CL?

Once I get the project done, I'll post to open source.


Jim Oberholtzer
Chief Technical Architect
Agile Technology Architects


On 11/18/2011 3:46 PM, Monnier, Gary wrote:

Jim,



Can you can use a series of SBMRMTCMD/RUNRMTCMD commands to run
something like the following?



CRTLIB LIB(MYTMPLIB)

DSPOBJD OBJ(*ALL/*ALL) OBJTYPE(*JRN) OUTPUT(*OUTFILE)
OUTFILE(MYTMPLIB/JOURNALS)

Run a command or call a program that utilizes the
Retrieve Journal Information (QjoRetrieveJournalInformation) API and
puts the info

into a table (MYTMPLIB/RMTJRNINFO). You will probably have to have
this installed. SNTNETF of a save file might do the trick.

SNDNETF FILE(MYTMPLIB/RMTJRNINFO) TOUSRID((SOMEID
SOMEADR))

DLTLIB LIB(MYTMPLIB)



So now you have a list of all the remote journals and their attributes

on the remote system.



An idea anyway.



Gary





-----Original Message-----
From:midrange-l-bounces+gary.monnier=terex.com@xxxxxxxxxxxx
[mailto:midrange-l-bounces+gary.monnier=terex.com@xxxxxxxxxxxx] On
Behalf Of Jim Oberholtzer
Sent: Friday, November 18, 2011 12:20 PM
To: Midrange Systems Technical Discussion
Subject: List remote journals and the status



Does any have a program (green screen) or know of a way to list all
the remote journals and their status on the remote system in one
panel. I know I can display each ones attributes and use the
appropriate F key to


get there but I was hoping for a more time effective solution. Must

be

V5R4 at this point.

Thanks!



--

Jim Oberholtzer

Chief Technical Architect

Agile Technology Architects



--

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