At 6:26 PM -0600 11/19/03, Jim McCullars wrote: > > As part of a data warehouse project, I am having to use perl (so that >we dont have to write dozens of COBOL programs) to extract data from >existing RMS indexed files to create flat files for later export to the >data warehouse. Some of these records have binary data (actually packed >decimal) that seems to be interpreted as line feeds on output.
> I am not able to write an >output file and have it interpreted properly. In this one instance, I >am reading a file that has 64 records, but when write the file out, it >has 84 records. Are you using syswrite to generate the records, or just print? I would think syswrite would do what you want. You could probably also create records using IndexedFile and just drop the index before transport. Another thing you might consider is whether you aren't better off interpreting the packed decimal data and converting it to text. Check out the the pack/unpack functions. -- ________________________________________ Craig A. Berry mailto:[EMAIL PROTECTED] "... getting out of a sonnet is much more difficult than getting in." Brad Leithauser
