The Retrieve Remote Journal Attributes command returns information
for a single remote journal. The command runs on the source system
and the source journal must be specified. If no relational data base
entry and no target journal is specified, the information for the
first remote journal is retrieved.
A typical command would be:
DCL &RMTJRNSTAT *CHAR LEN(10)
.
RTVRMTJRNA SRCJRN(xxx) RMTJRNSTAT(&RMTJRNSTAT)
IF (&RMTJRNSTAT *NE '*ACTIVE') DO
Because the defaults were taken for RDB (Relational data base) and
TGTJRN (Target journal), the RTVRMTJRNA command returns the
information for the first or only remote journal. If a specific RDB
or TGTJRN is entered and does not exist, or there are no remote
journals associated with the source journal, TAA9893 is sent as an
escape message.
RTVRMTJRNA escape messages you can monitor for
----------------------------------------------
TAA9893 The RDB and/or TGTJRN does not exist or no remote
journals exist
Escape messages from based on functions will be re-sent.
Command parameters *CMD
------------------
SRCJRN The qualified name of the source journal which has
the target journal. The library value defaults to
*LIBL. *CURLIB may also be used.
RDB The relational data base name that was specified on
the ADDRMTJRN command RDB parameter. The default is
*ALL meaning any name is valid.
TGTJRN The qualified name of the target journal to retrieve
information from. The default is *ALL which means
the first remote journal associated with the RDB
entry. If both RDB and TGTJRN are *ALL, the
information from the first or only remote journal
will be returned.
TOTRMTJRN The total number of remote journals attached to the
source journal. This is an optional return
variable. If used, it must be specified as *DEC
LEN(5 0).
RTNRDB The name of the RDB associated with the information
being returned. This value may be useful if
RDB(*ALL) was specified. This is an optional return
variable. If used, it must be specified as *CHAR
LEN(18).
RTNRMTJRN The name of the target journal for which information
is being returned. This value may be useful if
TGTJRN(*ALL) was specified. This is an optional
return variable. If used, it must be specified as
*CHAR LEN(10).
RTNRMTJRNL The library of the target journal for which
information is being returned. This value may be
useful if TGTJRN(*ALL) was specified. This is an
optional return variable. If used, it must be
specified as *CHAR LEN(10).
RMTJRNSTAT The remote journal state.. The values returned are
*INACTIVE, *ACTIVE, *FAILED, or *CTLINACT. This is
an optional return variable. If used, it must be
specified as *CHAR LEN(10).
RMTJRNDLV The remote journal delivery mode. The values
returned are *NA (not applicable), *ASYNC, *SYNC,
*ASYNCPEND, or *SYNCPEND. This is an optional
return variable. If used, it must be specified as
*CHAR LEN(10).
RMTRCVLIB The library on the target system which contains the
journal receivers. This value is specified on the
ADDRMTJRN RMTRCVLIB parameter. The value will be
blank if there is no remote journal or one has not
been specified on the ADDRMTJRN command or API.
This is an optional return variable. If used, it
must be specified as *CHAR LEN(10).
CTLINARCV The controlled-inactivate journal receiver. The
name of the journal receiver that contains the
controlled inactivate journal information sequence
number. The value will be blank if the journal
state is not *CTLINACT. This is an optional return
variable. If used, it must be specified as *CHAR
LEN(10).
CTLINARCVL The library of the controlled-inactivate journal
receiver. The library of the journal receiver that
contains the controlled inactivate journal
information sequence number. The value will be
blank if the journal state is not *CTLINACT. This
is an optional return variable. If used, it must be
specified as *CHAR LEN(10).
CTLINASEQ The controlled-inactivate journal information
sequence number. The sequence number of the last
journal entry that was queued for replication before
the CHGRMTJRN command was called to start a
controlled inactivate of the remote journal. The
value will be 0 if the journal state is not
*CTLINACT. This is an optional return variable. If
used, it must be specified as *DEC LEN(10 0).
RMTJRNTYPE The remote journal type. The value is specified on
the ADDRMTJRN RMTJRNTYPE parameter. The values
returned are 0=Local journal, 1=*TYPE1, or 2=*TYPE2.
This is an optional return variable. If used, it
must be specified as *CHAR LEN(1).
SNDPTY The priority of the sending task. The priority of
the sending task will be returned if the delivery
mode is *ASYNC. If the delivery mode is not *ASYNC
or the journal state is *INACTIVE, 'NA' will be
returned. This is an optional return variable. If
used, it must be specified as *CHAR LEN(2).
RDBENT The relational data base entry details. The details
that are associated with the relational data base
entry. This is an optional return variable. If
used, it must be specified as *CHAR LEN(512).
Restrictions
------------
None.
Prerequisites
-------------
The following TAA Tools must be on your system:
CHKOBJ3 Check object 3
CVTBIN8 Convert binary 8
SNDESCMSG Send escape message
Implementation
--------------
None, the tool is ready to use.
Objects used by the tool
------------------------
Object Type Attribute Src member Src file
------ ---- --------- ---------- ----------
RTVRMTJRNA *CMD TAAJROE QATTCMD
TAAJROEC *PGM CLLE TAAJROEC QATTCL
|
