BPX1CHO (chown) の例

以下のコードは、/somedir/somefile.c の所有者を、 現行の所有者から USERID および GROUPID によって指定された所有者に変更します。 この呼び出し可能サービスについては、chown (BPX1CHO、BPX4CHO) - ファイルまたはディレクトリーの所有者またはグループを変更するを参照してください。 AMODE 64 の呼び出し元は BPX4CHO (chown) の例を使用します。

                                              
         MVC   BUFFERA(20),=CL20'/somedir/somefile.c'                   
         MVC   BUFLENA,=F'20'                                           
       MVC   USERID,..             New owner UID from stat            07
       MVC   GROUPID,..            New owner GID from stat            07
         SPACE ,                                                        
         CALL  BPX1CHO,              Change owner and group of a file  +
               (BUFLENA,             Input: Pathname length            +
               BUFFERA,              Input: Pathname                   +
               USERID,               Input: New owner UID              +
               GROUPID,              Input: New owner GID              +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------