BPX4SIN (server_init) example

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