The "macro" isn't...

Article View: bit.listserv.xedit-l

Article #798

Back to bit.listserv.xedit-l Previous Next

#798

From: Milamber
Date: Thu, 30 Apr 1992 02:46

23 lines
1245 bytes

What you need to do is create an EXEC which looks something like this:

/* begin rexx source */
parse arg fn ft fm .
address command
upalpha = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
loalpha = 'abcdefghijklmnopqrstuvwxyz'
nfn = substr(fn, 1, 1)||translate(substr(fn, 2), loalpha, upalpha)
nft = substr(ft, 1, 1)||translate(substr(ft, 2), loalpha, upalpha)
rename fn ft fm nfn nft fm
exit rc

/*
 * end of rexx source
 *
 * notes:  this was written without pipes for those few shops who
 *         don't have it
 *         you must have the address command, or else it will not work
 */

Hope this helps...

--Joe

Technical Details

Message-ID: <XEDIT-L%92042922471484@RUTVM1.BITNET>

Path: arc1-ca.pugleaf.net!sparky!uunet!paladin.american.edu!auvm!STEVENS.BITNET!GCS_JOGULIN

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10c92b,a3f8b737d8eacf9,start
X-Google-Attributes: gid10c92b,public
X-Google-ArrivalTime: 1992-04-29 19:46:00 PST
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Path: arc1-ca.pugleaf.net!sparky!uunet!paladin.american.edu!auvm!STEVENS.BITNET!GCS_JOGULIN
Original_To:  JNET%"XEDIT-L@RUTVM1"
Message-ID: <XEDIT-L%92042922471484@RUTVM1.BITNET>
Newsgroups: bit.listserv.xedit-l
Date:         Wed, 29 Apr 1992 22:46:00 EDT
Sender:       VM System Editor List <XEDIT-L@UGA.BITNET>
From:         Milamber <GCS_JOGULIN@STEVENS.BITNET>
Subject:      The "macro" isn't...
Lines: 23