RE: Easiest way to get journal information from a file (using a CLP)

Awesome! t I was looking for.

Thank you!

PETER VIDAL
MAPICS IT TECHNICAL SUPPORT TEAM / SR SYSTEM ANALYST
10540 Ridge Rd., Suite 203, New Port Richey, FL 34654-5111
Tel:727-849-9999, x2414 Fax:727-815-3120
WWW.PALL.COM

"Perpetual optimism is a force multiplier."
Colin Powell (1937- )




"Richard Casey" <casey_r@xxxxxxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
10/29/2008 02:56 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
"'Midrange Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
cc

Subject
RE: Easiest way to get journal information from a file (using a CLP)






Peter,

You should be able to use the RTVOBJD command to return the journal name
and
library for a given database file.

DCL VAR(&JRN) TYPE(*CHAR) LEN(10)
DCL VAR(&JRNLIB) TYPE(*CHAR) LEN(10)
RTVOBJD OBJ(library/file) OBJTYPE(*FILE) JRN(&JRN) +
JRNLIB(&JRNLIB)

Good luck!

Richard


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Peter_Vidal@xxxxxxxx
Sent: Wednesday, October 29, 2008 2:34 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Easiest way to get journal information from a file (using a CLP)

Hi list!

My challenge is to get the journal name and library of a database file
that is being journaled. I want to do this from within a CL program. I
know I can do a DSPFD to a workfile, then read the workfile via a 2nd CL,
for example, get the values and return to the first CL. However, in order

to do that, I have to build a work file, create a 2nd program, etc. tasks

that I do not want to add at this point. I am looking for a straight
forward read of the information and use it in that same CL. Something
like file QADBXREF in QSYS that gives you a trace for every single file on

your AS/400. Sadly, there is no journal information in it.

Any recommended routes?

PETER VIDAL
MAPICS IT TECHNICAL SUPPORT TEAM / SR SYSTEM ANALYST
10540 Ridge Rd., Suite 203, New Port Richey, FL 34654-5111
Tel:727-849-9999, x2414 Fax:727-815-3120
WWW.PALL.COM

"Aim for success, not perfection. Never give up your right to be wrong,
because then you will lose the ability to learn new things and move
forward with your life."
Dr. David M. Burns

----------------------------------------------------------------------------
----

Attention:

This communication may contain information that is confidential,
privileged and/or exempt from disclosure under applicable law.
If you are not the intended recipient, please notify the sender
immediately and delete the original, all attachments, and all
copies of this communication.


----------------------------------------------------------------------------
----