CBLDCMCF('APINFO ') - Report the application information

PROCEDURE DIVISION specification

CALL 'CBLDCMCF' USING unique-name-1 unique-name-2

DATA DIVISION specification

01  unique-name-1.
    02  data-name-A    PIC X(8) VALUE 'APINFO  '.
    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 X(2).
    02  data-name-F    PIC X(2).
    02  data-name-G    PIC X(8).
    02  data-name-H    PIC X(28).
01  unique-name-2.
    02  data-name-I     PIC X(4).
    02  data-name-J     PIC X(8).
    02  data-name-K    PIC X(2).
    02  data-name-L    PIC X(2).
    02  data-name-M    PIC X(4).
    02  data-name-M1   PIC X(1).
    02  data-name-M2   PIC X(3).
    02  data-name-N    PIC X(31).
    02  data-name-N1   PIC X(4).
    02  data-name-N2   PIC X(4).
    02  data-name-N3   PIC X(1).
    02  data-name-O    PIC X(31).
    02  data-name-P    PIC X(4).
    02  data-name-Q    PIC X(5).
    02  data-name-R    PIC 9(9)  COMP.
    02  data-name-S    PIC 9(9)  COMP.
    02  data-name-T    PIC 9(9)  COMP.
    02  data-name-U    PIC X(4).
    02  data-name-V    PIC X(1).
    02  data-name-W    PIC X(79).

CBLDCMCF('APINFO ') acquires various types of information on the application from an MHP.

The application information on the MHP that called CBLDCMCF('APINFO ') or the other MHP is reported.

The application information becomes effective only when CBLDCMCF('APINFO ') is normally terminated.

data-name-A

Specify VALUE 'APINFO [Figure] ' for the request code indicating an application information report.

data-name-C

Specify one of the following values according to the application to be referenced:

'SELF': Specify this value to acquire the application information on MHP that called CBLDCMCF('APINFO ').

'OTHE': Specify this value to acquire the information on a specific application according to the process identifier for MCF communication service in which the application definition is included, and application name.

data-name-D

Specify space.

data-name-E

Specify the process identifier.

When specifying 'SELF' for data-name-C
Specify space.
When specifying 'OTHE' for data-name-C
Specify the MCF communication process identifier or application startup process identifier in which the definition of the application to be referenced is included.

data-name-F

Specify space.

data-name-G

Specify the application name.

When specifying 'SELF' for data-name-C
Specify space.
When specifying 'OTHE' for data-name-C
Specify the name of the application to be referenced.
When specifying an error event name (ERREVT1, ERREVT2, ERREVT3, or ERREVT4), the default value of the application definition, the NO-response type ('N') is set for data-name-M1.

data-name-H

Specify LOW_VALUE.

data-name-I, data-name-L, data-name-M2, data-name-N3, and data-name-Q

Specify space.

data-name-W

Specify LOW_VALUE.

data-name-B

A status code of 5 digits is returned.

data-name-J

The name of the application whose information is to be reported is returned.

data-name-K

The process identifier for MCF communication service that includes the definition of the application whose information is to be reported is returned.

data-name-M

The shutdown or release shutdown status of the application is returned as follows:

'INDA': Input shutdown status

'SCDA': Schedule shutdown status

'DACT': Input and schedule shutdown status

'ACT [Figure] ': Release shutdown status

data-name-M1

The type of the application is returned as follows:

(The type specified in the type operand of the -n option in the MCF application definition mcfaalcap is set here).

'A': Response type

'N': NO-response type

'C': Continuous-inquiry-response type

When specifying 'OTHE' for data-name-C and specifying an error event name (ERREVT1, ERREVT2, ERREVT3, or ERREVT4) for data-name-G, the actual type is not reported. In this case, the default value of the application definition, NO-response type ('N') is set here.

data-name-N

The name of the service group corresponding to the application is returned.

data-name-N1

The shutdown or release shutdown status of the service group is returned as follows:

'INDA': Input shutdown status

'SCDA': Schedule shutdown status

'DACT': Input and schedule shutdown status

'ACT [Figure] ': Release shutdown status

data-name-N2

The holding or release holding status of the service group is returned as follows:

'INHO': Input holding status

'SCHO': Schedule holding status

'HOLD': Input and schedule holding status

'RLSS': Release holding status

data-name-O

The name of the service corresponding to the application is returned.

data-name-P

The shutdown or release shutdown status of the service is returned as follows:

'INDA': Input shutdown status

'SCDA': Schedule shutdown status

'DACT': Input and schedule shutdown status

'ACT [Figure] ': Release shutdown status

data-name-R

The limit elapsed time for the non-transaction attribute MHP in seconds is returned.

When 'TRN [Figure] ' is set in data-name-U, 0 is set here.

(The value specified in the ntmetim operand of the -v option in the MCF application definition mcfaalcap is set here. If the MCF application definition is omitted, the value specified in the ntmetim operand of the -u option in the MCF manager definition mcfmuap is used.)

data-name-S

The size of the temporary-stored data storage area for the continuous-inquiry response is returned.

When the value set in data-name-M1 is not 'C', 0 is set here.

(The value specified in the tempsize operand of the -n option in the MCF application definition mcfaalcap is set here.)

data-name-T

The maximum number of input messages that can be stored is returned.

(The value specified in the msgcnt operand of the -n option in the MCF application definition mcfaalcap is set here.)

data-name-U

The transaction attribute of the application is returned as follows:

(The value specified in the trnmode operand of the -n option in the MCF application definition mcfaalcap is set here.)

'TRN [Figure] ': Managed as a transaction

'NTRN': Not managed as a transaction

data-name-V

The queue to which the received message is assigned is returned as follows:

(The value specified in the quekind operand of the -g option in the MCF application definition mcfaalcap is set here.)

'D': When the message is assigned to the disk queue

'M': When the message is assigned to the memory queue

Status code	Explanation
00000	Normal termination.
72000	CBLDCMCF('APINFO ') was called from a service other than the MHP service.
72001	The value specified for data-name-G is invalid. Combination of the values specified for data-name-G and data-name-E is invalid.
72016	The value specified for data-name-C is invalid. The value specified for data-name-E is invalid. The value specified for data-name-H is invalid. The value specified for data-name-W is invalid.
72028	The value specified for data-name-A is invalid.
Other than the above	Unprecedented error (e.g., program damage) occurred.

When two or more MHPs for ERREVT1, ERREVT2, ERREVT3, and ERREVT4 are started at the same time, the MHPs for the same error event name may have a different application type. For the MHPs other than the MHP that called CBLDCMCF('APINFO '), the application type for the error event (ERREVT1, ERREVT2, ERREVT3, or ERREVT4) is not reported. In this case, the default value of the MCF application definition, NO-response type is reported.