PGM                                                                                    
                                                                                                    
             CPYFRMIMPF FROMSTMF('/home/sdb001/csv/DURATNPF00.csv') +                               
                          TOFILE(DURATNPF00) MBROPT(*REPLACE) +                                     
                          RCDDLM(*CRLF)                                                             
                                                                                                    
             CLRPFM     FILE(DURATNPF01)                                                            
                                                                                                    
             CALL       PGM(DURATNRG00)                                                             
                                                                                                    
             CPYTOIMPF  FROMFILE(DURATNPF01) +                                                      
                          TOSTMF('/home/sdb001/csv/DURATNPF01.csv') +                               
                          MBROPT(*REPLACE) RCDDLM(*CRLF)                                            
                                                                                                    
ENDJOB:     ENDPGM