OpenTP1 Version 7 Programming Reference COBOL Language
CBLDCMCF('TEMPPUT ') - Update temporarily-stored data
Format
PROCEDURE DIVISION specification
CALL 'CBLDCMCF' USING unique-name-1 unique-name-2 unique-name-3 |
DATA DIVISION specification
01 unique-name-1. 02 data-name-A PIC X(8) VALUE 'TEMPPUT '. 02 data-name-B PIC X(5). 02 FILLER PIC X(3). 02 data-name-C PIC X(4). 02 data-name-D PIC X(4). 02 data-name-E PIC 9(8). 02 data-name-F PIC 9(8). 02 data-name-G PIC 9(9) COMP. 02 data-name-H PIC X(4). 02 data-name-I PIC X(4). 02 data-name-J PIC X(4). 02 data-name-K PIC X(4). 02 data-name-L PIC X(8). 02 data-name-M1 PIC X(4). 02 data-name-M2 PIC X(8). 02 data-name-M3 PIC X(4). 02 data-name-M4 PIC 9(9) COMP. 02 data-name-M5 PIC 9(9) COMP. 02 data-name-M6 PIC X(1). 02 data-name-M7 PIC X(1). 02 data-name-N PIC X(14). 01 unique-name-2. 02 data-name-O PIC X(4). 02 data-name-P PIC X(8). 02 data-name-Q PIC X(8). 02 data-name-R PIC X(8). 02 data-name-S PIC X(28). 01 unique-name-3. 02 data-name-T PIC 9(x) COMP. 02 data-name-U PIC X(x). 02 data-name-V PIC X(n). |
Description
CBLDCMCF('TEMPPUT ') updates data stored in the temporary memory area which is used for continuous-inquiry-response processing.
The figure below shows the format of the send segment area (indicated by unique-name-3).
Data area whose values are set in the UAP
data-name-A
Specify VALUE 'TEMPPUT' for the request code indicating updating of temporarily-stored data.
data-name-C, data-name-D
Specify space.
data-name-E, data-name-F
These areas are used by the MCF.
data-name-G
Specify 0.
data-name-H, data-name-I, data-name-J, data-name-K, data-name-L, data-name-M1, data-name-M2, data-name-M3
Specify space.
data-name-M4, data-name-M5
Specify 0.
data-name-M6
Specify space.
data-name-M7
Specify the buffer format to be used. The following values are available:
'1': Specify this value to use buffer format 1.
'2': Specify this value to use buffer format 2.
data-name-N
Specify LOW-VALUE.
data-name-O, data-name-P, data-name-Q, data-name-R
Specify space.
data-name-S
Specify LOW-VALUE.
data-name-T
With buffer format 1: PIC 9(9)
With buffer format 2: PIC 9(4)
Specify the length of the temporary-stored data to be updated.
data-name-U
With buffer format 1: PIC X(8)
With buffer format 2: PIC X(4)
This area is used by the MCF.
data-name-V
Specify the area storing the temporary-stored data to be updated.
Data value whose value is returned from OpenTP1
data-name-B
A status code of 5 digits is returned.
Status codes
Status code | Explanation |
---|---|
00000 | Normal termination. |
71103 | The area for updating the temporary-stored data could not be acquired. |
72000 | The temporary-stored data cannot be updated from an SPP. |
72016 | The value specified for data-name-N or S is invalid. |
72028 | The value specified for data-name-A is invalid. |
72035 | The value specified for the data update length (data-name-T) exceeds the value specified for the temporary-stored data, area for storing length in the MCF application definition. |
Alternatively, the value specified for the data update length is less than 1 byte (with buffer format 1) or less than 7 bytes (with buffer format 2). | |
72101 | CBLDCMCF('TEMPPUT ') was called from an MHP for which type=cont (continuous-inquiry-response type) was not specified in the MCF application definition. |
72105 | CBLDCMCF('TEMPPUT ') was called before CBLDCMCF('TEMPGET') |
72106 | CBLDCMCF('TEMPPUT ') was called before CBLDCMCF('RECEIVE') for receiving the first segment. |
72107 | CBLDCMCF('TEMPPUT ') was called after CBLDCMCF('CONTEND '). |
Other than the above | An unprecedented error (e.g., program damage) occurred. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.