home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / HPTDEM.ZIP / HCMND.RXC < prev    next >
Text File  |  1992-05-26  |  1KB  |  37 lines
  1. /* HCMND.CMD    (c) Copyright HeteroGenius Systems Ltd 1992     */
  2. CALL RXFUNCADD "DISPLAY","HRXDLL","HRXDSPL"
  3. CALL RXFUNCADD "HRXPAUSE","HRXDLL","HRXPAUSE"
  4. CALL RXFUNCADD "HRXVGET","HRXDLL","HRXVPRF"
  5. CALL RXFUNCADD "HRXVPUT","HRXDLL","HRXVPRF"
  6. CALL RXFUNCADD "HAPXREQ","HAPPC","HAPXREQ"
  7. /* Get the profile variables */
  8. profvars = "hostlu hostcmd"
  9. CALL HRXVGET "HPTSO",profvars
  10. /* Get the LU name override */
  11. ARG lu .
  12. IF lu <> '' THEN hostlu = lu
  13. msg = ''
  14. DO m=1 BY 0
  15.    /* Prompt the user for the LU name and the command */
  16.    cursor = "HOSTCMD"
  17.    DO UNTIL msg = ''
  18.       CALL DISPLAY "HBPCMDP1",cursor,msg; msg = ''
  19.       IF result = "END" THEN LEAVE m
  20.       IF result <> "ENTER" THEN EXIT 12
  21.       msg = ''
  22.       IF hostlu = '' THEN DO
  23.          msg = 'ENTER HOST NAME'
  24.          cursor = "HOSTLU"; ITERATE; END
  25.       IF hostcmd = '' THEN DO
  26.          msg = 'ENTER HOST COMMAND'
  27.          cursor = "HOSTCMD"; ITERATE; END
  28.    END /* DO */
  29.    /* Send the command to the host system */
  30.    SAY "HAPXREQ" hostlu hostcmd
  31.    CALL HAPXREQ hostlu,hostcmd,'M'
  32.    CALL HRXPAUSE '***'
  33. END m
  34. /* Update the profile variables */
  35. CALL HRXVPUT "HPTSO",profvars
  36. EXIT 0
  37.