PSPP-BUG: corrupted portable file

[pascal barbedor]

hello,


below is a program that writes a corrupted portable file because of missing values in numeric fields.


------------------------------------------------------------------------

INPUT PROGRAM.

    STRING dtrav (A2).
    NUMERIC ppartiel (F5.2).
    
    DATA LIST FREE TABLE / rubrique  (A2) value (A4).

    DO IF (rubrique='r1').
       COMPUTE dtrav = value.
       COMPUTE ppartiel = $SYSMIS.
       leave dtrav.
    
    ELSE IF (rubrique = 'r2').
       COMPUTE ppartiel = NUMBER(value, F4.0) / 100.
       leave ppartiel.
    
    ELSE IF (rubrique ='--').
       END CASE.
    
    END IF.

END INPUT PROGRAM.

BEGIN DATA.
r1,'01'
--, ''
r1,'02'
r2,'8555'
--, ''
r1,'02'
r2,'    '
--, ''
END DATA.

LIST.

EXPORT / OUTFILE = 'test.por'.
EXECUTE.



the error message after GET / file = 'test.por' .  is : 

PSPP error: portable file test.por corrupt at offset 0x282: Number expected.

Regards,

PB