You could also use the listspf;status and send it to a temp message file then extract all of your printer ldevs and then check the users inputed number against that second temp file.
here's an example I pulled from my dusty files
purge prntrs,temp >$null
purge prntldev,temp >$null
build prntrs;temp;msg;rec=-72,,f,ascii
build prntldev;temp;msg;rec=-72,,f,ascii
file pr=prntrs,oldtemp
listspf;status >*pr
setvar eof finfo('prntrs','eof')
while setvar(eof,eof-1) > -1
input recin < prntrs
if pos('FOR LDEV','!recin') > 0
echo ![word('!recin'," ",6)] >> prntldev
endif
endwhile
input ldevno;prompt='Enter printer ldev '
setvar eof finfo('prntldev','eof')
setvar valid_printer false
while setvar(eof,eof-1) > -1
input recin < prntldev
if pos('!ldevno','!recin') > 0
setvar valid_printer true
setvar eof -1
endif
endwhile
if valid_printer
echo !ldevno is a valid printer
else
echo !ldevno is not a valid printer
endif
-----Original Message-----
From: VANCE,JEFF (HP-Cupertino,ex1) [mailto:[log in to unmask]]
Sent: Monday, January 27, 2003 3:39 PM
To: [log in to unmask]
Subject: Re: Verifying (IF PRINTER=TRUE)
> Does anyone know of a quick and dirty method
> of determining whether and LDEV is a spooled
> printer rather than a Disc or Term?
Perhaps you can do a :SHOWDEV ldev >foo and
test HPCIERR, and then read the output file
(foo), 3rd record, second word to see if it is
"SPOOLED".
Jeff Vance, vCSY
* 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 *
|
