RE: CL printer issue

How is the Lexmark attached?

RMTOUTQ, *IPDS, or *IBMPJLDRV/*IBMSMNPDRV/*IBMIPPDRV


Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
  

> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx 
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Lynette 
> Chronister
> Sent: Wednesday, February 08, 2006 10:16 AM
> To: midrange-l@xxxxxxxxxxxx
> Subject: CL printer issue
> 
> Hello All:  Hoping this is the right place to ask this 
> question.  If not, please direct me??
> 
> Need something that is probably very simple that I am overlooking.
> I need a spool file to print from the second drawer of a 
> Lexmark for only specific users who's default printer is PRT26.  
> 
> This is the CL code I currently have
>   DCL        VAR(&PRTR) TYPE(*CHAR) LEN(10)         
>   DCL        VAR(&USER) TYPE(*CHAR) LEN(10)         
>                                                     
>   RTVJOBA    JOB(&JOB) USER(&USER)                  
>                                                     
>   RTVUSRPRF  USRPRF(&USER) PRTDEV(&PRTR)            
>                                                     
>   IF         COND(&PRTR *EQ 'PRT26') THEN(OVRPRTF + 
>                FILE(PRINT) OUTBIN(2)) 
> 
> Ive also tried 
>                                                       
>  IF         COND(&PRTR *EQ 'PRT26') THEN(OVRPRTF +    
>               FILE(PRINT) DRAWER(2))         
>                                                              
>                                                     
> Lynette (Nettie) Chronister
> Programmer
> 
> 
> -- 
> 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.
> 
>