Paul,

Here's another version of e3k command-file driven Reflection file xfer, but
that's not really what you asked for, is it?  better re-post your question.

Tracy Pierce

#r1hp2pc.pub.sys
parm HOSTFILE="hostfile",PCFILE="c:\pcfile.TXT"
IF  "!HOSTFILE" = "hostfile" &
OR  "!PCFILE" = "c:\pcfile.TXT"
  echo R1HP2PC call format...
  echo R1HP2PC hostfile,pcfile
  echo   where hostfile is any readable hp3000 file
  echo         pcfile is any destination on the caller's pc.
  RETURN
ENDIF
COMMENT option nolist
comment R1HP2PC transfers hp3000 hostfile to clientfile...
comment 000808 KTP really get result from Reflection.
comment (R1 sees command when it's PRINTed, issues its own RUN PCLINK...
comment but to do this from a non-CI program, suck that up into FT_cmd,
comment then issue FT_cmd from this command file already talking to CI...
echo ![chr(27)]&oG                                                > vbacmd
echo Option Explicit                                             >> vbacmd
echo Sub Main                                                    >> vbacmd
echo   Dim EV As Long      ' error value                         >> vbacmd
echo   With Application                                          >> vbacmd
echo     on error resume next                                    >> vbacmd
echo     .WRQReceiveFile "!PCFILE","!HOSTFILE", rcASCII, rcDelete  >> vbacmd
echo     EV = Err                                                >> vbacmd
echo     'str$ inserts annoying space in front of the EV value   >> vbacmd
echo     .transmit str$(EV) + Chr$(13)                           >> vbacmd
echo     if EV <> 0 then                                         >> vbacmd
echo      MsgBox "Xfr failed: WRQ err#" + str$(EV) + chr$(13)   >> vbacmd
echo     End if                                                  >> vbacmd
echo   End With                                                  >> vbacmd
echo End Sub                                                     >> vbacmd
echo ![chr(27)]&oH                                               >> vbacmd
print vbacmd
input name=FT_syntax;wait=2
if FT_syntax <> ""
  echo Syntax error in WRQReceiveFile command!(?)
  return
endif
input name=FT_command;wait=10
comment FT_command variable sb like 'RUN PCLINK2.PUB.SYS;PARM=2'
!FT_command
input FT_result;wait=2
if FT_result <> " 0"
  echo File transfer failed; result=WRQ error#'!FT_result'
  showvar FT_@
endif

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *