On Tue, 29 Jul 2003 08:30:06 -0400, Raghu Rao <[log in to unmask]> wrote:

>Hi all,
>
>How do I output my data in a COBOL program to a file with no Carriage
>Control and Line feed characters ?
>
>My final output should look something like this :
>
>ACCOUNT=  PCARTP1     GROUP=  EVMOD09
>
>FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
>                  SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX
>
>EAVN0060            1B  BA        4100     150000   1      256  1  *
>
>Final output file should not be a fixed length and should be of Byte type
>and should hold as many data as possible, without any carriage control or
>line feed characters..
>
>Anyone tried this stunt before ?
>
>TIA
>Raghu. Rao.
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

FOPEN the output file with CARRIAGE CONTROL foption bit set to "1".

At the end of the line do the FWRITE thus:

MOVE %320 TO WS-CC.
CALL INTRINSIC "FWRITE" USING fnum, buffer, rec-size, WS-CC.

(WS-CC is defined in working storage as a PIC S9(4) COMP field).

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *