Conference csc32::cobol2

567.0. "STRANGE PROCESSING OF FORM-FEED CHARACTER" by TAV02::MILCHIN () Thu Apr 17 1997 02:41

	HI!

	Bellow is the program which illustrates my customer's problem.
The program simply creates a LINE SEQUENTIAL file and writes 1 record
which contains <FF>x<SPACES>. The problem is that if the program is
compiled by MFCOBOL then the FORM-FEED character is preceeded by
NULL character in the created file. This does not happen if the 	program is compiled by DEC COBOL. Is it an expected behaviour and why?

		MICHAEL
********************************************************************
identification division.
program-id. sl-inverse-reports25.
environment        division.
input-output       section.
file-control.
	select out-file	assign to "reports25.lis"
             organization is line sequential.
data          division.
file          section.
 fd  out-file                          
     label  records  are  standard.
01   new-rec pic x(132).
working-storage                              section.
01 ch1 pic x value "".
01 ch2 pic x value "x".

procedure                                    division.
begin.
	open output out-file.
	move spaces to new-rec.
	move ch1 to new-rec(1:1).
	move ch2 to new-rec(2:1).
	write new-rec.
	close out-file.
	stop run.