Sequential file I/O - 'strange' Output result

I was a COBOL-programmer between 1989 and 1995
Started with MF COBOL / Eclipse a few days ago

Got strange behaviour and can not find any explanation in the manuals/website

Just some test program to get the COBOL-feeling again ...

Input is ASCII TXT file on MS-Windows 8.1 = 13 chars CR/LF = 15

Output of first line is 13 chars CR/LF = 15
following records are 5 spaces 13 chars CR/LF = 20

First line of output is correct data (13 chars) but record length = 15, not 20 as supposed to be by the record description outfile-record   (part A and B)

Why ?

Best regards,

J.M. Lietaer

Input is  (data CR/LF = 15 chars)

test line 001
test line 002
test line 003
test line 004
test line 005
CR/LF

Output is  (data CR/LF = 20 chars)

test line 001
     test line 002
     test line 003
     test line 004
     test line 005
5 spaces and CR/LF

COBOL -program is ...

******************************************************************

IDENTIFICATION DIVISION.

PROGRAM-ID. HELLO as "hello".
AUTHOR. J M Lietaer.
DATE-WRITTEN. 19 AUG 2014 / 20 AUG 2014.

******************************************************************

ENVIRONMENT DIVISION.

CONFIGURATION SECTION.

INPUT-OUTPUT SECTION.

FILE-CONTROL.
SELECT infile
ASSIGN 'c:\data\cobol\workspace\hello\file.in'
ORGANIZATION SEQUENTIAL.
SELECT outfile
ASSIGN 'c:\data\cobol\workspace\hello\file.out'
ORGANIZATION SEQUENTIAL.

******************************************************************

DATA DIVISION.

FILE SECTION.
fd infile.
01 infile-record pic x(15).
fd outfile.
01 outfile-record.
03 outfile-record-A pic x(15).
03 outfile-record-B pic x(5).

WORKING-STORAGE SECTION.
01 vInput pic x(16).
01 _CMD PIC X(3).
88 _CMD_END VALUE 'END'.
01 _FS PIC 9 value 0.
88 _EOF VALUE 1.

******************************************************************

PROCEDURE DIVISION.

******************************************************************
* MAIN PROGRAM FLOW
******************************************************************

MPF.
perform para_start.
perform para_loop until _CMD_END.
perform para_stop.

para_start.
display "Hello !" at 1108.

para_loop.
perform para_input.

if _CMD = 'IO'
perform para_io
end-if.

para_stop.
display spaces upon crt.
display "* * * E N D O F P R O G R A M * * *"
at 1217
foreground-color is 12.
display " " at 2520.

stop run.

******************************************************************
* SUBROUTINES
******************************************************************

para_input.
move spaces to vinput.
display 'Input : ' at 0205.
accept vInput at 0220
background-color is 2
foreground-color is 10.
move function upper-case(vinput) to _CMD.
display _CMD at 0420.

para_io.
open input infile.
open output outfile.
perform para_io_readwrite until _EOF.
close infile outfile.

para_io_readwrite.

read infile
at end move 1 to _FS.

move infile-record to outfile-record-a.
move spaces to outfile-record-B.

if not _EOF write outfile-record.

* end program hello.

******************************************************************

Tags: