I read IBM-MAIN from a newsreader. The rexx script had lots of the blanks repaced with something else. Saving the file and looking at the headers, I see:
--- > Mime-Version: 1.0 > Content-Type: text/plain; charset=koi8-r; format=flowed > Content-Transfer-Encoding: 8bit --- I'm guessing Ed didn't intend to use a Russion character set. :) If that wasn't what was used in the email, then it was added as it progressed through the news servers. In article <byapr01mb4166f5fc2ff262be441c3933bf...@byapr01mb4166.prod.exchangelabs.com> you wrote: > This code looks fine. My experience in posting to IBM-MAIN is that spaces at > the beginning *or end* of a line allows the data to look fine. But truncating > both leading and trailing spaces causes the List processor to flow lines up > to the next 'break', which may be a totally blank line. I try to copy lines > from, say, syslog, to include trailing blanks. If there are none on a > particular line, I hit the space bar after the last character. > Sending notes internally with the company does not involve these issues. > These lines have no leading or trailing blanks. > line 1 typed in > line 2 typed in > line 3 typed in > . > . > J.O.Skip Robinson > Southern California Edison Company > Electric Dragon Team Paddler > SHARE MVS Program Co-Manager > 323-715-0595 Mobile > 626-543-6132 Office ???=== NEW > [email protected] > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of Ed Jaffe > Sent: Sunday, July 01, 2018 4:03 PM > To: [email protected] > Subject: (External):Re: Formatting > On 7/1/2018 11:39 AM, Seymour J Metz wrote: > >> I consider RFC 3676 an abomination, totally unsuitable for posting > >> code samples. > > Why? Do you know of any case where a properly behaving mail client mangles > > code properly formatted with format=flowed? > AFAIK, I've never had an issue posting code fragments on any list. I'm gonna > experiment with one right now randomly taken from our local REXX library. > What am I doing wrong? (Or right?) > /* REXX */ > TSMRMM: > ?? address tso > ?? /* trace I */ > ?? "bpxbatch sh dsmadmc -id=mvs60 -pa=xxxxxxxxxx -displ=tab", > ?????????????????????? /* "q volhist begindate=TODAY-1 begintime=15:00:00" > */ , > ?????????????????????? /* "enddate=TODAY-1 > endtime=23:00:00"???????????????????????????? */ , > ???????????????????????????? "q volhist > begindate=today"???????????????????????????????????????????????? , > ???????????????????????????? "> /tmp/tsmrmm.qvolhist" > ?? if rc <> 0 then exit 8 > ?? "allocate dd(tsmrpt) path('/tmp/tsmrmm.qvolhist')", > ???????????????????? "recfm(v) lrecl(1024) filedata(text) reuse" > ?? if rc <> 0 then exit 8 > ?? volcount = 0 > ?? "execio * diskr tsmrpt (stem rptline. open finis" > ?? do i=1 to rptline.0 > ?????? do j = 1 to words(rptline.i) > ?????????? if LEFT(WORD(rptline.i,j),6) = "BACKUP" |, > ???????????????? LEFT(WORD(rptline.i,j),3) = "STG" then, > ?????????????? do > ?????????????????? do k=j to words(rptline.i) > ?????????????????????? if LEFT(WORD(rptline.i,k),4) = "3590" then, > ?????????????????????????? do > ?????????????????????????????? volcount = volcount + 1 > ?????????????????????????????? type.volcount = WORD(rptline.i,j) > ?????????????????????????????? dev.volcount = WORD(rptline.i,k) > ?????????????????????????????? vol.volcount = WORD(rptline.i,k+1) > ?????????????????????????????? leave k > ?????????????????????????? end > ?????????????????? end > ?????????????????? leave j > ?????????????? end > ?????? end > ?? end > ?? do i=1 to volcount > ?????? say "VolHist:" type.i dev.i vol.i > ?????? select > ?????? when type.i = "STGNEW" |, > ???????????????? LEFT(type.i,6) = "BACKUP" then, > ?????????? do > ?????????????? rmmcmd = "RMM CV" vol.i "STATUS(MASTER) HOLD", > ???????????????????????????????? "OWNER(TIVSM) RELEASEACTION(ERASE)" > ?????????????? address tso rmmcmd > ?????????????? cc = rc > ?????????????? say "Command:" rmmcmd > ?????????????? say "RetCode:" cc > ?????????????? rmmcmd = "RMM CV" vol.i "LOCATION(SHELF)" > ?????????????? if dev.i ="3590VAULT1" then, > ?????????????????? rmmcmd = "RMM CV" vol.i "MANUALMOVE LOCATION(FRED)" > ?????????????? address tso rmmcmd > ?????????????? cc = rc > ?????????????? say "Command:" rmmcmd > ?????????????? say "RetCode:" cc > ?????????? end > ?????? when type.i = "STGDELETE" then, > ?????????? do > ?????????????? rmmcmd = "RMM CV" vol.i "AUTOMOVE NOHOLD" > ?????????????? address tso rmmcmd > ?????????????? cc = rc > ?????????????? say "Command:" rmmcmd > ?????????????? say "RetCode:" cc > ?????????????? rmmcmd = "RMM DV" vol.i "RELEASE" > ?????????????? . > ?????????????? . (etc) > ?????????????? . > -- > Phoenix Software International > Edward E. Jaffe > 831 Parkview Drive North > El Segundo, CA 90245 > https://www.phoenixsoftware.com/ -- Don Poitras - SAS Development - SAS Institute Inc. - SAS Campus Drive [email protected] (919) 531-5637 Cary, NC 27513 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
