BPX1SPW (server_pwu) example

The following code puts work to the WLM work queue for the IMWHTTP application environment for transaction class A. For the callable service, see server_pwu (BPX1SPW, BPX4SPW) — Server process work unit. AMODE 64 callers use BPX4SPW (server_pwu) example.
                                              
         MVC   APPLENV,=CL8'IMWHTTP ' IMWHTTP Application Environment   
         MVC   TRXCLASS,=CL8'A       ' Transaction Class A              
         XR    R15,R15               R15 = 0                            
         ST    R15,CLASSIFYLEN       No Classification Data             
         ST    R15,APPLDATALEN       No Application Data                
         ST    R15,FDLISTPTR         No File Descriptor List            
         SPACE ,                                                        
         CALL  BPX1SPW,              Server_pwu                        +
               (=A(SRV_PUT_NEWWRK),  Input: Function Code (Putwork)    +
               TRXCLASS,             Input: Transaction Class          +
               APPLENV,              Input: Application Environment    +
               CLASSIFYLEN,          Input: Classification Area Length +
               CLASSIFYAREAPTR,      Input: Classification Area Address+
               APPLDATALEN,          Input: Application Data Length    +
               APPLDATAPTR,          Input: Application Data Address   +
               FDLISTPTR,            Input: Mapped by BPXYSFDL         +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ---------------------------------- 
         L     R15,RETVAL            Load return value                  
         C     R15,=F'-1'            Test for -1 return                 
         BE    PSEUDO                Branch on error