Re: Question on Open and Close of Print file and creating PDFs

On 5/7/2013 2:45 PM, Tom Deskevich wrote:

I am offering an option with our software to create a PDF instead of a hard copy using OVRPRTF.
Got it working with both interactive and batch reports. I have all this coded in the CL.
This is running with WINGS and OA over the web. So I force it to use a pre-defined user id for
the PDF process.

IF COND(&WCPDF *EQ 'Y') THEN(DO) <== yes PDF
<CALL cl TO GET HANDLE, DELETE PDF IF IT EXISTS, CONSTRUCT WEB AND QNTC PATHS>
(STEP A)
OVRPRTF FILE(ROWRECP) TOFILE(*FILE) DEVTYPE(*AFPDS) +
PAGESIZE(&PGSZ 8.5 *UOM) LPI(8) CPI(10) +
FRONTMGN(&OFFV &OFFH) OVRFLW(&OVFL) +
DRAWER(&WCRRD) PAGRTT(0) UOM(*INCH) +
OUTQ(&OUTQ) COPIES(&ROWCPY) HOLD(&HOLD) +
TOSTMF(&WCPDFQ) WSCST(*PDF) <===
ENDDO
CALL PGM(ROW280) PARM(&PCTL)

IF COND(&WCPDF *EQ 'Y') THEN(DO) (STEP B)

CALL PGM(ROW299S) PARM(&WCPDFQ &WCPDFW) <=== WEB WINGS OA APP
CALL PGM(QSYS/QWTSETP) PARM(&CHANDLE)
CALL PGM(QSYS/QSYRLSPH) PARM(&NHANDLE)
CALL PGM(QSYS/QSYRLSPH) PARM(&CHANDLE)
CHGJOB SWS(00000000)
ENDDO

But having some difficulty with any application that does not end when you request the print.
An example, you are presented with a receipt number to reprint. It reprints the receipt, but takes
you back to the receipt number entry to possibly enter another receipt. If I put step A and the OVRPRTF
in the CL, it works the first time fine. But the second time, it appears to ‘lose’ the handles and bomb.

Hoping to get some suggestions going; what is the error message when it
bombs? Is there anything else in the job log before the escape message?

I left the OVRPRTF in the CL program, put calls before and after pieces in the RPG that OPEN
and CLOSE the print file. If I display the job, I can see the OVRPRTF
and it is correct. If I put the program in debug, I can see the handles and paths and
they look OK, but the PDF is not created. Looked on the web and cannot find anything specific to this.


C CALL 'ROW283PDFC' <== DO STEP A (get handles and paths, remove old PDF)
C parm pdfw
C parm pdfq
C parm chandle
C parm nhandle
C endif
C OPEN ROW281P

PRINT RECEIPT

C CLOSE ROW281P
C if wcpdf='Y' or wcpdf='R' <=== DO STEP B (Display PDF and do housekeeping)
C CALL 'ROWPDF2C'
C parm pdfw
C parm pdfq
C parm chandle
C parm nhandle
C endif

Thinking about the various programs, are they all ILE? What activation
groups are in use? Are spooled files created instead of PDFs? I'm
wondering if the override isn't in effect during the RPG program because
the OPM CL would be deeper in the call stack and the OVRPRTF would go
away when the CLP leaves the call stack.
--buck