QCMDEXC - Printer override

[DLee@xxxxxxxx]

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