U@PLSECSYS

U@PLSECSYS verifies that the current user has security access to the process level and system code. E@PLSECURED is set to Y if the current user is secured from access to the process level in the specified company and for the specified 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@PROCLEVEL

E@CRTSYSTEMCD

Output E@PLSECURED (always set)

Programming Example

    EVAL      E@COMPANY      = DIACCMPNY 
    EVAL      E@PROCLEVEL    = DIACFRTLC    
    EVAL      E@CRTSYSTEMCD  = 'IC'         
    EVAL      E@PLSECURED    = 'N'          
    CALLP     U@PLSECSYS                   
    IF        E@PLSECURED    = 'Y'          
    EVAL      E@ERRORNBR     = 112          
    EVAL      E@FIELDNBR     = F1FN@ICFRLC  
    EVAL      F1@ICFRCM      = DIACFRTCMP   
    EVAL      F1@ICFRLC      = DIACFRTLC