OpenTP1 Version 7 Programming Reference COBOL Language
SEND - Acquire a user journal
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:
TP1/Message Control and COBOL85 are required to use this DML.
Items specified in the communication description entry
Specify OUTPUT JOURNAL.
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
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.
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. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.