Spooler Utilities Reference Manual

Spooler Quick Start
Spooler Utilities Reference Manual—522295-003
1-3
Spooler Start Macro
Example 1-2. Spooler Start Macro (page1of2)
?TACL MACRO
#set #informat tacl
==**************************************************
== \ACCT $SPLS SPOOLER START MACRO
==
== AUTHOR; John L. Scott
== DATE; 2/24/97
== FUNCTION; To start spooler $SPLS and collector $S.
== FILE; $system.startup.strtspls
==
== To Cold Start; RUN $SYSTEM.STARTUP.STRTSPLS COLD
== (Spooler isn't configured,to create new Spooler environment)
==
== To Warm Start; RUN $SYSTEM.STARTUP.STRTSPLS
== (Spooler is configured and has been running prior to this coldload)
==***************************************************
[#IF [#PROCESSEXISTS $SPLS]
| THEN | #OUTPUT *** WARNING *** PROCESS $SPLS ALREADY RUNNING
| ELSE |
#PUSH #DEFAULTS
[#IF [#MATCH %1% COLD]
| THEN | == Make SURE it's a COLDSTART
[#IF [#MATCH Y [#INPUT Are Your SURE You Want A COLDSTART (Y/N) >>] ]
| THEN |
== Set up security of OBJECT files
FUP PURGEDATA $OPER.SPOOLER.LOGFILE
FUP GIVE ($SYSTEM.SYSTEM.CSPOOL,$SYSTEM.SYSTEM.SPOOL),30,1
FUP SECURE ($SYSTEM.SYSTEM.CSPOOL,$SYSTEM.SYSTEM.SPOOL),nunu,progid
== Get rid of the old DATA COLLECTOR/SUPERVISOR FILES.
FUP PURGE ! $OPER.SPLS.*
== Create the $S COLLECTOR file
FUP CREATE $OPER.SPLS.DATAS,EXT (1000,1000)
FUP GIVE $OPER.SPLS.DATAS,30,1
FUP SECURE $OPER.SPLS.DATAS,"NUNU"
== Start it UP
SPOOL /IN $OPER.SPLS.SPL,NAME $SPLS,PRI 150,NOWAIT, &
TERM $YMIOP.#CNSL,CPU 0/1,4095,4095,255, 15,15, 255, 4095
SPOOLCOM/IN $SYSTEM.STARTUP.SPLSCONF,OUT $OPER.SPOOLER.LOGFILE/
] == ENDIF