900-PROC-LEV-SEC-SYS

900-PROC-LEV-SEC-SYS verifies that the current user has security access to the process level and system code. CRT-PROC-LEV-SECURED 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.

Library DATABASE
Input

CRT-COMPANY

CRT-PROCESS-LEVEL

CRT-SYSTEM-CODE
Output CRT-PROC-LEV-SECURED (always set)

Programming Example


      MOVE IAC-FROM-TO-CMPY        TO CRT-COMPANY
      MOVE IAC-FROM-TO-LOC         TO CRT-PROCESS-LEVEL
      MOVE "IC"                    TO CRT-SYSTEM-CODE
      MOVE "N"                     TO CRT-PROC-LEV-SECURED
      PERFORM 900-PROC-LEV-SEC-SYS
      IF (CRT-PROC-LEV-SECURED = "Y")
          MOVE "IC22"             TO CRT-ERROR-CAT
          MOVE 112                TO CRT-ERROR-NBR
          MOVE IC22F1-IAC-FROM-TO-CMPY-FN  TO CRT-FIELD-NBR
          MOVE IAC-FROM-TO-CMPY
                                  TO IC22F1-IAC-FROM-TO-CMPY
          MOVE IAC-FROM-TO-LOC
                                  TO IC22F1-IAC-FROM-TO-LOC