; retrieve INDEX entries for file
; DIFRFILE=top level file#
; DIFRF2=current file/subfile #
; DIFRFDD=1 if sending full DD
; DIFRTA=Global reference of transport global.
ERR4(DIFRF2,DIFRNAME,DIFRTYPE)
;
ERR1(DIFRF,DIFRFLD,DIFRNAME,DIFRTYPE)
;
DDIXIN(DIFRFILE,DIFRF2,DIFRSA)
; Install INDEX file entries for file DIFRFILE
; DIFRFILE=source file#
; DIFRF2=current file/subfile#
; DIFRSA=name of array containing incoming data.