home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: OtherApp / OtherApp.zip / PMPAGER.ZIP / PMCSTART.CMD next >
OS/2 REXX Batch file  |  1991-11-02  |  3KB  |  54 lines
  1. /* rexx */
  2. /* ****************************************************************** */
  3. /*                                                                    */
  4. /* PMCSTART.CMD (OS/2)                                                */
  5. /* Copyright (c) 1991 Robert G Gaillard.                              */
  6. /*                                                                    */
  7. /* ****************************************************************** */
  8. /*                                                                    */
  9. /* PMCSTART.CMD is a simple REXX program to be automatically          */
  10. /* initiated (thru the script STARTUP.SCR) each time Pmcomm is        */
  11. /* started.                                                           */
  12. /*                                                                    */
  13. /* This sample program is used only to start PMPAGER.CMD.  Individual */
  14. /* users may add other functions as desired.                          */
  15. /*                                                                    */
  16. /* Input  (REXX Arg List):                                            */
  17. /*                           Pmcomm Standard Parameters:              */
  18. /*                               Port                                 */
  19. /*                               Portname                             */
  20. /*                               Screen_handle                        */
  21. /*                               Dde_output                           */
  22. /*                               Dde_input                            */
  23. /*                               Semaphore                            */
  24. /*                                                                    */
  25. /* Output:                                                            */
  26. /*                           None                                     */
  27. /*                                                                    */
  28. /* External Calls:                                                    */
  29. /*                           RxFuncAdd                                */
  30. /*                           Init_dll                                 */
  31. /*                           Pmpager                                  */
  32. /*                                                                    */
  33. /* ****************************************************************** */
  34.  
  35. signal on syntax name syntax_error
  36.  
  37. parse arg port portname screen_handle dde_output dde_input semaphore
  38. parse source . . fn .
  39.  
  40. call RxFuncAdd "init_dll","RxPmcomm","init_dll"
  41. call init_dll
  42.  
  43. curr_dir=directory()
  44. log_file=curr_dir"\SCRERROR.LOG"
  45.  
  46. call pmpager port portname screen_handle dde_output dde_input semaphore
  47. exit(0)
  48. /*                                                                    */
  49. syntax_error:
  50. errormsg = "REXX error" rc "in line" sigl":" errortext(rc)
  51. rc = lineout(log_file,date() time() fn "-" errormsg)
  52. rc = lineout(log_file,date() time() fn "-" sourceline(sigl))
  53. exit
  54.