! *** PREDECLARED TYPES
     
      %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL ( 2 )
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$OCTAWORD
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$OCTAWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$HFLOAT_AXP_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$F_FLOATING_COMPLEX
            SINGLE REAL_PART
            SINGLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$D_FLOATING_COMPLEX
            DOUBLE REAL_PART
            DOUBLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$G_FLOATING_COMPLEX
            GFLOAT REAL_PART
            GFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
    
    
    ! +
    !  Security Auditing record definitions
    ! -
      DECLARE LONG CONSTANT NSA$C_REC_MAXLENGTH = 1024  !  Maximum record size
      DECLARE LONG CONSTANT NSA$K_REC_MAXLENGTH = 1024  !  Maximum record size
      DECLARE LONG CONSTANT NSA$S_REC_MAXLENGTH = 1024  !  Maximum record size
    ! +
    !  Audit record type definitions
    ! -
      DECLARE LONG CONSTANT NSA$K_RECTYP_FIL = 1  !  File access
      DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF = 2  !  System UAF
      DECLARE LONG CONSTANT NSA$K_RECTYP_NETUAF = 3  !  Network UAF
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB = 4  !  Login breakin detection
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI = 5  !  Successful login
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF = 6  !  Login failure
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO = 7  !  Logout
      DECLARE LONG CONSTANT NSA$K_RECTYP_VOL = 8  !  Volume operations
      DECLARE LONG CONSTANT NSA$K_RECTYP_GBL = 9  !  Global section access
      DECLARE LONG CONSTANT NSA$K_RECTYP_INSTAL = 10  !  INSTALL operations
      DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS = 11  !  Rights database operations
      DECLARE LONG CONSTANT NSA$K_RECTYP_AUDIT = 12  !  SET AUDIT operations
      DECLARE LONG CONSTANT NSA$K_RECTYPNUM = 12
    ! +
    !  Audit record subtype and ID definitions
    ! -
    !  File access
      DECLARE LONG CONSTANT NSA$K_RECTYP_FIL_SUCC = 1  !  Successful file access
      DECLARE LONG CONSTANT NSA$K_RECTYP_FIL_FAIL = 2  !  File access failure
      DECLARE LONG CONSTANT NSA$K_RECTYPNUM_FIL = 2
      DECLARE LONG CONSTANT NSA$K_RECID_FIL_SUCC = 65537
      DECLARE LONG CONSTANT NSA$K_RECID_FIL_FAIL = 131073
    !  Global section access
      DECLARE LONG CONSTANT NSA$K_RECTYP_GBL_SUCC = 1  !  Successful Global section access
      DECLARE LONG CONSTANT NSA$K_RECTYP_GBL_FAIL = 2  !  Global section access failure
      DECLARE LONG CONSTANT NSA$K_RECTYPNUM_GBL = 2
      DECLARE LONG CONSTANT NSA$K_RECID_GBL_SUCC = 65545
      DECLARE LONG CONSTANT NSA$K_RECID_GBL_FAIL = 131081
    !  System UAF
      DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF_ADD = 1  !  System UAF record addition
      DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF_DEL = 2  !  System UAF record deletion
      DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF_MOD = 3  !  System UAF record modification
      DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF_COP = 4  !  System UAF record copied
      DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF_REN = 5  !  System UAF record renamed
      DECLARE LONG CONSTANT NSA$K_RECTYPNUM_SYSUAF = 5
      DECLARE LONG CONSTANT NSA$K_RECID_SYSUAF_ADD = 65538
      DECLARE LONG CONSTANT NSA$K_RECID_SYSUAF_DEL = 131074
      DECLARE LONG CONSTANT NSA$K_RECID_SYSUAF_MOD = 196610
      DECLARE LONG CONSTANT NSA$K_RECID_SYSUAF_COP = 262146
      DECLARE LONG CONSTANT NSA$K_RECID_SYSUAF_REN = 327682
    !  Network UAF
      DECLARE LONG CONSTANT NSA$K_RECTYP_NETUAF_ADD = 1  !  Network UAF record addition
      DECLARE LONG CONSTANT NSA$K_RECTYP_NETUAF_DEL = 2  !  Network UAF record deletion
      DECLARE LONG CONSTANT NSA$K_RECTYP_NETUAF_MOD = 3  !  Network UAF record modification
      DECLARE LONG CONSTANT NSA$K_RECTYPNUM_NETUAF = 3
      DECLARE LONG CONSTANT NSA$K_RECID_NETUAF_ADD = 65539
      DECLARE LONG CONSTANT NSA$K_RECID_NETUAF_DEL = 131075
      DECLARE LONG CONSTANT NSA$K_RECID_NETUAF_MOD = 196611
    !  Login breakin detection
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB_DIA = 1  !  Dialup interactive breakin detection
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB_LOC = 2  !  Local interactive breakin detection
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB_REM = 3  !  Remote interactive breakin detection
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB_NET = 4  !  Network breakin detection
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB_DET = 5  !  Detached process breakin detection
      DECLARE LONG CONSTANT NSA$K_RECTYPNUM_LOGB = 5
      DECLARE LONG CONSTANT NSA$K_RECID_LOGB_DIA = 65540
      DECLARE LONG CONSTANT NSA$K_RECID_LOGB_LOC = 131076
      DECLARE LONG CONSTANT NSA$K_RECID_LOGB_REM = 196612
      DECLARE LONG CONSTANT NSA$K_RECID_LOGB_NET = 262148
      DECLARE LONG CONSTANT NSA$K_RECID_LOGB_DET = 327684
    !  Successful login
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_BAT = 1  !  Batch process login
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_DIA = 2  !  Dialup interactive login
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_LOC = 3  !  Local interactive login
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_REM = 4  !  Remote interactive login
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_NET = 5  !  Network login
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_SUB = 6  !  Subprocess login
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_DET = 7  !  Detached process login
      DECLARE LONG CONSTANT NSA$K_RECTYPNUM_LOGI = 7
      DECLARE LONG CONSTANT NSA$K_RECID_LOGI_BAT = 65541
      DECLARE LONG CONSTANT NSA$K_RECID_LOGI_DIA = 131077
      DECLARE LONG CONSTANT NSA$K_RECID_LOGI_LOC = 196613
      DECLARE LONG CONSTANT NSA$K_RECID_LOGI_REM = 262149
      DECLARE LONG CONSTANT NSA$K_RECID_LOGI_NET = 327685
      DECLARE LONG CONSTANT NSA$K_RECID_LOGI_SUB = 393221
      DECLARE LONG CONSTANT NSA$K_RECID_LOGI_DET = 458757
    !  Login failure
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_BAT = 1  !  Batch process login failure
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_DIA = 2  !  Dialup interactive login failure
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_LOC = 3  !  Local interactive login failure
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_REM = 4  !  Remote interactive login failure
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_NET = 5  !  Network login failure
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_SUB = 6  !  Subprocess login failure
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_DET = 7  !  Detached process login failure
      DECLARE LONG CONSTANT NSA$K_RECTYPNUM_LOGF = 7
      DECLARE LONG CONSTANT NSA$K_RECID_LOGF_BAT = 65542
      DECLARE LONG CONSTANT NSA$K_RECID_LOGF_DIA = 131078
      DECLARE LONG CONSTANT NSA$K_RECID_LOGF_LOC = 196614
      DECLARE LONG CONSTANT NSA$K_RECID_LOGF_REM = 262150
      DECLARE LONG CONSTANT NSA$K_RECID_LOGF_NET = 327686
      DECLARE LONG CONSTANT NSA$K_RECID_LOGF_SUB = 393222
      DECLARE LONG CONSTANT NSA$K_RECID_LOGF_DET = 458758
    !  Logout
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_BAT = 1  !  Batch process logout
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_DIA = 2  !  Dialup interactive logout
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_LOC = 3  !  Local interactive logout
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_REM = 4  !  Remote interactive logout
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_NET = 5  !  Network logout
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_SUB = 6  !  Subprocess logout
      DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_DET = 7  !  Detached process logout
      DECLARE LONG CONSTANT NSA$K_RECTYPNUM_LOGO = 7
      DECLARE LONG CONSTANT NSA$K_RECID_LOGO_BAT = 65543
      DECLARE LONG CONSTANT NSA$K_RECID_LOGO_DIA = 131079
      DECLARE LONG CONSTANT NSA$K_RECID_LOGO_LOC = 196615
      DECLARE LONG CONSTANT NSA$K_RECID_LOGO_REM = 262151
      DECLARE LONG CONSTANT NSA$K_RECID_LOGO_NET = 327687
      DECLARE LONG CONSTANT NSA$K_RECID_LOGO_SUB = 393223
      DECLARE LONG CONSTANT NSA$K_RECID_LOGO_DET = 458759
    !  Volume operations
      DECLARE LONG CONSTANT NSA$K_RECTYP_VOL_MOU = 1  !  Volume mounts
      DECLARE LONG CONSTANT NSA$K_RECTYP_VOL_DMOU = 2  !  Volume dismounts
      DECLARE LONG CONSTANT NSA$K_RECTYPNUM_VOL = 2
      DECLARE LONG CONSTANT NSA$K_RECID_VOL_MOU = 65544
      DECLARE LONG CONSTANT NSA$K_RECID_VOL_DMOU = 131080
    !  INSTALL operations
      DECLARE LONG CONSTANT NSA$K_RECTYP_INSTAL_ADD = 1  !  Add known file
      DECLARE LONG CONSTANT NSA$K_RECTYP_INSTAL_REM = 2  !  Remove known file
      DECLARE LONG CONSTANT NSA$K_RECTYPNUM_INSTAL = 2
    !  Rights database operations
      DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_CRE = 1  !  Create rights database
      DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_ADD = 2  !  Add identifier
      DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_REM = 3  !  Remove identifier
      DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_MOD_ID = 4  !  Modify identifier
      DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_MOD_HO = 5  !  Modify identifier holder
      DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_GRANT = 6  !  Grant identifier
      DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_REVOK = 7  !  Revoke identifier
      DECLARE LONG CONSTANT NSA$K_RECTYPNUM_RIGHTS = 7
    !  SET AUDIT operations
      DECLARE LONG CONSTANT NSA$K_RECTYP_AUDIT_ENA_AL = 1  !  Enable alarm
      DECLARE LONG CONSTANT NSA$K_RECTYP_AUDIT_DIS_AL = 2  !  Disable alarm
      DECLARE LONG CONSTANT NSA$K_RECTYP_AUDIT_ENA_JL = 3  !  Enable journal
      DECLARE LONG CONSTANT NSA$K_RECTYP_AUDIT_DIS_JL = 4  !  Disable journal
      DECLARE LONG CONSTANT NSA$K_RECTYPNUM_AUDIT = 4
    ! +
    !  SYSUAFF stuff
    ! -
      DECLARE LONG CONSTANT nsa$s_sysuaff_bits = 8
      record sysuaff_bits
         group nsa$r_fill_41_
            variant
               case
                  BASIC$QUADWORD nsa$q_sysuaff  !  SYSUAFF flags:
               case
                  group nsa$r_fill_42_
                      !   ACCESS modified
                      !   ACCOUNT modified
                      !   ASTLM modified
                      !   BATCH modified
                      !   BIOLM modified
                      !   BYTLM modified
                      !   CLI modified
                      !   CLITABLES modified
                      !   CPUTIME modified
                      !   DEFPRIVILEGES modified
                      !   DEVICE modified
                      !   DIALUP modified
                      !   DIOLM modified
                      !   DIRECTORY modified
                      !   ENQLM modified
                      !   EXPIRATION modified
                      !   FILLM modified
                      !   FLAGS modified
                      !   INTERACTIVE modified
                      !   JTQUOTA modified
                      !   LGICMD modified
                      !   LOCAL modified
                      !   MAXDETACH modified
                      !   MAXJOBS modified
                      !   MAXACCTJOBS modified
                      !   NETWORK modified
                      !   OWNER modified
                      !   PASSWORD modified
                      !   PBYTLM modified
                      !   PFLAGS modified
                      !   P_RESTRICT modified
                      !   PGFLQUOTA modified
                      !   PRCLM modified
                      !   PRIMEDAYS modified
                      !   PRIORITY modified
                      !   PRIVILEGES modified
                      !   PWDLIFETIME modified
                      !   PWDMINIMUM modified
                      !   QUEPRIORITY modified
                      !   REMOTE modified
                      !   SFLAGS modified
                      !   S_RESTRICT modified
                      !   SHRFILLM modified
                      !   TQELM modified
                      !   UIC modified
                      !   WSDEFAULT modified
                      !   WSEXTENT modified
                      !   WSQUOTA modified
                     BYTE access_bits ( 6 )   ! COMMENT ADDED BY SDL - access_bits contains bits access through wsquota
                  end group nsa$r_fill_42_
            end variant
         end group nsa$r_fill_41_
      end record sysuaff_bits
    
    ! +
    !  Record header offset definitions
    ! -
      DECLARE LONG CONSTANT NSA$M_REC_FLAGS_PKTCON = x'00000001'
      DECLARE LONG CONSTANT NSA$C_RECHDR_LENGTH = 76
      DECLARE LONG CONSTANT NSA$K_RECHDR_LENGTH = 76
      DECLARE LONG CONSTANT NSA$S_NSARECHDRDEF = 76
      record NSARECHDRDEF
         group NSA$R_REC_ID_OVERLAY
            variant
               case
                  LONG NSA$L_REC_ID         !  Record identification longword
               case
                  group NSA$R_REC_ID_FIELDS
                     WORD NSA$W_REC_TYPE    !  Record type
                     WORD NSA$W_REC_SUBTYPE  !  Record subtype
                  end group NSA$R_REC_ID_FIELDS
            end variant
         end group NSA$R_REC_ID_OVERLAY
         BYTE NSA$B_REC_SEQNUM              !  This records sequence number
         BYTE NSA$B_REC_SEQLAST             !  Last records sequence number
         group NSA$R_REC_FLAGS_OVERLAY
            variant
               case
                  BYTE NSA$B_REC_FLAGS      !  Record flags byte
               case
                  group NSA$R_REC_FLAGS_BITS
                      !  Last packet in record is
    !  continued in next record
                     BYTE REC_FLAGS_PKTCON_bits   ! COMMENT ADDED BY SDL - REC_FLAGS_PKTCON_bits contains bits REC_FLAGS_PKTCON  &
 ! through FILL_43_
                  end group NSA$R_REC_FLAGS_BITS
            end variant
         end group NSA$R_REC_FLAGS_OVERLAY
         BYTE NSA$B_REC_PKTNUM              !  Number of data packets in record
         WORD NSA$W_REC_PKTOFF              !  Offset to first packet
         WORD NSA$W_REC_PKTHDRSIZ           !  Data packet header size
         LONG NSA$L_REC_EPID                !  Extended PID
         BASIC$QUADWORD NSA$Q_REC_TIME      !  Event time (EXE$GQ_SYSTIME)
         STRING NSA$T_REC_CLUSNAM = 16      !  Cluster node name
         STRING NSA$T_REC_PROCNAM = 16      !  Process name
         STRING NSA$T_REC_USERNAM = 12      !  username
         STRING NSA$T_REC_ACCTNAM = 8       !  Account name
      end record NSARECHDRDEF
    
    ! +
    !  Data packet type definitions
    ! -
      DECLARE LONG CONSTANT NSA$K_PKTTYP_IMGNAM = 1  !  Image name packet
      DECLARE LONG CONSTANT NSA$K_PKTTYP_FACMOD = 2  !  File access mode
      DECLARE LONG CONSTANT NSA$K_PKTTYP_PRIVUSED = 3  !  Privilege used to access file
      DECLARE LONG CONSTANT NSA$K_PKTTYP_FILNAM = 4  !  File name
      DECLARE LONG CONSTANT NSA$K_PKTTYP_DEVNAM = 5  !  Device name
      DECLARE LONG CONSTANT NSA$K_PKTTYP_LOGNAM = 6  !  Logical name
      DECLARE LONG CONSTANT NSA$K_PKTTYP_VOLNAM = 7  !  Volume name
      DECLARE LONG CONSTANT NSA$K_PKTTYP_VOLSNAM = 8  !  Volume set name
      DECLARE LONG CONSTANT NSA$K_PKTTYP_NODENAM = 9  !  Node name
      DECLARE LONG CONSTANT NSA$K_PKTTYP_USERNAM = 10  !  User name
      DECLARE LONG CONSTANT NSA$K_PKTTYP_PASSWORD = 11  !  Password
      DECLARE LONG CONSTANT NSA$K_PKTTYP_UIC = 12  !  User identification code
      DECLARE LONG CONSTANT NSA$K_PKTTYP_VOLPRO = 13  !  Volume protection
      DECLARE LONG CONSTANT NSA$K_PKTTYP_MOUFLG = 14  !  Mount flags
      DECLARE LONG CONSTANT NSA$K_PKTTYP_DMOUFLG = 15  !  Dismount flags
      DECLARE LONG CONSTANT NSA$K_PKTTYP_NODEID = 16  !  Node ID
      DECLARE LONG CONSTANT NSA$K_PKTTYP_EPID = 17  !  Extended PID
      DECLARE LONG CONSTANT NSA$K_PKTTYP_SYSUAFF = 18  !  System UAF record fields
      DECLARE LONG CONSTANT NSA$K_PKTTYP_STATUS = 19  !  Status longword
      DECLARE LONG CONSTANT NSA$K_PKTTYP_SECNAM = 20  !  Global section name
      DECLARE LONG CONSTANT NSA$K_PKTTYP_PRIVS = 21  !  Full privilege mask
      DECLARE LONG CONSTANT NSA$K_PKTTYP_INSFLG = 22  !  Install flags
      DECLARE LONG CONSTANT NSA$K_PKTTYP_IDNAME = 23  !  Identifier name
      DECLARE LONG CONSTANT NSA$K_PKTTYP_IDVAL = 24  !  Identifier value
      DECLARE LONG CONSTANT NSA$K_PKTTYP_IDATTR = 25  !  Identifier attributes
      DECLARE LONG CONSTANT NSA$K_PKTTYP_HOLDER = 26  !  Identifier holder
      DECLARE LONG CONSTANT NSA$K_PKTTYP_AUDIT = 27  !  Audit item
      DECLARE LONG CONSTANT NSA$K_PKTTYP_DEFUSERNAM = 28  !  Default proxy name
      DECLARE LONG CONSTANT NSA$K_PKTTYP_OLDUSERNAM = 29  !  Old proxy name
      DECLARE LONG CONSTANT NSA$K_PKTTYP_OLDDEFUNAM = 30  !  Old default local proxy name
      DECLARE LONG CONSTANT NSA$K_PKTTYP_OLDNODENAM = 31  !  Old remote node name
      DECLARE LONG CONSTANT NSA$K_PKTTYPNUM = 31
    ! +
    !  Data packet offset definitions
    ! -
      DECLARE LONG CONSTANT NSA$C_PKTHDR_LENGTH = 4
      DECLARE LONG CONSTANT NSA$K_PKTHDR_LENGTH = 4
      DECLARE LONG CONSTANT NSA$M_PKT_INS_OPEN = x'00000002'
      DECLARE LONG CONSTANT NSA$M_PKT_INS_HDR = x'00000004'
      DECLARE LONG CONSTANT NSA$M_PKT_INS_SHARE = x'00000008'
      DECLARE LONG CONSTANT NSA$M_PKT_INS_EXEC = x'00000010'
      DECLARE LONG CONSTANT NSA$M_PKT_INS_WRITE = x'00000020'
      DECLARE LONG CONSTANT NSA$M_PKT_INS_PRIV = x'00000040'
      DECLARE LONG CONSTANT NSA$M_PKT_INS_PROT = x'00000080'
      DECLARE LONG CONSTANT NSA$M_PKT_INS_NOPRG = x'00000100'
      DECLARE LONG CONSTANT NSA$M_PKT_INS_ACC = x'00000200'
      DECLARE LONG CONSTANT NSA$M_PKT_INS_RESIDENT = x'00000400'
      DECLARE LONG CONSTANT NSA$S_NSAPKTDEF = 448
      record NSAPKTDEF
         WORD NSA$W_PKT_TYPE                !  Packet data type
         WORD NSA$W_PKT_SIZE                !  Packet size
         STRING NSA$T_PKT_DATA = 0
         group NSA$R_PKT_DATA_OVERLAY
            variant
               case
                  STRING NSA$T_PKT_IMGNAM = 444  !  Image name
               case
                  LONG NSA$L_PKT_FACMOD     !  File access mode
               case
                  LONG NSA$L_PKT_PRIVUSED   !  Privilege used to access file
               case
                  STRING NSA$T_PKT_FILNAM = 444  !  File name
               case
                  STRING NSA$T_PKT_DEVNAM = 64  !  Device and access port name
               case
                  STRING NSA$T_PKT_LOGNAM = 255  !  Logical name
               case
                  STRING NSA$T_PKT_VOLNAM = 12  !  Volume name
               case
                  STRING NSA$T_PKT_VOLSNAM = 12  !  Volume set name
               case
                  STRING NSA$T_PKT_NODENAM = 6  !  Node name
               case
                  STRING NSA$T_PKT_USERNAM = 32  !  User name
               case
                  STRING NSA$T_PKT_PASSWORD = 32  !  Password
               case
                  LONG NSA$L_PKT_UIC        !  Volume UIC
               case
                  WORD NSA$W_PKT_VOLPRO     !  Volume protection
               case
                  LONG NSA$L_PKT_MOUFLG     !  Mount flags
               case
                  WORD NSA$W_PKT_DMOUFLG    !  Dismount flags
               case
                  BASIC$QUADWORD NSA$Q_PKT_NODEID  !  Node ID
               case
                  LONG NSA$L_PKT_EPID       !  Extended PID
               case
                  BASIC$QUADWORD NSA$Q_PKT_SYSUAFF  !  System UAF record fields
               case
                  LONG NSA$L_PKT_STATUS     !  Status longword
               case
                  STRING NSA$T_PKT_SECNAM = 54  !  Global section name
               case
                  BASIC$QUADWORD NSA$Q_PKT_PRIVS  !  Full privilege mask
               case
                  group NSA$R_FILL_44_
                     variant
                     case
                        LONG NSA$L_PKT_INSFLG  !  Install flags
                     case
                        group NSA$R_FILL_45_
                            !  Bit 0 must be unused
                            !  /OPEN
                            !  /HEADER_RESIDENT
                            !  /SHARE
                            !  /EXECUTE
                            !  /WRITE
                            !  /PRIVILEGE
                            !  /PROTECTED
                            !  /NOPURGE
                            !  /ACCOUNTING
                            !  /RESIDENT
                           WORD PKT_INS_FILL_bits   ! COMMENT ADDED BY SDL - PKT_INS_FILL_bits contains bits PKT_INS_FILL through  &
 ! FILL_46_
                        end group NSA$R_FILL_45_
                     end variant
                  end group NSA$R_FILL_44_
               case
                  STRING NSA$T_PKT_IDNAME = 32  !  Identifier name
               case
                  LONG NSA$L_PKT_IDVAL      !  Identifier value
               case
                  LONG NSA$L_PKT_IDATTR     !  Identifier attributes
               case
                  BASIC$QUADWORD NSA$Q_PKT_HOLDER  !  Identifier holder
               case
                  STRING NSA$R_PKT_AUDIT = 0  !  Audit item (not used)
               case
                  STRING NSA$T_PKT_DEFUSERNAM = 32  !  Default proxy name
               case
                  STRING NSA$T_PKT_OLDUSERNAM = 32  !  Old proxy name
               case
                  STRING NSA$T_PKT_OLDDEFUNAM = 32  !  Old default local proxy name
               case
                  STRING NSA$T_PKT_OLDNODENAM = 6  !  Old remote node name
            end variant
         end group NSA$R_PKT_DATA_OVERLAY
      end record NSAPKTDEF