home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / HPTDEM.ZIP / HPTSO.RXC < prev    next >
Text File  |  1992-03-04  |  1KB  |  34 lines
  1. /* HPTSO.CMD    (c) Copyright HeteroGenius Systems Ltd 1992     */
  2. CALL RXFUNCADD "SELECT","HRXDLL","HRXDSPM"
  3. CALL RXFUNCADD "HRXPAUSE","HRXDLL","HRXPAUSE"
  4. restart:
  5. SIGNAL ON SYNTAX NAME errtn
  6. SIGNAL ON HALT NAME errtn
  7. DO m=1 BY 0
  8.    CALL SELECT "HBPMAIN1"
  9.    IF result = "END" THEN LEAVE m
  10.    IF result <> "ENTER" THEN EXIT 12
  11.    SELECT
  12.    WHEN zsel = 1 THEN CALL HSEND
  13.    WHEN zsel = 2 THEN CALL HRECV
  14.    WHEN zsel = 3 THEN CALL HSTAT
  15.    WHEN zsel = 4 THEN CALL HCMND
  16.    OTHERWISE
  17.    END /* SELECT */
  18. END m
  19. EXIT 0
  20. /* Error handling routines */
  21. errtn: SIGNAL ON SYNTAX NAME disaster
  22.    SIGNAL OFF HALT
  23.    CALL HRXPAUSE "***"
  24.    SIGNAL restart
  25. disaster: PARSE SOURCE . . pgmname
  26.    SAY "+++" SOURCELINE(sigl)
  27.    SAY "REXX: Error" rc "running" pgmname", line" sigl":"
  28.    SAY " " ERRORTEXT(rc)
  29.    SAY "Possible cause: Personal TSO not correctly installed, not"
  30.    SAY "in LIBPATH, or not enough storage to execute function."
  31.    SAY "Press <┘ to terminate"
  32.    CALL CHARIN
  33.    EXIT rc
  34.