Subject: | |
From: | |
Reply To: | |
Date: | Fri, 18 Jun 1999 15:57:15 -0600 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Boris,
I've done what you have discussed and I did not receive the same results that you are having using your exact code below. Can you share with us your STRING line? Also you might want to check for any file equates that may exist which override your COBOL specifications.
Thanks,
Tom Renz
>>> Boris Kortiak <[log in to unmask]> 06/18/99 02:07PM >>>
I'm having a problem with a program. This program generates an output file with records between 140 and 256 bytes in length. I have been using STRING to put together what I want and sticking a CRLF at the end of each logical record and then writing it out in 256 byte blocks. The system is adding a carriage return after byte 133. A LISTFILE of the output file shows the following:
FILENAME CODE ------------LOGICAL RECORD----------- ----SPACE----
SIZE TYP EOF LIMIT R/B SECTORS #X MX
EXCLOU 256B FA 59 10000 1 512 2 * (TEMP)
Here is the code for the file.
067000 SELECT EXCEL-OUTPUT
068000 ASSIGN TO "EXCLOU,DA,B,DISC,10000"
069000 ORGANIZATION IS SEQUENTIAL
070000 ACCESS MODE IS SEQUENTIAL
071000 FILE STATUS IS EXCEL-OUTPUT-STATUS.
I set up the file as Binary, because I'm probably going to be adding some non-printable characters in the future.
104000 FD EXCEL-OUTPUT
105000 BLOCK CONTAINS 1 RECORDS
106000 RECORDING MODE IS F
107000 RECORD CONTAINS 256 CHARACTERS.
108000 01 EXCEL-OUTPUT-RECORD.
109000 03 PIC X(256).
The recording mode is F because the records are Fixed length.
584000 WRITE EXCEL-OUTPUT-RECORD
585000* AT END DISPLAY "ERROR WRITING XO - ",
586000* WS-FILE-STATUS
587000* ACCEPT WS-FILE-STATUS
588000* STOP RUN
589000 END-WRITE.
I have tried using a BUILD to create the file ahead of time, but that didn't help. I changed it from Binary to ASCII, no joy.
Stymied and in need of suggestions.
B
|
|
|