OpenTP1 Version 7 Programming Reference COBOL Language

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

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