John,

Perhaps I'm not understanding what you'd like to achieve.  Your original
message seems to imply that you'd want to make some room on the file by
moving some of its contents to another file of the same attributes.

I performed a test by building a message file and placing a number of
different size records in it.  I then build a second message file with a
file limit of 10 records.  Then I used FCOPY and copied the contents of the
first file into the second (without removing them from the first file).  I
did a 'listf' after each copy.  I finally reached the 'flimit' of the
second file on the 4th 'fcopy' iteration where the second file had an 'eof'
of 63.

Below is a screen dump of my test.
BTW I'm on MPE/iX 6.0 PP2

Regards
Paul Christidis


    53) build msg2;rec=-100,,v,ascii;msg;disc=10

<SYS>:fcopy from=*m1;to=msg2
HP31900A.05.02 FILE COPIER (C) HEWLETT-PACKARD CO. 1990

EOF FOUND IN FROMFILE AFTER RECORD 16

17 RECORDS PROCESSED *** 0 ERRORS

END OF SUBSYSTEM
<SYS>:lf msg@,2
ACCOUNT=  SYS         GROUP=  SUPUTIL

FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                  SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

MSG1              100B  VAM         17       1038   2      256  1  *
MSG2              100B  VAM         17         14   2       16  1  *


<SYS>:fcopy from=*m1;to=msg2
HP31900A.05.02 FILE COPIER (C) HEWLETT-PACKARD CO. 1990

EOF FOUND IN FROMFILE AFTER RECORD 16

17 RECORDS PROCESSED *** 0 ERRORS


END OF SUBSYSTEM
<SYS>:lf msg@,2
ACCOUNT=  SYS         GROUP=  SUPUTIL

FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                  SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

MSG1              100B  VAM         17       1038   2      256  1  *
MSG2              100B  VAM         34         14   2       16  1  *


<SYS>:fcopy from=*m1;to=msg2
HP31900A.05.02 FILE COPIER (C) HEWLETT-PACKARD CO. 1990

EOF FOUND IN FROMFILE AFTER RECORD 16

17 RECORDS PROCESSED *** 0 ERRORS

END OF SUBSYSTEM

<SYS>:fcopy from=*m1;to=msg2
HP31900A.05.02 FILE COPIER (C) HEWLETT-PACKARD CO. 1990

*134*FOUND EOF IN TOFILE

12 RECORDS PROCESSED *** 1 ERROR

END OF SUBSYSTEM

<SYS>:lf msg@,2
ACCOUNT=  SYS         GROUP=  SUPUTIL

FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                  SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

MSG1              100B  VAM         17       1038   2      256  1  *
MSG2              100B  VAM         63         14   2       16  1  *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *