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