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/ ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
