Routine: NURSAWL0

Information

NURSAWL0 ;HIRMFO/RM,FT-WORK LOAD STATISTICS ;2/27/98 14:25

Source file <NURSAWL0.m>

Name	Comments	DBIA/ICR reference
DEV
START	;
HSKEEP	; SET LOCAL VARIABLES
DATESEL	; SELECT DATE FOR REPORT
EN1	; ENTRY FROM AMIS LOCATION WORKLOAD STATISTICS OPTION	ICR #96 Status: Retired Usage: Private
EN2	; ENTRY FROM AMIS SERVICE WORKLOAD STATISTICS OPTION
LOOP
QUIT	; KILL LOCAL VARIABLES

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7) Line Location: DEV+0
Function Call: WRITE	Prompt: !," THERE IS NO DATA FOR THIS REPORT " Line Location: START+2
Function Call: WRITE	Prompt: ! Line Location: DATESEL+2
Function Call: WRITE	Prompt: ! Line Location: DATESEL+2
Function Call: WRITE	Prompt: ! Line Location: EN2+2
Function Call: WRITE	Prompt: ! Line Location: EN2+2
Routine Call	DIC Line Location: EN2+2
Routine Call	%ZIS Line Location: DEV

FileNo	Call Tags
^NURSF(211.4 - [#211.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DATESEL+1
^DIC(213.9 - [#213.9]	EN1+1, EN2+1
^TMP($J	START+1!, START+2

Name	Line Occurrences
DATESEL	NURSAWL0+3, DATESEL+4
DEV	DEV
EN2	EN2+4
HSKEEP	EN1+2, EN2+2
LOOP	DEV+1
NURSAWL0	EN1+3, EN2+6
QUIT	NURSAWL0+3, DEV, DEV+1, START+2, START+3, EN2+3

Name	Field # of Occurrence
%DT	DATESEL+2*!
%DT("A"	DATESEL+2*
%DT("B"	DATESEL+1*
%ZIS	DEV*!
>> DIC	EN2+2*
>> DIC("A"	EN2+2*
>> DIC(0	EN2+2*
IO	DEV
IO("Q"	DEV!, DEV+1!
IO(0	DEV
ION	DEV+1
IOST	DEV
>> NRPTDAT	DATESEL+5*
>> NSW2	HSKEEP+1*
>> NUROUTSW	NURSAWL0+3, START+2, HSKEEP+1, DATESEL+3*
>> NURPAGE	HSKEEP+1*
>> NURQUEUE	DEV+1, HSKEEP+1
>> NURSW1	HSKEEP+1*
>> NURSWARD	EN1+2, EN2+5
>> POP	DEV
>> X	START+2, DATESEL+1, DATESEL+3, EN2+3, EN2+4, LOOP*
XQH	DEV*!
>> Y	DATESEL+1, DATESEL+4, DATESEL+5, EN2+4
>> Y(0	EN2+5
>> ZTDESC	DEV+1*
ZTIO	DEV+1*!
ZTRTN	DEV+1*!
ZTSAVE	DEV+1!
ZTSAVE(	LOOP*