Routine: XDRPTCLN

Package	Total	Caller Graph
Toolkit	2	XDRPTDOB XDRPTSSN

Name	Comments	DBIA/ICR reference
COMPARE	;
EN	; EP - Entry point for comparing dates
END
EOJ	;
START	;
INIT	;
NUMCOMP(VAL1,VAL2,MATCHVAL,NOMATCH,PARTIAL)	;

Name	Field # of Occurrence
>> A1	NUMCOMP+11*
>> A2	NUMCOMP+11*
>> C11	NUMCOMP+13*
>> C12	NUMCOMP+13*
>> C21	NUMCOMP+13*
>> C22	NUMCOMP+13*
CNT	NUMCOMP+4~, NUMCOMP+5, NUMCOMP+8, NUMCOMP+12, NUMCOMP+13, NUMCOMP+14
I	NUMCOMP+4~, NUMCOMP+5, NUMCOMP+11, NUMCOMP+13*
J	NUMCOMP+4~, NUMCOMP+5*
K	NUMCOMP+4~, NUMCOMP+5*
MATCHVAL	NUMCOMP~, NUMCOMP+2, NUMCOMP+14
NOMATCH	NUMCOMP~, NUMCOMP+14
PARTIAL	NUMCOMP~, NUMCOMP+3*, NUMCOMP+14
U	INIT+3, INIT+4
VAL1	NUMCOMP~, NUMCOMP+1, NUMCOMP+2, NUMCOMP+5, NUMCOMP+11
VAL2	NUMCOMP~, NUMCOMP+1, NUMCOMP+2, NUMCOMP+5, NUMCOMP+11
>> X1	NUMCOMP+10, NUMCOMP+11, NUMCOMP+13
>> X2	NUMCOMP+10, NUMCOMP+11, NUMCOMP+13
>> XDRCD	INIT+2
>> XDRCD(	INIT+2
>> XDRCD2	INIT+2
>> XDRCD2(	INIT+2
XDRCLN	INIT+1!, INIT+2*, COMPARE+1, EOJ+1!
XDRCLN("MATCH"	INIT+3*, COMPARE+1
XDRCLN("NO MA	TCH" , INIT+4*, COMPARE+1
XDRCLN2	INIT+1!, INIT+2*, COMPARE+1, EOJ+1!
>> XDRD("TEST SC	ORE" , COMPARE+1*
>> XDRDTEST(	INIT+3, INIT+4
>> XDRDTO	INIT+3, INIT+4
>> XDRFL	INIT+2

Information