HP3000-L Archives

June 1999, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
TechServ TechServ <[log in to unmask]>
Reply To:
TechServ TechServ <[log in to unmask]>
Date:
Fri, 18 Jun 1999 15:57:15 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (48 lines)
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

ATOM RSS1 RSS2