@noop
!
! TEST XTESTA
!
! Required files:
!		NOSEQ.DAT	SEQ.DAT		NOSSEQ.DAT
!		SEQNOS.DAT	SEQ2.DAT
!

NOERROR

!
! Delete TESTA.*
!

Delete TESTA.*

!
! XTESTA: Append a non-sequenced file to a sequenced file
!

Copy SEQ.DAT TESTA.SEQ
Ru XTESTA
GO
NOSEQ.DAT
TESTA.SEQ

FILCOM
TESTA=SEQNOS.DAT,TESTA.SEQ



!
! XTESTA: Append a sequenced file to a non-sequenced file
!

Copy NOSEQ.DAT TESTA.NOS
Ru XTESTA
GO
SEQ.DAT
TESTA.NOS

FILCOM
TESTA=NOSSEQ.DAT,TESTA.NOS



!
! XTESTA: Append two sequenced files
!

Copy SEQ.DAT TESTA.SEQ
Ru XTESTA
GO
SEQ.DAT
TESTA.SEQ

FILCOM
TESTA=SEQ2.DAT,TESTA.SEQ



!
! XTESTA: Append to a file which does not exist
!

Delete TESTA.DAT
Ru XTESTA
GO
NOSEQ.DAT
TESTA.DAT

Filcom
TESTA=NOSEQ.DAT,TESTA.DAT



!
! Delete all TESTA files
!

Delete TESTA.*