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