$JOB
$!	"XTEST - Test Sequential Record I/O"
$!
$!	XTEST: Copy SASCII.DAT to TEST.DAT
$RUN xtest
$DAT
SASCII.DAT
TEST.DAT
$EOD
$!
$RUN $filcom
$DAT

SASCII.DAT
TEST.DAT



$EOD
$
$!	XTEST: Copy SASCII.DAT,SASCII.DAT to TEST.DAT
$
$RUN xtest
$DAT
SASCII.DAT+SASCII.DAT
TEST.DAT
$EOD
$!
$RUN $filcom
$DAT

FILE2.DAT
TEST.DAT



$EOD
$!
$!	XTEST: Copy SASCII.DAT to SYS:(protection violation)
$!
$RUN xtest
$DAT
SASCII.DAT
SY:[1,2]GROG.DAT
$EOD
$!	XTEST: Test error detection
$RUN xtest
$DAT
baddevice:a.b
badfilename.xxx
bad.filetype
bad,,,delimiter
$EOD
$!	XTEST: Testing complete
$EOJ