Routine: DITR1

Information

DITR1 ;SFISC/GFT-FIND ENTRY MATCHES ;18-MAR-2013

Source file <DITR1.m>

Name	Comments	DBIA/ICR reference
B
DA
DINUM
HAS001	; If file has .001 field, .01 and Identifiers/Keys must match
NEW
ON
ADD
OLD
Q
WORD
MATCH
I
I2
I3	; Entry point for initial matching on KEY values
P
UP
MATCHKEY(DIKEY,V,A,DIMATCH)	; Match Primary Key fields ; DIKEY=IEN of Primary Key, V=IEN of matching record on target file, A set to 1 if errors are encountered.
REPLACE	;
SUBLN(DIFILE)	; Return maximum subscript length for "B" index.