OpenTP1 Version 7 Programming Reference COBOL Language
CBLDCMCF('APINFO ') - Report the application information
Format
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). |
Description
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 area whose values are set in the UAP
data-name-A
Specify VALUE 'APINFO' 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:
data-name-D
Specify space.
data-name-E
Specify the process identifier.
data-name-F
Specify space.
data-name-G
Specify the application name.
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 area to which a value is returned from OpenTP1
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': 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': 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': Release shutdown status
data-name-R
The limit elapsed time for the non-transaction attribute MHP in seconds is returned.
When 'TRN' 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': 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 codes
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. |
Note
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.
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.