$JOB $! XTESTO - Test XPORT File Overwrite $ $! XTESTO: Overwrite a file which does not exist $RUN xtesto $DAT SASCII.DAT TESTO.DAT $EOD $ $RUN $FILCOM $DAT SASCII.DAT TESTO.DAT $EOD $! XTESTO: Overwrite a short file with a long file $ $RUN $PIP $DAT TESTO.DAT=FILE11.DAT $EOD $RUN xtesto $DAT FILE2.DAT TESTO.DAT $EOD $ $RUN $FILCOM $DAT FILE2.DAT TESTO.DAT $EOD $ $! XTESTO: Overwrite a long file with a short file $ $RUN $PIP $DAT TESTO.DAT=FILE2.DAT $EOD $ $RUN xtesto $DAT FILE11.DAT TESTO.DAT $EOD $ $RUN $FILCOM $DAT FILE11.DAT TESTO.DAT $EOD $ $! XTESTO: Overwrite a protected file (error expected) $ $RUN xtesto $DAT SASCII.DAT SY:[1,2]PIP.SAV $EOD $ $! XTESTO: Testing complete $EOJ