*COMDECK SYS$PAR
   COMMON SYS$PAR            ;
                             BEGIN
   ARRAY SYSSSL S(1)         ;# RETURNED PARAM FROM GETSSL MACRO       #
                             BEGIN
   ITEM SECLEVW#U,0,0,60#    U(0,0,60) ;         # SECURITY LEVEL WORD #
   ITEM SECMOD#0,6,6#        U(0,6,6) ;          # SECURITY MODE       #
   ITEM SECMIN#0,36,6#       U(0,36,6) ;         # LOWER ACCESS LEVEL  #
                             END
                             END
                                                                       #
*                                                                     ##
          USE    *
                                                                      ##
*                                                                      #
