Re: Print and Faxing Spooled Files

I confirm this is probably the best way to go :

. Create a DataQueue
CRTDTAQ DTAQ(mylib/myDataQ) MAXLEN(256) TEXT('for FAX') AUT(*ALL)

. Add the Dataqueue to the OUTQ
CHGOUTQ OUTQ(MyOutQ) DTAQ(MyLib/MydataQ)
The each spool ready to print will send a message in the dataqueue

. Make a never-ending PGM to wait for entries in the dataQueue
*
* data queue ............................................................ D DtqNamB s 10 Inz('GED_HISTB') D DtqNam s 10 Inz('GED_HIST') D DtqLib s 10 Inz('OUTILS') D DtqLen s 5p 0 D DtqWait s 5p 0
* Réception
d QRcvDtaQ pr ExtPgm('QRCVDTAQ') d RcvNam like(DtqNam) d RcvLib like(DtqLib) d RcvLen like(DtqLen) d RcvDta like( DtqDta ) d RcvWait like(DtqWait)
*
D DtqDta ds d Dta_typ 10 d Dta_fil 2 d Dta_Jobnam 10 d Dta_Jobusr 10 d Dta_Jobnum 6 d Dta_Splnam 10 d Dta_Splnum 10i 0 d Dta_Outq 10 d Dta_OutqLib 10
/free
DtqWait= -1 ; // Wait until something arrive. Dow 1 = 1 ; QRcvDtaQ ( DtqNam : DtqLib : DtqLen : Ged_Hist_P : DtqWait ) ; If DtqLen <> 0 // something in
and Dta_Typ = '*SPOOL' ; // and it is a spool

Do what you want, using DtqDta ...

Endif ;
Enddo ;
Hope this help.


Zachary Johnson a écrit :

I read an article at some point talking about this. You can attach a
data queue to the out queue and it will report back when the file is
ready. I don't have any details but I hope that will point you in the
right direction.

~Zach

I am using the QUSLSPL api to load up a subfile and display a list of a
user's spooled files. The user can select the spooled file they want to
print and fax. The user can print the spooled file by choosing an outq
to
move the file into. The spool file gets faxed by using QCMDEXC with
SNDFAX.
My problem is timing I believe. I need to know when the spooled file
has
been printed so I can then execute the SNDFAX command. Any thoughts or
suggestions on how to do this?

TIA

Joel
NOTICE: This electronic mail message and any files transmitted with it are
intended exclusively
for the individual or entity to which it is addressed. The message, together
with any attachment, may contain confidential and/or privileged
information. Any unauthorized review, use, printing, saving, copying, disclosure or distribution is strictly prohibited. If you have received this message in error, please immediately
advise the sender by reply email and delete all copies.