Google
 

Trailing-Edge - PDP-10 Archives - k20v7b - mfg/review.mic
There are no other files named review.mic in the archive.
@
! This mic file effectively follows the manufacturing proceedure for reviewing
! system data and combines it into one file "REVIEW.RPT"
!
! Also generates SUMMAR.RPT separately
!
!	TYPE "DO <MFG>REVIEW"  OPTIONAL PARAMETERS DATE(DD-MMM-YY)
!	TYPE "DO <MFG>REVIEW -1" FOR LAST 24 HOURS
@ERROR ?
@ENA
@DEFINE DSK:
@CONN <MFG>
@DEL REVIEW.RPT
@DEL REVBRF.RPT
@DEL REVCPU.RPT
@DEL REVMAS.RPT
@DEL HISTORY.LST
@DEL TRACE.LST
@EXP <MFG>
@NOERROR
@APPEND <SYSTEM>MONNAM.TXT <MFG>REVIEW.RPT
@APPEND <SYSTEM>UPTIME.INF <MFG>REVIEW.RPT
!
@ERROR ?
!
SUMMAR::
!
@SPEAR
*SUM
*SERR:ERROR.SYS
*ALL
*'A
*LATEST
*YES
*SUMMAR.RPT
*/GO
*RETRIEVE
*SERR:ERROR.SYS
*INCLUDED
*ALL
*'A
*LATEST
*ASCII
*SHORT
*REVBRF.RPT
*/GO
*RET
*SERR:ERROR.SYS
*INCLUDED
*ERROR
*MAINFRAME
*ALL
*FINISHED
*'A
*LATEST
*ASCII
*FULL
*REVCPU.RPT
*/GO
*ANALYZE
@IF (ERROR) @GOTO MASSRT
*SERR:ERROR.SYS
*
*
*
*
*/GO
*EXIT
@IF (NOERROR) @GOTO TGHA
@GOTO END
!
MASSRT::
*EXIT
@DO <MFG>MASSRT 'A
!
TGHA::
!
@NOERROR
@RUN <SYSTEM>TGHA
*HISTORY
*TRACE
*EXIT
@ERROR
!
REVAPP::
!
@NOERROR
@APPEND REVBRF.RPT REVIEW.RPT
@APPEND REVCPU.RPT REVIEW.RPT
@APPEND ANALYZ.RPT REVIEW.RPT
!
@APPEND TTY: REVIEW.RPT
=
=
@APPEND MASSRT.LOG REVIEW.RPT
!
@APPEND TTY: REVIEW.RPT
@
@
@APPEND HISTORY.LST REVIEW.RPT
@APPEND TTY: REVIEW.RPT
@
@
@APPEND TRACE.LST REVIEW.RPT
;
;TYPE OR PRINT REVIEW.RPT