Hello Fellow Leap Year Survivors,

I'm having a perceived file corruption problem with a new pgm.

I build a file, BUILD MYFILE;REC=-73,,F,ASCII;DISC=5000

I run the pgm which does some system processing and outputs a log file of
sorts to the above.  The pgm reads:

SELECT MYFILE ASSIGN TO "MYFILE".

FD MYFILE
RECORD CONTAINS 73 CHARACTERS
DATA-RECORS ARE MYFILE-REC.

01 MYFILE-REC PIC X(73).

WRITE MYFILE-REC.

Pretty vanilla, I figure.  But when I print the file, the last 8 characters
of the data are truncated.  So, I open the file with QUAD and see this:

/T MYFILE
  File numbered
  Nbr Rec: 1         Rec Size:   73 Bytes
  File code: 0       File Access: IN/OUT
/L ALL
 1134.945 005079         0000000000J000301134948277561    TE1LN

What's with the line number (1134.945)??  So, I save the file unnumbered
(K:U).  Cool, the line number goes away.  But now the file magically has a
record length of 65 instead of 73!!

I know I've seen something like this many moons ago.  But it illudes me
now.