The following code connects a server address space to
WLM as a server manager for the WEB subsystem type, WEB1 subsystem
name, and IMWHTTP application environment.
For the callable service, see
server_init (BPX1SIN, BPX4SIN) — Server initialization.
AMODE 31 callers use
BPX1SIN (server_init) example.
MVC SUBSYSTYPE,=CL4'WEB ' WEB Subsystem Type
MVC SUBSYSNAME,=CL8'WEB1 ' WEB1 Subsystem Name
MVC APPLENV,=CL8'IMWHTTP ' IMWHTTP Application Environment
LA R15,=F'7' R15 = 7
ST R15,PARALLELEU 7 Parallel Execution Units
SPACE ,
CALL BPX4SIN, Server_init +
(=A(SRV_SERVERMGR), Input: Manager Type (Server Mgr) +
SUBSYSTYPE, Input: Subsystem Type +
SUBSYSNAME, Input: Subsystem Type +
APPLENV, Input: Application Environment +
PARALLELEU, Input: Parallel Eu +
RETVAL, Return value: 0 or -1 +
RETCODE, Return code +
RSNCODE), Reason code +
MF=(E,PLIST) ----------------------------------
L R15,RETVAL Load return value
C R15,=F'-1' Test for -1 return
BE PSEUDO Branch on error