RE: QCMDEXC - Printer override -- RPG400-L

Hi,

Have you checked out the scope of the override? Check the description of
the OVRSCOPE keyword in OVRPRTF

Martin

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of DLee@xxxxxxxx
Sent: 03 February 2010 15:17
To: rpg400-l@xxxxxxxxxxxx
Subject: QCMDEXC - Printer override

Morning

I haven't done a qcmdexc in some time and for some reason I don't
understand this one isn't working.

My goal is to do an OVRPRTF for each new account to create seperate
reports, which can be later sent to each account.

Yes, I'm using the RPG cycle.

Maybe someone out there can see what I do't see.

Here is a debug view of the result of the qcmdexc, it all looks like
what I wanted to see.

....5...10...15...20...25...30...35...40...45...50...55...60
1 'OVRPRTF FILE(CLM400AR) OUTQ(ELICPRT) HOLD(*YES) USRDTA(SPLC3'
61 '480 ) '

Here is the spool file notice no user data of SPLC3480 and status is not
hold, and queue is not ELICPRT.

File User Queue User Data Sts
Pages
Page Copy
CLM400AR CRPRDQUA CFISPRT1 CLM400R RDY 1
1
CLM400AR CRPRDQUA CFISPRT1 CLM400R RDY 1
1
CLM400AR CRPRDQUA CFISPRT1 CLM400R RDY 1
1
CLM400AR CRPRDQUA CFISPRT1 CLM400R RDY 1
1

Below is the code:

FCLM400AR O E PRINTER OFLIND(*IN15)
F USROPN
*-------------------------------------------------------------*
* QCMDEXEC PROTOTYPE
*-------------------------------------------------------------*
D QCMDEXC PR
D CMD 128 CONST
D CMDLEN 15P 5 CONST

D DS
D usrdta 10
D dpt 2 OVERLAY(usrdta :1)
D INZ('SP')
D cmp 2 OVERLAY(usrdta :3)
D act 5 OVERLAY(usrdta :5)
D 1 OVERLAY(usrdta :10)
D INZ(' ')

DOVRP S 68 INZ('OVRPRTF FILE(CLM400AR)
D OUTQ(ELICPRT) HOLD(*YES)

D USRDTA(XXXXXXXXXX)')
DDLTO S 21 INZ('DLTOVR FILE(CLM400AR)')

C IF *INL3 = *ON
C EXSR OVERRIDE
C OPEN CLM400AR
C ENDIF
C OVERRIDE BEGSR
C EVAL CMP = CDCOCD
C EVAL ACT = CDAGNT
C EVAL %subst(OVRP:56:10) = USRDTA
C CALLP QCMDEXC (OVRP: %LEN(%trim(OVRP)))
C ENDSR
C DLTOVR BEGSR
C CALLP QCMDEXC(DLTO: %LEN(%trim(DLTO)))
C ENDSR

*-------------------------------------------------------------*
* CLOSE PRINTER FILE FOR ACCOUNT
*-------------------------------------------------------------*
CL3 EXSR DLTOVR
CL3 CLOSE CLM400AR

P QCMDEXC B
D QCMDEXC PI
D CMD 128 CONST
D CMDLEN 15P 5 CONST
P E

Regards,

Darrell

SWBC
9311 San Pedro Ave., Suite 600
San Antonio, TX 78216

Visit our website at www.swbc.com

--------------------------------------------------------

This message (including any attachments) is only for the use of the person(s) for whom it is intended. It may contain Mattel confidential and/or trade secret information. If you are not the intended recipient, you should not copy, distribute or use this information for any purpose, and you should delete this message and inform the sender immediately.

Mattel UK Limited is incorporated in England and Wales with its registered office at Mattel House, Vanwall Business Park, Vanwall Road, Maidenhead, Berkshire SL6 4UB. Company Registration Number 1471442.