home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / bit / listserv / cmspipl / 800 < prev    next >
Encoding:
Text File  |  1993-01-28  |  1.2 KB  |  38 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!uvaarpa!darwin.sura.net!bogus.sura.net!howland.reston.ans.net!paladin.american.edu!auvm!VNET.BITNET!PIPER
  3. Message-ID: <CMSPIP-L%93012711361491@VM.MARIST.EDU>
  4. Newsgroups: bit.listserv.cmspip-l
  5. Date:         Wed, 27 Jan 1993 17:35:33 LCL
  6. Sender:       VM/SP CMS Pipelines Discussion List <CMSPIP-L@MARIST.BITNET>
  7. From:         "John P. Hartmann" <PIPER@VNET.BITNET>
  8. Subject:      XI REXX
  9. Lines: 27
  10.  
  11.  RE: XI REXX
  12.  
  13.  It is a trivial program.
  14.  
  15.      j.                                                john@vnet.ibm.com
  16. +=================================================== Beginning of XI REXX
  17. /* Xedit insert                                                      */
  18. /*                                John Hartmann 30 Jan 1989 18:35:31 */
  19. signal on novalue
  20. address xedit 'extr, linend'
  21. If linend.1='ON'
  22.    Then xlate='|xlate *-*' c2x(linend.2) 'blank'
  23.    else xlate=''
  24.  
  25. 'callpipe (end \)',
  26.    '*:',
  27.    '|f: fanout',
  28.    '|pad 1',
  29.      xlate,
  30.    '|change ,,i ,',
  31.    '|subcom xedit',
  32.    '\f:',
  33.    '|*:'
  34.  
  35. exit RC
  36. -========================================================= End of XI REXX
  37. * XI       REXX     C2 V         71         19          1  1/12/92 17:14:42
  38.