On Thursday, 02/22/2007 at 10:50 EST, Mary Ellen
Carollo/Endicott/[EMAIL PROTECTED] wrote:
> > Since z/VM doesn't have the concept of CRLF, that's the only way to
get
> > things to look reasonable in xedit.
>
> Actually, XEDIT does understand CRLF for Byte File System files. Put the
> file in the Byte File System and XEDIT it using the BFS pathname and the
> "(BFSLINE CRLF" option.
Oh, goody! A chance to post a snippet from the only PROFILE XEDIT I have
ever really liked (mine). :-) It interrogates the file to see if it can
figure out what the CRLF sequence is.
Alan Altmark
z/VM Development
IBM Endicott
----- start ------
Parse Arg fid '(' opts ')' sysparm 1 xeditarg, bfsname
upper opts sysparm xeditarg
sysparm = strip(sysparm)
if bfsname <> "" & words(bfsname) = 1 then
do
xtra = ""
fid = bfsname
tname = strip(bfsname, "Both", "'")
address command "PIPE var tname | BFSSTATE | hole"
if rc <> 0 then do
OPTS = "BFSLINE /X'0D15'/"
queue "EMSG Linend = 0x0d15"
signal LOAD
end
address command "PIPE BFS" bfsname "| trunc 150 | var line1"
Select
when rc <> 0 then nop
when pos("0D15"x, line1) > 0 then do
xtra = "BFSLINE /X'0D15'/"
queue "EMSG Linend = 0x0d15"
end
when pos("0D25"x, line1) > 0 then do
xtra = "BFSLINE CRLF"
queue "EMSG Linend = CRLF (0x0d25)"
END
when pos("15"x, line1) > 0 then do
xtra = "BFSLINE NL"
queue "EMSG Linend = NL (0x15)"
END
otherwise
xtra = "BFSLINE NONE"
queue "EMSG No Linend characters present!"
End
opts = xtra opts
signal LOAD
end
Load:
address XEDIT
'COMMAND LOAD' fid '(' opts
if rc >= 4 then
exit rc
----------------------------------------------------------------------
For LINUX-390 subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: INFO LINUX-390 or visit
http://www.marist.edu/htbin/wlvindex?LINUX-390
