%ZOSV2 ;CLKS/SO MSM - JOB OUT RTHISTJB - MUST BE IN MGR UCI ;02/10/95 10:38
Source file <ZOSV2MSM.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
START | ||
RTHSTOP | ||
RTH | ;FROM TASKMAN DRIVER 'XUCSTM'
; Fire Up RTHISTJB & Begin Data Collection |
|
RTHCHK | ; Check for and remove IN PROGRESS & SUBMITTED - RTHIST's
; See Routine: RTHIST ; Line: READ+3, OPT=4 ; Line: TERM:TP+6, OPT=2 & OPT=4 ; OPT=2 see lines: SAVE:SAVE+3 ; OPT=4 see lines: TERM2:DISCARD+3 |
|
INPROG | ||
SUBMIT | ||
RTHCLEAN | ; Clean Up Any 'Old' XUCS ^RTHIST Nodes
|
|
PART2 | ; Get RTHIST's IN PROGRESS Node - Report Number
|
|
PART4 | ; Move RTHIST(IRN Nodes To %ZRTL
|
|
CLEAN | ; Kill XUCS* Local Variables
|
|
AMPM | ; XUCSSDT = AM or PM?
|
|
TI() | ; Get MSM Tic Interval
|
|
OS() | ; Get Operating system and Version Number
|
|
CONFIG | ;
|