Routine: LREPISV1

Entry Points

Name	Comments	DBIA/ICR reference
START	;
RETRANS	;RETRANSMIT
READ
PROCESS
DATE
TEST
TASK	;
MAIL	;
EXIT	;If all went well, report that too.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"Report canceled!" Line Location: TASK+8

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UPPERCASE"	START+7
^LAB(69.5 - [#69.5]	TEST+2
^TMP($J	START+1!, START+8, START+10, START+13, PROCESS+1, DATE+3, DATE+7, EXIT+6!

Name	Line Occurrences
EXIT	START+13
MAIL	TEST+5

Name	Field # of Occurrence
%	TASK+2, EXIT+1, EXIT+7!
%DT	DATE+2, DATE+6, EXIT+7!
%H	EXIT+1*, EXIT+7!
D	EXIT+7!
DIC	EXIT+7!
LRA	EXIT+9!
LRCOND	EXIT+9!
LRDATA	EXIT+9!
LREPA	EXIT+7!
LREPB	EXIT+7!
LREPDA	EXIT+7!
LREPDA1	EXIT+7!
LREPDATA	EXIT+7!
LREPDFN	EXIT+7!
LREPDM	EXIT+7!
LREPDOC	EXIT+7!
LREPDOM	EXIT+8!
LREPDTA	EXIT+8!
LREPED	EXIT+8!
LREPER	EXIT+8!
>> LREPI	TASK+3
>> LREPI(	TEST+1, TEST+2
LREPLNT	START+12*, EXIT+8!
LREPNM	EXIT+8!
LREPPT	EXIT+8!
LREPSD1	EXIT+8!
LREPSDT	EXIT+8!
LREPSSN	EXIT+8!
LREPST	START+5*, START+8, START+10, EXIT+1, EXIT+8!
LREPSUB	START+7*, START+8, START+10, START+13, EXIT+8!
LREPTC	EXIT+8!
LREPWB	EXIT+8!
LREPX	EXIT+8!
LRERROR	RETRANS+2, PROCESS+1, DATE+3, DATE+7, TEST+5, EXIT+9!
LRFILL	EXIT+9!
LRI	TEST+1, TEST+2, EXIT+9!
LRPATH	EXIT+9!
>> LRPROT	PROCESS+3*
>> LRRPE	DATE+4*
>> LRRPS	DATE+8*
>> LRRTYPE	START+5*
LRTEST	EXIT+9!
X	START+7, DATE+2, DATE+6*, EXIT+1, EXIT+7!
XMA	READ*, PROCESS+1, DATE+1, DATE+5, TEST+1, EXIT+9!
XMDUN	EXIT+1*, EXIT+7!
XMDUZ	EXIT+1*, EXIT+7!
XMER	READ, EXIT+7!
XMFROM	START+8, EXIT+7!
XMREC	READ, EXIT+7!
XMRG	READ, EXIT+7!
XMSUB	EXIT+1*, EXIT+7!
XMTEXT	READ, PROCESS+1, DATE+2, DATE+6, TEST+1, EXIT+1, EXIT+7!
XMY	EXIT+7!
XMY("G.EPI-SITE@CINCINNATI.DOMAIN.EXT"	EXIT+2*
XMZ	EXIT+7!
XQDATE	START+8, EXIT+7!
XQSUB	START+7, EXIT+7!
Y	START+7, DATE+3, DATE+4, DATE+7, DATE+8, EXIT+7!
YSPR	EXIT+8!
>> ZTDESC	TASK+6*
>> ZTDTH	TASK+2*
>> ZTIO	TASK+6*
ZTQUEUED	EXIT+8!
>> ZTRTN	TASK+6*
ZTSAVE	TASK+4!
ZTSAVE("LR*"	TASK+5*
ZTSK	TASK+8, EXIT+8!