home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxcp290.zip / smalltst.cmd < prev    next >
OS/2 REXX Batch file  |  1996-01-30  |  1KB  |  26 lines
  1. /*                Small Rexx Program to Demo RXCP290                          */
  2.  
  3. /* This small program Loads the RXCP290 Functions, opens COM2 for comms to    */
  4. /* the CP290, turns on Module D4, receives the acknowledgement from the CP290 */
  5. /* closes the comport, and Drops the RxCP290 Functions.                       */
  6.  
  7. call RxFuncAdd 'RxLoadFuncsCP290', 'RxCP290', 'RxLoadFuncsCP290'
  8. call RxLoadFuncsCP290                      /* Load RxCP290 Routines           */
  9. CP290 = ''                                 /* Initialize Com Port Handle Var  */ 
  10. rc = RxInitCP290('COM2', 'CP290')          /* Initialize Com Port             */
  11. rc = RxDirCmdCP290(CP290, 8, "ON" ,"D", 4) /* Issue a direct command          */
  12. do while rc < 5
  13.    rc = RxCmdUploadCP290(CP290, 'result')  /* Get the Report upon completion  */
  14. end
  15. rc = RxCloseCP290(CP290)                   /* Close Communications            */
  16. call RxDropFuncsCP290                      /* Drop RXCP290 Functions          */
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.