900-COMPANY-SECURED

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

Programming Example

           MOVE APM-COMPANY            TO CRT-COMPANY.
           
           PERFORM 900-COMPANY-SECURED.

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