home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / fxclsv01.zip / FxShell.cmd < prev    next >
OS/2 REXX Batch file  |  1997-04-14  |  1KB  |  34 lines
  1. /*  */                                                                  
  2.  
  3. DO UNTIL ARGUMENTS~Translate = 'EXIT' | Arguments~Translate = 'QUIT'
  4.    SAY 'FxShell Command List'
  5.    SAY '------------------------------------------------------------------------'
  6.    SAY 'Command      Parameters'   
  7.    SAY '------------------------------------------------------------------------'
  8.    SAY 'Send|Queue   File2Fax;TO=n,c,F#;FROM=n,c,v#,F#;INFO=c,h,n,b,s,1-3;AT=t,d'
  9.    SAY 'Import       Source'
  10.    SAY 'Status       Tag#'
  11.    SAY 'Report       Index#'
  12.    SAY 'Copy|Export  Source;Target'
  13.    SAY 'TextToFax    Source;Target'
  14.    SAY 'Delete       -Index or Tag'
  15.    SAY 'Exit|Quit'
  16.    SAY '------------------------------------------------------------------------'
  17.    Arguments = linein()
  18.    IF ARGUMENTS~Translate = 'EXIT' | Arguments~Translate = 'QUIT' THEN DO
  19.        SAY ' '
  20.        SAY 'Goodbye!'
  21.        EXIT
  22.        END
  23.    ELSE DO
  24.      SAY' '
  25.      FaxOperator = .FxOperator~new
  26.      ResultCode = FaxOperator~Submit(Arguments)
  27.      SAY ResultCode
  28.      SAY ' '
  29.      SAY '------------------------------------------------------------------------'      
  30.    END
  31. END
  32.  
  33. ::REQUIRES FxMObj.CLS
  34.