Retrieves information about a user journal.

Sintaxe:

INQUIRE JOURNALNUM
 
>>-INQUIRE JOURNALNUM(data-value)--+------------------+--------->
                                   '-OPENSTATUS(cvda)-'
 
>--+-------------------+--+-------------------+----------------><
   '-DISKASTATUS(cvda)-'  '-DISKBSTATUS(cvda)-'
 
 

For more information about the use of CICS-value data areas (CVDAs), see Appendix F, CVDAs recognized by the translator.

Descrição

INQUIRE JOURNALNUM retrieves information about a named user journal from the runtime Journal Definitions (JD).

Opções:

DISKASTATUS(cvda)
• Returns a CVDA value that indicates the status of the A file that is associated with the journal, as defined by the DiskA attribute in its JD entry.
• Possible CVDA values are:
  • CURRENT
    • The disk file is currently active.
  • READY
    • The disk file is ready to be written to if a switch occurs.

DISKBSTATUS(cvda)
• Returns a CVDA value that indicates the status of the B file that is associated with the journal, as defined by the DiskB attribute in its JD entry.
• Possible CVDA values are CURRENT and READY, with the same meanings as for DISKASTATUS.

JOURNALNUM(data-value)
• Specifies, as a 16-bit binary value in the range 1 through 99, the number that identifies the journal as defined in the JD.

OPENSTATUS(cvda)
• Returns a CVDA value of OPENOUTPUT or CLOSED that indicates whether the journal is open for output or not available to CICS respectively.

Condições:

JIDERR
• Occurs if the named journal cannot be found in the JD (RESP2=1).
• Ação pré-definida: Terminates the task abnormally.

NOTAUTH
• Occurs if a resource security check has failed on JOURNALNUM(data-value).
• Ação pré-definida: Terminates the task abnormally.

Informações relacionadas:

• CICS-value data areas (CVDA)
• INQUIRE JOURNALNUM (browse)
• SET JOURNALNUM
• Appendix F, CVDAs recognized by the translator
• TXSeries for Multiplatforms Administration Reference