Jay,
Well it's not the only way to do this, but it does work....
file fileq=fileq;msg
listeq >*fileq
while finfo('fileq',19) > 1
input printer <fileq
if str("!printer",7,7) = "APPRINT"
setvar printer_position POS("DEV=","!printer",1)
setvar printername rtrim(str("!printer",27,20))
endif
endwhile
showvar printername
purge fileq,temp >$null
reset fileq
Here is the environment before running the command file
:listeq
FILE EQUATIONS
FILE REPORTA;DEV=LP
FILE REPORTB;DEV=LP
FILE REPORTC;DEV=CMS2
FILE REPORTD;DEV=CMS4
FILE APPRINT=REPORTZ;DEV=LP,1
FILE FILEQ=FILEQ;MSG
Here is the run of the command file...
:getprint
PRINTERNAME = LP,1
Now you cane use the variable PRINTERNAME in subsequent file equate issues
(i.e. file APPRINT=reportc;dev=!PRINTERNAME).
Regards,
Reid E. Baxter
Jay Willis
<Jay.Willis@EVERGREENAV To: [log in to unmask]
IATION.COM> cc:
Sent by: HP-3000 Subject: Re: [HP3000-L] Save and Re-Use a File Equation
Systems Discussion
<[log in to unmask]
>
04/04/2005 01:27 PM
Please respond to Jay
Willis
Yes, Reid. I'd appreciate seeing an example.
________________________________
From: HP-3000 Systems Discussion on behalf of Reid Baxter
Sent: Mon 4/4/2005 10:12 AM
To: [log in to unmask]
Subject: Re: [HP3000-L] Save and Re-Use a File Equation
Jay,
Alrightie then. In the first example there was no, "file APPRINT=". So,
APPRINT is being redirected each time. So, perhaps with a "listeq"
redirected to a message file searching for APPRINT and delineating the
various portions of the file equate and loading a variable with the portion
immediately after the "dev=" would work. If you need an example let me
know.
Regards,
Reid E. Baxter
"Jay Willis"
<Jay.Willis@evergreenav To:
<[log in to unmask]>, <[log in to unmask]>
iation.com> cc:
Subject: RE: Re:
[HP3000-L] Save and Re-Use a File Equation
04/04/2005 12:57 PM
Problem is, the same filename is used for all print files. We have no
control of the filename - it came with the package.
!job...
.
!file APPRINT=reportA;dev=<entered parameters>
!run program A
!file APPRINT=checks;dev=lp;forms=mount checks
!run program B
!file APPRINT=reportC;dev=<entered parameters>
!run program C
.
!eoj
________________________________
From: HP-3000 Systems Discussion on behalf of Reid Baxter
Sent: Mon 4/4/2005 9:46 AM
To: [log in to unmask]
Subject: Re: [HP3000-L] Save and Re-Use a File Equation
Jay,
If indeed you utilize a single job stream to facilitate both reports
(before and after) and the 'report' name is the same, the file equate
should still exist when report b is created as file equates, unless reset,
are in effect for the life of the job.
Regards,
Reid E. Baxter
Jay Willis
<j.willis@EVERGREENAV To:
[log in to unmask]
IATION.COM> cc:
Sent by: HP-3000 Subject: [HP3000-L]
Save and Re-Use a File Equation
Systems Discussion
<[log in to unmask]
DU>
04/04/2005 12:35 PM
Please respond to Jay
Willis
Hello group. I seek help on what I believe is a simple problem.
We have a system wherein the user enters on a screen the parameters of how
they want reports from a job to be handled. Printer name, copies, priority.
Within this job, besides the reports that the user has entered parameters
for, is a file equation for forms files - checks. Some reports must be
printed before the checks are printed. Other reports must come after the
program that prints the checks.
What I'd like to do is to save the file equation with the parameters the
user entered, and then re-use that file equation after the checks are
printed. Like this:
1. Enter printer name, etc for reports
2. Submit job, which does:
a. file report;dev=<parameters from 1 above>
b. run program A
c. file print=checks;dev=lp;forms=mount checks
d. run program B to print checks
e. file report;dev=<parameters from 1 above>
f. run program C to create report to print on printer entered in 1
I hope that makes sense. Thanks for any help.
Jay
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
This transmission may contain information that is privileged, confidential
and/or exempt from disclosure under applicable law. If you are not the
intended recipient, you are hereby notified that any disclosure, copying,
distribution, or use of the information contained herein (including any
reliance thereon) is STRICTLY PROHIBITED. If you received this transmission
in error, please immediately contact the sender and destroy the material in
its entirety, whether in electronic or hard copy format. Thank you.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
(See attached file: winmail.dat)
* 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 *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
