ECC$USER:[ECC.DISPATCHING]CMOD_AUX_SERVERS.TCL;1
 
!  VAX/DEC CMS REPLACEMENT HISTORY, Element CMOD_AUX_SERVERS.TCL
!  *3    25-MAY-1994 16:43:04 JAS "adding amazon"
!  *2    15-APR-1994 11:27:41 TWF "Add more servers"
!  *1     2-NOV-1993 10:32:51 JAS "all of the cmod servers except cmod_dispatch"
!  VAX/DEC CMS REPLACEMENT HISTORY, Element CMOD_AUX_SERVERS.TCL
'P1' server CAMAC1_SERVER
'P1' server CAMAC2_SERVER
'P1' server CAMAC3_SERVER
'P1' server CAMAC4_SERVER
'P1' server BITBUS
'P1' server HLOADER_SERVER
'P1' server MHD_ANALYSIS
'P1' server LOGBOOK_SERVER
'P1' server EDGE1::analysis_server
'P1' server GANESA::analysis_server
'P1' server NEL::analysis_server
'P1' server RADIO::analysis_server
'P1' server ZENITH::analysis_server
'P1' server ZIPPY::analysis_server
'P1' server FREDJR::analysis_server
'P1' server MHD3::analysis_server
'P1' server AMAZON::analysis_server
 
ECC$USER:[ECC.DISPATCHING]CMOD_SERVERS.TCL;1
 
!  VAX/DEC CMS REPLACEMENT HISTORY, Element CMOD_SERVERS.TCL
!  *4    15-APR-1994 11:50:31 TWF "use @MDS$ROOT:[DISPATCHER]"
!  *3     2-NOV-1993 10:20:21 JAS "make it up to date"
!  *2     2-AUG-1993 14:01:21 JAS "Add some more servers"
!  *1    20-AUG-1992 12:00:30 TWF "CMOD Servers procedure"
!  VAX/DEC CMS REPLACEMENT HISTORY, Element CMOD_SERVERS.TCL
'P1' server CMOD_DISPATCH
@MDS$ROOT:[DISPATCHER]CMOD_AUX_SERVERS 'P1'
 
ECC$USER:[ECC.DISPATCHING]P_CHECK_PULSE.TCL;1
 
!  CMS REPLACEMENT HISTORY, Element P_CHECK_PULSE.TCL
!  *6     5-FEB-1996 14:44:23 TWF "Add DWSCOPE_CLOSE_TREES event"
!  *5    30-OCT-1995 11:29:14 JAS "add commented out trigger code"
!  *4     9-NOV-1993 11:19:34 TWF "Set event"
!  *3     2-NOV-1993 10:28:35 JAS "make it up to date"
!  *2    12-FEB-1993 11:39:33 TWF "Remove pulse_on actions (trigger start from PLC)"
!  *1    20-AUG-1992 11:44:32 TWF "Commands to issue on check state to pulse state"
!  CMS REPLACEMENT HISTORY, Element P_CHECK_PULSE.TCL
set current 'p1' /INCREMENT
! set tree cmod/shot=0
! do/method \engineering::ps_camac.eng:encoder set_event/arg="""START"""
setevent CMOD_PULSE
setevent CMOD_NEW_SHOT
setevent DWSCOPE_CLOSE_FILES
wait ::2
 
ECC$USER:[ECC.DISPATCHING]P_CHECK_RECOOL.TCL;1
 
dispatch/close
 
ECC$USER:[ECC.DISPATCHING]P_INIT_RECOOL.TCL;1
 
dispatch/close
 
ECC$USER:[ECC.DISPATCHING]P_PULSE_RECOOL.TCL;1
 
!  VAX/DEC CMS REPLACEMENT HISTORY, Element P_PULSE_RECOOL.TCL
!  *3     9-NOV-1993 11:20:15 TWF "Move location of statistic nodes"
!  *2     2-NOV-1993 10:31:50 JAS "make it up to date"
!  *1    20-AUG-1992 11:45:15 TWF "Commands to issue on pulse state to recool state"
!  VAX/DEC CMS REPLACEMENT HISTORY, Element P_PULSE_RECOOL.TCL
PUT \CMOD::TOP.ADMIN.LOGBOOK.STATISTICS:STORE_START "`DATE_TIME()"
DISPATCH /PHASE/MONITOR=CMOD_MONITOR/NOLOG BULK_DATA_ACQUISITION/SYNCH=100
PUT \CMOD::TOP.ADMIN.LOGBOOK.STATISTICS:STORE_DONE "`DATE_TIME()"
PUT \CMOD::TOP.ADMIN.LOGBOOK.STATISTICS:ANAL_START "`DATE_TIME()"
DISPATCH /PHASE/MONITOR=CMOD_MONITOR/NOLOG ANALYSIS
PUT \CMOD::TOP.ADMIN.LOGBOOK.STATISTICS:ANAL_DONE "`DATE_TIME()"
DISPATCH /PHASE/MONITOR=CMOD_MONITOR/NOLOG FINISH_SHOT
DISPATCH /CLOSE
CLOSE
 
ECC$USER:[ECC.DISPATCHING]P_RECOOL_INIT.TCL;1
 
!  CMS REPLACEMENT HISTORY, Element P_RECOOL_INIT.TCL
!  *10   12-MAY-1997 14:03:58 TWF "add close/all command"
!  *9    15-NOV-1996 15:49:33 JAS "update"
!  *8    27-JUN-1995 08:54:21 TWF "Put shots in CMOD$NEW_SHOTS directory"
!  *7     9-JAN-1995 11:46:35 JAS "remove nel and mhd3 from create pulse"
!  *6    13-APR-1994 07:54:38 TWF "Add more servers to create pulse"
!  *5    13-APR-1994 07:53:07 TWF "Add more servers to create pulse"
!  *4     2-NOV-1993 10:31:59 JAS "make it up to date"
!  *3     3-MAY-1993 14:31:48 JAS "SYNC=10"
!  *2    26-APR-1993 14:52:09 TWF "Close trees on servers"
!  *1    20-AUG-1992 11:54:48 TWF "Commands to issue on recool state to init state"
!  CMS REPLACEMENT HISTORY, Element P_RECOOL_INIT.TCL
init timer
CLOSE/ALL
SET TREE 'P1' /SHOT=-1
DISPATCH/COMMAND/SERVER=CAMAC1_SERVER SPAWN DEFINE/JOB CMOD$ROOT CMOD$NEW_SHOTS:,CMOD$MODELS:
DISPATCH/COMMAND/SERVER=CAMAC2_SERVER SPAWN DEFINE/JOB CMOD$ROOT CMOD$NEW_SHOTS:,CMOD$MODELS:
DISPATCH/COMMAND/SERVER=CAMAC3_SERVER SPAWN DEFINE/JOB CMOD$ROOT CMOD$NEW_SHOTS:,CMOD$MODELS:
DISPATCH/COMMAND/SERVER=CAMAC4_SERVER SPAWN DEFINE/JOB CMOD$ROOT CMOD$NEW_SHOTS:,CMOD$MODELS:
DEFINE SERVER CAMAC1_SERVER
DEFINE SERVER CAMAC2_SERVER
DEFINE SERVER CAMAC3_SERVER
DEFINE SERVER CAMAC4_SERVER
CREATE PULSE "CURRENT_SHOT(""'P1'"")+1"/COND/DISPATCH
DISPATCH/COMMAND/SERVER=CAMAC1_SERVER SPAWN DEASSIGN/JOB CMOD$ROOT
DISPATCH/COMMAND/SERVER=CAMAC2_SERVER SPAWN DEASSIGN/JOB CMOD$ROOT
DISPATCH/COMMAND/SERVER=CAMAC3_SERVER SPAWN DEASSIGN/JOB CMOD$ROOT
DISPATCH/COMMAND/SERVER=CAMAC4_SERVER SPAWN DEASSIGN/JOB CMOD$ROOT
type Create Pulse
show timer
SET TREE 'P1'/SHOT="CURRENT_SHOT(""'P1'"")+1"
MARK
SETEVENT CMOD_PULSE_CREATED
PUT \CMOD::TOP.ADMIN.LOGBOOK.STATISTICS:INIT_START "`DATE_TIME()"
DISPATCH/CLOSE
DISPATCH/BUILD/MONITOR=CMOD_MONITOR
type Build Table
show timer
DISPATCH/PHASE/MONITOR=CMOD_MONITOR/NOLOG INITIALIZATION/SYNC=10
PUT \CMOD::TOP.ADMIN.LOGBOOK.STATISTICS:INIT_DONE "`DATE_TIME()"
 
ECC$USER:[ECC.DISPATCHING]REBOOT_AUX_SERVERS.TCL;1
 
!  VAX/DEC CMS REPLACEMENT HISTORY, Element REBOOT_AUX_SERVERS.TCL
!  *2    15-APR-1994 11:50:37 TWF "use @MDS$ROOT:[DISPATCHER]"
!  *1     2-NOV-1993 10:34:46 JAS "restart the servers (except dispatch)"
!  VAX/DEC CMS REPLACEMENT HISTORY, Element REBOOT_AUX_SERVERS.TCL
@MDS$ROOT:[DISPATCHER]CMOD_AUX_SERVERS STOP
@MDS$ROOT:[DISPATCHER]CMOD_AUX_SERVERS START
 
ECC$USER:[ECC.DISPATCHING]REBOOT_SERVERS.TCL;1
 
!  VAX/DEC CMS REPLACEMENT HISTORY, Element REBOOT_SERVERS.TCL
!  *2    15-APR-1994 11:50:28 TWF "use @MDS$ROOT:[DISPATCHER]"
!  *1     2-NOV-1993 10:35:25 JAS "restart the servers"
!  VAX/DEC CMS REPLACEMENT HISTORY, Element REBOOT_SERVERS.TCL
@MDS$ROOT:[DISPATCHER]CMOD_SERVERS STOP
@MDS$ROOT:[DISPATCHER]CMOD_SERVERS START