ACF2

 View Only
  • 1.  ACF00RBS (Search Role List) Example

    Posted Oct 09, 2019 02:59 PM
    ​Do you have an sample of a routine that calls ACF00RBS?

    Thanks,

    Barry

    ------------------------------
    Barry Schrager
    ------------------------------


  • 2.  RE: ACF00RBS (Search Role List) Example

    Posted Oct 14, 2019 08:54 AM
    I'm also interested in this one...


  • 3.  RE: ACF00RBS (Search Role List) Example

    Posted Oct 14, 2019 08:56 AM

    cfr also : https://community.broadcom.com/mainframesoftware/communities/community-home/digestviewer/viewthread?GroupId=1327&MessageKey=5f91e042-07e0-4c8d-9559-ba2c0ac38ec2&CommunityKey=189bbfc7-238f-4465-b1ba-dccf4b42a3b7&tab=digestviewer&ReturnUrl=%2fmainframesoftware%2fcommunities%2fcommunity-home%2fdigestviewer%3fListKey%3da3488c32-748d-450c-a3e5-a132dbb6cd7e%26SuccessMsg%3dThank%2byou%2bfor%2bsubmitting%2byour%2bmessage.




  • 4.  RE: ACF00RBS (Search Role List) Example
    Best Answer

    Broadcom Employee
    Posted Oct 14, 2019 09:41 AM
    Hello,
    Here is a basic routine to call ACF00RBS in two ways.

    1) return roles for a user

                 MVC XRLEYE,=CL4'XRBS'           SET EYECATCHER
                    MVI XRLVER,XRLVCUR               SET PLIST VERSION
                  MVI XRLFUNC,XRLRETG               SET FUNCTION CODE
                LA R15,XRLLN                              GET LENGTH OF CB
                  ST R15,XRLLEN                         SAVE LENGTH OF CB IN CB
                LA R15,USERID                           POINT AT USERID
                ST R15,XRLSRCID                      SAVE LID ADDRESS
                 OI XRLFLAG,XRLNOGRP           SET NO GRPS OF GRPS (optional)
                  LA R1,XROLE                               POINT AT PLIST
    *
    *--------------------------------------------------------------
    * CALL ACF00RBS TO GET THE LIST OF ROLES FOR THE LOGONID.
    *--------------------------------------------------------------
    *
              CALL ACF00RBS                     CALL RBS BUILD ROUTINE
    *
              LTR R15,R15                                    CHECK RETURN CODE  
             BNZ NOROLES                                 ..BAD, SAY NO ROLES
             LTR R4,R1                                     GET ROLE TABLE ADDRESS
            BZ NOROLES                                  ..NONE, SAY NO ROLES
            USING XROLTB,R4                             ADDRESS ROLE TABLE
    ...
    ...
    NOROLES EQU *
    ================================================================

    2) return users for a role

                MVC XRLEYE,=CL4'XRBS'           SET EYECATCHER
                MVI XRLVER,XRLVCUR               SET PLIST VERSION                 
                MVI XRLFUNC,XRLRETU            SET FUNCTION CODE
                LA R15,XRLLN                             GET LENGTH OF CB
                ST R15,XRLLEN                           SAVE LENGTH OF CB IN CB
                LA R15,ROLENAME                    POINT AT ROLED
                ST R15,XRLSRCID                      SAVE ROLE ADDRESS  
                OI XRLFLAG,XRLNOGRP           SET NO GRPS OF GRPS (optional)
                LA R1,XROLE                              POINT AT PLIST
    *
    *----------------------------------------------------------
    * CALL ACF00RBS TO GET THE LIST OF USERS FOR THE ROLE 
    *----------------------------------------------------------
    *
                CALL ACF00RBS                        CALL RBS BUILD ROUTINE
    *
             LTR R15,R15                                  CHECK RETURN CODE
             BNZ RETURN                                 ..BAD, SAY NO ROLES
             LTR R4,R1                                       GET users  TABLE ADDRESS
             BZ RETURN                                  ..NONE, SAY NO users 
            USING XROLTB,R4                         ADDRESS ROLE TABLE 
    ..
    ..
    RETURN   EQU *
    ================================================================


    I hope this helps....
    Regards,
    Ross


  • 5.  RE: ACF00RBS (Search Role List) Example

    Posted Oct 14, 2019 09:49 AM
    ​Thanks Ross

    ------------------------------
    Barry Schrager
    ------------------------------