获取用户属性

比如我们在批倒一个文件的时候，很多分公司都在用这支程序。然很多公司的文件格式不同，可以通过登陆的账号去判断是哪个公司。这就用用到了判断用户的属性。是一个非常有用的功能。

CALL FUNCTION 'ZGETUSERGINFO' IMPORTING usergruop = zuserg msgtype = msgtype msginfo = msginfo TABLES IUG = IUG. IF msgtype = 'E'. MESSAGE msginfo TYPE 'S'. LEAVE TO CURRENT TRANSACTION. ENDIF.