/PROC ,(&HOSTFILE,&TERMFILE,&FILETYPE,&BLKSIZE),SUBDTA=&
/SETSW ON=(0,1)
/SETSW OFF=(2)
/SYSFILE SYSDTA=(SYSCMD)
/EXEC LOGICS.P.FTHTB
&HOSTFILE
&TERMFILE
&FILETYPE
&BLKSIZE
/STEP
/SETSW OFF=(0,1,2)
/ENDP

/SYSFILE SYSDTA=(SYSCMD)
/EXEC LOGIC