! ******************************************************************************************************************************** ! Created: 23-JUN-2005 16:27:49 by OpenVMS SDL EV1-53 ! Source: 22-MAY-1991 15:13:27 X25DEVEL$VMS$ROOT:[LESV3.SRC]PSILIB.SDL;1 ! ******************************************************************************************************************************** !*** MODULE $psidef *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED) ! ! PSI: ! These are Network Connect Block codes and various status codes. ! PARAMETER psi$c_ncb_null = '00000000'X ! Network connect null data type PARAMETER psi$c_ncb_remdte = '00000001'X ! Remote DTE address PARAMETER psi$c_ncb_remsubadr = '00000002'X ! Remote DTE sub-address PARAMETER psi$c_ncb_locdte = '00000003'X ! Local DTE address PARAMETER psi$c_ncb_locsubadr = '00000004'X ! Local DTE subaddress PARAMETER psi$c_ncb_userdata = '00000005'X ! Outgoing call data PARAMETER psi$c_ncb_respdata = '00000006'X ! Response data field PARAMETER psi$c_ncb_objname = '00000007'X ! Process to handle call PARAMETER psi$c_ncb_endtoend = '00000008'X ! Outgoing end to end acknowledgment (D-bit) PARAMETER psi$c_ncb_endtoendr = '00000009'X ! Call requires end to end acknowledgment (D-bit) PARAMETER psi$c_ncb_gateway = '0000000A'X ! Gateway name PARAMETER psi$c_ncb_ici = '0000000B'X ! Incoming call identifier PARAMETER psi$c_ncb_revchg = '0000000C'X ! Reverse charge for this call PARAMETER psi$c_ncb_locfacr = '0000000D'X ! Facilities for call accept PARAMETER psi$c_ncb_fsel = '0000000E'X ! Fast select for outgoing call PARAMETER psi$c_ncb_fsel_res = '0000000F'X ! Restricted response fast select PARAMETER psi$c_ncb_thrucls = '00000010'X ! Throughput class PARAMETER psi$c_ncb_cug = '00000011'X ! Closed user group name PARAMETER psi$c_ncb_diagcode = '00000012'X ! Clear 8 bit diagnostics code PARAMETER psi$c_ncb_cause = '00000013'X ! Clear 8 bit cause code PARAMETER psi$c_ncb_reason = '00000014'X ! Clear 8 bit reason code PARAMETER psi$c_ncb_pktsize = '00000015'X ! Packet size-must be power of 2 PARAMETER psi$c_ncb_winsize = '00000016'X ! Window size PARAMETER psi$c_ncb_locfac = '00000017'X ! Local facilities PARAMETER psi$c_ncb_pvcnam = '00000018'X ! PVC name ! ! The following codes are mainly for internal use. ! They may not normally be used by a user program ! (require PHYSIO and SYSPRV privileges) ! ! Used to be ncb_dte (or ncb_line) PARAMETER psi$c_ncb_pvcset = '0000001A'X ! Set up PVC PARAMETER psi$c_ncb_lcn = '0000001B'X ! Select LCN PARAMETER psi$c_ncb_cugn = '0000001C'X ! Closed user group number PARAMETER psi$c_ncb_cugnb = '0000001D'X ! Bilateral closed user group number PARAMETER psi$c_ncb_locnet = '0000001E'X ! Local network name ! ! The following codes are for use in gateway/access. ! PARAMETER psi$c_ncb_network = '0000001E'X ! For use in gateway access (Same as NCB_LOCNET) PARAMETER psi$c_ncb_userid = '0000001F'X ! User id PARAMETER psi$c_ncb_password = '00000020'X ! Password PARAMETER psi$c_ncb_account = '00000021'X ! Account ! ! The following are general NCB item codes ! PARAMETER psi$c_ncb_pridst = '00000022'X ! priority of the activated destination PARAMETER psi$c_ncb_prired = '00000023'X ! priority to skip in redirection PARAMETER psi$c_ncb_rcv_quota = '00000024'X ! receive buffer quota ! ! New CCITT 1984 facilities ! PARAMETER psi$c_ncb_net_user_id = '00000025'X ! Network User Identification facility PARAMETER psi$c_ncb_charging_info = '00000026'X ! Charging Information facility (request) PARAMETER psi$c_ncb_charge_mon = '00000027'X ! Charging Information facility (monetary units) PARAMETER psi$c_ncb_charge_seg = '00000028'X ! Charging Information facility (segment count) PARAMETER psi$c_ncb_charge_time = '00000029'X ! Charging Information facility (duration) PARAMETER psi$c_ncb_rpoa = '0000002A'X ! RPOA Selection facility PARAMETER psi$c_ncb_addr_mod_rsn = '0000002B'X ! Called Line Address Modified Notification facili PARAMETER psi$c_ncb_call_redir_rsn = '0000002C'X ! Call Redirection facility (reason) PARAMETER psi$c_ncb_call_redir_orig = '0000002D'X ! Call Redirection facility (original address) PARAMETER psi$c_ncb_transit_delay = '0000002E'X ! Transit Delay Selection and Notification facility ! ! CCITT specified DTE facilities for OSI network service ! PARAMETER psi$c_ncb_calling_extension = '0000002F'X ! Calling Address Extension facility PARAMETER psi$c_ncb_called_extension = '00000030'X ! Called Address Extension facility PARAMETER psi$c_ncb_min_thrucls = '00000031'X ! Minimum Throughput Class facility PARAMETER psi$c_ncb_expedite = '00000032'X ! Expedited Data Negotiation facility ! ! ISO end-to-end transit delay facility fields ! PARAMETER psi$c_ncb_cum_trst_dly = '00000033'X ! Cumulative Transit Delay (in outgoing and incomi PARAMETER psi$c_ncb_cum_trst_dly_r = '00000034'X ! Cumulative Transit Delay (in call accepts) PARAMETER psi$c_ncb_ete_trst_dly = '00000035'X ! End-to-end Transit Delay PARAMETER psi$c_ncb_max_trst_dly = '00000036'X ! Maximum Acceptable End-to-end Transit Delay PARAMETER psi$c_ncb_incoming_dte = '00000037'X ! Incoming DTE address ( from called dte field). ! ! X.29 PAD reselection DTE field ! PARAMETER psi$c_ncb_reselect_dte = '00000038'X ! Reselection DTE ! ! Phase V items ! PARAMETER psi$c_ncb_template = '00000039'X ! template PARAMETER psi$c_ncb_local_id = '0000003A'X ! name of local user. PARAMETER psi$c_ncb_def_dteclass = '0000003B'X ! default dteclass (NW uses this to pass ! the translation of PSI$NETWORK. PARAMETER psi$c_ncb_flt_pri = '0000003C'X ! priority of phase V filter PARAMETER psi$c_ncb_flt_redpri = '0000003D'X ! priority of phase V filter PARAMETER psi$c_ncb_snm_cug = '0000003E'X ! simplename of group PARAMETER psi$c_ncb_snm_dteclass = '0000003F'X ! simplename of dteclass PARAMETER psi$c_ncb_snm_filter = '00000040'X ! simplename of filter PARAMETER psi$c_ncb_snm_template = '00000041'X ! simplename of template PARAMETER psi$c_ncb_snm_pvcnam = '00000042'X ! simplename of pvc name PARAMETER psi$c_ncb_snm_port = '00000043'X ! simplename of port name ! ! Added to supply device unit number to user interface ! PARAMETER psi$c_ncb_unit_number = '00000044'X ! longword item ! ! User defined NCB items ! PARAMETER psi$c_ncb_last_itm = '00000045'X ! Marks the end of PSI items to allow for ! user defined items ! PARAMETER psi$c_ncb_dteclass = '0000001E'X PARAMETER psi$c_ncb_filter = '00000007'X ! ! Item List Codes for Network Process Declaration ! PARAMETER psi$c_ntd_acclvl = '00000001'X ! Access level (X.25 or X.29) PARAMETER psi$c_ntd_salo = '00000002'X ! DTE subaddress range low end PARAMETER psi$c_ntd_sahi = '00000003'X ! DTE subaddress range high end PARAMETER psi$c_ntd_remdte = '00000004'X ! Remote DTE address PARAMETER psi$c_ntd_usrgrp = '00000005'X ! CUG/BCUG Name PARAMETER psi$c_ntd_usrdata = '00000006'X ! User data field PARAMETER psi$c_ntd_datmsk = '00000007'X ! User data mask PARAMETER psi$c_ntd_priority = '00000008'X ! Priority PARAMETER psi$c_ntd_redrsn = '00000009'X ! Redirect reason PARAMETER psi$c_ntd_network = '0000000A'X ! Network name PARAMETER psi$c_ntd_rcvdte = '0000000B'X ! Receiving dte PARAMETER psi$c_ntd_called_dte = '0000000C'X ! Called dte PARAMETER psi$c_ntd_incdte = '0000000D'X ! Incoming dte PARAMETER psi$c_ntd_extmsk = '0000000E'X ! Called extension mask PARAMETER psi$c_ntd_extval = '0000000F'X ! Called extension value PARAMETER psi$c_ntd_name = '00000010'X ! Name of destination created PARAMETER psi$c_ntd_local_id = '00000011'X ! Name of local user. PARAMETER psi$c_ntd_uic = '00000012'X ! Users UIC PARAMETER psi$c_ntd_flt_pri = '00000013'X ! Phase V priority value PARAMETER psi$c_ntd_snm_security_filter = '00000014'X ! Security entity used for this filter PARAMETER psi$c_ntd_snm_usrgrp = '00000015'X ! Simplename for CUG/BCUG PARAMETER psi$c_ntd_snm_dteclass = '00000016'X ! Simplename for dteclass PARAMETER psi$c_ntd_snm_filter = '00000017'X ! Simplename for filter PARAMETER psi$c_ntd_filter = '00000010'X PARAMETER psi$c_ntd_dteclass = '0000000A'X ! ! Codes for redirect reason ! PARAMETER psi$c_redrsn_busy = '00000000'X PARAMETER psi$c_redrsn_out_of_order = '00000001'X PARAMETER psi$c_redrsn_systematic = '00000002'X ! ! Clear/Reset/Restart Cause Codes from Level 3 ! PARAMETER psi$c_l3_local = '00000001'X ! Host requested PARAMETER psi$c_l3_netwrk = '00000002'X ! Network initiated PARAMETER psi$c_l3_neterr = '00000003'X ! Network protocol error PARAMETER psi$c_l3_locerr = '00000004'X ! Local protocol error PARAMETER psi$c_l3_lnkrst = '00000005'X ! Link reset PARAMETER psi$c_l3_lnkdwn = '00000006'X ! Link down PARAMETER psi$c_l3_lnkup = '00000007'X ! Link up PARAMETER psi$c_l3_lnkrrt = '00000008'X ! Link restarted PARAMETER psi$c_l3_locmgt = '00000009'X ! Network management function PARAMETER psi$c_l3_calcol = '0000000A'X ! Call collision PARAMETER psi$c_l3_nettim = '0000000B'X ! Timeout on network PARAMETER psi$c_l3_gatdisc = '0000000C'X ! Gap logical link disconnected by gateway PARAMETER psi$c_l3_netdisc = '0000000D'X ! Gap logical link lost ! ! I/O Status Returns ! PARAMETER psi$m_moredata = '00000001'X PARAMETER psi$m_qualified = '00000002'X PARAMETER psi$m_sts_pvc = '00000001'X PARAMETER psi$m_sts_locdtelng = '00000002'X PARAMETER psi$m_sts_remdtelng = '00000004'X PARAMETER psi$m_sts_userlng = '00000008'X PARAMETER psi$m_sts_winbad = '00000010'X PARAMETER psi$m_sts_pktbad = '00000020'X PARAMETER psi$m_sts_thrbad = '00000040'X PARAMETER psi$m_sts_rpoalng = '00000080'X PARAMETER psi$m_sts_wordbad = '00000100'X STRUCTURE /fill_1/ UNION MAP PARAMETER psi$S_moredata = 1 PARAMETER psi$V_moredata = 0 ! More data follows (M-bit) PARAMETER psi$S_qualified = 1 PARAMETER psi$V_qualified = 1 ! Qualified sub-channel (Q-bit) BYTE %FILL (1) END MAP MAP ! ! Status flags for IOST2 ! PARAMETER psi$S_sts_pvc = 1 PARAMETER psi$V_sts_pvc = 0 ! PVC setup MUST BE LOW ORDER BIT PARAMETER psi$S_sts_locdtelng = 1 PARAMETER psi$V_sts_locdtelng = 1 ! Local dte address too long - truncated PARAMETER psi$S_sts_remdtelng = 1 PARAMETER psi$V_sts_remdtelng = 2 ! Remote dte address too long - truncated PARAMETER psi$S_sts_userlng = 1 PARAMETER psi$V_sts_userlng = 3 ! Too much user data supplied - truncated PARAMETER psi$S_sts_winbad = 1 PARAMETER psi$V_sts_winbad = 4 ! Invalid window size - nearest valid chosen PARAMETER psi$S_sts_pktbad = 1 PARAMETER psi$V_sts_pktbad = 5 ! Invalid packet size - nearest valid chosen PARAMETER psi$S_sts_thrbad = 1 PARAMETER psi$V_sts_thrbad = 6 ! Invalid throughput class - nearest valid chosen PARAMETER psi$S_sts_rpoalng = 1 PARAMETER psi$V_sts_rpoalng = 7 ! RPOA not a multiple of 4 digits - truncated PARAMETER psi$S_sts_wordbad = 1 PARAMETER psi$V_sts_wordbad = 8 ! A word facility (Transit delay) reduced to %xFFFF BYTE %FILL (2) END MAP END UNION END STRUCTURE ! fill_1 ! ! Error codes returned in IOST2 ! PARAMETER psi$c_err_unknown = '00000000'X ! Unspecified internal error PARAMETER psi$c_err_faclng = '00000001'X ! Facilities too long PARAMETER psi$c_err_invitem = '00000002'X ! Invalid item code PARAMETER psi$c_err_conflict = '00000003'X ! Conflicting items specified PARAMETER psi$c_err_badparm = '00000004'X ! Bad parameter specified PARAMETER psi$c_err_notrans = '00000005'X ! No translation for this name (e.g. unknown user group) PARAMETER psi$c_err_recurlmt = '00000006'X ! Recursion limit reached PARAMETER psi$c_err_invnum = '00000007'X ! Invalid ASCII number PARAMETER psi$c_err_noici = '00000008'X ! No internal call identifier specified PARAMETER psi$c_err_manyici = '00000009'X ! More than one internal call identifier given PARAMETER psi$c_err_notimp = '0000000A'X ! A feature that is not yet implemented was requested PARAMETER psi$c_err_nodtes = '0000000B'X ! No DTE is available on which to make the call PARAMETER psi$c_err_nosuchdte = '0000000C'X ! The specified DTE is not known PARAMETER psi$c_err_nosuchpvc = '0000000D'X ! The specified PVC is not known PARAMETER psi$c_err_nosuchnet = '0000000E'X ! The specified network is not known PARAMETER psi$c_err_nolocal = '0000000F'X ! The ACP has run out of local workspace memory PARAMETER psi$c_err_nononpag = '00000010'X ! There is insufficient free non-paged pool PARAMETER psi$c_err_nol3 = '00000011'X ! Internal error PARAMETER psi$c_err_badname = '00000012'X ! Bad counted string parameter PARAMETER psi$c_err_l3err = '00000013'X ! Error returned from level 3 PARAMETER psi$c_err_pvcalracc = '00000014'X ! PVC already accessed PARAMETER psi$c_err_bad_pvcname = '00000015'X ! Accessing PVC on wrong channel PARAMETER psi$c_err_nosuchgroup = '00000016'X ! The specified GROUP is not known PARAMETER psi$c_err_invexp = '00000017'X ! Invalid use of expedited data negotiation PARAMETER psi$c_err_invtrstdly = '00000018'X ! Invalid use of ISO end-to-end transit delay facility ! ! Phase V additions ! PARAMETER psi$c_err_NoAccess = '00000019'X ! The X25 Access module has not been ! created/enabled. PARAMETER psi$c_err_DteNotInClass = '0000001A'X ! The requested dte is not a member of the ! resolved dteclass. PARAMETER psi$c_err_DteNotAvailable = '0000001B'X ! The requested dte can't carry calls. PARAMETER psi$c_err_NoActiveMembers = '0000001C'X ! The resolved dteclass has no active members. PARAMETER psi$c_err_NoSuchTemplate = '0000001D'X ! The requested template does not exist. PARAMETER psi$c_err_NoSuchPort = '0000001E'X ! The port to be cleared does not exist. PARAMETER psi$c_err_NoSuchFilter = '0000001F'X ! The requested filter does not exist. PARAMETER psi$c_err_FilterAlreadySet = '00000020'X ! ACPCONTROL - filter already in use or ! already created. PARAMETER psi$c_err_DteNotInGroup = '00000021'X ! The resolved dte is not a member of the ! specified group. PARAMETER psi$c_err_DteClassNotSpecified = '00000022'X ! no dteclass could be resolved PARAMETER psi$c_err_Security = '00000023'X ! Security error PARAMETER psi$c_err_NoSuchSecurityFilter = '00000024'X ! the named security filter was not found PARAMETER psi$c_err_NoSuchSecurityDtecls = '00000025'X ! the named security dteclass was not found PARAMETER psi$c_err_DestNotKnown = '00000026'X ! Destination unknown PARAMETER psi$c_err_NoTransit = '00000027'X ! Transit Error PARAMETER psi$c_err_AddressNotReachable = '00000028'X ! Called address not reachable PARAMETER psi$c_err_IncompatibleLCN = '00000029'X ! Incompatible or reserved LCN PARAMETER psi$c_err_ClearedByDirective = '0000002A'X ! Clear directive issued PARAMETER psi$c_err_InvalidParameter = '0000002B'X ! Invalid parameter ! For compatibility only PARAMETER psi$c_msl_table_base = '0000001A'X PARAMETER psi$c_err_nosuchdteclass = '0000000E'X PARAMETER psi$c_err_nolines = '0000000B'X PARAMETER psi$c_err_nosuchline = '0000000C'X ! ! Special function codes for IO$_NETCONTROL ! PARAMETER psi$c_interrupt = '00000001'X ! Interrupt NETCONTROL function code PARAMETER psi$k_interrupt = '00000001'X ! Interrupt NETCONTROL function code PARAMETER psi$c_intack = '00000002'X ! Interrupt acknowledge NETCONTROL PARAMETER psi$k_intack = '00000002'X ! Interrupt acknowledge NETCONTROL PARAMETER psi$c_reset = '00000003'X ! Reset NETCONTROL function Code PARAMETER psi$k_reset = '00000003'X ! Reset NETCONTROL function Code ! ! Values 4 to 6 inclusive reserved for all time. ! They were the old NV IO$_NETCONTROL functions. ! PARAMETER psi$c_restart = '00000007'X ! Acknowlege Restart on PVC PARAMETER psi$k_restart = '00000007'X ! Acknowlege Restart on PVC PARAMETER psi$c_x29_set = '00000008'X ! Set Parameter for an NV unit PARAMETER psi$k_x29_set = '00000008'X ! PARAMETER psi$c_x29_read = '00000009'X ! Read Parameter for an NV unit PARAMETER psi$k_x29_read = '00000009'X ! PARAMETER psi$c_x29_read_specific = '0000000A'X ! Read specific Parameter for an NV unit PARAMETER psi$k_x29_read_specific = '0000000A'X ! ! ! Parameter type codes for use with x29_set and x29_read ! PARAMETER psi$k_x29_temp_nohang = '00000001'X ! NV tempory NoHangup PARAMETER psi$k_x29_pad_params = '00000002'X ! PAD parameters PARAMETER psi$k_x29_int_action = '00000003'X ! NV action on receiving an interrupt PARAMETER psi$k_x29_break_action = '00000004'X ! NV action on receiving a break indication PARAMETER psi$k_x29_hold_timer = '00000005'X ! NV output data hold timer PARAMETER psi$k_x29_host_echo_params = '00000006'X ! NV host echo params PARAMETER psi$k_x29_local_echo_params = '00000007'X ! NV local echo params PARAMETER psi$k_x29_hangup_params = '00000008'X ! NV hangup params, for clearing call PARAMETER psi$k_x29_pad_reselection = '00000009'X ! NV PAD reselection facility PARAMETER psi$m_x29_calculated = '00000001'X PARAMETER psi$m_x29_add_value = '00000002'X PARAMETER psi$m_x29_user_value = '00000004'X PARAMETER psi$m_x29_if_changed = '00000008'X PARAMETER psi$c_x29_param_length = '00000008'X ! length of block PARAMETER psi$k_x29_param_length = '00000008'X ! length of block STRUCTURE /psi$_x29_param/ INTEGER*2 psi$w_x29_param_ref ! The x.29 parameter reference PARAMETER psi$S_x29_calculated = 1 PARAMETER psi$V_x29_calculated = 0 ! Value is calculated PARAMETER psi$S_x29_add_value = 1 PARAMETER psi$V_x29_add_value = 1 ! Add value to parameter PARAMETER psi$S_x29_user_value = 1 PARAMETER psi$V_x29_user_value = 2 ! Use last value supplied in x29_pad_params PARAMETER psi$S_x29_if_changed = 1 PARAMETER psi$V_x29_if_changed = 3 ! only set param if changed PARAMETER psi$S_x29_fill_2 = 12 PARAMETER psi$V_x29_fill_2 = 4 BYTE %FILL (2) ! unused bits Must be zero BYTE psi$b_x29_param_value ! Value for the parameter PARAMETER psi$S_x29_fill_1 = 24 PARAMETER psi$V_x29_fill_1 = 40 BYTE %FILL (3) ! unused must be zero END STRUCTURE ! psi$_x29_param PARAMETER psi$m_x29_action_reset = '00000001'X PARAMETER psi$m_x29_action_purge = '00000002'X PARAMETER psi$m_x29_action_clear = '00000004'X PARAMETER psi$c_x29_action_length = '00000014'X ! Length of the action block PARAMETER psi$k_x29_action_length = '00000014'X ! Length of the action block STRUCTURE /psi$_x29_flags/ PARAMETER psi$S_x29_action_reset = 1 PARAMETER psi$V_x29_action_reset = 0 ! Reset circuit PARAMETER psi$S_x29_action_purge = 1 PARAMETER psi$V_x29_action_purge = 1 ! Purge input data in NV PARAMETER psi$S_x29_action_clear = 1 PARAMETER psi$V_x29_action_clear = 2 ! Clear circuit CHARACTER*16 psi$t_x29_action_string ! counted action string BYTE %FILL (1) END STRUCTURE ! psi$_x29_flags ! ! X29 PAD parameter types, used with x29_pad_params. ! ! Key: ! B - boolean ! M - bit mask ! C - character ! I - integer ! PARAMETER psi$k_x29_par_escape = '00000001'X ! BC PAD escape to command mode character PARAMETER psi$k_x29_par_echo = '00000002'X ! B Echoing PARAMETER psi$k_x29_par_forward = '00000003'X ! M Data forwarding terminators PARAMETER psi$k_x29_par_timeout = '00000004'X ! BI Forwarding timeout PARAMETER psi$k_x29_par_hostsync = '00000005'X ! B Host sync PARAMETER psi$k_x29_par_messages = '00000006'X ! M PAD message control PARAMETER psi$k_x29_par_break = '00000007'X ! M Action on break PARAMETER psi$k_x29_par_discard = '00000008'X ! B Discard output at PAD PARAMETER psi$k_x29_par_crfill = '00000009'X ! I CR fill PARAMETER psi$k_x29_par_wrap = '0000000A'X ! BI Wrap column PARAMETER psi$k_x29_par_speed = '0000000B'X ! I Terminal line speed PARAMETER psi$k_x29_par_ttsync = '0000000C'X ! B TT sync PARAMETER psi$k_x29_par_new_line = '0000000D'X ! M Line feed insertion by PAD PARAMETER psi$k_x29_par_lffill = '0000000E'X ! I LF fill PARAMETER psi$k_x29_par_edit = '0000000F'X ! B PAD editing enable PARAMETER psi$k_x29_par_delete = '00000010'X ! C Delete-character character PARAMETER psi$k_x29_par_line_delete = '00000011'X ! C Delete-line character PARAMETER psi$k_x29_par_redisplay = '00000012'X ! C Redisplay-line character PARAMETER psi$k_x29_par_display_edit = '00000013'X ! MC Editing service signals PARAMETER psi$k_x29_par_restrict_echo = '00000014'X ! M Echo mask PARAMETER psi$k_x29_par_parity = '00000015'X ! M Parity generation and checking PARAMETER psi$k_x29_par_page_wait = '00000016'X ! BI Page wait line PARAMETER psi$k_x29_last_1980_x3_param = '00000012'X PARAMETER psi$k_x29_last_1984_x3_param = '00000016'X ! ! PSI accounting record definitions ! PARAMETER acr$k_psi = '0000000F'X ! PSI record type PARAMETER acr$k_psi_vct = '00000001'X ! PSI virtual circuit termination packet ! ! Virtual circuit termination packet layout ! PARAMETER acr$m_psi_out = '00000001'X PARAMETER acr$m_psi_pvc = '00000002'X PARAMETER acr$m_psi_x29 = '00000004'X PARAMETER acr$m_psi_access = '00000008'X PARAMETER acr$m_psi_gateway = '00000010'X PARAMETER acr$m_psi_fail = '00000020'X PARAMETER acr$m_psi_revchg = '00000001'X PARAMETER acr$m_psi_fast = '00000002'X PARAMETER acr$m_psi_cug = '00000004'X PARAMETER acr$m_psi_bcug = '00000008'X PARAMETER acr$m_psi_fast_res = '00000010'X PARAMETER acr$m_psi_busy = '00000001'X PARAMETER acr$m_psi_out_of_order = '00000002'X PARAMETER acr$m_psi_systematic = '00000004'X STRUCTURE /psi$_acr_vct/ INTEGER*4 %FILL ! Packet header PARAMETER acr$S_psi_out = 1 PARAMETER acr$V_psi_out = 0 ! Outgoing SVC PARAMETER acr$S_psi_pvc = 1 PARAMETER acr$V_psi_pvc = 1 ! PVC PARAMETER acr$S_psi_x29 = 1 PARAMETER acr$V_psi_x29 = 2 ! X29 circuit PARAMETER acr$S_psi_access = 1 PARAMETER acr$V_psi_access = 3 ! Used PSI-access PARAMETER acr$S_psi_gateway = 1 PARAMETER acr$V_psi_gateway = 4 ! Used gateway or multi-host PARAMETER acr$S_psi_fail = 1 PARAMETER acr$V_psi_fail = 5 ! Access failed INTEGER*2 acr$w_psi_lcn ! Logical channel number INTEGER*4 acr$q_psi_start_time(2) ! Start time INTEGER*2 acr$w_psi_source ! Offset to Source INTEGER*2 acr$w_psi_association ! Offset to Call Association INTEGER*2 acr$w_psi_rdte ! Offset to remote DTE address INTEGER*2 acr$w_psi_ldte ! Offset to local DTE address INTEGER*2 acr$w_psi_dteclass ! Offset to DTE Class INTEGER*2 acr$w_psi_pvc_name ! Offset to PVC name INTEGER*2 acr$w_psi_remote_nsap ! Offset to Remote NSAP INTEGER*2 acr$w_psi_local_nsap ! Offset to Local NSAP INTEGER*4 acr$q_psi_bytes_tx(2) ! Bytes sent INTEGER*4 acr$q_psi_bytes_rx(2) ! Bytes received INTEGER*4 acr$q_psi_segments_tx(2) ! Segments sent INTEGER*4 acr$q_psi_segments_rx(2) ! Segments received INTEGER*4 acr$q_psi_packets_tx(2) ! Packets sent INTEGER*4 acr$q_psi_packets_rx(2) ! Packets received INTEGER*4 acr$q_psi_messages_tx(2) ! Messages sent INTEGER*4 acr$q_psi_messages_rx(2) ! Messages received INTEGER*2 acr$w_psi_inc_thru ! Incoming thruput class INTEGER*2 acr$w_psi_out_thru ! Outgoing thruput class INTEGER*2 acr$w_psi_inc_window ! Incoming window size INTEGER*2 acr$w_psi_out_window ! Outgoing window size INTEGER*2 acr$w_psi_inc_psize ! Incoming packet size INTEGER*2 acr$w_psi_out_psize ! Outgoing packet size PARAMETER acr$S_psi_revchg = 1 PARAMETER acr$V_psi_revchg = 0 ! Reverse charging PARAMETER acr$S_psi_fast = 1 PARAMETER acr$V_psi_fast = 1 ! Fast select PARAMETER acr$S_psi_cug = 1 PARAMETER acr$V_psi_cug = 2 ! Closed user group used PARAMETER acr$S_psi_bcug = 1 PARAMETER acr$V_psi_bcug = 3 ! Bilateral CUG used PARAMETER acr$S_psi_fast_res = 1 PARAMETER acr$V_psi_fast_res = 4 ! Fast select (restricted response) INTEGER*2 acr$w_psi_cug_number ! Closed user group number INTEGER*2 acr$w_psi_orig_dte ! Offset to Originally Called DTE INTEGER*2 acr$w_psi_clear_facs ! Offset to clearing facilities INTEGER*2 acr$w_psi_call_facs ! Offset to calling facilities INTEGER*2 acr$w_psi_accept_facs ! Offset to accepting facilities BYTE acr$b_psi_reason ! Clearing reason BYTE acr$b_psi_cause ! Clearing cause BYTE acr$b_psi_diag ! Clearing diagnostic PARAMETER acr$S_psi_busy = 1 PARAMETER acr$V_psi_busy = 0 ! Number busy PARAMETER acr$S_psi_out_of_order = 1 PARAMETER acr$V_psi_out_of_order = 1 ! Number out of order PARAMETER acr$S_psi_systematic = 1 PARAMETER acr$V_psi_systematic = 2 ! Number systematically redirected INTEGER*2 acr$w_psi_unit ! Offset to NW or NV unit name INTEGER*2 acr$w_psi_protocol ! Offset to protocol ID string INTEGER*2 acr$w_psi_group ! Offset to CUG Name ! Start of variable length part BYTE %FILL (2) END STRUCTURE ! psi$_acr_vct PARAMETER acr$k_psi_vct_var = '00000082'X ! Start of variable part !DEC$ END OPTIONS