$JOB DECUS TEST01SFS 100
$SET DEF [360,230]
$AS DB0: 6
$RUN SFS
*LOGFILE 'C*'
*LOGFILE '      SUBROUTINE'
*LOGFILE '      FUNCTION'
[360,200]ARAP
$RENAM FOR006.DAT SAMPLE.SFS
$EOJ