通过RPGLE在IBM i上获取当前用户信息

本示例展示了如何使用RPGLE在IBM i操作系统上获取当前用户的信息，包括用户ID和组ID。

/free
     dcl-pr getuid extproc('getuid');
     end-pr;

     dcl-pr getgid extproc('getgid');
     end-pr;

     dcl-ds user_info qualified dim(1);
     uid int(10);
     gid int(10);
     end-ds;

     user_info.uid = getuid();
     user_info.gid = getgid();

     dsply 'User ID: ' + %char(user_info.uid);
     dsply 'Group ID: ' + %char(user_info.gid);

     *inlr = *on;

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com