Google
 

Trailing-Edge - PDP-10 Archives - bb-x130a-sb - status.ctl
There are 7 other files named status.ctl in the archive. Click here to see a list.
;STATUS.CTL  %013   MAKE AND RUN STATUS.SCP 3 JOBS
;TO RUN STATUS TYPE:
;	.QUE INP:=STATUS/TIME:100,/DIS:DEL
;STATUS IS USUALLY RUN BY MONTST.CTL IN WEEKLY MONITOR TEST
;4 AUG 77		S LIBMAN
;
.GOTO SKIP
SCP::
!;;STATUS.SCP  %013   TEST STATUS COMMANDS
!;;P WHITE/PW/PW/SML	4 AUG 77
!;;FOR 603 MONITOR
!IOFRS
!;;TEST COMMANDS THAT DO NOT REQUIRE LOGIN
DAYTIME
TIME 1
SYSTAT
HELP
HELP *
QUEUE
QUEUE LPT:
QUEUE LL:
QUEUE LU:
QUEUE PT:
QUEUE PL:
QUEUE CDP:
NODE
LOGIN
4,777#
!Q
TEST#
!XJOB IN
!;;LET'S BECOME VIRTUAL IF WE CAN
!Q
R SETVM
SET WATCH DAY RUN
!;;CHECK VERSION NUMBERS
GET SYS:COMPIL
VERSION
GET SYS:PIP
VERSION
R PIP
DSK:/Z_
^C
!Q
SET WATCH DAY
SYSTAT  J
VERSION
CORE
PJOB
SET WATCH RUN
R QUOLST
VERSION
CORE 0
CORE
CORE 5
COR
COR 0
TIME
R GRIPE
THIS MESSAGE COMES TO YOU COURTESY OF MONTST/STATUS.
(UNLESS IT ISN'T HERE.)
E 137
TIME
SET WATCH DAY WAIT
RESOURCES
QUEUE
QUEUE LPT:
QUEUE LL:
QUEUE LU:
QUEUE PT:
QUEUE PTP:
QUEUE PLT:
QUEUE CDP:
NODE
SYS B
GET SYS:QUOLST
VERSION
DAYTIME
SYS N
DSK
PJ
SYS H
SYSTAT S
VERSION
SET WATCH READ WRITE
TIM
RES
SYS D
SYS F
KJOB/K
!XJOB OUT
SKIP::
;RUN VIRTUALLY
.R SETVM
.IF (ERROR)    ;IGNORE
.R TECO
=ERSTATUS.CTL
*_SCP::
=0,.K
=EWSTATUS.SCP
=NSKIP::0L
=.,ZKPWEF
;
;END OF FILE STATUS.SCP; NOW RUN IT
;
.R SCRIPT
*STATUS
.CONT
*3
*1
*STATUS
*STATUS
*
*
*
*Y
*N
*Y
.IF (ERROR) .GOTO A
.PLEASE STATUS SUCCESSFUL
.GOTO B
A::
.PLEASE ERROR RUNNING STATUS
B::
%FIN:
.NOERROR
;ALWAYS LIST WCH FILE AND DELETE STATUS.SCP
.QUEUE STATUS.WCH/DISPOSE:DELETE
.DELETE STATUS.SCP
.QUEUE INP:SHRH1=/MODIFY/DEPEND:-1
.QUEUE INP:SHRH2=/MODIFY/DEPEND:-1