subroutine read_packet(packet_type,event,pointer, 1 packet_size) * implicit integer (a-z) * include 'listen_common.inc' * byte event(0:3071) integer*2 packet_type,packet_size integer*4 pointer byte packet_bytes(3072) character packet_data*3072 character temp*80 character field_list*512 integer*2 temp_word integer*4 temp_longword character temp_quadword*8 * include 'nsadef.for' include '($acldef)' * * I don't like to use EQUIVALANCE statements, but I'm lazy right now... * * CHARACTER BYTE * | | * v v equivalence (packet_data,packet_bytes) * length_data = packet_size - 4 ! I.e., without four-byte header if(length_data .eq. 0)return status = lib$movc3(length_data, 1 event(nsa$r_packet_list + nsa$r_packet_data + pointer), 2 packet_bytes) * num_items = num_items + 1 * if(packet_type .eq. nsa$c_pkt_access_desired)then * data_label(num_items) = 'Access desired:' call lib$movc3(4,packet_bytes,temp_longword) write(temp,1020)temp_longword 1020 format(Z8.8) data_value(num_items) = temp(1:8) access_desired = temp_longword * else if(packet_type .eq. nsa$c_pkt_account)then * data_label(num_items) = 'Account:' data_value(num_items) = packet_data(1:length_data) account = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_alarm_name)then * data_label(num_items) = 'Alarm Name:' data_value(num_items) = packet_data(1:length_data) alarm_name = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_appl_data)then * data_label(num_items) = 'Application Data:' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_audit_flags)then * data_label(num_items) = 'Audit Flags:' call lib$movc3(4,packet_bytes,temp_longword) write(temp,1020)temp_longword data_value(num_items) = temp(1:8) audit_flags = temp_longword * else if(packet_type .eq. nsa$c_pkt_audit_name)then * data_label(num_items) = 'Audit Name:' data_value(num_items) = packet_data(1:length_data) audit_name = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_system_name)then * data_label(num_items) = 'System Name:' data_value(num_items) = packet_data(1:length_data) system_name = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_system_id)then * data_label(num_items) = 'System ID:' call lib$movc3(4,packet_bytes,temp_longword) system_id_area = temp_longword/1024 system_id_address = mod(temp_longword,1024) ndig_area = 8 ndig_address = 8 if(system_id_area .gt. 0)then ndig_area = alog10(float(system_id_area)) + 1 endif if(system_id_address .gt. 0)then ndig_address = alog10(float(system_id_address)) + 1 endif * write(temp,1030)system_id_area,system_id_address 1030 format(I,'.',I) data_value(num_items) = temp system_id = temp_longword * else if(packet_type .eq. nsa$c_pkt_device_name)then * data_label(num_items) = 'Device Name:' data_value(num_items) = packet_data(1:length_data) device_name = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_dismount_flags)then * data_label(num_items) = 'Dismount Flags:' call lib$movc3(4,packet_bytes,temp_longword) write(temp,1020)temp_longword data_value(num_items) = temp(1:8) dismount_flags = temp_longword * else if(packet_type .eq. nsa$c_pkt_holder_name)then * data_label(num_items) = 'Holder Name:' data_value(num_items) = packet_data(1:length_data) holder_name = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_holder_owner)then * data_label(num_items) = 'Holder Owner:' call lib$movc3(4,packet_bytes,temp_longword) call convert_uic(temp_longword,temp) call str$trim(temp,temp,lt) data_value(num_items) = temp(1:lt) holder_owner = temp_longword * else if(packet_type .eq. nsa$c_pkt_id_attributes)then * data_label(num_items) = 'New ID Attributes:' call lib$movc3(4,packet_bytes,temp_longword) write(temp,1020)temp_longword data_value(num_items) = temp(1:8) id_attributes = temp_longword * else if(packet_type .eq. nsa$c_pkt_id_name)then * data_label(num_items) = 'Identifier:' data_value(num_items) = packet_data(1:length_data) id_name = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_id_new_name)then * data_label(num_items) = 'New Identifier Name:' data_value(num_items) = packet_data(1:length_data) id_new_name = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_id_value)then * data_label(num_items) = 'Identifier Value:' call lib$movc3(4,packet_bytes,temp_longword) write(temp,1025)temp_longword 1025 format('%X',Z8.8) data_value(num_items) = temp(1:8) id_value = temp_longword * else if(packet_type .eq. nsa$c_pkt_id_new_value)then * data_label(num_items) = 'New Identifier Value:' call lib$movc3(4,packet_bytes,temp_longword) write(temp,1025)temp_longword data_value(num_items) = temp(1:8) id_new_value = temp_longword * else if(packet_type .eq. nsa$c_pkt_identifiers_used)then * data_label(num_items) = 'Identifiers Used:' * * This section is not complete; the data consists of a longword vector * of identifiers used to gain access to the object. For now, we are just * looking at the first identifier in the list. * call lib$movc3(4,packet_bytes,temp_longword) write(temp,1025)temp_longword data_value(num_items) = temp(1:8) * else if(packet_type .eq. nsa$c_pkt_image_name)then * data_label(num_items) = 'Image Name:' data_value(num_items) = packet_data(1:length_data) image_name = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_install_file)then * data_label(num_items) = 'Installed File:' data_value(num_items) = packet_data(1:length_data) install_file = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_install_flags)then * data_label(num_items) = 'Install Flags:' call lib$movc3(4,packet_bytes,temp_longword) write(temp,1020)temp_longword data_value(num_items) = temp(1:8) install_flags = temp_longword * else if(packet_type .eq. nsa$c_pkt_install_privs)then * data_label(num_items) = 'Installed Privileges:' call lib$movc3(4,packet_bytes,temp_longword) write(temp,1020)temp_longword data_value(num_items) = temp(1:8) install_privs = temp_longword * else if(packet_type .eq. nsa$c_pkt_logical_name)then * data_label(num_items) = 'Logical Name:' data_value(num_items) = packet_data(1:length_data) logical_name = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_mount_flags)then * data_label(num_items) = 'Mount Flags:' call lib$movc3(4,packet_bytes,temp_longword) write(temp,1020)temp_longword data_value(num_items) = temp(1:8) mount_flags = temp_longword * else if(packet_type .eq. nsa$c_pkt_new_data)then * * Note : This section not complete. Don't know what this is! * data_label(num_items) = 'New Data:' write(temp,1026)(packet_bytes(i),i=1,min0(length_data,20)) 1026 format(20Z2.2) data_value(num_items) = temp * else if(packet_type .eq. nsa$c_pkt_object_id)then * * Note : This section not complete. Don't know how to handle this! * data_label(num_items) = 'Object ID' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_object_min_class)then * * Note : This section not complete. Don't know what this is! * data_label(num_items) = 'Object Minclass:' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_object_max_class)then * * Note : This section not complete. Don't know what this is! * data_label(num_items) = 'Object Maxclass' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_object_name)then * data_label(num_items) = 'Object Name:' data_value(num_items) = packet_data(1:length_data) object_name = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_object_name_2)then * data_label(num_items) = 'Object Name_2:' data_value(num_items) = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_object_owner)then * data_label(num_items) = 'Object Owner' call lib$movc3(4,packet_bytes,temp_longword) call convert_uic(temp_longword,temp) call str$trim(temp,temp,lt) data_value(num_items) = temp(1:lt) object_owner = temp_longword * else if(packet_type .eq. nsa$c_pkt_object_protection)then * data_label(num_items) = 'Object Protection:' call lib$movc3(4,packet_bytes,temp_longword) write(temp,1020)temp_longword data_value(num_items) = temp(1:8) * else if(packet_type .eq. nsa$c_pkt_object_type)then * data_label(num_items) = 'Object Type:' call lib$movc3(4,packet_bytes,temp_longword) data_value(num_items) = '(Unknown)' if(temp_longword .eq. acl$c_file) 1 data_value(num_items)='File' if(temp_longword .eq. acl$c_device) 1 data_value(num_items)='Device' if(temp_longword .eq. acl$c_jobctl_queue) 1 data_value(num_items)='Job controller queue' if(temp_longword .eq. acl$c_common_ef_cluster) 1 data_value(num_items)='Comment event flag clusters' if(temp_longword .eq. acl$c_logical_name_table) 1 data_value(num_items)='Logical name table' if(temp_longword .eq. acl$c_process) 1 data_value(num_items)='Process' if(temp_longword .eq. acl$c_group_global_section) 1 data_value(num_items)='Group global section' if(temp_longword .eq. acl$c_system_global_section) 1 data_value(num_items)='System global section' * else if(packet_type .eq. nsa$c_pkt_original_data)then * data_label(num_items) = 'Original Data' write(temp,1026)(packet_bytes(i),i=1,min0(length_data,20)) data_value(num_items) = temp * else if(packet_type .eq. nsa$c_pkt_parent_id)then * data_label(num_items) = 'Parent ID:' call lib$movc3(4,packet_bytes,temp_longword) write(temp,1020)temp_longword data_value(num_items) = temp(1:8) parent_id = temp_longword * else if(packet_type .eq. nsa$c_pkt_parent_name)then * data_label(num_items) = 'Parent Name:' data_value(num_items) = packet_data(1:length_data) parent_name = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_parent_owner)then * data_label(num_items) = 'Parent Owner:' call lib$movc3(4,packet_bytes,temp_longword) call convert_uic(temp_longword,temp) call str$trim(temp,temp,lt) data_value(num_items) = temp(1:lt) parent_owner = temp_longword * else if(packet_type .eq. nsa$c_pkt_parent_username)then * data_label(num_items) = 'Parent Username:' data_value(num_items) = packet_data(1:length_data) parent_username = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_password)then * data_label(num_items) = 'Password Used:' data_value(num_items) = packet_data(1:length_data) password = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_privs_used)then * data_label(num_items) = 'Privileges Used:' call lib$movc3(4,packet_bytes,temp_longword) write(temp,1020)temp_longword data_value(num_items) = temp(1:8) privs_used = temp_longword * else if(packet_type .eq. nsa$c_pkt_process_id)then * data_label(num_items) = 'Process ID:' call lib$movc3(4,packet_bytes,temp_longword) write(temp,1020)temp_longword data_value(num_items) = temp(1:8) process_id = temp_longword * else if(packet_type .eq. nsa$c_pkt_process_name)then * data_label(num_items) = 'Process Name:' data_value(num_items) = packet_data(1:length_data) process_name = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_remote_node_id)then * data_label(num_items) = 'Remote Node Address:' call lib$movc3(4,packet_bytes,temp_longword) remote_node_id_area = temp_longword/1024 remote_node_id_address = mod(temp_longword,1024) ndig_area = 8 ndig_address = 8 if(remote_node_id_area .gt. 0)then ndig_area = alog10(float(remote_node_id_area)) + 1 endif if(remote_node_id_address .gt. 0)then ndig_address = alog10(float(remote_node_id_address)) + 1 endif write(temp,1030)remote_node_id_area,remote_node_id_address data_value(num_items) = temp remote_node_id = temp_longword * else if(packet_type .eq. nsa$c_pkt_remote_nodename)then * data_label(num_items) = 'Remote Node:' data_value(num_items) = packet_data(1:length_data) remote_nodename = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_remote_username)then * data_label(num_items) = 'Remote Username:' data_value(num_items) = packet_data(1:length_data) remote_username = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_subject_class)then * data_label(num_items) = 'Subject Class:' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_subject_owner)then * data_label(num_items) = 'Subject Owner:' call lib$movc3(4,packet_bytes,temp_longword) call convert_uic(temp_longword,temp) call str$trim(temp,temp,lt) data_value(num_items) = temp(1:lt) subject_owner = temp_longword * else if(packet_type .eq. nsa$c_pkt_final_status)then * data_label(num_items) = 'Final Status:' call lib$movc3(4,packet_bytes,temp_longword) final_status = temp_longword call sys$getmsg(%val(temp_longword),ls,temp,,) data_value(num_items) = temp(1:ls) * else if(packet_type .eq. nsa$c_pkt_terminal)then * data_label(num_items) = 'Terminal:' data_value(num_items) = packet_data(1:length_data) terminal = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_time_stamp)then * data_label(num_items) = 'Time Stamp:' call lib$movc3(8,packet_bytes,temp_quadword) temp = ' ' time_stamp = ' ' if(temp_quadword .ne. char(0))then call sys$asctim(,temp,temp_quadword,) time_stamp = temp if(temp(1:1) .eq. ' ')temp = temp(2:) endif call str$trim(temp,temp,lt) data_value(num_items) = temp(1:lt) * else if(packet_type .eq. nsa$c_pkt_uaf_add)then * data_label(num_items) = 'Record Added:' data_value(num_items) = packet_data(1:length_data) uaf_add = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_uaf_delete)then * data_label(num_items) = 'Record Deleted:' data_value(num_items) = packet_data(1:length_data) uaf_delete = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_uaf_modify)then * data_label(num_items) = 'Record Modified:' data_value(num_items) = packet_data(1:length_data) uaf_modify = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_uaf_copy)then * data_label(num_items) = 'Record Copied:' data_value(num_items) = packet_data(1:length_data) uaf_copy = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_uaf_fields)then * data_label(num_items) = 'Fields:' * call lib$movc3(8,packet_bytes,temp_quadword) field_mask = packet_data(1:8) call get_fields(temp_quadword,field_list) data_value(num_items) = field_list * else if(packet_type .eq. nsa$c_pkt_username)then * data_label(num_items) = 'Username:' data_value(num_items) = packet_data(1:length_data) username = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_uaf_source)then * data_label(num_items) = 'UAF Source:' data_value(num_items) = packet_data(1:length_data) uaf_source = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_uaf_rename)then * data_label(num_items) = 'Record Renamed:' data_value(num_items) = packet_data(1:length_data) uaf_rename = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_volume_name)then * data_label(num_items) = 'Volume Name:' data_value(num_items) = packet_data(1:length_data) volume_name = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_volume_set_name)then * data_label(num_items) = 'Volume Set Name:' data_value(num_items) = packet_data(1:length_data) volume_set_name = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_server_account)then * data_label(num_items) = 'Server Account:' data_value(num_items) = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_server_system_id)then * data_label(num_items) = 'Server System ID:' call lib$movc3(4,packet_bytes,temp_longword) write(temp,1030)temp_longword data_value(num_items) = temp(1:6) * else if(packet_type .eq. nsa$c_pkt_server_system_name)then * data_label(num_items) = 'Server System Name:' data_value(num_items) = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_server_final_status)then * data_label(num_items) = 'Server Final Status:' call lib$movc3(4,packet_bytes,temp_longword) write(temp,1020)temp_longword data_value(num_items) = temp(1:8) * else if(packet_type .eq. nsa$c_pkt_server_image_name)then * data_label(num_items) = 'Server Image:' data_value(num_items) = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_server_parent_id)then * data_label(num_items) = 'Server Parent ID:' call lib$movc3(4,packet_bytes,temp_longword) write(temp,1020)temp_longword data_value(num_items) = temp(1:8) * else if(packet_type .eq. nsa$c_pkt_server_parent_owner)then * data_label(num_items) = 'Server Parent Owner:' call lib$movc3(4,packet_bytes,temp_longword) call convert_uic(temp_longword,temp) call str$trim(temp,temp,lt) data_value(num_items) = temp(1:lt) * else if(packet_type .eq. nsa$c_pkt_server_parent_name)then * data_label(num_items) = 'Server Parent Name:' data_value(num_items) = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_server_process_id)then * data_label(num_items) = 'Server Process ID:' call lib$movc3(4,packet_bytes,temp_longword) write(temp,1020)temp_longword data_value(num_items) = temp(1:8) * else if(packet_type .eq. nsa$c_pkt_server_process_name)then * data_label(num_items) = 'Server Process Name:' data_value(num_items) = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_server_subject_class)then * data_label(num_items) = 'Server Subject Class:' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_server_subject_owner)then * data_label(num_items) = 'Server Subject Owner:' call lib$movc3(4,packet_bytes,temp_longword) call convert_uic(temp_longword,temp) call str$trim(temp,temp,lt) data_value(num_items) = temp(1:lt) * else if(packet_type .eq. nsa$c_pkt_server_terminal)then * data_label(num_items) = 'Server Terminal:' data_value(num_items) = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_server_time_stamp)then * data_label(num_items) = 'Server Time Stamp:' call lib$movc3(8,packet_bytes,temp_quadword) temp = ' ' if(temp_quadword .ne. char(0))then call sys$asctim(,temp,temp_quadword,) if(temp(1:1) .eq. ' ')temp = temp(2:) endif call str$trim(temp,temp,lt) data_value(num_items) = temp(1:lt) * else if(packet_type .eq. nsa$c_pkt_server_username)then * data_label(num_items) = 'Server Username:' data_value(num_items) = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_audit_disable)then * * Not documented * data_label(num_items) = 'Audit Disable:' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_audit_enable)then * * Not documented * data_label(num_items) = 'Audit Enable:' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_alarm_disable)then * * Not complete (vector data) * data_label(num_items) = 'Alarm Disable' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_alarm_enable)then * * Not complete (vector data) * data_label(num_items) = 'Alarm Enable' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_performance_nop)then * data_label(num_items) = 'Performance NOP:' data_value(num_items) = '(Huh?)' * else if(packet_type .eq. nsa$c_pkt_reply_mailbox)then * data_label(num_items) = 'Reply Mailbox:' data_value(num_items) = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_default_username)then * data_label(num_items) = 'Default Username:' data_value(num_items) = packet_data(1:length_data) default_username = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_local_username)then * data_label(num_items) = 'Local Username:' data_value(num_items) = packet_data(1:length_data) local_username = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_field_name)then * * Not well-documented * data_label(num_items) = 'Field Name:' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_listener_device)then * data_label(num_items) = 'Listener Device:' data_value(num_items) = packet_data(1:length_data) listener_device = packet_data(1:length_data) * else if(packet_type .eq. nsa$c_pkt_reserved_1_1)then * data_label(num_items) = 'Reserved_1_1' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_reserved_1_2)then * data_label(num_items) = 'Reserved_1_2' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_reserved_1_3)then * data_label(num_items) = 'Reserved_1_3' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_reserved_1_4)then * data_label(num_items) = 'Reserved_1_4' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_reserved_1_5)then * data_label(num_items) = 'Reserved_1_5' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_reserved_1_6)then * data_label(num_items) = 'Reserved_1_6' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_reserved_1_7)then * data_label(num_items) = 'Reserved_1_7' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_reserved_1_8)then * data_label(num_items) = 'Reserved_1_8' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_customer_1)then * data_label(num_items) = 'Customer_1' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_customer_2)then * data_label(num_items) = 'Customer_2' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_customer_3)then * data_label(num_items) = 'Customer_3' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_customer_4)then * data_label(num_items) = 'Customer_4' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_customer_5)then * data_label(num_items) = 'Customer_5' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_customer_6)then * data_label(num_items) = 'Customer_6' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_customer_7)then * data_label(num_items) = 'Customer_7' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_customer_8)then * data_label(num_items) = 'Customer_8' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_css_1)then * data_label(num_items) = 'CSS_1' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_css_2)then * data_label(num_items) = 'CSS_2' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_css_3)then * data_label(num_items) = 'CSS_3' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_css_4)then * data_label(num_items) = 'CSS_4' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_css_5)then * data_label(num_items) = 'CSS_5' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_css_6)then * data_label(num_items) = 'CSS_6' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_css_7)then * data_label(num_items) = 'CSS_7' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_css_8)then * data_label(num_items) = 'CSS_8' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_lp_1)then * data_label(num_items) = 'LP_1' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_lp_2)then * data_label(num_items) = 'LP_2' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_lp_3)then * data_label(num_items) = 'LP_3' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_lp_4)then * data_label(num_items) = 'LP_4' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_lp_5)then * data_label(num_items) = 'LP_5' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_lp_6)then * data_label(num_items) = 'LP_6' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_lp_7)then * data_label(num_items) = 'LP_7' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_lp_8)then * data_label(num_items) = 'LP_8' data_value(num_items) = '(Incomplete)' * else if(packet_type .eq. nsa$c_pkt_max_code)then * data_label(num_items) = 'Max Code:' data_value(num_items) = '(Incomplete)' * else * data_label(num_items) = 'Unknown Code:' data_value(num_items) = ' ' * endif * return * end * *********************************************************** * subroutine convert_uic(numeric_val,uic_val) * implicit integer*4 (A-Z) * integer*4 numeric_val character*(*) uic_val * character group*6,member*6 integer*4 temp_longword integer*2 uic(2) * equivalence (uic,temp_longword) * temp_longword = numeric_val write(group,1000)uic(1) 1000 format(O6.6) write(member,1000)uic(2) jg = str$find_first_not_in_set(group,' ' // '0') jm = str$find_first_not_in_set(member,' ' // '0') write(uic_val,1010)group(jg:),member(jm:) 1010 format('[',A,',',A,']') * return end * ****************************************************** * subroutine get_fields(mask,list) * integer*4 mask(2) character list*(*) * character names(48)*10 * logical btest,first * data names/'ACCESS','ACCOUNT','ASTLM','BATCH','BIOLM','BYTLM', 1 'CLI','CLITABLES','CPULIM','DEFPRI','DEVICE','DIALUP', 2 'DIOLM','DIRECTORY','ENQLM','EXPIRATION','FILLM', 3 'FLAGS','INTERACTIVE','JTQUOTA','LGICMD','LOCAL', 4 'MAXDETACH','MAXJOBS','MAXACCTJOB','NETWORK', 5 'OWNER','PASSWORD','PBYTLM','PFLAGS','P_RESTRICT', 6 'PGFLQUOTA','PRCLM','PRIMEDAYS','PRIO','PRIV','PWDLIFE', 7 'PWDMIN','QUEPRIO','REMOTE','SFLAGS', 8 'S_RESTRICT','SHRFILLM', 8 'TQELM','UIC','WSDEF','WSEXT','WSQUO'/ * first = .true. list = ' ' do i=0,31 if(btest(mask(1),i))then if(first)then list = names(i+1) first = .false. else call str$trim(list,list,ll) list(ll+1:) = ' ' // names(i+1) endif endif enddo * do i=0,15 if(btest(mask(2),i))then if(first)then list = names(i+32+1) else call str$trim(list,list,ll) list(ll+1:) = ' ' // names(i+32+1) endif endif enddo * return end