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

CBLDCMCF('TEMPGET ') receives data stored in the temporary memory area.

For data-name-G, specify a value from 1 to 32,000 bytes. If the temporary-stored data exceeds the length specified for data-name-G, the excess portion is truncated. If the temporary-stored data is shorter than the length specified for data-name-G, no processing is done for the remaining receive area.

If there is no temporary-stored data, the temporary-stored data is received on the assumption that (00)₁₆ equivalent to the length specified for tempsize in the MCF application definition is specified.

The figure below shows the format of the receive segment area (indicated by unique-name-3).

data-name-A

Specify VALUE 'TEMPGET' for the request code indicating to accept 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 the length of the area for receiving temporary-stored data. The number of bytes to be specified varies depending on the buffer format.

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-U

With buffer format 1: PIC X(8)

With buffer format 2: PIC X(4)

This area is used by the MCF.

data-name-B

A status code of 5 digits is returned.

data-name-T

With buffer format 1: PIC 9(9)

With buffer format 2: PIC 9(4)

The length of the previously updated data is set.

data-name-V

The temporary-stored data is returned.