权限对象和配置文件列表报表 REPORT zusrak07.

REPORT zusrak07.

TABLES: usr01, usr03, usr04, usr02, rfcdes,
usr05, usr10, usr11, usr12, usr13, ust10c, ust10s, ust12.

SELECT-OPTIONS: usrprof FOR usr11-profn.

SELECTION-SCREEN SKIP.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN SKIP.

PARAMETERS: yes_auth RADIOBUTTON GROUP grp1,
no_auth RADIOBUTTON GROUP grp1.

DATA: counter TYPE i,
count_auth TYPE i,
coun TYPE i,
counttmp TYPE i,
proftmp LIKE usr12-auth,
authtmp LIKE usr12-auth,
auth LIKE usr12-auth OCCURS 10 WITH HEADER LINE.

DATA: BEGIN OF itab_profchk OCCURS 0,
profchk LIKE usr10-profn.
DATA: END OF itab_profchk.

SELECT * FROM usr11 WHERE profn IN usrprof.
  MOVE usr11-profn TO itab_profchk-profchk.
  APPEND itab_profchk.
ENDSELECT.

WRITE : / 'Legend :', '1st level profile'.
WRITE AT /10 '2nd level profile' COLOR 5.
WRITE AT /10 '3rd level profile' COLOR 4.
WRITE AT /10 '4th level profile' COLOR 3.
WRITE AT /10 'authorizations' COLOR 7.

SORT itab_profchk.
DELETE ADJACENT DUPLICATES FROM itab_profchk.
PERFORM. profchk.

*---------------------------------------------------------------------*
* FORM. PROFCHK *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM. profchk.
  LOOP AT itab_profchk.

    SELECT SINGLE * FROM usr10 WHERE profn = itab_profchk.
    SELECT SINGLE * FROM usr11 WHERE profn = itab_profchk.
    ULINE.
    WRITE:/ 'Root profile : ' COLOR 6.
    WRITE:/ itab_profchk-profchk, usr11-ptext.

    IF usr10-typ = 'C'.
      counter = 0.
      PERFORM. recursive USING itab_profchk-profchk 5.
    ENDIF.

    IF NOT yes_auth IS INITIAL.
      IF usr10-typ = 'S'.
        SELECT * FROM ust10s WHERE profn = itab_profchk.
          SELECT SINGLE * FROM usr13 WHERE auth = ust10s-auth.
          WRITE AT /5 ust10s-auth COLOR 7.
          counttmp = coun + 15.
          WRITE AT 30 usr13-atext COLOR 7.
        ENDSELECT.
      ENDIF.
    ENDIF.
  ENDLOOP.
ENDFORM.                    "profchk

*---------------------------------------------------------------------*
* FORM. RECURSIVE *
*---------------------------------------------------------------------*
* --&gt PROFILE *
* --&gt COUNTERA *
*---------------------------------------------------------------------*
FORM. recursive USING profile LIKE usr12-auth countera TYPE i.
  counter = counter + countera.

  SELECT * FROM ust10c WHERE profn = profile.
    CASE counter.
      WHEN 5.
        WRITE AT /counter ust10c-subprof COLOR 5.
      WHEN 10.
        WRITE AT /counter ust10c-subprof COLOR 4.
      WHEN 15.
        WRITE AT /counter ust10c-subprof COLOR 3.
    ENDCASE.
    MOVE ust10c-subprof TO proftmp.
    SELECT SINGLE * FROM usr10 WHERE profn = proftmp.
    IF usr10-typ = 'C'.
      PERFORM. recursive USING proftmp 5.
    ENDIF.

    IF NOT yes_auth IS INITIAL.
      IF usr10-typ = 'S'.
        SELECT * FROM ust10s WHERE profn = proftmp.
          SELECT SINGLE * FROM usr13 WHERE auth = ust10s-auth.
          coun = counter + 5.
          WRITE AT /coun ust10s-auth COLOR 7.
          counttmp = coun + 15.
          WRITE AT counttmp usr13-atext COLOR 7.
        ENDSELECT.
        coun = 0.
      ENDIF.
    ENDIF.
  ENDSELECT.
  counter = 5.
ENDFORM.                    "recursive 

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/92530/viewspace-154878/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/92530/viewspace-154878/