Gentle list members,

Have you ever met with the following unpleasant behavior of Pascal/V.

There was a file equation in my job:
!FILE JFILE=JFILE001;REC=-158

The corresponding file variable in my Pascal/V program was:

program(....,ifile,jfile,...);
type
   j_type: record
   case a: character of
   '1' ...
    (
     acivalu: packed array [1..1] of char;
    );

   '2' : (
         j1: packed array [1..20] of char
         j2: ...)
         {Total size of the longest variant was 168 characters}
   end;
var
   ifile: file of j;
   jfile: file of j;
   j: array [0..4] of j_type;

Somewhere in the program I issued

Reste(i);
Rewrite(jfile);
...
Read(ifile,j[n]);
{After checking the input}
IF bad_i THEN
   Write(jfile,j[n]);
....
Close(jfile);

I expected several records in the file JFILE001 but I got 0 records.

No error messages appeared.

OOPS! I wanted to extract number from a field of the j_structure. There
was an Xlibtrap intrinsic call in my program, in order to
handle alien characters in a field of the j_type structure:

  PROCEDURE lib_traps( VAR stkmrk, errornum, abortflag : egesz);

     BEGIN
        abortflag:=-2;
        pas_error:=errornum;
     END;

 strmove(11,activalu,1,sactival,1);
 pas_error:=0;
 StrRead(sactival,1,t,certactivalu);
 IF pas_error > 0 THEN BEGIN
    bad_i:=TRUE;
 END;

.......................
May be if I had not used the Xlibtrap intrinsic then I should have gotten
a pascal error message?
                        Pas_error=...?
...........................
Indeed!
 FILE JFILE=J;REC=-10,,F,ASCII
:pascalgo reclener.source

PAGE   1  HEWLETT-PACKARD   HP32106A.01.14    PASCAL/V      (C)
HEWLETT-PAC
CO. 1985  THU, SEP 24, 1998,  8:48 AM

    0     1.000   0   program reclener(jfile);
    0     2.000   0   type
    0     3.000   0      j_type= packed array[1..20] of char;
    1     4.000   0   var
    1     5.000   0      j     : j_type;
    2     6.000   0      jfile: file of j_type;
    3     7.000   1   begin
    3     8.000   1      rewrite(jfile);
    4     9.000   1      j:='0123456789abcdefghij';
    5    10.000   1      write(jfile,j);
    6    11.000   1      close(jfile);
    7    12.000   1   end.

                      NUMBER OF ERRORS =  0     NUMBER OF WARNINGS =  0
                      PROCESSOR TIME 0: 0: 1    ELAPSED TIME 0: 0: 5
                      NUMBER OF LINES =   12    LINES/MINUTE =   586.8

END OF COMPILE

END OF PREPARE

****  ERROR OCCURRED WHILE WRITING TO FILE (PASCERR 695)
WRITE EXCEEDS RECORD SIZE  (FSERR 43)




                                Regards

                                      Frank

  |\    /~ ~~|~~~ Family : NAGY; first name : FERENC; title : Ph. D.
  | \   |    |    Institute of Isotope and Surface Chemistry
  |  \  |   -+-   H-1121 BUDAPEST Konkoly-Thege M. ut 29, (1525 Bp. POB 77)
  |   \ |    |    [log in to unmask]  (36-1)-395-9123 Fax: ~395-9002
  |    \|    |    http://alpha0.iki.kfki.hu/~nagyf/
`-'     '  `-'    Home: H-1102 BUDAPEST Holgy u. 48. I. 8. (36-1)-262-1198.
You need three virtues in the life:
1. strength - to change the things which are changeable,
2. patience - to endure the things which are unchangeable,
3. wisdom   - to distinguish the above two kinds of things.