[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference azur::mcc

Title:DECmcc user notes file. Does not replace IPMT.
Notice:Use IPMT for problems. Newsletter location in note 6187
Moderator:TAEC::BEROUD
Created:Mon Aug 21 1989
Last Modified:Wed Jun 04 1997
Last Successful Update:Fri Jun 06 1997
Number of topics:6497
Total number of notes:27359

1423.0. "Utilities to extract MCC reference data" by COL01::WELZEL (Uwe Welzel, NaC, Cologne) Fri Aug 30 1991 09:06

    Hello MCCler,
    
    we have written some commad procedures to extract reference attributes
    of MCC entities from DNS. With the command procdures from John Egolf
    in note 486 we are able to extract all necessary data to restore or re-
    build or create a new namespace an put very similiar all MCC entities
    with the old or a new namespace structure again in DNS. 
    I put the procedure as replies to this note. I hope this will save time
    and help to all who have to change the namespace.
    
    Happy MCCing Uwe
T.RTitleUserPersonal
Name		DateLines
1423.1EXTRACT_DOMAIN_REF.COMCOL01::WELZELUwe Welzel, NaC, CologneFri Aug 30 1991 09:0891
    
    
    
    
$	say:==write sys$output
$	on control_y then goto Clean_up
$say ""
$say "Opening DECmcc database to find Domains..."
$say ""

$manage/enterprise
show domain * all ref,to file=mcc_tools:domain_REF.dat
exit
$say "Creating temporary command file..."
$say ""
$say "Creating file to create all domain references load_domain_ref.COM"
$say ""

$	open/write/error=no_output_file data_REF mcc_tools:LOAD_DOMAIN_REF.COM
$	open/read/error=no_input_file data_in mcc_tools:domain_REF.dat
$	write data_REF "$Manage/enterprise"
$next_record:
$
$	read/end=done data_in record
$
$	if f$locate("Domain",record) .eq. f$length(record) then -
		goto next_record

$!  In here if we have a legal DomainName
$
$       xxx=f$element(1,".",record)     !KLUDGE to get domain name from string
$       domain_name=f$element(0," ",xxx)
$
$!read in next records until all data read
$
$find_impl:      

$ 	read/end=done data_in record
$       record=f$edit(record,"compress")
$       if f$locate("Impl",record) .ne. f$length(record)
$       then
$       say "found domain "+domain_name
$ 	write data_REF "SET DOMAIN  "+domain_name+record
$       else
$       goto find_impl
$       endif
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET DOMAIN  "+domain_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET DOMAIN  "+domain_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET DOMAIN  "+domain_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET DOMAIN  "+domain_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET DOMAIN  "+domain_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET DOMAIN  "+domain_name+record
$	goto next_record
$
$done:

$	write data_REF "EXIT"

$Clean_up:
$	close data_REF
$	close data_in
$	EXIT

$no_output_file:
$	say "Failed to create output file"
$	close data_in
$	exit

$no_input_file:
$	say "Failed to open input file"
$	close data_out
$	exit
1423.2EXTRACT_NODE4_REF.COMCOL01::WELZELUwe Welzel, NaC, CologneFri Aug 30 1991 09:0987
$	say:==write sys$output
$	on control_y then goto Clean_up
$say ""
$say "Opening DECmcc database to find NODE4s..."
$say ""

$manage/enterprise
show NODE4 * all ref,to file=mcc_tools:NODE4_REF.dat
exit
$say "Creating temporary command file..."
$say ""
$say "Creating file to create all NODE4 references load_NODE4_ref.COM"
$say ""

$	open/write/error=no_output_file data_REF mcc_tools:LOAD_NODE4_REF.COM
$	open/read/error=no_input_file data_in mcc_tools:NODE4_REF.dat
$	write data_REF "$Manage/enterprise"
$next_record:
$
$	read/end=done data_in record
$
$	if f$locate("Node4",record) .eq. f$length(record) then -
		goto next_record

$!  In here if we have a legal NODE4Name
$
$       xxx=f$element(1,".",record)     !KLUDGE to get NODE4 name from string
$       NODE4_name=f$element(0," ",xxx)
$
$!read in next records until all data read
$
$find_impl:      

$ 	read/end=done data_in record
$       record=f$edit(record,"compress")
$       if f$locate("Impl",record) .ne. f$length(record)
$       then
$       say "found NODE4 "+NODE4_name
$ 	write data_REF "SET NODE4  "+NODE4_name+record
$       else
$       goto find_impl
$       endif
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET NODE4  "+NODE4_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET NODE4  "+NODE4_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET NODE4  "+NODE4_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET NODE4  "+NODE4_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET NODE4  "+NODE4_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET NODE4  "+NODE4_name+record
$	goto next_record
$
$done:

$	write data_REF "EXIT"

$Clean_up:
$	close data_REF
$	close data_in
$	EXIT

$no_output_file:
$	say "Failed to create output file"
$	close data_in
$	exit

$no_input_file:
$	say "Failed to open input file"
$	close data_out
$	exit
1423.3EXTRACT_BRIGDE_REF.COMCOL01::WELZELUwe Welzel, NaC, CologneFri Aug 30 1991 09:1087
$	say:==write sys$output
$	on control_y then goto Clean_up
$say ""
$say "Opening DECmcc database to find BRIDGEs..."
$say ""

$manage/enterprise
show BRIDGE * all ref,to file=mcc_tools:BRIDGE_REF.dat
exit
$say "Creating temporary command file..."
$say ""
$say "Creating file to create all BRIDGE references load_BRIDGE_ref.COM"
$say ""

$	open/write/error=no_output_file data_REF mcc_tools:LOAD_BRIDGE_REF.COM
$	open/read/error=no_input_file data_in mcc_tools:BRIDGE_REF.dat
$	write data_REF "$Manage/enterprise"
$next_record:
$
$	read/end=done data_in record
$
$	if f$locate("BRIDGE",record) .eq. f$length(record) then -
		goto next_record

$!  In here if we have a legal BRIDGEName
$
$       xxx=f$element(1,".",record)     !KLUDGE to get BRIDGE name from string
$       BRIDGE_name=f$element(0," ",xxx)
$
$!read in next records until all data read
$
$find_impl:      

$ 	read/end=done data_in record
$       record=f$edit(record,"compress")
$       if f$locate("Impl",record) .ne. f$length(record)
$       then
$       say "found BRIDGE "+BRIDGE_name
$ 	write data_REF "SET BRIDGE  "+BRIDGE_name+record
$       else
$       goto find_impl
$       endif
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET BRIDGE  "+BRIDGE_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET BRIDGE  "+BRIDGE_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET BRIDGE  "+BRIDGE_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET BRIDGE  "+BRIDGE_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET BRIDGE  "+BRIDGE_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET BRIDGE  "+BRIDGE_name+record
$	goto next_record
$
$done:

$	write data_REF "EXIT"

$Clean_up:
$	close data_REF
$	close data_in
$	EXIT

$no_output_file:
$	say "Failed to create output file"
$	close data_in
$	exit

$no_input_file:
$	say "Failed to open input file"
$	close data_out
$	exit
1423.4EXTRACT_SNMP_REF.COMCOL01::WELZELUwe Welzel, NaC, CologneFri Aug 30 1991 09:1187
$	say:==write sys$output
$	on control_y then goto Clean_up
$say ""
$say "Opening DECmcc database to find SNMPs..."
$say ""

$manage/enterprise
show SNMP * all ref,to file=mcc_tools:SNMP_REF.dat
exit
$say "Creating temporary command file..."
$say ""
$say "Creating file to create all SNMP references load_SNMP_ref.COM"
$say ""

$	open/write/error=no_output_file data_REF mcc_tools:LOAD_SNMP_REF.COM
$	open/read/error=no_input_file data_in mcc_tools:SNMP_REF.dat
$	write data_REF "$Manage/enterprise"
$next_record:
$
$	read/end=done data_in record
$
$	if f$locate("SNMP",record) .eq. f$length(record) then -
		goto next_record

$!  In here if we have a legal SNMPName
$
$       SNMP_name=f$element(1," ",record)     !KLUDGE to get SNMP name from string
$       
$
$!read in next records until all data read
$
$find_impl:      

$ 	read/end=done data_in record
$       record=f$edit(record,"compress")
$       if f$locate("Impl",record) .ne. f$length(record)
$       then
$       say "found SNMP "+SNMP_name
$ 	write data_REF "SET SNMP  "+SNMP_name+record
$       else
$       goto find_impl
$       endif
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET SNMP  "+SNMP_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET SNMP  "+SNMP_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET SNMP  "+SNMP_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET SNMP  "+SNMP_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET SNMP  "+SNMP_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET SNMP  "+SNMP_name+record
$	goto next_record
$
$done:

$	write data_REF "EXIT"

$Clean_up:
$	close data_REF
$	close data_in
$	EXIT

$no_output_file:
$	say "Failed to create output file"
$	close data_in
$	exit

$no_input_file:
$	say "Failed to open input file"
$	close data_out
$	exit
1423.5EXTRACT_TERMINAL_SERVER_REF.COMCOL01::WELZELUwe Welzel, NaC, CologneFri Aug 30 1991 09:1287
$	say:==write sys$output
$	on control_y then goto Clean_up
$say ""
$say "Opening DECmcc database to find TERMINAL_SERVERs..."
$say ""

$manage/enterprise
show TERMINAL_SERVER * all ref,to file=mcc_tools:TERMINAL_SERVER_REF.dat
exit
$say "Creating temporary command file..."
$say ""
$say "Creating file to create all TERMINAL_SERVER references load_TERMINAL_SERVER_ref.COM"
$say ""

$	open/write/error=no_output_file data_REF mcc_tools:LOAD_TERMINAL_SERVER_REF.COM
$	open/read/error=no_input_file data_in mcc_tools:TERMINAL_SERVER_REF.dat
$	write data_REF "$Manage/enterprise"
$next_record:
$
$	read/end=done data_in record
$
$	if f$locate("Terminal_Server",record) .eq. f$length(record) then -
		goto next_record

$!  In here if we have a legal TERMINAL_SERVERName
$
$       xxx=f$element(1,".",record)     !KLUDGE to get TERMINAL_SERVER name from string
$       TERMINAL_SERVER_name=f$element(0," ",xxx)
$
$!read in next records until all data read
$
$find_impl:      

$ 	read/end=done data_in record
$       record=f$edit(record,"compress")
$       if f$locate("Impl",record) .ne. f$length(record)
$       then
$       say "found TERMINAL_SERVER "+TERMINAL_SERVER_name
$ 	write data_REF "SET TERMINAL_SERVER  "+TERMINAL_SERVER_name+record
$       else
$       goto find_impl
$       endif
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET TERMINAL_SERVER  "+TERMINAL_SERVER_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET TERMINAL_SERVER  "+TERMINAL_SERVER_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET TERMINAL_SERVER  "+TERMINAL_SERVER_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET TERMINAL_SERVER  "+TERMINAL_SERVER_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET TERMINAL_SERVER  "+TERMINAL_SERVER_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET TERMINAL_SERVER  "+TERMINAL_SERVER_name+record
$	goto next_record
$
$done:

$	write data_REF "EXIT"

$Clean_up:
$	close data_REF
$	close data_in
$	EXIT

$no_output_file:
$	say "Failed to create output file"
$	close data_in
$	exit

$no_input_file:
$	say "Failed to open input file"
$	close data_out
$	exit
1423.6EXTRACT_STATION_REF.COMCOL01::WELZELUwe Welzel, NaC, CologneFri Aug 30 1991 09:1387
$	say:==write sys$output
$	on control_y then goto Clean_up
$say ""
$say "Opening DECmcc database to find STATIONs..."
$say ""

$manage/enterprise
show STATION * all ref,to file=mcc_tools:STATION_REF.dat
exit
$say "Creating temporary command file..."
$say ""
$say "Creating file to create all STATION references load_STATION_ref.COM"
$say ""

$	open/write/error=no_output_file data_REF mcc_tools:LOAD_STATION_REF.COM
$	open/read/error=no_input_file data_in mcc_tools:STATION_REF.dat
$	write data_REF "$Manage/enterprise"
$next_record:
$
$	read/end=done data_in record
$
$	if f$locate("STATION",record) .eq. f$length(record) then -
		goto next_record

$!  In here if we have a legal STATIONName
$
$       xxx=f$element(1,".",record)     !KLUDGE to get STATION name from string
$       STATION_name=f$element(0," ",xxx)
$
$!read in next records until all data read
$
$find_impl:      

$ 	read/end=done data_in record
$       record=f$edit(record,"compress")
$       if f$locate("Impl",record) .ne. f$length(record)
$       then
$       say "found STATION "+STATION_name
$ 	write data_REF "SET STATION  "+STATION_name+record
$       else
$       goto find_impl
$       endif
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET STATION  "+STATION_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET STATION  "+STATION_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET STATION  "+STATION_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET STATION  "+STATION_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET STATION  "+STATION_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET STATION  "+STATION_name+record
$	goto next_record
$
$done:

$	write data_REF "EXIT"

$Clean_up:
$	close data_REF
$	close data_in
$	EXIT

$no_output_file:
$	say "Failed to create output file"
$	close data_in
$	exit

$no_input_file:
$	say "Failed to open input file"
$	close data_out
$	exit
1423.7EXTRACT_TRANSLAN_REF.COMCOL01::WELZELUwe Welzel, NaC, CologneFri Aug 30 1991 09:1386
$	say:==write sys$output
$	on control_y then goto Clean_up
$say ""
$say "Opening DECmcc database to find TRANSLANs..."
$say ""

$manage/enterprise
show TRANSLAN * all ref,to file=mcc_tools:TRANSLAN_REF.dat
exit
$say "Creating temporary command file..."
$say ""
$say "Creating file to create all TRANSLAN references load_TRANSLAN_ref.COM"
$say ""

$	open/write/error=no_output_file data_REF mcc_tools:LOAD_TRANSLAN_REF.COM
$	open/read/error=no_input_file data_in mcc_tools:TRANSLAN_REF.dat
$	write data_REF "$Manage/enterprise"
$next_record:
$
$	read/end=done data_in record
$
$	if f$locate("TRANSLAN",record) .eq. f$length(record) then -
		goto next_record

$!  In here if we have a legal TRANSLANName
$
$       xxx=f$element(1,".",record)     !KLUDGE to get TRANSLAN name from string
$       TRANSLAN_name=f$element(0," ",xxx)
$
$!read in next records until all data read
$
$find_impl:      

$ 	read/end=done data_in record
$       record=f$edit(record,"compress")
$       if f$locate("Impl",record) .ne. f$length(record)
$       then
$       say "found TRANSLAN "+TRANSLAN_name
$ 	write data_REF "SET TRANSLAN  "+TRANSLAN_name+record
$       else
$       goto find_impl
$       endif
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET TRANSLAN  "+TRANSLAN_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET TRANSLAN  "+TRANSLAN_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET TRANSLAN  "+TRANSLAN_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET TRANSLAN  "+TRANSLAN_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET TRANSLAN  "+TRANSLAN_name+record
$
$       read/end=done data_in record
$       record=f$edit(record,"compress")
$ 	write data_REF "SET TRANSLAN  "+TRANSLAN_name+record
$	goto next_record
$
$done:

$	write data_REF "EXIT"

$Clean_up:
$	close data_REF
$	close data_in
$	EXIT

$no_output_file:
$	say "Failed to create output file"
$	close data_in
$	exit

$no_input_file:
$	say "Failed to open input file"
$	close data_out
$	exit