****************** Inizio dati **************************
             PGM        PARM(&D1MBR &D1SRC &D1LIB)       
                                                         
             DCLF       FILE(DLDI225D) RCDFMT(I225D1 I225
                                                         
             CRTPF      FILE(QTEMP/QSOURCE) RCDLEN(112) +
                          FILETYPE(*SRC) MAXMBRS(*NOMAX) 
                                                         
 SNDF:       SNDF       RCDFMT(I225Z1)                   
 CLRVAR:                                                 
                                                         
             CHGVAR     VAR(&D1VER) VALUE('P')           
                                                         
 SNDRCV:     SNDRCVF    RCDFMT(I225D1)                   
             IF         COND(&IN03 = '1') THEN(DO)       
             GOTO       CMDLBL(FIN)                      
             ENDDO                                       
 /*--------------------------*/                          
             CHGVAR     VAR(&IN50) VALUE('0')            
             CHGVAR     VAR(&IN51) VALUE('0')            
             CHGVAR     VAR(&IN52) VALUE('0')     
             CHGVAR     VAR(&IN53) VALUE('0')                        
 /*--------------------------*/                                      
             IF         COND(&D1MBR = '     ') THEN(DO)              
             CHGVAR     VAR(&IN50) VALUE('1')                        
             SNDPGMMSG  MSGID(LGL0113) MSGF(TENMSG) MSGDTA(*NONE) +  
                          TOPGMQ(*EXT) MSGTYPE(*STATUS)              
             GOTO       CMDLBL(SNDRCV)                               
             ENDDO                                                   
 /*--------------------------*/                                      
             IF         COND(&D1SRC = '     ') THEN(DO)              
             CHGVAR     VAR(&IN51) VALUE('1')                        
             SNDPGMMSG  MSGID(LGL0113) MSGF(TENMSG) MSGDTA(*NONE) +  
                          TOPGMQ(*EXT) MSGTYPE(*STATUS)              
             GOTO       CMDLBL(SNDRCV)                               
             ENDDO                                                   
 /*--------------------------*/                                      
             IF         COND(&D1LIB = '     ') THEN(DO)              
             CHGVAR     VAR(&IN52) VALUE('1')                        
             SNDPGMMSG  MSGID(LGL0113) MSGF(TENMSG) MSGDTA(*NONE) +  
                          TOPGMQ(*EXT) MSGTYPE(*STATUS)              
             GOTO       CMDLBL(SNDRCV)                               
                                                                     
             ENDDO                                                      
 /*--------------------------*/                                         
             IF         COND(&D1VER *NE 'P' *AND &D1VER *NE 'I') +      
                          THEN(DO)                                      
             CHGVAR     VAR(&IN53) VALUE('1')                           
             SNDPGMMSG  MSGID(LGL0113) MSGF(TENMSG) MSGDTA(*NONE) +     
                          TOPGMQ(*EXT) MSGTYPE(*STATUS)                 
             GOTO       CMDLBL(SNDRCV)                                  
             ENDDO                                                      
 /*--------------------------*/                                         
             CHKOBJ     OBJ(&D1LIB/&D1SRC) OBJTYPE(*FILE) MBR(&D1MBR)   
             MONMSG     MSGID(CPF9815) EXEC(DO)                         
                                                                        
             SNDPGMMSG  MSGID(CPF9815) MSGF(QCPFMSG) MSGDTA(&D1SRC +    
                          *cat ' ' *cat &D1LIB *CAT ' ' *CAT +          
                          &D1MBR) TOPGMQ(*EXT) MSGTYPE(*STATUS)         
             CHGVAR     VAR(&IN50) VALUE('1')                           
             CHGVAR     VAR(&IN51) VALUE('1')                           
             CHGVAR     VAR(&IN52) VALUE('1')                           
             GOTO       CMDLBL(SNDRCV)                                  
             ENDDO                                                      
 /*--------------------------*/                                      
             IF         COND(&D1VER = 'P') THEN(DO)                  
             ADDPFM     FILE(QTEMP/QSOURCE) MBR(&D1MBR)              
             OVRDBF     FILE(OUTFLE) TOFILE(QTEMP/QSOURCE) +         
                          MBR(&D1MBR) LVLCHK(*NO)                    
             ENDDO                                                   
 /*--------------------------*/                                      
             OVRDBF     FILE(NOMPGM) TOFILE(&D1LIB/&D1SRC) +         
                          MBR(&D1MBR) LVLCHK(*NO)                    
             CALL       PGM(DLDI225R) PARM(&D1MBR &D1VER)            
             DLTOVR     FILE(*ALL)                                   
 /*--------------------------*/                                      
             IF         COND(&D1VER = 'P') THEN(DO)                  
             STRSEU     SRCFILE(QTEMP/QSOURCE) SRCMBR(&D1MBR) +      
                          OPTION(5)                                  
             RMVM       FILE(QTEMP/QSOURCE) MBR(&D1MBR)              
             GOTO       CMDLBL(SNDF)                                 
             ENDDO                                                   
 /*--------------------------*/                                      
             IF         COND(&D1VER = 'I') THEN(DO)                  
             SNDPGMMSG  MSGID(PRO1023) MSGF(TENMSG) MSGDTA(*NONE) +  
                          TOPGMQ(*EXT) MSGTYPE(*STATUS)             
             GOTO       CMDLBL(CLRVAR)                              
             ENDDO                                                  
 /*--------------------------*/                                     
                                                                    
 FIN:        DLTF       FILE(QTEMP/QSOURCE)                         
             ENDPGM