Routine: IBCRHBC2

Information

IBCRHBC2 ;ALB/ARH - RATES: UPLOAD HOST FILES (CMAC 2000+) ; 14-FEB-2000

Name	Comments	DBIA/ICR reference
CMAC(IBPATH,IBFILE,IBNAME,IBMODP,IBMODT)	; upload CMAC file from a VMS file into ^XTMP
CMACQ
ENDF()
LNFORM(LINE)	; check an individual line of the file for proper format
PARSE	; process a single lin from a CMAC file: parse out into individual fields and store the line in XTMP
STORE	;
SET	;
SETHDR	;
DATE(DATE)	; return yymmdd in FM format
LNDT(LINE)	; return the date of an individual line, in FM format

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"**** Unable to open ",IBPATH,IBFILE,! Line Location: CMAC+6
Function Call: WRITE	Prompt: !!,"Loading ",IBFILE," into ^XTMP " Line Location: CMAC+8
Function Call: READ	Variable: IBFLINE Timeout: 5 Line Location: CMAC+10
Function Call: WRITE	Prompt: "." Line Location: CMAC+10
Function Call: WRITE	Prompt: !!,"**** Error while reading file: line not expected format (91 numeric characters):" Line Location: ENDF+4
Function Call: WRITE	Prompt: !!,"Line Length=",$L(IBFLINE)," characters" Line Location: ENDF+5
Function Call: WRITE	Prompt: ?40,"Line read is null" Condition for execution: IBFLINE="" Line Location: ENDF+5
Function Call: WRITE	Prompt: !,"LINE='",IBFLINE,"'",!!,"Upload Aborted!" Line Location: ENDF+6
Function Call: WRITE	Prompt: !!,"First line of file has no data, can not continue!" Line Location: ENDF+8