CLEAR
COPY STRANS_BLOBFS,BLOBFS
COPY STRANS_INCLUD,INCLUD
COPY STRANS_STESTFS,STESTFS
RUN STRANZ 
STEST
SEND BLOBFS
SEND INCLUD
SEND STESTFS
SEND LPT
SEND STESTC
SEND STEST1FR
SEND STEST2FR
SEND BLOBFR