PROGRAMADOR: YOBER JIMENEZ                                        
___________________________________________________________________
           PGM        PARM(&USER)                                  
           DCL        VAR(&USER) TYPE(*CHAR) LEN(10)               
           DCL        VAR(&USERJOB) TYPE(*CHAR) LEN(10)            
           DCL        VAR(&RCVVAR) TYPE(*CHAR) LEN(2000)           
           DCL        VAR(&VARLEN) TYPE(*CHAR) LEN(4)              
           DCL        VAR(&DEVICE) TYPE(*CHAR) LEN(10)             
           DCL        VAR(&IP) TYPE(*CHAR) LEN(15)                 
           DCL        VAR(&ERROR) TYPE(*CHAR) LEN(180)             
           DCL        VAR(&USER) TYPE(*CHAR) LEN(10)               
           DCLF       FILE(ADMSEGDES/PFIPUSR)                      
           RTVJOBA    USER(&USERJOB)                               
           WRKUSRJOB  USER(&USER) STATUS(*ACTIVE) OUTPUT(*PRINT) + 
                                                                   
CPYSPLF    FILE(QPDSPSBJ) TOFILE(ADMSEGDES/TMPIP) +    
             SPLNBR(*LAST)                             
DLTSPLF    FILE(QPDSPSBJ) SPLNBR(*LAST)                
RUNQRY     QRY(ADMSEGDES/TMPIP)                        
RCVF                                                   
MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(FIN))       
CHGVAR     VAR(%BIN(&VARLEN)) VALUE(2000)              
CALL       PGM(QDCRDEVD) PARM(&RCVVAR &VARLEN +        
             \'DEVD0600\' &DEVICE &ERROR)                
CHGDTAARA  DTAARA(ADMSEGDES/IP (1 2000)) VALUE(&RCVVAR)      
CHGVAR     VAR(&IP) VALUE(%SST(&RCVVAR 878 15))    
      SNDPGMMSG  MSG(\'LA DIRECCION IP ES :\' *CAT &IP) +  
                   TOUSR(&USERJOB)                       
  ENDPGM