BPX4NIC (nice) example

The following code increases the priority value of the calling process by 1. For the callable service, see nice (BPX1NIC, BPX4NIC) — Change the nice value of a process. AMODE 31 callers use BPX1NIC (nice) example.

                                              
         MVC   INCR,=F'1'            Increase priority by 1             
         SPACE ,                                                        
         CALL  BPX4NIC,              Change priority value             +
               (INCR,                Input: Priority change value      +
               RETVAL,               Return value: new nice value 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