%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 | ;
|
