900-ACCT-UNIT-SEC-SYS

900-ACCT-UNIT-SEC-SYS verifies that the current user has security access to this accounting unit. If the current user is secured from this accounting unit in the specified company and system code, CRT-ACCT-UNIT-SECURED is set to Y; otherwise, it is set to N.

For a discussion of security processing, see the Lawson Administration: Resources and Security guide.

Library DATABASE
Input

CRT-COMPANY

CRT-ACCT-UNIT

CRT-SYSTEM-CODE
Output CRT-ACCT-UNIT-SECURED (always set)

Programming Example

     MOVE AGP-SECURITY-CD     TO CRT-COMPANY.
     MOVE ACV-ACTIVITY        TO CRT-ACCT-UNIT.
     MOVE "AC"                TO CRT-SYSTEM-CODE
     PERFORM 900-ACCT-UNIT-SEC-SYS.
     IF (CRT-ACCT-UNIT-SECURED  = "Y")
         MOVE 101                        TO CRT-ERROR-NBR
         MOVE "ACSC"                     TO CRT-ERROR-CAT