Routine: ECXTRT

Information

ECXTRT ;ALB/JAP,BIR/DMA,CML,PTD-Treating Specialty Change Extract ;6/29/18 14:57

Source file <ECXTRT.m>

Name	Comments	DBIA/ICR reference
BEG	;entry point from option
START	; start package specific extract
NPDIV(WRD)	;National Production Division
SETLOC(ECXDFN,ECXADM,ECXPRO,ECXLOC)	;setup the local array from the ATS index ; output ; ECXLOC = local array (passed by reference)
FINDLOC(ECXTSD,ECXLOC,ECXSPC,ECXPRV,ECXATT,ECXMOV,ECXTRT)	;find local array node for current ts movement ; input ; ECXTSD = inverse date/time for current ts movement; required ; ECXLOC = local array; passed by reference; required ; output; data from record contained in MOVE ; ECXSPC = piece 1 of LOC (passed by reference) ; ECXPRV = piece 2 of LOC concatenated to PRO (passed by reference) ; ECXATT = piece 3 of LOC concatenated to PRO (passed by reference) ; ECXMOV = piece 4 of LOC (passed by reference) ; ECXTRT = pointer to file #45.7
SETUP	;Set required input for ECXTRAC
QUE	; entry point for the background requeuing handled by ECXTAUTO
SETTMP(ERRMSG,ECDA,ECDATE,DFN,ECADM)	;190 Set TMP global for MM messages
SENDMSG	;190 Send error MM messages