Instead of using ";spsave" as others have suggested, you can start with the
disk file and then print later.
Where the old jcl says something like
"file abc; dev=lp"
replace with something like
!IF FINFO ("permfile.group", "EXISTS")
! PURGE permfile.group
!ENDIF
!FILE abc = permfile.group, NEW; DEV=DISC; CCTL; SAVE &
! ; REC=,32,F,ASCII; DISC=60000,32,0
!RUN myprog.group.acct
That creates the regular file (note it picks up the record length
automagically from the program).
Then print with something like
!FILE xyz; DEV=LP,13,1; CCTL
!PRINT permfile.group > *xyz
You can print copies to different printers. Or rename the file to save as
many generations as you like. For some of our applications, being able to
chose our own file name works MUCH better than trying to figure out what spool
file number the system chose.
There is a different trick for job listings, if that happens to be what you
are trying to do.
----- Original Message -----
From: "mag" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Monday, November 17, 2008 09:04
Subject: [HP3000-L] capturing a file....
I want to capture a file that's being printed to a printer so I can have an
extra
copy of the file. So, while the job is actively printing that output file to
the
printer, I'd like to make another copy to a disk file.
Thank you.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|