Printing MVS listings on PC
Edward J. Finnell,III , Ed
to LPR directly to the printer.
LPR filename.txt (host lan.domain.name printer laser1
You might have to work with the LAN admin to set it up the proper queue.
There's also IP/Printway to do this.
Pretty sure Cheryl Watson asked this question a few months back,
but don't know the state of the ARCHIVEs. Darrens been having problems
building Indexes for our many years worth of postings?
EDWARD J. FINNELL,III(EFIN...@UA1VM.UA.EDU)
MVS/Proj. Mgr.
http://www.ua.edu
MSHA...@aol.com
sknu...@LANDMARK.COM writes:
> I want to take listings already archived in a PDS with the attributes
> Record format FBM
> and Record length 121 and print them neatly using a PC laser printer.
Have you tried option 3.6 in TSO?
Rod Zazubek
Here is a Word macro that I use for downloaded files
with ANSI (ASA) carriage control characters (except "+").
I download files from MVS with translation to ASCII
using IND$FILE.
To use just open the file in Word 97 and run the
macro. I don't know if it works for earlier Word's.
It will need mods to work for machine ccc. The first problem
will be how machine ccc's (e.g. x'09' for single space) get
translated into ASCII.
Attribute VB_Name = "NewMacros"
Sub PrintRMFData()
Attribute PrintRMFData.VB_Description = "Macro recorded 09 12 98 by Rod"
Attribute PrintRMFData.VB_ProcData.VB_Invoke_Func =
"Normal.NewMacros.Macro1"
Dim lUnits As Long
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientLandscape
.TopMargin = InchesToPoints(0.25)
.BottomMargin = InchesToPoints(0.25)
.LeftMargin = InchesToPoints(1)
.RightMargin = InchesToPoints(1)
.Gutter = InchesToPoints(0)
.HeaderDistance = InchesToPoints(0.5)
.FooterDistance = InchesToPoints(0.5)
.PageWidth = InchesToPoints(11.69)
.PageHeight = InchesToPoints(8.27)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
End With
Selection.WholeStory
Selection.Font.Size = 8
Selection.Font.Name = "Courier New"
lUnits = Selection.MoveLeft(wdCharacter, 1)
Do While lUnits = 1
Selection.MoveRight Unit:=wdCharacter, Count:=1,
Extend:=wdExtend
If Selection.Text = "1" Then
Selection.TypeText Text:=" "
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.InsertBreak Type:=wdPageBreak
ElseIf Selection.Text = "0" Then
Selection.TypeText Text:=" "
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
ElseIf Selection.Text = "-" Then
Selection.TypeText Text:=" "
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
Selection.TypeParagraph
Else
Selection.MoveLeft Unit:=wdCharacter, Count:=1
End If
lUnits = Selection.MoveDown(wdLine, 1)
Loop
End Sub
> Date: Fri, 29 Jan 1999 22:16:16 -0500
> From: Sam Knutson <sknu...@LANDMARK.COM>
> Subject: Printing MVS listings on PC
> MIME-Version: 1.0
> Content-Type: text/plain; charset=us-ascii
>
> Hi all,
>
> I want to take listings already archived in a PDS with the attributes
> Record format FBM
> and Record length 121 and print them neatly using a PC laser printer.
> I have tried a couple tools mentioned and mucked around a little so
far
> without success.
<snip>
Cheers, Rod.
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
g...@loop.com
> I want to take listings already archived in a PDS with the attributes
> Record format FBM
> and Record length 121 and print them neatly using a PC laser printer.
Here are two QUIKBASIC programs that I use to convert my assembler
language object listings from FBM to a format that will print on a PC
laser printer. First I use a file transfer program to move the file
from the mainframe to my PC with ASCII translation. Then I use CONV.BAS
to convert the machine control characters to CR-LF's. Then I use
CONV2.BAS to get rid of the extra title lines at the top of each page.
The result is an easy to read listing. I set my HP laser printer to use
line printer font.
==========================================================================
' command tail = [input drive path & filename] [output drive path &
filename]
ct$ = COMMAND$
' isolate file name from command tail
ctl = LEN(ct$)
f1l = INSTR(ct$, " ")
f2s = f1l
WHILE MID$(ct$, f2s, 1) = " "
f2s = f2s + 1
WEND
f2l = INSTR(f2s, ct$, " ")
IF f2l = 0 THEN f2l = ctl + 1
f1$ = MID$(ct$, 1, f1l)
f2$ = MID$(ct$, f2s, f2l - f2s)
OPEN "i", #1, f1$
OPEN "o", #2, f2$
rec$ = ""
nextrec:
IF EOF(1) GOTO eoj
INPUT #1, a$
IF a$ = "" GOTO nextrec
l = LEN(a$)
d$ = MID$(a$, 2, l - 1)
b$ = LEFT$(a$, 1)
SELECT CASE b$
CASE CHR$(105) ' 69h form feed
prtrec$ = rec$ + c$
PRINT #2, prtrec$;
c$ = CHR$(13) + CHR$(10) + CHR$(12)
rec$ = d$
CASE CHR$(141), CHR$(1) ' 8dh & 01h 1 line
prtrec$ = rec$ + c$
PRINT #2, prtrec$;
c$ = CHR$(13) + CHR$(10)
rec$ = d$
CASE CHR$(17) ' 11h 2 lines
prtrec$ = rec$ + c$
PRINT #2, prtrec$;
c$ = CHR$(13) + CHR$(10) + CHR$(13) + CHR$(10)
rec$ = d$
CASE CHR$(25) ' 19h 3 lines
prtrec$ = rec$ + c$
PRINT #2, prtrec$;
c$ = CHR$(13) + CHR$(10) + CHR$(13) + CHR$(10) + CHR$(13) +
CHR$(10)
rec$ = d$
CASE CHR$(197)
CASE ELSE
rec$ = rec$ + "," + a$
END SELECT
GOTO nextrec
eoj:
prtrec$ = rec$
PRINT #2, prtrec$
==========================================================================
' command tail = [input drive path & filename] [output drive path &
filename]
ct$ = COMMAND$
' isolate file name from command tail
ctl = LEN(ct$)
f1l = INSTR(ct$, " ")
f2s = f1l
WHILE MID$(ct$, f2s, 1) = " "
f2s = f2s + 1
WEND
f2l = INSTR(f2s, ct$, " ")
IF f2l = 0 THEN f2l = ctl + 1
f1$ = MID$(ct$, 1, f1l)
f2$ = MID$(ct$, f2s, f2l - f2s)
OPEN "i", #1, f1$
OPEN "o", #2, f2$
nextrec1:
IF EOF(1) GOTO eoj
LINE INPUT #1, a$
printrec$ = a$ + CHR$(13) + CHR$(10)
PRINT #2, printrec$;
IF MID$(a$, 3, 16) <> "LOC OBJECT CODE" GOTO nextrec1
j = 4
nextrec2:
IF EOF(1) GOTO eoj
LINE INPUT #1, a$
IF MID$(a$, 1, 1) <> CHR$(12) GOTO printline
FOR i = 1 TO j
IF EOF(1) GOTO eoj
LINE INPUT #1, a$
NEXT
printline:
printrec$ = a$ + CHR$(13) + CHR$(10)
PRINT #2, printrec$;
IF MID$(a$, 1, 22) = "SYMBOL LEN VALUE" THEN j = 5
GOTO nextrec2
eoj:
printrec$ = CHR$(12)
PRINT #2, printrec$;
==========================================================================
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com/ The Largest Usenet Servers in the World!
-----------== Over 66,000 Groups, Plus a Dedicated Binaries Server ==----------
Robert A. Rosenberg
listings on PC:
> Hi all,
>
> I want to take listings already archived in a PDS with the attributes
> Record format FBM
> and Record length 121 and print them neatly using a PC laser printer.
> I have tried a couple tools mentioned and mucked around a little so far
> without success.
>
> I looked through some past postings to IBM-MAIN including this one
I'm not at the office right now but on Monday, I'll look up the IBM
service that does this (I think it is called PRINTWAY). You just
create a Printer Def in JES2 and then point the Printway driver to
the PC Laser Printer (and supply it with the Class and Route Code you
defined in JES2) and it will pull the printout off the Spool and
print it. It acts as a AFP Printer.
>
>>From: - - <som...@EROLS.COM>
>>Subject: Re: Printing MVS Reports From Windows
>
>> At 11:26:21 CST, on Sun, 1997-2-23, EFIN...@UA1VM.UA.EDU posted:
>>>>Yeah, unless it's something really important I wouldn't even bother.
>>>>However for important stuff I usually ftp it to PC then suck it into
>>>>WORD and play with it 'til it looks pretty. Guess the question is
>>>>how the source is produced?
>
>> First, the data should have been down loaded with LPR, NPF, NJEIP,
>> or other product that handles report files. FTP and IND$FILE do not
>> understand ASA or MC carraige control characters. To receive the
> >data, use any LPD server. http://www.tucows.com under printer
> >clients is one place that they are available.
>
>> To convert a report from ASA to DOS after the down load, use
>>ftp://oak.oakland.edu/pub/simtelnet/msdos/printer/cvtansi.zip
>>There are probably other ones available.
>>REXX would also work either before or after the down load.
>
> I also looked at David Cole's ccpcrint at
> http://www.colesoft.com/filexfer.htm#misc
>
> I have had problems with both cvtansi (took large files and produced small
> unuseable output files)
> and cccprint (bizzare behavior under Win95 started to run then beeping and
> a nosedive).
>
> Now either one of these may be working great for someone. I hope so:-)
>
> Has anyone tried to do something similar. I don't need to setup printing
> direct from the
> mainframe to a Novell server.. yet. I just want to download (FTP with
> ASCII translation) a
> listing down and quickly print it retaining carriage control and format it
> as nicely as possible.
> I think if I could get a listing printed with carriage control, landscape,
> and an appropriate font
> it would read well with a big spring clip on the corner.
>
> If you are doing something that works well I would really like to hear
> about it. If you are
> using cvtansi or cccprint on Win9x or WinNT and it is working well I would
> like to
> hear about it.
>
> I have a couple old JES driven chain printers but LAN laser printers seem
> to multiply like
> rabbits so I would like to see if I can make use of them for this.
>
> Thanks,
>
> Sam Knutson
>
> Landmark Systems Corporation
> 8000 Towers Crescent Drive
> Vienna, Virginia 22182-2700
> USA
> Phone: (703) 902-8338
> Personal Email: sknu...@Landmark.com
> Corporate Web Site: www.landmark.com
> Personal Web Site: http://www.his.com/~dragon
> http://www.cbttape.org CBT Tape Home Page
>
> *-> I don't speak for Landmark Systems Corporation
> *-> unless explicitly noted
JE...@attrs.uk.att.com
My Windows printing utility, Imprint, can print files with ASA and MCC
carriage control. It can be downloaded from
http://www.gallicrow.co.uk/Imprint.html
Lots of people are using it for ASA files, but only one (as far as
I know) for MCC files, so Imprint's ability to print files of this type hasn't
been tested quite as well.
Jon
--------------------------------------------------------------------
Jon Eva mailto:jon...@gallicrow.co.uk
Gallicrow Software Limited http://www.gallicrow.co.uk
Home of Imprint - a utility for printing text and binary files
--------------------------------------------------------------------
In article <v04103d00b...@209.31.171.97>,
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own