OpenTP1 Version 7 Programming Reference COBOL Language
CBLDCADM('STATUS ') - Report the status of a user server
Format
PROCEDURE DIVISION specification
CALL 'CBLDCADM' USING unique-name-1 |
DATA DIVISION specification
01 unique-name-1. 02 data-name-A PIC X(8) VALUE 'STATUS '. 02 data-name-B PIC X(5). 02 FILLER PIC X(3). 02 data-name-C PIC X(5). 02 data-name-Z PIC S9(9) COMP VALUE ZERO. |
Description
CBLDCADM ('STATUS ') reports the status of the user server that called the program. The user server status is reported with the status code.
Data areas whose values are set in the UAP
data-name-A
VALUE 'STATUS' is assigned to the request code for the report of user server status.
data-name-Z
Specify 0.
Data areas to which values are returned from OpenTP1
data-name-B
A status code of 5 digits is returned.
data-name-C
The user server status is returned when 00000 is returned to data-name-B.
Status codes
Status codes returned to data-name-B (indicating whether an error occurred):
Status code | Explanation |
---|---|
00000 | Normal termination |
01802 | The request code (data-name-A) is invalid. |
01830 | An error occurred during communication between processes. |
01831 | The value specified for the data name is invalid. |
01832 | A status information input/output error occurred. |
01833 | This program was called from a UAP that handles offline work. This program cannot be called from a UAP that handles offline work. |
CBLDCRPC('OPEN') was not called. |
Status codes returned to data-name-C (indicating the user server status) when 00000 is returned to data-name-B (indicates the status of the user server):
Status code | Explanation |
---|---|
00001 | The user server is being started normally. |
00002 | The user server is being restarted normally. |
00003 | The user server is in online mode. |
00004 | The user server is being terminate. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.