OpenTP1 Version 7 Programming Reference COBOL Language

[Contents][Index][Back][Next]

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).

[Figure]

Data area whose values are set in the UAP

data-name-A

Specify VALUE 'TEMPPUT[Figure]' 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.