/*********************************************************************/
/*     PROCEDIMIENTO RECUPERACION DIRECCION IP                       */
/*             ------- AURTVIP -------                               */
/*********************************************************************/
             PGM        PARM(&NUM &IP)                                 
/*                                                                   */
/* DECLARAR FICHERO PANTALLA                                         */
/*                                                                   */
             DCL        VAR(&IP) TYPE(*CHAR) LEN(15)                   
             DCL        VAR(&num) TYPE(*CHAR) LEN(6)                   
             DCL        VAR(&MBR) TYPE(*CHAR) LEN(8) VALUE('FI')     
             RTVJOBA    NBR(&num)                                      
             MONMSG     MSGID(CPF0000)                                 
             CHGVAR     VAR(%SST(&MBR 3 6)) VALUE(&NUM)                
             DSPJOBLOG  OUTPUT(*OUTFILE) OUTFILE(QTEMP/AULOIPF) +      
                          OUTMBR(&MBR *REPLACE)                        
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(FIN))          
              OVRDBF     FILE(AULOIPF) TOFILE(QTEMP/AULOIPF) +         
                          MBR(&MBR) OVRSCOPE(*JOB)                     
             CALL       PGM(AURTVIP1) PARM(&IP &MBR)                   
 FIN:        DLTOVR     FILE(AULOIPF) LVL(*JOB)                        
             MONMSG     MSGID(CPF0000)                                 
             RMVM       FILE(QTEMP/AULOIPF) MBR(&MBR)                  
             MONMSG     MSGID(CPF0000)                                 
ENDPGM                                        


/*********************************************************************/
/*     PROCEDIMIENTO RECUPERACION DIRECCION IP                       */
/*             ------- AURTVIP1 ------                               */
/*********************************************************************/
             PGM        PARM(&IP &MBR)                                 
/*                                                                   */
/* DECLARAR FICHERO PANTALLA                                         */
/*                                                                   */
             DCLF       FILE(*LIBL/AULOIPF) ALWVARLEN(*YES)            
             DCL        VAR(&IP) TYPE(*CHAR) LEN(15)                   
             DCL        VAR(&MBR) TYPE(*CHAR) LEN(8)                   
             OVRDBF     FILE(AULOIPF) TOFILE(QTEMP/AULOIPF) +          
                          MBR(&MBR) OVRSCOPE(*JOB)                     
 SIG:        RCVF                                                      
                 MONMSG     MSGID(CPF0000) EXEC(DO)                    
                   GOTO       CMDLBL(FIN)                              
                 ENDDO                                                 
             IF         COND(&QMHMID *EQ 'CPIAD12') THEN(DO)         
               CHGVAR     VAR(&IP) VALUE(%SST(&QMHMDT 13 15))          
               GOTO       CMDLBL(FIN)                                  
             ENDDO                                                     
             GOTO       CMDLBL(SIG)                                    
 FIN:        DLTOVR     FILE(AULOIPF) LVL(*JOB)                        
                 MONMSG     MSGID(CPF0000)                             
             RCLRSC                                                    
ENDPGM