Ok this works:
and this works:
This does NOT work:
Any input would be appreciated
Thanks
GLS
< e d i t > V6R1 current on ptf's < / e d I t >
Code:
dcl &username *char 10 dcl &direntry *char 40 dcl &pdfname *char 15 VALUE(outfile.PDF') RTVJOBA USER(&USERNAME) CHGVAR VAR(&DIRENTRY) VALUE('/usrfls/out/' *CAT &username) MD DIR(&direntry) DTAAUT(*RWX) + OBJAUT(*ALL) monmsg cpf0000 chgvar var(&direntry) value(&direntry *Tcat '/' *Tcat + &pdfname) RMVLNK &DIRENTRY MONMSG CPF0000 OVRPRTF FILE(QPQUPRFIL) DEVTYPE(*AFPDS) + TOSTMF(&DIRENTRY) WSCST(*PDF)
Code:
OVRPRTF FILE(QPRT80) TOFILE(QPRT80) DEVTYPE(*AFPDS) + FRONTMGN(.01 .01) BACKMGN(.01 .01) + DRAWER(3) DUPLEX(*YES) UOM(*INCH) + FRONTOVL(rqfrnt) BACKOVL(rqback 0 0 + *CONSTANT) + TOSTMF('/usrfls/out/myuserid/testrq.pdf') + WSCST(*PDF)
Code:
CHGVAR VAR(&DIRENTRY) VALUE('/usrfls/out/' *CAT &username) MD DIR(&direntry) DTAAUT(*RWX) OBJAUT(*ALL) monmsg cpf0000 chgvar var(&direntry) value(&direntry *Tcat '/' *Tcat + &pdfname) OVRPRTF FILE(QPRT80) TOFILE(QPRT80) + DEVTYPE(*AFPDS) FRONTMGN(.01 .01) + BACKMGN(.01 .01) DRAWER(3) DUPLEX(*YES) + UOM(*INCH) FRONTOVL(RQFRNT) + BACKOVL(RQBACK 0 0 *CONSTANT) + TOSTMF(&direntry) + WSCST(*PDF)
PHP Code:
Message ID . . . . . . : CPA0702 Severity . . . . . . . : 99
Message type . . . . . : Inquiry
Date sent . . . . . . : 09/03/15 Time sent . . . . . . : 08:59:24
Message . . . . : MCH3601 received by procedure RQ010CLC. (C D I R)
Cause . . . . . : ILE Control language (CL) procedure RQ010CLC in module
RQ010CLC in program RQ010CLC in library FARMLIB detected an error at
statement number 0000000900. Message text for MCH3601 is: Pointer not set
for location referenced. Use F10 (if available) or the Display Job Log
(DSPJOBLOG) command to see the messages in the job log for a more complete
description of what caused the error. If you still are unable to solve the
problem, please contact your technical support person.
Recovery . . . : This inquiry message can be avoided by changing the
procedure. Monitor for the error (MONMSG command) and perform error recovery
within the procedure. To continue, choose a reply value.
Possible choices for replying to message . . . . . . . . . . . . . . . :
PHP Code:
Pointer not set for location referenced.
Function check. MCH3601 unmonitored by RQ010CLC at statement 0000000900,
instruction X'0000'.
MCH3601 received by procedure RQ010CLC. (C D I R)
MCH3601 received by procedure RQ010CLC. (C D I R)
Thanks
GLS
< e d i t > V6R1 current on ptf's < / e d I t >
Comment