home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / seedump.zip / SAMPLES / R1.BAG < prev    next >
Text File  |  1995-08-14  |  233b  |  13 lines

  1. /* */
  2. i = arg()
  3. parse arg p1 , rest , p3
  4. /*'RXSUBCOM REGISTER BAGGER BAGGER BAGGER'*/
  5. /*address bagger*/
  6. say p1
  7. say rest
  8. say p3
  9. say "das ist eine rexx proc mit "i "parametern"
  10. set log doedel.log
  11. set work "i:\";
  12. return 0
  13.