File Transfer via Command File

Below is an MPE/iX command file that allows for file transfer operations within a menu. This can also be called from a logon UDC to allow file transfers without giving access to a colon (MPE) prompt. This command file allows multiple file transfers to occur until the user types EXIT.

setvar pre0 ""
while pre0"EXIT"
  input hprog
  setvar pre1 Ups(Lft(hprog,9))
  setvar pre0 Ups(Lft(hprog,4))
  if pre1 = "RUN MS92L"
    !hprog
  endif
endwhile