U@COSECURED

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

Module DATABASE
Input E@COMPANY
Output E@COSECURED (always set)

Programming Example

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