home *** CD-ROM | disk | FTP | other *** search
/ New Horizons Shareware Collection / HORIZONS1.BIN / TANN.CMD < prev    next >
OS/2 REXX Batch file  |  1994-12-27  |  2KB  |  55 lines
  1. /* Test MPM_AnnounceFiles(..)                                              */
  2. /*                                                                         */
  3. /* This example shows how to define ALL the fields for a file announcement */
  4. /* Please note that by using MPM_QueryFileList(..) you can generate the    */
  5. /* the stem needed to create a file announcement. All you have to do after */
  6. /* calling that function is filter out the files you don't want, then fill */
  7. /* in the message information before calling MPM_AnnounceFiles(..).        */
  8.  
  9. files.0 = 1
  10. files.1.path = 'D:\bcos2\maxfile\'
  11. files.1.file = 'mpm1_20.zip'
  12. files.1.desc = 'MaxFile/PM 1.20, A FILES.BBS Manager for Presentation Manager'
  13.  
  14. /* Path to the message area, REQUIRED                                      */
  15. files.msgpath  = 'D:\Max\Msg\Public'
  16.  
  17. /* Mail tosser/packer information, optional                                */
  18. files.msgproc  = 'd:\squish\sq386p -cd:\squish\squish.cfg squash link -fWORKCHAT'
  19.  
  20. /* Message area type: SQUISH, MSG or MSGECHO. REQUIRED                     */
  21. files.msgtype  = 'SQUISH'
  22.  
  23. /* Message flag: HOLD, NORMAL or CRASH. REQUIRED                           */
  24. files.msgflag  = 'NORMAL'
  25.  
  26. /* Who to address the message to, defaults to 'All' if not defined         */
  27. files.to       = 'Elliott Goodman'
  28.  
  29. /* The fidonet address for who the message is addressed to                 */
  30. /* All four elements are REQUIRED, defaults to *.fromaddr if not defined   */
  31. files.toaddr   = '1:102/1319.0'
  32.  
  33. /* Who the message is from, REQUIRED                                       */
  34. files.from     = 'Craig Morrison'
  35.  
  36. /* Fidonet address of who the message is from, REQUIRED                    */
  37. files.fromaddr = '1:201/60.0'
  38.  
  39. /* Optional header text for the message                                    */
  40. files.header   = 'Check this out:'
  41.  
  42. /* Optional footer text for the message                                    */
  43. files.footer   = "Slick ain't it?"
  44.  
  45. /* Optional subject line, defaults to 'File Announcement' if not defined   */
  46. files.subject  = 'REXX MPM_AnnounceFiles(..) Test'
  47.  
  48. /* Optional origin information, if not defined, no origin line is created  */
  49. files.origin   = 'Workplace Connection * (317) 742-2680'
  50.  
  51. /* The call itself, returns 'ERROR' if something goes wrong                */
  52. retval = MPM_AnnounceFiles('files')
  53.  
  54. rc = MPM_MsgBox(retval, 'MPM_AnnounceFiles Result')
  55.