Merge 2 ASCII Files

[Tom Henkel]

Re: Merge 2 ASCII Files

I used the same methodology to create HIPPA billing transaction files to be sent to Medicaid. Again, this has been working for years.

Now all we need to know is what was the outcome for Larry!

Tom

[nugget3825]

Re: Merge 2 ASCII Files

Thank you all for your input.

Al, the desired output file would look like, from your example,


ha
da
hb
db
db
db
db

So, there is only 1 HEADER file and hundreds of DETAIL lines on a daily basis. The required file design is not my idea. Just trying to be compliant. However, I thought I could export the HEADER file and then export the DETAIL file. What I was hoping for was a way to simply append the DEATL file to the HEADER file. I could have done this with a throuwback LINE INPUT command and successive WRITES or PRINTS.

However, turns out the solution offered by Stan works pretty well.

I created a DATA field of 255 bytes in the HEADER file and created a DATA field in the DETAIL file. Updated the DATA fields in each file (e.g. LOC="|"-FIELD1-"|"-FIELD2-"|"... etc.)

I created a 3rd file during the development phase called DATA containing 1 field called... DATA of 255 bytes. Appended the HEADER's DATA field and then appended the DETAIL's DATA field. The "H" and "D" records have completely different constructs and are TAB DELIMITED. Once the DATA file was loaded, I exported to a TABLE file and was able to name the file as required.

Sent off a test yesterday and all looks just fine.

Thanks to ALL for your input.

[Stan Mathews]

Re: Merge 2 ASCII Files

Still think you're working too hard.

Try this in AlphaSports

st = set.open_session("invoice")
hd = st.table_get("invoice_header")
itm = st.table_get("invoice_items")

query.filter = "flattenquery(.T.)"
query.order = "Customer_Id+Invoice_Number"
query.options = "I"
query.description = "Temporary Query"
hd.query_create(query.options,query.filter, query.order)
st.fetch_first()
ci = ""
hdr_done = .F.

fil = file.create("c:\temp\asexpt.txt",FILE_RW_EXCLUSIVE)
while .not. st.fetch_eof()
	if hd.Customer_Id+hd.Invoice_Number = ci
		if hdr_done
			fil.write_line(itm.product_id+"   "+alltrim(str(itm.quantity)))
		end if
	else
		fil.write_line(dtoc(hd.date)+"   "+hd.customer_id+"   "+hd.invoice_number)
		fil.write_line(itm.product_id+"   "+alltrim(str(itm.quantity)))
		ci = hd.Customer_Id+hd.Invoice_Number 
		hdr_done = .T.
	end if
	st.fetch_next()
end while
fil.flush()
fil.close()
st.close()