Routine: DGMTO

Package	Total	Caller Graph
Registration	2	DG MEANS TEST DEDUCTIBLE DGMTM

Name	Comments	DBIA/ICR reference
EN
QUE()	; -- que job ; return: did job que [ 1\|yes 0\|no ]
ENQ
RANGEQ
RANGE(DGYRAGO,DGTODAY)	; select date range ; input: none ; output: DGYRAGO := begin date ; DGTODAY := end date ; return: was selection made [ 1\|yes 0\|no]
DATE

Name	Line Occurrences
Function Call: WRITE	Prompt: !," Future dates are not allowed.",*7 Line Location: DATE+3
Function Call: WRITE	Prompt: !," Future dates are not allowed.",*7 Line Location: DATE+6
Function Call: WRITE	Prompt: !!,"Beginning Date must be prior to Ending Date" Line Location: DATE+7
Routine Call	%ZIS Line Location: EN+1

Name	Field # of Occurrence
%DT	DATE+1, DATE+2!, DATE+4, DATE+5!
%DT("A"	DATE+1, DATE+4
>> %ZIS	EN+1*
DGBEG	DATE+3!, DATE+6!
DGCAT	ENQ+1!
DGLINE	ENQ+1!
DGP	ENQ+1!
DGPAGE	ENQ+1!
DGSTOP	ENQ+1!
DGTODAY	EN, ENQ+1!, RANGE~, DATE, DATE+5, DATE+6, DATE+7, RANGEQ
DGX	ENQ+1!
DGYRAGO	EN, ENQ+1!, RANGE~, DATE, DATE+2, DATE+3, DATE+7
DT	DATE+3, DATE+6
IO("Q"	EN+2, QUE+3!
>> POP	EN+1
VAERR	ENQ+1!
>> X	QUE+5*
>> Y	EN+3*, DATE+2, DATE+5
>> ZTDESC	QUE+4*
>> ZTQUEUED	ENQ
>> ZTRTN	QUE+4*
>> ZTSAVE(	QUE+5*
ZTSK	QUE+3!, QUE+6, QUE+7

Information