U@COSECSYS

U@COSECURED verifies that the current user has security access to the company and system code. E@COSECURED 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.

Module DATABASE
Input

E@COMPANY

E@CRTSYSTEMCD
Output E@COSECURED (always set)

Programming Example

      EVAL      E@COMPANY      = DAPMCMPNY   
     EVAL      E@CRTSYSTEMCD  = 'AP'
     CALLP     U@COSECSYS                    Company Secured 
     IF        E@COSECURED = 'Y'
     IF        F3@FC = '+'
     EVAL      I1             = %ABS(I1 + -1
     ELSE                                                  
     ADD       1             I1                           
     ENDIF                                                
     GOTO      G3@N490