SEND - Acquire a user journal

OpenTP1 Version 7 Programming Reference COBOL Language

Format

DATA DIVISION (communication description entry) specification

CD  communication-description-name
    FOR  OUTPUT  JOURNAL
     [STATUS  KEY  IS  data-name-1] .
 
01 unique-name-1.
   02 data-name-2  PIC  9(4) COMP.
   02 data-name-3  PIC  X(2).
   02 data-name-4  PIC  X(1).
   02 data-name-5  PIC  X(n).

PROCEDURE DIVISION specification

SEND  communication-description-name  FROM  unique-name-1.

Description

SEND enables the following CALL interface facility:

CBLDCJNL('UJPUT ') - Acquire a user journal.

TP1/Message Control and COBOL85 are required to use this DML.

Items specified in the communication description entry

FOR clause

Specify OUTPUT JOURNAL.

STATUS KEY clause

Specify this clause to receive a status code. If this clause is omitted, a status code cannot be received.

Item specified in the communication statement

unique-name-1

UAP historical information is stored in the specified area. For unique-name-1, specify the item defined in the working storage section or the linkage section.

The figure below shows the format of the UAP historical information (unique-name-1) to be stored. Create/specify this area in the UAP.

[Figure]

Status codes

Status code	Explanation
00000	Normal termination.
01101	The parameter format is invalid.
01102	The value specified for the user journal length is less than 5 byte.
01103	The specified user journal length exceeds the limit.
01104	The SEND statement for acquiring user journals was used from UAP processing which was not a transaction.
01105	Preparation to start the UAP has not been done.