Re: Remote Virtual Print Session

[Gary Feinstein <gfeinste@xxxxxxxxxxxxxxxxxxx>]

Erick wrote:
> 
> Does any one know if it is it possible to use Client Access to set up a
> virtual print session from a dial-up session? I can do this successfully
> using a client directly connected to the network, yet am unable to do so
> using a dial up.
> 
> Thanks in advance for any insight.
> 
> Erick
>  egarske@cts.com
> 
Erick,
        It sounds like you are using Dynamic IP Addresses when dialed in.  You
could use the QDCRDEVD API to retrieve the address and change the queue
accordingly.  Here is some sample code you may want to look at.  It may
not be the best, but it works for me!
HTH,
Gary Feinstein
AS/400 Systems Manager
Planet Hollywood International Inc.

                                                              
   PGM                                                        
            DCL        VAR(&DEVD) TYPE(*CHAR) LEN(10)        
            DCL        VAR(&IP) TYPE(*CHAR) LEN(15)          
            DCL        VAR(&RECEIVER) TYPE(*CHAR) LEN(892)   
            DCL        VAR(&LENGTH) TYPE(*CHAR) LEN(4)       
            DCL        VAR(&ERRLENGTH) TYPE(*CHAR) LEN(4)    
            RTVJOBA    JOB(&DEVD)                            
            CHGVAR     VAR(%BIN(&LENGTH)) VALUE(892)         
            CHGVAR     VAR(%BIN(&ERRLENGTH)) VALUE(0)                
            CALL       PGM(QDCRDEVD) PARM(&RECEIVER &LENGTH +        
                       DEVD0600 &DEVD &ERRLENGTH)                    
            CHGVAR     VAR(&IP) VALUE(%SST(&RECEIVER 878 15))        
            SNDPGMMSG  &RECEIVER                                     
            SNDPGMMSG  &IP                                           
            ENDWTR     WTR(MYPRINTER) OPTION(*IMMED)                 
            MONMSG     MSGID(CPF0000)
            CHGOUTQ    OUTQ(QUSRSYS/MYPRINTER) INTNETADR(&IP)        
            MONMSG     MSGID(CPF0000)                                
            STRRMTWTR  OUTQ(QUSRSYS/MYPRINTER) WTR(MYPRINTER)        
            MONMSG    
MSGID(CPF0000)                                                         
  ENDPGM
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---