The following code changes the owner of symbolic link
/somedir/somesymlink.c from the current
owner to that specified by USERID and GROUPID. For the callable
service, see
lchown (BPX1LCO, BPX4LCO) — Change the owner or group of a file, directory, or symbolic link.
AMODE 64 callers use
BPX4LCO (lchown) example.
MVC BUFFERA(22),=CL22'/somedir/somesymlink.c'
MVC BUFLENA,=F'22'
MVC USERID,.. New owner UID from stat 33
MVC GROUPID,.. New owner GID from stat 33
SPACE ,
CALL BPX1LCO, 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) ----------------------------------