HP3000-L Archives

December 2002, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Chris Jolliffe <[log in to unmask]>
Reply To:
Chris Jolliffe <[log in to unmask]>
Date:
Mon, 2 Dec 2002 02:46:55 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (54 lines)
 Try this as an MPE command file....

ECHO ![CHR(%33)]H![CHR(%33)]J
setvar reflect, chr(27)+"&oB"
echo
echo                  FILE TRANSFER FOR REFLECTIONS
echo
echo   ************************************************************
echo   * THIS PROCESS WILL TRANSFER A FILE FROM THE HP TO YOUR PC *
echo   ************************************************************
echo
setvar pc_filespec, ""
setvar hp_filename, ""
COMMENT
COMMENT Input filenames
COMMENT
echo Please Enter The PC/Network Path And Filename ie. C:\TEMP\FILE.TXT
echo
INPUT PC_FILESPEC, &
" >> "
if pc_filespec=""
  return
endif
echo
echo Please Enter The Full HP File Name To Transfer. ie. TEST.PUB.SGA
echo
INPUT HP_FILENAME, &
" >> "
if hp_filename=""
  return
endif
ECHO &
!REFLECT RECEIVE !PC_FILESPEC FROM !HP_FILENAME ASCII
INPUT MPE_COMMAND, ":"
RUN PCLINK3.PUB.SYS
input pass_or_fail
if pass_or_fail = "S"
  echo
  echo Your File Transfer Has Been Successful
  echo
  INPUT PAUSE, "<Press Return To Continue>"
else
  echo
  echo Your File Transfer Has FAILED !! Make Sure You Have Entered The
  echo Correct PC/Network Path And The Full HP Filename. Reflections
  echo Transfer Will Not Overwrite files. Make Sure The File Does
  echo Not Already Exist On Your PC/Network Path.
  echo
  INPUT PAUSE, "<Press Return To Continue>"
endif

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

ATOM RSS1 RSS2