CBLDCRSV('MAINLOOP') - Start an SPP service

PROCEDURE DIVISION specification

CALL  'CBLDCRSV'  USING  unique-name-1

DATA DIVISION specification

01  unique-name-1.
    02  data-name-A    PIC X(8) VALUE 'MAINLOOP'.
    02  data-name-B    PIC X(5).
    02  FILLER        PIC X(3).
    02  data-name-C    PIC S9(9) COMP VALUE ZERO.

CBLDCRSV('MAINLOOP') starts the receiving of service requests to a service program of the SPP which is being executed in the process. CBLDCRSV('MAINLOOP') must be called in the main program. Use CBLDCRSV('MAINLOOP') only once in the process.

CBLDCRSV('MAINLOOP') does not return until it receives a termination request from OpenTP1. CBLDCRSV('MAINLOOP') receives a termination request from OpenTP1 in the following cases:

Termination processing starts because one of the following OpenTP1 stop commands has been accepted:
dcstop command (normal termination)
dcstop-n command (forced normal termination)
dcstop -a command (planned termination A)
dcstop -b command (planned termination B)
The following server stop command is entered to start termination processing for the processes of the SPP:
dcsvstop command (normal termination)
OpenTP1 terminates the processes of the SPP because the number of processes exceeds the maximum number specified in the user service definition.
Service processing terminates if the SPP is executed by a nonresident process.
The number of service requests addressed to the service group is reduced if the SPP is subjected to load balancing in a multiserver configuration.

data-name-A

Specify VALUE 'MAINLOOP' for the request code indicating SPP service start.

data-name-C

Specify 0.

Status code	Explanation
00000	A termination request was received from OpenTP1. Execute termination processing for the SPP immediately, then call CBLDCRPC('CLOSE ') to enable exit().
00301	The value specified for the data-name is invalid. This error also occurs if the request code (data-name-A) is invalid.
00302	CBLDCRPC('OPEN ') was not called, or CBLDCMCF('MAINLOOP') or CBLDCRSV('MAINLOOP') was called.
00303	The SPP service could not be started.

CBLDCRSV('MAINLOOP') returns when it receives a termination request from OpenTP1. However, CBLDCRSV('MAINLOOP') does not return but the process terminates in the following cases:

The SPP enters termination processing because the OpenTP1 forced termination command (dcstop -f command) or server forced termination command (dcsvstop -f command) is executed.
A process terminates abnormally because the UAP or OpenTP1 malfunctions.
The service program uses abort () or exit ().
Hardware, the operating system, or OpenTP1 causes an error.

Even if the SPP is created in such a way that termination processing will be executed after CBLDCRSV('MAINLOOP') returns normally, the processing is not executed in the above cases.