Routine: ZOSV2MSM

Information

%ZOSV2 ;CLKS/SO MSM - JOB OUT RTHISTJB - MUST BE IN MGR UCI ;02/10/95 10:38

Package	Total	Call Graph
VA FileMan	1	%XY^%RCR

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	;

Name	Field # of Occurrence
%XY^%RCR	PART4+11

Name	Line Occurrences (* Changed, ! Killed)
^%ZRTL("XUCS"	PART2+2, PART2+4, PART4+2, PART4+4, PART4+8, PART4+12
^RTHIST	RTH+2, RTH+3, RTH+11, INPROG+2, SUBMIT+1, SUBMIT+5*, RTHCLEAN+2, RTHCLEAN+3!, PART4+2, PART4+3 , PART4+5!, PART4+6!, PART4+8, PART4+13!, PART4+15!
^RTHIST("IN PROGRESS"	INPROG, INPROG+1, INPROG+5!, RTHCLEAN+1, PART2+1, PART2+2, PART4+5, PART4+6!, PART4+13, PART4+15
^RTHIST("SUBMITTED"	SUBMIT, SUBMIT+1, RTHCLEAN+8*

Name	Line Occurrences
AMPM	RTHCLEAN+10, PART4+1
CLEAN	PART2+7, PART4+2, PART4+3, PART4+16

Name	Field # of Occurrence
^(	RTHCLEAN+2
^(1	PART4+3

Name	Field # of Occurrence
>> %X	PART4+9*
>> %Y	PART4+10*
>> I	PART2+3*
IRN	RTH+3*, RTH+11, RTHCLEAN+8, CLEAN+1!
XIRN	INPROG+1, INPROG+2, INPROG+7!, SUBMIT+1, SUBMIT+5, SUBMIT+9!
>> XUCSAP	PART2+2, PART4+2, PART4+4, PART4+8, PART4+10, PART4+12, AMPM+1*
XUCSCDI	RTH+7, RTH+8, RTH+11, CLEAN+1!
XUCSDAT	RTH+10*, RTH+11, SUBMIT+2, CLEAN+1!
XUCSDUR	RTH+5*, RTH+11, SUBMIT+3, CLEAN+1!
XUCSEND	PART2+1!, PART2+2*, CLEAN+1!
XUCSIRN	RTHCLEAN+2*, RTHCLEAN+3, RTHCLEAN+5!
XUCSIRNX	RTHCLEAN+2*, RTHCLEAN+3, RTHCLEAN+5!
XUCSJOB	RTHCLEAN+7*, RTHCLEAN+9!, CLEAN+1!
XUCSQ	PART4+9*, PART4+10, CLEAN+1!
XUCSRDES	RTH+9*, RTH+11, CLEAN+1!
XUCSRI	RTH+6*, RTH+11, CLEAN+1!
XUCSRN	PART2+2*, PART4+2, PART4+3, PART4+5, PART4+6, PART4+8, PART4+9, PART4+10, PART4+13, PART4+15 , CLEAN+1!
XUCSSDT	PART2+2, CLEAN+1!, AMPM+1
XUCSTBS	RTH+11, CLEAN+1!
>> XUCSTIM	RTH+10*, RTH+11, SUBMIT+3
XUCSTM	CLEAN+1!
XUCSVG	PART2+2, PART2+4, PART4+2, PART4+4, PART4+8, PART4+10, PART4+12, CLEAN+1!
XUCSX	SUBMIT+1, SUBMIT+2!, SUBMIT+4!, SUBMIT+7!, PART2+3, PART2+4, PART2+5!
XUCSX1	SUBMIT+3*, SUBMIT+4!, SUBMIT+7!
XUCSXX	PART2+3*, PART2+5!

Name	Field # of Occurrence
$T(CONFIG+I	PART2+3