Well, your first two line don't have leading spaces and they didn't get warped (sic).
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <[email protected]> on behalf of Ed Jaffe <[email protected]> Sent: Sunday, July 1, 2018 7:02 PM To: [email protected] Subject: 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://secure-web.cisco.com/1_BcG6hJIhFngMuip6DiZhrO-_CeTaF4D5RKuSJ-IOE0IDmfKjS9Hq4xkPjyAQFOSbMlIbql7nGzJgXaJ5ZmyNByiw29SVrH-xcdv7LNHcJN9h0fzdiTtDsGq0gnhExujSU3RTYKoikKwfW80FUn8xwFxchM578-1ddlOvfjCvfTxXeyxtvSUvctACfX_vpJroz7kYAqrkD8wLG0fDzyoQNh0LToKZ2z8bnmqfIBC1Mm5NsKH9_6BtjTTKK4fQndfMV2TUHoKlwNuf32LM2y-1TW39IaNeDMrvpk3kgEHUMtlEDSg1G3N2ToFY5pFKFtMfRy8LtqGUAcBkWJjNrwEUx4V2XIrO5u4YKrZrFCJkSRjuLZopoIHGuHYUARB90Si5JWnpiAS0mnGipwTKACjPPSFODSaG4lgbxGitJj7QrTRFs3yG1R75_Abhhotmd0e/https%3A%2F%2Fwww.phoenixsoftware.com%2F -------------------------------------------------------------------------------- This e-mail message, including any attachments, appended messages and the information contained therein, is for the sole use of the intended recipient(s). If you are not an intended recipient or have otherwise received this email message in error, any use, dissemination, distribution, review, storage or copying of this e-mail message and the information contained therein is strictly prohibited. If you are not an intended recipient, please contact the sender by reply e-mail and destroy all copies of this email message and do not otherwise utilize or retain this email message or any or all of the information contained therein. Although this email message and any attachments or appended messages are believed to be free of any virus or other defect that might affect any computer system into which it is received and opened, it is the responsibility of the recipient to ensure that it is virus free and no responsibility is accepted by the sender for any loss or damage arising in any way from its opening or use. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
