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 codeExplanation
00000Normal termination
01802The request code (data-name-A) is invalid.
01830An error occurred during communication between processes.
01831The value specified for the data name is invalid.
01832A status information input/output error occurred.
01833This 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 codeExplanation
00001The user server is being started normally.
00002The user server is being restarted normally.
00003The user server is in online mode.
00004The user server is being terminate.