$JOB
$!	XTESTR - Test XPORT File Rename
$
$RUN $PIP
$DAT
TESTR.DAT=SASCII.DAT
$EOD
$
$!	XTESTR: Rename TESTR.SEQ to TESTR.DAT
$RUN xtestr
TESTR.DAT
TESTR.ASC
$DIRECT testr.*
$
$RUN $PIP
$DAT
TESTR.XXX=SASCII.DAT
$EOD
$!	XTESTR: Rename to a file which already exists (TESTR.XXX)
$RUN xtestr
TESTR.ASC
TESTR.XXX
$DIRECT testr.*
$
$!	XTESTR: Rename a file which does not exist (TESTR.BIN)
$RUN xtestr
$DAT
TESTR.BIN
TESTR.DAT
$EOD
$
$!	XTESTR: Rename SY:[1,2]PIP.SAV (protection violation)
$RUN xtestr
$DAT
SY:[1,2]PIP.SAV
SY:[1,2]GROG.EXE
$EOD
$
$!	XTESTR: Rename a file to a different disk disk structure
$!	XTESTR: Testing complete
$EOJ