BPX4FCO (fchown) example

The following code changes the owner and group for the standard input file. For the callable service, see fchown (BPX1FCO, BPX4FCO) — Change the owner and group of a file or directory by descriptor. For the data structure, see BPXYCONS — Constants used by services. AMODE 31 callers use BPX1FCO (fchown) example.
                                              
       MVC   GROUPID,..            Group ID                             
       MVC   USERID,..             User ID                              
         SPACE ,                                                        
         CALL  BPX4FCO,              Change the owner and group of file+
               (=A(STDIN_FILENO),    Input: File descriptor            +
               USERID,               Input: New user ID for file       +
               GROUPID,              Input: New group ID for file      +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------