900-COMPANY-SEC-SYS

900-COMPANY-SEC-SYS verifies that the current user has security access to the company and system code. CRT-COMPANY-SECURED is set to Y if the current user is secured from this company and system code, 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-SYSTEM-CODE
Output CRT-COMPANY-SECURED (always set)

Programming Example

            MOVE APM-COMPANY            TO CRT-COMPANY.
           MOVE "AP"                   TO CRT-SYSTEM-CODE
           PERFORM 900-COMPANY-SEC-SYS.

           IF (CRT-COMPANY-SECURED = "Y")
               GO TO 490-NEXT.