MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » January 2014

RE: How come I can't use a single OVRPRTF?



fixed

Those are the defaults, may have to change/tweek.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Branston DiBrell
Sent: Friday, January 10, 2014 5:34 PM
To: 'Midrange Systems Technical Discussion'
Subject: RE: How come I can't use a single OVRPRTF?

I checked those settings just now, that is what they are:
SECURE *NO
OVRSCOPE *ACTGRPDFN
SHARE (blank)
OPNSCOPE (blank)

This job is submitted from an interactive session via SBMJOB and this is the only OVRPRTF command in the CL.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Steinmetz, Paul
Sent: Friday, January 10, 2014 3:16 PM
To: 'Midrange Systems Technical Discussion'
Subject: RE: How come I can't use a single OVRPRTF?

You may want check these settings on the override.

Secure from other overrides . . *NO *NO, *YES
Override scope . . . . . . . . . *ACTGRPDFN *ACTGRPDFN, *CALLLVL, *JOB
Share open data path . . . . . . *NO, *YES
Open scope . . . . . . . . . . . *ACTGRPDFN, *JOB

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Branston DiBrell
Sent: Friday, January 10, 2014 5:14 PM
To: 'Midrange Systems Technical Discussion'
Subject: RE: How come I can't use a single OVRPRTF?

I have them defined like so:
DCL VAR(&CMDSTR) TYPE(*CHAR) LEN(512)
DCL VAR(&CMDLEN) TYPE(*DEC) LEN(15 5) VALUE(512)

-Branston DiBrell, Jr - b.dibrell@xxxxxxxxxxxxxxxxxx Peerless Tires, IT Department, Denver CO - 720-274-0632

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Briggs, Trevor
(TBriggs2)
Sent: Friday, January 10, 2014 3:09 PM
To: midrange-l@xxxxxxxxxxxx
Subject: RE: How come I can't use a single OVRPRTF?

How long is your &CMDSTR variable and what are you putting in &CMDLEN?

Do you get any error messages in the joblog when it doesn't work?

Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Branston DiBrell
Sent: Friday, January 10, 2014 4:48 PM
To: midrange-l@xxxxxxxxxxxx
Subject: How come I can't use a single OVRPRTF?

I'm having a problem getting OVRPRTF to work in the following instance:



Code excerpt:

CHGVAR VAR(&CMDSTR) VALUE('OVRPRTF' *BCAT &PS)

CALL PGM(QCMDEXC) PARM(&CMDSTR &CMDLEN)

MONMSG MSGID(CPF0000)

EXCSQLSTM SQLSTM('Select * from DFLADIFF') OUTPUT(*PRINT)



Value of &PS: FILE(QPQXPRTF) TOFILE(PRTLSTK) DEV(WRKPRT3) MULTIUP(1)
DUPLEX(*YES) OUTQ(WRKPRT3) COPIES(1) PAGERANGE(1 *END) HOLD(*YES)
SAVE(*YES)
DRAWER(2) FORMTYPE('test form')



Also, the EXCSQLSTM command uses STRQMQRY to run the SQL statement.



What happens is, my output doesn't get put on hold and doesn't get saved.
Is does get printed on the WRKPRT3 printer (which is how the PRTLSTK prtf is defined). I tried adding OVRSCOPE(*JOB) to the OVRPRTF command - that didn't work. I also tried running each command interactively from the command line - that didn't work either.



What DID work is when I separated the OVRPRTF command into two OVRPRTF
commands:

ovrprtf FILE(QPQXPRTF) TOFILE(PRTLSTK)

ovrprtf FILE(PRTLSTK) DEV(WRKPRT3) MULTIUP(1) DUPLEX(*YES) OUTQ(WRKPRT3)
COPIES(1) PAGERANGE(1 *END) HOLD(*YES) SAVE(*YES) DRAWER(2) FORMTYPE('test
form')



My Question is: How come I can't use a single OVRPRTF?



-Branston DiBrell, Jr - b.dibrell@xxxxxxxxxxxxxxxxxx

Peerless Tires, IT Department, Denver CO - 720-274-0632



--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.

****************************************************************************
****************************************************************************
****************************************************
This message originates from Lincare Holdings Inc. It contains information which may be confidential or privileged and is intended only for the individual or entity named above.
It is prohibited for anyone else to disclose, copy, distribute or use the contents of this message.
All personal messages express views solely of the sender, which are not to be attributed to Lincare Holdings Inc., and may not be copied or distributed without this disclaimer.
If you received this message in error, please notify us immediately at MailAdmin@xxxxxxxxxxx or (800) 284-2006.
****************************************************************************
****************************************************************************
****************************************************

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.



--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.



--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.






Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact