home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / rxmir13.zip / cnvnam-tst.cmd < prev    next >
OS/2 REXX Batch file  |  1998-11-07  |  306b  |  12 lines
  1. /* REXX script to test rfccnvnam */
  2. parse arg o1 .
  3. if o1 = "" then o1 = "rfc1.txt"
  4. cnvnam o1 "pack"
  5. if queued() = 0 then r1 = "**error**"
  6. else parse pull r1
  7. say "'"o1"' packed to '"r1"'"
  8. cnvnam r1 "unpack"
  9. if queued() = 0 then r1 = "**error**"
  10. else parse pull r2
  11. say "'"r1"' unpacked to '"r2"'"
  12.