$JOB
$!	XTESTA - Test Sequential File Append
$!
$!	XTESTA: Append a stream ascii file to a stream ascii file
$RUN xtesta
$DAT
SASCII.DAT
TESTA.DAT
$EOD
$
$RUN $filcom
$DAT

SASCII.DAT
TESTA.DAT



$EOD
$!	XTESTA: Append a stream ascii file to a files-11 type file
$!
$RUN $PIP
$DAT
TESTA.11=FILE11.DAT
$EOD
$RUN xtesta
$DAT
SASCII.DAT
TESTA.11
$EOD
$!
$RUN $filcom
$DAT

SASCII.DAT
TESTA.DAT



$EOD
$!
$!	XTESTA: Append to a file that does not exist
$RUN xtesta
$DAT
SASCII.DAT
TESTA.XXX
$EOD
$
$RUN $filcom
$DAT

SASCII.DAT
TESTA.XXX



$EOD
$
$!	XTESTA: Testing complete
$EOJ